Private Sub Command1_Click(Index As Integer) ' Burada index as integer olmasının sebebi butonları command1(0),Command1(1) yani indexlendiğini söylüyor
On Error GoTo hata: ' Butonda olası bir hata olunca hataayı göz ardı etmesi demek
Dim sayi1, sayi2, sonuc As Double ' Burada değişkenler ve tipleri belirtiliyor Eğer As Currency Olsaydı indexlenmemiş butonlar olması gerekiyordu
sayi1 = Val(Text1.Text) ' sayı1 değişkeni text1 nesnesiyle eşitleniyor Val deyimi text1 in içindeki değeri sayı değerine çeviriyor
sayi2 = Val(Text2.Text) ' sayı2 değişkeni text2 nesnesiyle eşitleniyor Val deyimi text2 nin içindeki değeri sayı değerine çeviriyor
Select Case Index 'İndex sırasına göre (Seçilince ne yapsın)
Case 0 ' Kopyalanmış ilk buton (İndex = 0) tıklanınca
sonuc = sayi1 + sayi2 ' 2 text toplansın ve sonuc.text de sonucu çıkarsın
Case 1 ' Kopyalanmış ikinci buton (İndex = 1) tıklanınca
sonuc = sayi1 - sayi2 ' 2 text toplansın ve sonuc.text de sonucu çıkarsın
Case 2 ' Kopyalanmış üçüncü buton (İndex = 2) tıklanınca
sonuc = sayi1 * sayi2 ' 2 text toplansın ve sonuc.text de sonucu çıkarsın
Case 3 ' Kopyalanmış dördüncü buton (İndex = 3) tıklanınca
sonuc = sayi1 / sayi2 ' 2 text toplansın ve sonuc.text de sonucu çıkarsın
End Select 'Buton kod sonu (Blogu)
Text3.Text = str(sonuc) ' Burada text3.text in sonuc değişkenine eşit olsuğunu gösteriyor
hata: '(bu yukarıdaki hata gözardı kodunun devamı)
Resume Next ' Bu deyim her zaman hatalar olsa bile programın çalışması devam etsin demek için kullanılır
End Sub 'Blog sonu