Eğitim - Öğretim ve Ödev Forumu

Eğitim - Öğretim ve Ödev Forumu > Hazır Ödev ve Tezler > Diğer Hazır Ödev ve Tezler > VISUAL BASIC Hesap makinesi Kodları
Tam Görünüm: VISUAL BASIC Hesap makinesi Kodları
Şu Anda Hafifleştirilmiş Görüntüleme Modundasınız. Tam Görünüm Modu için, Buraya Tıklayın

admin

03-03-2007, 19:31
Hesap makinesi

Hesap makinesi. toplama çıkarma çarpma bölme karekök kök alma işlemleri yapabiliyor.


Kod:
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


zeki yılmaz
d_3vil@hotmail.com

hazelcs

08-08-2007, 15:04
hangı butonları kullanıcagımızı yazarmısız.bu hesap makınesı bılgısayarın kendı hesap makınesının aynısı dımı?
sagolun

kalbim_seninle

02-28-2008, 23:08
hesap makinesi çok fonksiyonlu yani bilimsel hesaplamalar yapabilen toplama, çıkarma,çarpma,bölme,üs alma ,yüzde,sin,cos,tan,cot,derece,grad,radyon hesabı yapabilen karakök ,filme(ama fitre galiba okunmuyo hocanın yazısı),makineyi açma,kapatma yapacak ,sayı sistemleri çevirimi yapacak ,hafıza alma makina hakkında yardım konusu,(binary,oktal,desimal,hexdecimal)çevrimleri yapacak windows hesap makinesi örnek olarak hazırlanacak.Ayrı şekilde şekiller bulunup bilimsel standart geçişleri yapılabilecektir.

arkadaşlar bana böle bi kodlar lazım buttonları filan lüten yardımcı olabilirmsiniz

kalbim_seninle

04-12-2008, 00:45
arkadaşlar bilmiyomusunuz cevap gelmedi daha vezir arkadaşım sağol seninkini yaptım ama bana fazlası lazım

Bigbikerman

10-09-2008, 02:00
paylaşım için teşekkürler
Eğitim - Öğretim ve Ödev Forumu > Hazır Ödev ve Tezler > Diğer Hazır Ödev ve Tezler > VISUAL BASIC Hesap makinesi Kodları
Referans Adresler