9 Tuşlu Tek Textli Hesap Makinası

Açıklama: Command butonları sayıya göre değil biraz zorlanabilirsiniz..

<!---vbdersleri.tr.gg kod başlangıc--->Dim sonuc As Integer 

Dim secim As Integer 



Private Sub Command1_Click() 

Text1.Text = Text1.Text + "0" 

End Sub 



Private Sub Command10_Click() 

Text1.Text = Text1.Text + "3" 

End Sub 



Private Sub Command11_Click() 

Text1.Text = Text1.Text + "5" 

End Sub 



Private Sub Command12_Click() 

Text1.Text = Text1.Text + "4" 

End Sub 



Private Sub Command13_Click() 

Text1.Text = Text1.Text + "6" 

End Sub 



Private Sub Command14_Click() 

Text1.Text = Text1.Text + "9" 

End Sub 



Private Sub Command15_Click() 

Text1.Text = Text1.Text + "8" 

End Sub 



Private Sub Command16_Click() 



If secim = 1 Then 

sonuc = sonuc + Val(Text1.Text) 

End If 

If secim = 2 Then 

sonuc = sonuc - Val(Text1.Text) 

End If 

If secim = 3 Then 

sonuc = sonuc * Val(Text1.Text) 

End If 

If secim = 4 Then 

sonuc = sonuc / Val(Text1.Text) 

End If 

Text1.Text = "" 



Text1.Text = sonuc 



End Sub 



Private Sub Command17_Click() 

sonuc = 0 

secim = 0 

Text1.Text = "" 

End Sub 



Private Sub Command2_Click() 

Text1.Text = "" 

End Sub 



Private Sub Command3_Click() 

sonuc = Val(Text1.Text) 

Text1.Text = "" 

secim = 1 

End Sub 



Private Sub Command4_Click() 

sonuc = Val(Text1.Text) 

Text1.Text = "" 

secim = 2 

End Sub 



Private Sub Command5_Click() 

sonuc = Val(Text1.Text) 

Text1.Text = "" 

secim = 3 

End Sub 



Private Sub Command6_Click() 

sonuc = Val(Text1.Text) 

Text1.Text = "" 

secim = 4 

End Sub 



Private Sub Command7_Click() 

Text1.Text = Text1.Text + "1" 

End Sub 



Private Sub Command8_Click() 

Text1.Text = Text1.Text + "2" 

End Sub 



Private Sub Command9_Click() 

Text1.Text = Text1.Text + "7" 

End Sub 



Private Sub Form_Load() 



End Sub 

<SCRIPT LANGUAGE="JavaScript">
<!--
Code0 = "%3Cp%3E%3Cfont%20size%3D%221%22%3E%3Cspan%20style%3D%22background-color%3A%20%23FFFFFF%22%3E%0D%0A%3Ca%20href%3D%22http%3A//www.vbdersleri.tr.gg/%22%3ESitene%20Ekle%3C/a%3E%3C/span%3E%3C/font%3E%3C/p%3E";
document.write(unescape(Code0));
//-->
</SCRIPT>

<!---vbdersleri.tr.gg kod bitişi--->