Kendi Hesap Makinanı Yapp(vb ile)
Dim koya, a, b, f, m, k, ka
Private Sub Command1_Click() If (f = 0) Then Text1.Text = " " f = 1 End If Text1.Text = Text1.Text + "1" End Sub Private Sub Command1_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.BackColor = &H80000000 End Sub Private Sub Command10_Click() If (f = 0) Then Text1.Text = " " f = 1 End If Text1.Text = Text1.Text + "0" End Sub Private Sub Command10_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command10.BackColor = &H80000000 End Sub Private Sub Command11_Click() a = Val(Text1.Text) Text1.Text = " " m = 1 f = 0 Command12.Enabled = False Command13.Enabled = False Command14.Enabled = False End Sub Private Sub Command11_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command11.BackColor = &H80000000 End Sub Private Sub Command12_Click() a = Val(Text1.Text) Text1.Text = " " m = 2 f = 0 Command11.Enabled = False Command13.Enabled = False Command14.Enabled = False End Sub Private Sub Command12_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command12.BackColor = &H80000000 End Sub Private Sub Command13_Click() a = Val(Text1.Text) Text1.Text = " " m = 3 f = 0 Command11.Enabled = False Command12.Enabled = False Command14.Enabled = False End Sub Private Sub Command13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command13.BackColor = &H80000000 End Sub Private Sub Command14_Click() a = Val(Text1.Text) Text1.Text = " " m = 4 f = 0 Command12.Enabled = False Command13.Enabled = False Command11.Enabled = False End Sub Private Sub Command14_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command14_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command14.BackColor = &H80000000 End Sub Private Sub Command15_Click() b = Val(Text1.Text) If (m = 1) Then Text1.Text = " " Text1.Text = a + b End If If (m = 2) Then Text1.Text = " " Text1.Text = a - b End If If (m = 3) Then Text1.Text = " " Text1.Text = a * b End If If (m = 4) Then Text1.Text = " " Text1.Text = a / b End If m = 0 Command11.Enabled = True Command12.Enabled = True Command13.Enabled = True Command14.Enabled = True End Sub Private Sub Command15_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command15_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command15.BackColor = &H80000000 End Sub Private Sub Command16_Click() Text1.Text = " " End Sub Private Sub Command16_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command16_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command16.BackColor = &H80000000 End Sub Private Sub Command17_Click() End End Sub Private Sub Command17_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command17.BackColor = &H80000000 End Sub Private Sub Command18_Click() k = Val(Text1.Text) Text1.Text = Sqr(k) End Sub Private Sub Command18_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command18_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command18.BackColor = &H80000000 End Sub Private Sub Command19_Click() ka = Val(Text1.Text) Text1.Text = ka * ka End Sub Private Sub Command19_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command19_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command19.BackColor = &H80000000 End Sub Private Sub Command2_Click() If (f = 0) Then Text1.Text = " " f = 1 End If Text1.Text = Text1.Text + "2" End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command2.BackColor = &H80000000 End Sub Private Sub Command3_Click() If (f = 0) Then Text1.Text = " " f = 1 End If Text1.Text = Text1.Text + "3" End Sub Private Sub Command3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command3.BackColor = &H80000000 End Sub Private Sub Command4_Click() If (f = 0) Then Text1.Text = " " f = 1 End If Text1.Text = Text1.Text + "4" End Sub Private Sub Command4_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command4.BackColor = &H80000000 End Sub Private Sub Command5_Click() If (f = 0) Then Text1.Text = " " f = 1 End If Text1.Text = Text1.Text + "5" End Sub Private Sub Command5_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command5.BackColor = &H80000000 End Sub Private Sub Command6_Click() If (f = 0) Then Text1.Text = " " f = 1 End If Text1.Text = Text1.Text + "6" End Sub Private Sub Command6_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command6.BackColor = &H80000000 End Sub Private Sub Command7_Click() If (f = 0) Then Text1.Text = " " f = 1 End If Text1.Text = Text1.Text + "7" End Sub Private Sub Command7_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command7.BackColor = &H80000000 End Sub Private Sub Command8_Click() If (f = 0) Then Text1.Text = " " f = 1 End If Text1.Text = Text1.Text + "8" End Sub Private Sub Command8_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command8.BackColor = &H80000000 End Sub Private Sub Command9_Click() If (f = 0) Then Text1.Text = " " f = 1 End If Text1.Text = Text1.Text + "9" End Sub Private Sub Command9_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command9.BackColor = &H80000000 End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If End Sub Private Sub Form_Load() f = 1 m = 0 End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.BackColor = &H8000000F Command2.BackColor = &H8000000F Command3.BackColor = &H8000000F Command4.BackColor = &H8000000F Command5.BackColor = &H8000000F Command6.BackColor = &H8000000F Command7.BackColor = &H8000000F Command8.BackColor = &H8000000F Command9.BackColor = &H8000000F Command10.BackColor = &H8000000F Command11.BackColor = &H8000000F Command12.BackColor = &H8000000F Command13.BackColor = &H8000000F Command14.BackColor = &H8000000F Command15.BackColor = &H8000000F Command16.BackColor = &H8000000F Command18.BackColor = &H8000000F Command19.BackColor = &H8000000F End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) Then End End If If (f = 0) Then Text1.Text = " " f = 1 End If If (KeyAscii = 43) Then a = Val(Text1.Text) Text1.Text = " " f = 0 m = 1 End If If (KeyAscii = 45) Then a = Val(Text1.Text) Text1.Text = " " f = 0 m = 2 End If If (KeyAscii = 42) Then a = Val(Text1.Text) Text1.Text = " " f = 0 m = 3 End If If (KeyAscii = 47) Then a = Val(Text1.Text) Text1.Text = " " f = 0 m = 4 End If If (KeyAscii = 13) Then b = Val(Text1.Text) If (m = 1) Then Text1.Text = " " Text1.Text = a + b End If If (m = 2) Then Text1.Text = " " Text1.Text = a - b End If If (m = 3) Then Text1.Text = " " Text1.Text = a * b End If If (m = 4) Then Text1.Text = " " Text1.Text = a / b End If m = 0 End If If (Text1.Text = "+") Then Text1.Text = " " End If If (KeyAscii = 25) Then Text1.Text = " " End If End Sub |
Sanırım kodlar hata veriyo bende...
|
emeğine sağlık kardeş... :1: teşekkürler....
|
Alıntı:
|
:D
|
paylaşım için tşkrlr
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 20:20 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.