Zıplanacak içerik
  • Üye Ol

Visual Basic'de Hesap Makinesi ve Diğer Programlar


LaRsiE_

Önerilen İletiler

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

Yoruma sekme
Diğer sitelerde paylaş

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.

Misafir
Maalesef göndermek istediğiniz içerik izin vermediğimiz terimler içeriyor. Aşağıda belirginleştirdiğimiz terimleri lütfen tekrar düzenleyerek gönderiniz.
Bu başlığa cevap yaz

×   Zengin metin olarak yapıştırıldı..   Onun yerine sade metin olarak yapıştır

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri getirildi..   Editörü temizle

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Yeni Oluştur...

Önemli Bilgiler

Bu siteyi kullanmaya başladığınız anda kuralları kabul ediyorsunuz Kullanım Koşulu.