Глава 6-Математические функции

В этой главе мы познокомимся с элементами таймер а также разберем некоторые встроенные функции Visual Baic.Сделаем электронные часы а также программу калькулятор.

1.Делаем программу калькулятор

Для модели калькулятора понадобятся следующие элементы:

    1. Четыре кнопки (CommandButton) для выполнения арифметических операций: сложить вычесть умножить разделить.

    2.  Кнопка для окончания  работы с приложением

    3. Три текстовых поля (TextBox) для ввода двух аргументов и показа результата

    4. Пять надписей (Label) для оформления.

    5. Графическое поле (PictureBox) для оформления СПРАВКИ. Чтобы заполнить графическое поле рисунком необходимо выделить объект найти свойство Picture и выбрать необходимую картинку из объектов ClipArt

Составим программу которая выполняет функции калькулятора:

Нажимаем на форму правой кнопкой -)показать код

Private sub Command1_Click()

Text3.text=val(text1.text)+val(text2.text)' Выполняется сложение

Label1.Caption="+"

End Sub

Private Sub Command2_Click()

Text3.text=val(text1.text)-val(Text2.text)' Выполняется вычитание

Label1.Caption="-"

End Sub

Private Sub Command3_Click()

Text3.text=val(text1.text)*val(Text2.text)' Выполняется Умножение

Label1.Caption="*"

End Sub

Private sub Command4_Click()

                                                                           'Выполняется деление если делитель не равен

if  val(Text2.text)<>0 Then                              'нулю иначе функция Visual Basic MsgBox выдает

Text3.Text=val(Text1.text)/val(Text2.text)      'сообщение "деление на ноль"

Label1.Caption="/"

Else

MsgBox ("деление на ноль")

End if

End Sub

Private sub Command5_Click()

End                                                   'Закрытие программы

End Sub

Private Sub Form_Load()

Text1.text=""                                           'очистка текстовых полей и удаление надписей с элементов Label

Text2.text=""

Text3.text=""

Label1.caption=""

Form1.Caption="Калькулятор"      'выводит текст в заголовке окна

End Sub

Вот и все просто ведь правда!!!!                                           Исходник прилагается -Kalk.zip

2. Делаем Простенькие часы

И так традиционно создаем стандартный exe проект.

Поместим на форму элемент label и элемент таймер. Изменим свойство font элемента label1 (поставте 14 шрифт жирный) как на рисунке:

в свойстве Enterval элемента Timer1 установим значение 1000 этим мы зададим срабатывание таймера каждые 1000 милесекунд (1 секунда)

Теперь пишем код программы:

Private Sub Form_Load()
Label1.Caption = Time               'При загрузке формы сразу выводится время
Form1.Captin="Крутые часы"

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time              'сдесь при каждом срабатывании таймера обновляется время
End Sub

Скачать исходник:      Chasi.zip

На этом и заканчивается наш с вами урок Удачи!