![]() |
|
|||||||
| Kayıt ol | Yardım | Üye Listesi | Ajanda | Arama | Bugünki Mesajlar | Bütün Forumları okunmuş kabul et |
| Visual Basic Visual Basic Hakkında Aradığınız Herşey.. Visual Basic Kodları.. |
![]() |
|
|
LinkBack | Seçenekler |
|
|
#1 (permalink) | ||
|
Mesajlar: n/a
|
forma 1 textbox ve 17 tane button ekleyin. formun basında 3 tane değişken atıyoruz. dim a as string dim b,c as long değişkenler kısa olması için a, b, c diye yazdım isterseniz değiştirebilirsiniz. buttonların textlerine 0 dan 9 kadar sayıları yazın ve bir tanesine 00 yazın. kalan buttonların textlerine + , - , * , / , C , = yazın üzerinde sayı olan buttonların click olayına; textbox1.text = textbox1.text & "buttonun üzerinde yazan sayıyı buraya yazın" şimdi buttonlar yazı yazabiliyor şimdi işlem yaptıralım + buttonunun içine; (aşağıdaki kodları yapıştırabilirsiniz) a = "+" if textbox1.text = "" then 'bir sayı yazmadan butona tıklanırsa hata vermez ilk sayı 0 olarak algılar b = 0 else b = textbox1.text end if textbox1.clear() aynılarını - , * ve / buttonlarının click olaylarınada yapıştırın ama + hangi buttonun click olayına yazıyorsanız onu yazın C buttonunun click olayına; textbox1.clear() ve son olarak = buttonunun click olayına; if textbox1.text = "" then c = 0 else c = textbox1.text end if if a = "+" then textbox1.text =c + b if a = "-" then textbox1.text = b - c if a = "*" then textbox1.text =c * b if a = "/" then textbox1.text =b + c |
||
|
![]() |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Seçenekler | |
|
|
Benzer Konular
|
||||
| Konu | Konuyu Başlatan | Forum | Cevaplar | son Mesaj |
| Erdoğan: Holosko'ya hesap sorarım | Cansu | Gündem | 0 | 01-02-08 11:10 |
| 'Sahaya iner hesap sorarım' | DeviL | Son Dakika Haber | 0 | 01-02-08 10:21 |
| Hesap makinesi | DeJiN | Visual Basic | 0 | 12-27-07 15:39 |
| Dört hesap yaPma | DeJiN | Visual Basic | 0 | 12-27-07 15:37 |
| Kartal'ın gol makinesi Bobo | Jack | Futbol | 0 | 12-25-07 12:30 |
mirc
mırc
çet
cet
sohbet
chat
canlı tv