Кто хочеть стать програмистов?

▲▼▲▼♥♥АЛЛАХ ВЕЛИК♥♥▲▼▲▼ БУДЕМ СОЗДАТЬ КАЛЬКУЛЯТОР▲▼▲▼

▲▼▲▼Здравствуйте, дорогие друзья у меня появилось этот идея и я хотел помогат тот кто хочеть стат программистов! ЯЗЫК ПРОГРА. VB 6.0

БУДЕМ НАЧАТ ИЗ ПЕРВЫЙ УРОК. Еслий у вас есть уже VB 6.0 открываем его и выбирем стандартний exe и кидаем на нево три текстовое поля, комманд-для номеро и для знакиы +-*/. ВОТ КОД: Private Sub Label2_Click() Я ИЗПОЛЬЗОВАЛ LABEL ВЫ МОЖЕТЕ ИСПОЛЬЗОВАТ COMMAND ▲▼▲▼

║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║║

Private Sub Label2_Click()

If Val(Text2.Text) <> 0 Then Text3.Text = Val(Text1.Text) + Val(Text2.Text) Else Text3.Text = "Хатоги! Бе ракам номумкин аст?!"

End Sub

Private Sub Label20_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

MsgBox "Хар касе, ки агар номи Мухаммад (С.А.С)- ро шунида ба у салавот нафиристад гунохи азим аст!", vbInformation End Sub

Private Sub Label3_Click()

If Val(Text2.Text) <> 0 Then Text3.Text = Val(Text1.Text) - Val(Text2.Text) Else Text3.Text = "Хатоги! Бе ракам номумкин аст?!"

End Sub

Private Sub Label4_Click()

If Val(Text2.Text) <> 0 Then Text3.Text = Val(Text1.Text) * Val(Text2.Text) Else Text3.Text = "Хатоги! Бе ракам номумкин аст?!"

End Sub

Private Sub Label5_Click()

If Val(Text2.Text) <> 0 Then Text3.Text = Val(Text1.Text) / Val(Text2.Text) Else Text3.Text = "Хатоги! Бе ракам номумкин аст?!"

End Sub

Private Sub Label6_Click()

Text1.Text = Text1.Text & "1"

End Sub

Private Sub Label7_Click()

Text1.Text = Text1.Text & "2"

End Sub

Private Sub Label8_Click()

Text1.Text = Text1.Text & "3"

End Sub

Private Sub Label9_Click()

Text1.Text = Text1.Text & "4"

End Sub

Private Sub Label10_Click()

Text1.Text = Text1.Text & "5"

End Sub

Private Sub Label11_Click()

Text1.Text = Text1.Text & "6"

End Sub

Private Sub Label12_Click()

Text1.Text = Text1.Text & "7"

End Sub

Private Sub Label13_Click()

Text1.Text = Text1.Text & "8"

End Sub

Private Sub Label14_Click()

Text1.Text = Text1.Text & "9"

End Sub

Private Sub Label15_Click()

Text1.Text = Text1.Text & "0"

→→→→→ЕСЛИ ВЫ СОГЛСНЫЙ БУДЕМ ПРОДОЛЖАТ! ЕСЛИ НЕТ ТОГДА НЕТ!