Saatli Hesap Makinası Deneyin

[DeadGhost]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Dim hafıza As Single
Dim islem As String
Dim sonuc As Single



Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub


Private Sub Command10_Click()
sonuc = Val(Text1.Text)
Text1.Text = ""
islem = "+"
End Sub

Private Sub Command11_Click()
sonuc = Val(Text1.Text)
Text1.Text = ""
islem = "-"
End Sub

Private Sub Command12_Click()
sonuc = Val(Text1.Text)
Text1.Text = ""
islem = "*"
End Sub

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

Private Sub Command14_Click()
Text1.Text = Text1.Text + "0"
End Sub

Private Sub Command15_Click()
sonuc = Val(Text1.Text)
Text1.Text = ""
islem = "/"
End Sub

Private Sub Command16_Click()
If islem = "+" Then Text1.Text = sonuc + Val(Text1.Text)
If islem = "-" Then Text1.Text = sonuc - Val(Text1.Text)
If islem = "*" Then Text1.Text = sonuc * Val(Text1.Text)
If islem = "/" Then Text1.Text = sonuc / Val(Text1.Text)
If islem = "%" Then Text1.Text = sonuc * Val(Text1.Text) / 100
End Sub

Private Sub Command17_Click()
Text1.Text = Text1.Text + "00"
End Sub

Private Sub Command18_Click()
Text1.Text = Sqr(Val(Text1.Text))
End Sub

Private Sub Command19_Click()
sonuc = Val(Text1.Text)
Text1.Text = ""
islem = "%"
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text + "2"
End Sub

Private Sub Command20_Click()
mesaj = MsgBox("Hesap Makinesinden Çıkmak İstiyormusunuz?", vbYesNo + vbQuestion, "Hesap Makinesi")
If mesaj = vbNo Then
Form1.Show
Else
End
End If
End Sub

Private Sub Command21_Click()
hafıza = hafıza - Val(Text1.Text)
End Sub

Private Sub Command22_Click()
Text1.Text = hafıza
End Sub

Private Sub Command23_Click()
hafıza = 0
End Sub

Private Sub Command24_Click()
Text1.Text = Text1.Text + "."
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text + "3"
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
End Sub
Private Sub Command6_Click()
Text1.Text = Text1.Text + "6"
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text + "7"
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text + "8"
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text + "9"
End Sub





Private Sub Form_Load()
Dim saat As String, dakika As String, saniye As String, zaman As String
Label1.Caption = Format(Now, "hh:mm:ss")
saat = Hour(Now)
dakika = Minute(Now)
If dakika < 10 Then
dakika = "0" + dakika
End If
saniye = Second(Now)
If saniye < 10 Then
saniye = "0" + saniye
End If
Label1.Caption = saat + ":" + dakika + ":" + saniye
End Sub




Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm")
saat = Hour(Now)
dakika = Minute(Now)
If dakika < 10 Then
dakika = "0" + dakika
End If
saniye = Second(Now)
If saniye < 10 Then
saniye = "0" + saniye
End If
Label1.Caption = saat + ":" + dakika
End Sub

 

[OptiMistics]

Teşekkürler.

 

[kutlucan1]

Teşekkürler.

 

[JooM]

Teşekkür Ederim ​

 

[DeadGhost]

Birşey Değil Yea