hacı sana sylediğim o eksiği hallettin mi? Kayalardan kayarım yoktur benim ayarım (;

eywallah nigga (: "Derviş Yunus bu szü eğri büğrü syleme, Seni sorguya çeker bir Molla Kasım gelir."

: hacı sana sylediğim o eksiği hallettin mi? eşittir butonunda Private Sub esit_Click If islem = "+" Then sayi. Text = Val + Val If islem = "-" Then sayi. Text = Val - Val If islem = " " Then sayi. Text = Val Val If islem = "/" Then sayi. Text = Val / Val End Sub yerine Private Sub esit_Click If islem = "+" Then sayi. Text = Val + Val If islem = "-" Then sayi. Text = Val - Val If islem = " " Then sayi. Text = Val Val If islem = "/" Then sayi. Text = Val / Val giris = 0End Sub şeklinde değişecek. screw you guys! i"m goin" hoooome!

merhaba müridler :D forumdaki ilk beyaz tahribat konumda yeni başlayanlar için basit bir hesap makinesi yapımını anlatacağım. bunu yazalı bayagı olmuştu baştan yazacagıma yazılmışı var dedim :D neyse konuya gecelim. şimdi ncelikle isimlerden baslayalım buton isimleri şu şekilde nceden belirtiyim. 1 = b1 2 = b2 3 = b3 4 = b4 5 = b5 6 = b6 7 = b7 8 = b8 9 = b9 0 = b0 + = topla - = cikar / = bol = carp = = esit CE = clear yazı kısmını da = sayi şeklinde isimlendirdim. hepsinin captionlarıda resimdeki gibi. nce "General Declarations" kısmından 2 değişken tanımlıyorum. Kod: Dim giris, islem ve numara butonların click olaylarına şunları yazıyorum Kod: Private Sub b0_Click sayi. Text = Val 10 + 0End SubPrivate Sub b1_Click sayi. Text = Val 10 + 1End SubPrivate Sub b2_Click sayi. Text = Val 10 + 2End SubPrivate Sub b3_Click sayi. Text = Val 10 + 3End SubPrivate Sub b4_Click sayi. Text = Val 10 + 4End SubPrivate Sub b5_Click sayi. Text = Val 10 + 5End SubPrivate Sub b6_Click sayi. Text = Val 10 + 6End SubPrivate Sub b7_Click sayi. Text = Val 10 + 7End SubPrivate Sub b8_Click sayi. Text = Val 10 + 8End SubPrivate Sub b9_Click sayi. Text = Val 10 + 9End Sub Açıklama : sayi. Text = Val 10 + 1 1 e tıklanınca yani yazılan sayıyı 10 ile çarp 1 ekle rneğin 123 yazıyosa, 1230 + 1 = 1231 bunu tıklanınca sayıyı yanına eklemesi için kullanıyoruz. bol butonunun click olayı ise aşağıdaki gibi Kod: Private Sub bol_Click If giris > 0 ThenIf islem = "+" Then sayi. Text = Val + Val If islem = "-" Then sayi. Text = Val - Val If islem = " " Then sayi. Text = Val Val If islem = "/" Then sayi. Text = Val / Val End Ifgiris = sayi. Textsayi. Text = ""sayi. SetFocusislem = "/"End Sub Açıklama : ilk satırda alt kod için giriş yaptık. onu geçiyorum 2-7 satırlar arasında sunu kastediyoruz. eğer giris değişkenine değer atandıysa, yani daha nceden işlem yapıldıysa sonucu yazdır ve işlem yapmaya devam et. yani programın üstüste işlemler yapabilmesi için gerekli olan kısım. 8. Satır >> giris değişkenine girilen sayıyı aktarıyoruz. 9. Satır >> sayi nesnesini boşaltıyoruz. 10. Satır >> ve imleci yazı alanına konumlandırıyoruz. 11. Satır >> islem değişkenine / karakterini atıyoruz. 12. Alt kod kısmını kapatıyoruz. diğerleri de aynı şekilde. sadece 11. satırda değişiklik yapıyoruz. carp butonu Kod: Private Sub carp_Click If giris > 0 ThenIf islem = "+" Then sayi. Text = Val + Val If islem = "-" Then sayi. Text = Val - Val If islem = " " Then sayi. Text = Val Val If islem = "/" Then sayi. Text = Val / Val End Ifgiris = sayi. Textsayi. Text = ""sayi. SetFocusislem = " "End Sub cikar butonu Kod: Private Sub cikar_Click If giris > 0 ThenIf islem = "+" Then sayi. Text = Val + Val If islem = "-" Then sayi. Text = Val - Val If islem = " " Then sayi. Text = Val Val If islem = "/" Then sayi. Text = Val / Val End Ifgiris = sayi. Textsayi. Text = ""sayi. SetFocusislem = "-"End Sub topla butonu Kod: Private Sub topla_Click If giris > 0 ThenIf islem = "+" Then sayi. Text = Val + Val If islem = "-" Then sayi. Text = Val - Val If islem = " " Then sayi. Text = Val Val If islem = "/" Then sayi. Text = Val / Val End Ifgiris = sayi. Textsayi. Text = ""sayi. SetFocusislem = "+"End Sub esit butonu Kod: Private Sub esit_Click If islem = "+" Then sayi. Text = Val + Val If islem = "-" Then sayi. Text = Val - Val If islem = " " Then sayi. Text = Val Val If islem = "/" Then sayi. Text = Val / Val End Sub Açıklama >> burda yapılanı diğer butonlarda birden fazla işlem yapılabilmesi için kullandık. peki ne yazıyor burda? güzel soru kullanıcı, + butonuna tıklayınca islem değişkeni "+" değerini almıştı. - butonuna tıklayınca islem değişkeni "-" değerini almıştı. butonuna tıklayınca islem değişkeni " " değerini almıştı. / butonuna tıklayınca islem değişkeni "/" değerini almıştı. bu satırlarda da diyorki. eğer islem değişkeni + ise ilk sayıyla 2. sayıyı topla eğer işlem değişkeni - ise ilk sayıdan 2. sayıyı çıkar. blme ve çarpma da aynı şekilde... CE butonuda temizlik için. clear adını vermiştik. onun kodları da aşağıda Kod: Private Sub clear_Click sayi. Text = ""islem = ""giris = ""End Sub 2. satır >> sayı girdiğimiz alanı temizler. 3. satır >> işlem değişkenini temizler. 4. satır >> giris değişkenini temizler. Bu da proje dosyası RapidShare: 1-Click Webhosting rar şifresi : f1kr3t Kolay Gelsin :) screw you guys! i"m goin" hoooome!

eferim ;) Kayalardan kayarım yoktur benim ayarım (;