Basit bir hesap makinesi kOdları..

[ReddeviL10]

Kullanılması gereken elemanlar
4 adet commandbuton'u
2 adet textbox
1 adet label



Gereken Komutlar
Private Sub Command1_Click()
Label1 = Val(Text1) + Val(Text2)
End Sub

Private Sub Command2_Click()
Label1 = Val(Text1) - Val(Text2)

End Sub

Private Sub Command3_Click()
Label1 = Val(Text1) / Val(Text2)
End Sub

Private Sub Command4_Click()
Label1 = Val(Text1) * Val(Text2)
End Sub

Private Sub Command6_Click()
End
End Sub

Private Sub Command7_Click()
Text1 = ""
Text2 = ""
Label1 = ""
End Sub

Private Sub Form_Load()

End Sub

Kod işlemektedir..Uygulanmıştır.!:victory

 

[ibrahimkaya396]

bu tip bişe vermiştim ama senin kilerde baya güzel

 

[limpid]

teşekkür ettim işime yarıcakk....