basit hesap makinesi

[SiniZeR]

önce formunu yukardaki gibi tasarla. sonra;

Dim ilk, ikinci As Long

Private Sub Command1_Click()
ilk = Text1.Text
ikinci = Text2.Text
If Option1.Value = True Then
Text3.Text = ilk + ikinci
End If
If Option2.Value = True Then
Text3.Text = ilk - ikinci
End If
If Option3.Value = True Then
Text3.Text = ilk * ikinci
End If
If Option4.Value = True Then
Text3.Text = ilk / ikinci
End If
End Sub

Private Sub Form_Load()
BorderStyle = 1
Caption = "Hesap Makinası \\ OriOn"
Left = "4740"
Top = "4155"
Text1.Text = "1"
Text2.Text = "1"
Text3.Text = ""
Label1.Caption = "1. Sayı"
Label2.Caption = "2. Sayı"
Label3.Caption = "Sonuç"
Command1.Caption = ">>>"
Option1.Caption = "Toplama"
Option2.Caption = "Çıkarma"
Option3.Caption = "Çarpma"
Option4.Caption = "Bölme"
Option1.Value = True
End Sub


umarım işe yarar. bu yalnız dört işlem yapıyor. başarılar

[celal_gozlek]

Arkadaşlar,SiniZeR arkadaşımızı kutluyorum.Güzel bir çalışma.Paylaşım için teşekkür ederim.
_________________
Bir mum diğerini tutuşturmakla ışığından bir şey kaybetmez.

[suckorbicak]

ben bu kodları yazıyom ondan sonra run tuşuna basıp deneyeyim diyom sonra ekran direk kapanıyo bende visual basic 6 portable var bide yaptığım bişeyi exe ye naıl çevirebilirim yani nasıl kullanılır hale getire bilirim