- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
'İlk önce açtığınız forma 7 tane label 2 tane text 1 tanede command butonu koyun ve başlayalım
'ilk önce burda değişkenleri tanımlıyoruz..
dim müsteriver as integer
dim müsteritutar as integer
've burda tanımladığımız değişkenleri textlere tanıtıyoruz
müsteriver = text1
müsteritutar = text2
dim para as integer
'para değişkenimiz müşterinin verdiği parayı aklında tutacak ve müşteri tutarını çıkaracak
para = müsteriver - müsteritutar
' bu değişkenlerimiz de bizim bankonotlarımız
dim p100, p50, p20, p10, p5, p1 as integer
'işte burda da parayı paramparça yapıyoruz ve hangi bakonotları vereceğimiz işte burda çıkıyor
p100 = int(para/100)
para = para mod 100
p50 = int(para/50)
para = para mod 50
p20 = int(para/20)
para = para mod 20
p10 = int(para/10)
para = para mod 10
p5 = int(para/5)
para = para mod 5
p1 = para
'heh işte burda da forma göstermek kalıyor o da aşağıdaki kodlar yardımıyla olacak
label1.caption = "100 ytl " & p100 & " adet"
label2.caption = "50 ytl " & p50 & " adet"
label3.caption = "20 ytl " & p20 & " adet"
label4.caption = "10 ytl " & p10 & " adet"
label5.caption = "5 ytl " & p5 & " adet"
label6.caption = "1 ytl " & p1 & " adet"
label7.caption = " Toplam = " & (müsteriver-müsteritutar) & " ytl Verildi"
'ilk önce burda değişkenleri tanımlıyoruz..
dim müsteriver as integer
dim müsteritutar as integer
've burda tanımladığımız değişkenleri textlere tanıtıyoruz
müsteriver = text1
müsteritutar = text2
dim para as integer
'para değişkenimiz müşterinin verdiği parayı aklında tutacak ve müşteri tutarını çıkaracak
para = müsteriver - müsteritutar
' bu değişkenlerimiz de bizim bankonotlarımız
dim p100, p50, p20, p10, p5, p1 as integer
'işte burda da parayı paramparça yapıyoruz ve hangi bakonotları vereceğimiz işte burda çıkıyor
p100 = int(para/100)
para = para mod 100
p50 = int(para/50)
para = para mod 50
p20 = int(para/20)
para = para mod 20
p10 = int(para/10)
para = para mod 10
p5 = int(para/5)
para = para mod 5
p1 = para
'heh işte burda da forma göstermek kalıyor o da aşağıdaki kodlar yardımıyla olacak
label1.caption = "100 ytl " & p100 & " adet"
label2.caption = "50 ytl " & p50 & " adet"
label3.caption = "20 ytl " & p20 & " adet"
label4.caption = "10 ytl " & p10 & " adet"
label5.caption = "5 ytl " & p5 & " adet"
label6.caption = "1 ytl " & p1 & " adet"
label7.caption = " Toplam = " & (müsteriver-müsteritutar) & " ytl Verildi"