Φ LaRsiE_ Gönderi tarihi: 10 Kasım , 2008 Paylaş Gönderi tarihi: 10 Kasım , 2008 Visual Basic ile Kodlanan bir Hesap Makinesi 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 Coemand11.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 Sayi Bulma Oyunu Alt Alta 5 Tane Text Box Agyn ve 2 Tane de Command Buton Ekleyin... ___________________________________________ dim tes as integer dim st as integer dim sakla as integer dim uyary as string dim i as integer ________________________________ Private Sub Form_Load() End Sub ________________________________ Private Sub Command1_Click() tes = Text1.text sakla = tes Text4.text =sakla Text1.text="" End Sub ________________________________ Private Sub Command2_Click() tes =Text1.text st =Text2.text If st = sakla Then i = i + 1 uyary="Tebrikler i denemede bildiniz!" Text5.text = i End If If st sakla Then i = i + 1 Text2.text = "" uyary="Tahmininiz Bgygk!" Text5.text = i End If Text3.text = uyary End Sub Not Ortalaması Alma > Gerekenler gsimler i Kod < Private Sub Command1_Click() Text4 = (Val(Text2) + Val(Text2) + Val(Text3)) 3 Font.Bold = True End Sub Private Sub Command2_Click() List1.AddItem Text4 End Sub Private Sub Command3_Click() List1.RemoveItem List1.ListIndex End Sub Private Sub Command4_Click() List1.Clear End Sub Private Sub Command5_Click() a = MsgBox("ggkgg yapmak istediniz.Emin misinizg", vbQuestion + vbYesNo + vbDefaultButton2, "ggkgg") If a = vbYes Then MsgBox "ggkgg Yapgyorsunuz!!" End Else a = vbNo MsgBox "ggkgg gptal Edildi!!" End If End Sub Private Sub Form_Load() MsgBox "Bu programcgk Dejavu tarafgndan yazglmggtgr!" End Sub alıntıdır Alıntı Yoruma sekme Diğer sitelerde paylaş Daha Fazla Paylaşım Siteleri
Önerilen İletiler
Katılın Görüşlerinizi Paylaşın
Şu anda misafir olarak gönderiyorsunuz. Eğer ÜYE iseniz, ileti gönderebilmek için HEMEN GİRİŞ YAPIN.
Eğer üye değilseniz hemen KAYIT OLUN.
Not: İletiniz gönderilmeden önce bir Moderatör kontrolünden geçirilecektir.