Programalama > VISUAL BASIC

Dim a As Integer
Dim b As Integer
Private Sub Command1_Click()
Text1.Text = (a + b)
End Sub

Private Sub Command2_Click()
Text1.Text = (a - b)
End Sub

Private Sub Command3_Click()
Text1.Text = (a * b)
End Sub

Private Sub Command4_Click()
Text1.Text = (a / b)
End Sub

Private Sub Command5_Click()
End
End Sub

Private Sub Command6_Click()
a = InputBox("tabi bilemiyon seni uyanık gir bakam 1. sayını")
b = InputBox("eee hadi 2. sayıyıda gir bari yoksa işlem olmucak haliyle")

End Sub

Private Sub Form_Load()
Command1.Caption = "burası toplar yawrucum"
Command2.Caption = "burası çıkartır ee haliyle"
Command3.Caption = "bu buton ise çarpar"
Command4.Caption = "eee yani burasıdaa bölüyor göz war izan war"
Command5.Caption = "tabi işin bitti çık bakalım bi daha burlarda görmiyim seni :)"
Command6.Caption = "insan 4 işlemi bilmeyince böyle oluyor hangi sayıları işleme sokcaksan burdan gir bakam sayıları"
Text1.Text = ""
Form1.Caption = "CANSU"
Form1.BackColor = vbRed

End Sub


cansu
cansu.forlove@gmail.com