Yeni başlayanlar için yaptığım bu kodlar ile hesap makinesi yapabilirler. Hesap makinesi işlem olarak toplama, çıkarma, bölme, çarpma ve girilen sayının üsüünü alam işlemlerini yapabilir. Forma 1 tane label 2 tane text 5 tane command tuşu ekleyin ve aşşağıdaki kodları code bölümünü yapıştırın Kolay gelsin Artık sizinde bir hesapmakineniz olsun Option Explicit 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 Command5_Click Label1 = Val(Text1) ^ Val(Text2) End Sub Private Sub Form_Load Command1. Caption = "+" Command2. Caption = "-" Command3. Caption = "/" Command4. Caption = " " Command5. Caption = "Kare" Text1 = "" Text2 = "" End Sub

videoLu şekiLde aLabiLirmiyiz Bu konuyu?

nereye yazalım göbegimize mi PatRoN.

Bunu söylediğin ii oldu

Ama bunlar tam sayıları hesaplar Sen bunları currency değişkeniyle text kutularını eşitle yani şöyle olursa tam sayıdan sonraki virgülleri de hesaplar dim değişken, değişken1, sonuc as currency değişken = text1 değişken1 = text2 butonlara da şöyle yap sonuc = değişken + değişken1 'Buradakileri -+/ olarak değiştirebilirsin. Örnek olarak senin verdiğin hesap kodunda 5 1,25 = 5 çıkacak sonuç ama benim örneklendirdiğimde de 6,25 çıkacak bir stringe val olarak değer atarsanız tam sayıya çevirir.