код калькулятора на basic

Итак собственно простой калькулятор на Visual Basic 6.0!Скриншот калькулятора:Программный код:Код: Dim Num1 As StringDim Num2 As DoubleDim Oper As StringDim ResC As DoublePrivate Sub Form_Load()Num1 = ""ResC = 0Label1 = ResCEnd SubPrivate Sub Command1_Click()Num1 = Num1 + "1"Label1 = Num1End SubPrivate Sub Command2_Click()Num1 = Num1 + "2"Label1 = Num1End SubPrivate Sub Command3_Click()Num1 = Num1 + "3"Label1 = Num1End SubPrivate Sub Command4_Click()Num1 = Num1 + "4"Label1 = Num1End SubPrivate Sub Command5_Click()Num1 = Num1 + "5"Label1 = Num1End SubPrivate Sub Command6_Click()Num1 = Num1 + "6"Label1 = Num1End SubPrivate Sub Command7_Click()Num1 = Num1 + "7"Label1 = Num1End SubPrivate Sub Command8_Click()Num1 = Num1 + "8"Label1 = Num1End SubPrivate Sub Command9_Click()Num1 = Num1 + "9"Label1 = Num1End SubPrivate Sub Command10_Click()Num1 = Num1 + "0"Label1 = Num1End SubPrivate Sub Command11_Click()Num1 = Num1 + "."Label1 = Num1End SubPrivate Sub Command12_Click()If ResC <> 0 ThenNum2 = ResC ElseNum2 = Val(Num1)End IfOper = "A"Num1 = ""End SubPrivate Sub Command13_Click()If ResC <> 0 ThenNum2 = ResC ElseNum2 = Val(Num1)End IfOper = "B"Num1 = ""End SubPrivate Sub Command14_Click()If ResC <> 0 ThenNum2 = ResC ElseNum2 = Val(Num1)End IfOper = "C"Num1 = ""End SubPrivate Sub Command15_Click()If ResC <> 0 ThenNum2 = ResC ElseNum2 = Val(Num1)End IfOper = "D"Num1 = ""End SubPrivate Sub Command16_Click()If Oper = "A" ThenResC = Num2 + Val(Num1)Label1 = ResCElseIf Oper = "B" ThenResC = Num2 - Val(Num1)Label1 = ResCElseIf Oper = "C" ThenResC = Num2 * Val(Num1)Label1 = ResCElseIf Oper = "D" And Val(Num1) <> 0 ThenResC = Num2 / Val(Num1)Label1 = ResC ElseLabel1 = "Error /0"End IfEnd SubPrivate Sub Command17_Click()ResC = 0Num1 = ""Label1 = ResCEnd SubНебольшие пояснения:Процедура для Command12 - это кнопка "+"соответственно:Command13 - "-"Command14 - "*"Command15 - "/"Command16 - "="

Сообщения: 5505Изображения: 72Зарегистрирован: 19 фев 2008 09:55

У меня нормально работает.Спасибо!У меня только вид покрасивее, потому что у меня на виндовс скин надернут.

У меня нормально работает.

ZORG » 12 июл 2008 19:39

Сообщения: 5505Изображения: 72Зарегистрирован: 19 фев 2008 09:55

Скачать калькулятор можно здесь: Прошу проверьте будет ли работать?Возможно придется добавлять библиотеки, ведь не у всех они есть.Калькулятор простой, все действия через = , поленился еще одну переменную добавить...

• Страница 1 из 1

Visual Basic, Visual Basic .NET, Liberty Basic, Quick Basic ets.

Архив срочных новостей и объявлений .

Очередная лотерея Не пропустите свою удачу!

Срочные новости и объявления

      

Международное интернет-сообщество друзей. Мы всегда рады новым, интересным участникам!

В компании с Евой

В компании с Евой • Просмотр темы - Калькулятор на VB6.0