- 12 Nis 2013
- 175
- 0
'İ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"
İşte bu kadar bi sorun olursa [email protected] a sorularınızı bekliyorum bende vb de daha yeniyim ama elimden geldiği kadar yardımcı olmaya çalışırım hadi kendinize iyi davranın bye byee
'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"
İşte bu kadar bi sorun olursa [email protected] a sorularınızı bekliyorum bende vb de daha yeniyim ama elimden geldiği kadar yardımcı olmaya çalışırım hadi kendinize iyi davranın bye byee