Direk kopyalanacak kodu yazabilirmisin

Evet arkadaşlar şimdi sizlere basit ama güzel bir hesap makinası tarifi vereyim Öncelikle elimizde bulundurmamız gereken malzemeler 4 adet command 3 adet textbox Burada bir şey var sadece command butondan 4 adet kopyalama işlemi yapılı select case den maksat odur... 1. butona , ikinci butona , üçüncü butona , dördüncü butona işaretlerini koyarsak domineleri doğru dizmiş oluruz Hadi hesap makineniz hayırlı olsun Kod: Private Sub Command1_Click ' 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 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 Text3. Text = str ' Burada text3. text in sonuc değişkenine eşit olsuğunu gösteriyor hata: ' 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 alıntıdır...