Основное меню
Главная
Написать мне
Гостевая
Новости сайта

Статьи
О Языках программирования
Delphi
Visual Basic
JavaScript
VBScript

Мои программы
CLOCK
CD-organizer
Visual Basic. Пишем калькулятор

Visual Basic. Пишем калькулятор


 Точно такой же калькулятор мы писали и на Delphi, сейчас мы его напишем на VB. Ну давай по порядку. Открывай VB, создавай Standart.exe. Так как у меня VB "русский", то я изменяю имя формы Форма1 на Form1. А если у тебя нормальный VB то всё равно изменяй имена стандартные, на те что я говорю... Кидай на форму 4 CommandButton`a с именами: plus, minus, mnoj, delt и соответствующими caption`ами. 2 TextBox с именами: txt1 и txt2. И напоследок кинь Label с именем otvet.
 Кликни 2 раза по кнопке +, и напиши следующее:

otvet.Caption = CStr(CInt(txt1.Text) + CInt(txt2.Text))

и всавь на все операции -, * и /. Для тех кто не понял: Преобразовываем текс в 1ом и 2ом TextBox`ах в целочисленный тип, затем складываем, потом результат преобразовываем в текстовый тип, и выводим в label.
 Давай сделаем проверку при делении, стоит ли ноль в txt2:

If txt2.Text <> 0 Then otvet.Caption = CStr(CInt(txt1.Text) / CInt(txt2.Text)) Else MsgBox ("на ноль делить нельзя!") Если при делении во 2ом текстбоксе стоит не ноль то делим иначе выводим сообщение "на ноль делить нельзя!"

На всякий случай вот тебе исходнЯк(1,83 kb)

Rambler's Top100
Сайт создан в системе uCoz