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;
HTML:
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;
Kod:
[SIZE=3]
[/SIZE][SIZE=3]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[/SIZE][SIZE=3]
[/SIZE]
--)Üçüncü Olarak "*" Yani ÇARPMA Butonumuza Çift Tıklayarak Kod yazmaya başlıyoruz.Yazacağımız Kodlar;
Kod:
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;
Kod:
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
Forumumuzdan en verimli şekilde faydalanabilmeniz adına deneyiminizi iyileştirmek, kayıt olmanız ve foruma giriş yapmanız durumunda da oturumunuzu açık tutmak amacıyla çerezler (cookies) kullanıyoruz.
Sitemizi kullandığınız sürece çerez politikamızı kabul etmiş sayılırsınız.