NeverMore

Daha basit bir hesap makinası isteyenler için
kendi yaptığım basit bir hesap makinası...
Örnek teşkil etmesi için:BUYRUn

ilk önce sayı butonlarının kodları:



Private Sub Command1_Click()
Dim a
a = Val(Text1.Text)
Text1.Text = a & 1
End Sub

Private Sub Command2_Click()
Dim a
a = Val(Text1.Text)
Text1.Text = a & 2
End Sub

Private Sub Command3_Click()
Dim a
a = Val(Text1.Text)
Text1.Text = a & 3
End Sub

Private Sub Command4_Click()
Dim a
a = Val(Text1.Text)
Text1.Text = a & 4
End Sub

Private Sub Command5_Click()
Dim a
a = Val(Text1.Text)
Text1.Text = a & 5
End Sub

Private Sub Command6_Click()
Dim a
a = Val(Text1.Text)
Text1.Text = a & 6
End Sub

Private Sub Command7_Click()
Dim a
a = Val(Text1.Text)
Text1.Text = a & 7
End Sub

Private Sub Command8_Click()
Dim a
a = Val(Text1.Text)
Text1.Text = a & 8
End Sub

Private Sub Command9_Click()
Dim a
a = Val(Text1.Text)
Text1.Text = a & 9
End Sub

Private Sub Command10_Click()
Dim a
a = Val(Text1.Text)
Text1.Text = a & 0
End Sub

Private Sub Command11_Click()
Dim a
a = Text1.Text
Text1.Text = a & "."
End Sub

Private Sub Command12_Click()
Dim a
a = Val(Text1.Text)
Text1.Text = a & "00"
End Sub

toplama butonu

Private Sub Command14_Click()
Text2.Text = Text1.Text
Label1.Caption = "+"
Text1.Text = ""
End Sub

cıkarma butonu

Private Sub Command15_Click()
Text2.Text = Text1.Text
Label1.Caption = "-"
Text1.Text = ""
End Sub

carpma butonu

Private Sub Command17_Click()
Text2.Text = Text1.Text
Label1.Caption = "*"
Text1.Text = ""
End Sub

bölme butonu

Private Sub Command16_Click()
Text2.Text = Text1.Text
Label1.Caption = "/"
Text1.Text = ""
End Sub

reset butonu

Private Sub Command13_Click()
Text1.Text = ""
End Sub

EŞİTTİR butonu

Private Sub Command18_Click()
Dim a, b
a = Val(Text1.Text)
b = Val(Text2.Text)
If Label1.Caption = "+" Then
Text1.Text = a + b
End If
If Label1.Caption = "-" Then
Text1.Text = b - a
End If
If Label1.Caption = "*" Then
Text1.Text = a * b
End If
If Label1.Caption = "/" Then
Text1.Text = b / a
End If
End Sub

Kayarak kapanan cıkış butonu

Private Sub Command19_Click()
Do Until Form1.Top = Screen.Height
Form1.Top = Form1.Top + 1
Loop
Unload Me
End Sub

Son olarakta form load a

Private Sub Form_Load()
Text2.Visible = False
End Sub

maleturka

güzel bir program

mstf

ya arkadaşlar ben de öğrenmek istiyorum programlama dillerini ama nasıl yapabilirim anlatım falan varmı o kodları falan nasıl yapıyopruz nasıl öğrenebilirim yadm edebilirmisiniz