Здравствуйте Гость
Сегодня Пятница 27.06.2025 22:24

Visual Basic

Форма входа
Мини-чат
500
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Меню сайта
Поиск
Главная » Статьи » Уроки

Урок 5

Visual Basic калькулятор

Ну, если ты готов, тогда приступим. Как всегда входим в VB, кликаем на Standart EXE. Помещаем на форму 3 текстовых поля, со свойством Text равным: у первых двух без текста, а у 3-его равным 0(это можно сделать в окне свойство объекта, или написать код Text1.Text="",Text2.Text="",Text3.Text="0",я рекомендую все свойства писать только кодом, так ты быстрее освоишь язык), и 5 кнопок со свойством Caption равным:Ну вот и пришло время сделать свою первую серьезную программу. 

У 1-ой CE
У 2-ой X
У 3-ей /
У 4-ой +
У 5-ой --

Как это делать ты должен знать (в окне свойство объекта, или кодом Command1.Caption="CE"...,естественно в поле Form onLoad(кликни два раза по форме)) 
У тебя должна получиться такая штука:

Теперь код:

Private Sub Command1_Click() 
 Text1.Text = "" 'при нажатии на кнопку CE, у двух текстовых полей свойство Caption будет равным " ", а 3-его будет равным 0 
 Text2.Text = "" 
 Text3.Text = "0" 
 End Sub 

 Private Sub Command2_Click() 'при нажатии на кнопку *, 1 текстовое поле будет умножено на второе, и это будет равно 3-ему 
 Text3.Text = Val(Text1.Text) * Val(Text2.Tex) 
 End Sub 

 Private Sub Command3_Click() 'при нажатии на кнопку /, 1 текстовое поле будет разделенно на второе, и это будет равно 3-ему 
 If Val(Text2.Text) <> 0 then Text3.Text = Val(Text1.Text) / Val(Text2.Tex) Else Text3.text="Ошибка: На нуль делить нельзя" 
 End Sub 

 Private Sub Command4_Click() 'при нажатии на кнопку +, 1 текстовое поле будет прибавлено ко второму, и это будет равно 3-ему 
 Text3.Text = Val(Text1.Text) + Val(Text2.Text) 
 End Sub 

 Private Sub Command5_Click() 'при нажатии на кнопку --, 1-ое текстовое поле будет отнято от второго, и это будет равно 3-ему 
 Text3.Text = Val(Text1.Text) - Val(Text2.Text) 
 End Sub 

 Private Sub Form_Load() 
 Form1.Caption = "Калькулятор" 'при загрузке формы, ее заголовок будет "Калькулятор" 
 End Sub 
 


Теперь я хотел бы пояснить что такое Val(при прибавлении см. выше в коде), это функция, она нужна для того, чтобы комп преобразовывал символ из строки, в число, т.е., допустим если ты напишешь без нее, то при прибавлении 4+4, у тебя будет не 8, а 44. Ну вроде объяснил. Исходник программы можешь скачать отсюда

Категория: Уроки | Добавил: vacsa (07.05.2013) | Автор: Денис E
Просмотров: 1325 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]