rkadaşlar Visual Basic 6 da Kolay Bir hesap Makinesi Yapmak İçin Aşağıdaki adımları izleyin;
1-)Forma 3 adet text butonu ekleyin(Birine ilk sayıyı yazın diğerine ikinceiyi 3. te sonucu versin diye)
2-)Forma 4 adet button ekleyin(Birine "+" Birine "-" Birine "*" Birine "/" yazmanız için)
3-)Şimdi İlk Olarak "+" Yani TOPLAMA Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar;
Private Sub Command1_Click()
Dim değer1, değer2, sonuç
değer1 = Val(Text1.Text)
değer2 = Val(Text2.Text)
sonuç = değer1 + değer2
Text3.Text = sonuç
End Sub
--)İkinci Olarak "-" Yani ÇIKARTMA Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar;
Private Sub Command2_Click()
Dim değer1, değer2, sonuç
değer1 = Val(Text1.Text)
değer2 = Val(Text2.Text)
sonuç = değer1 - değer2
Text3.Text = sonuç
End Sub
--)Üçüncü Olarak "*" Yani ÇARPMA Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar;
Private Sub Command3_Click()
Dim değer1, değer2, sonuç
değer1 = Val(Text1.Text)
değer2 = Val(Text2.Text)
sonuç = değer1 * değer2
Text3.Text = sonuç
End Sub
--)Dördüncü ve sonuncu Olarak "/" Yani BÖLME Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar;
Private Sub Command4_Click()
Dim değer1, değer2, sonuç
değer1 = Val(Text1.Text)
değer2 = Val(Text2.Text)
sonuç = değer1 / değer2
Text3.Text = sonuç
End Sub

Altın harflerle yaz mahlasımı. halvetim kasvet, kem gözlere şiş!... Cadü ya herru!...ya merru!...kafkef, gölge harâmilerine bir selam çak!... Abile ğatladı, demlenir simam, nüşinrevan'dan handan ummam ben. Ahu-yi felek mum, ben şamdan. düşmez kalkmaz bir Allah'tır uyan!...