kadirselen
![[By_Admin İyi Forumlar Diler]](https://2img.net/r/ihimizer/img233/4033/admnfi7.gif "[By_Admin İyi Forumlar Diler]")
 Mesaj Sayısı : 550
 Kayıt tarihi : 15/08/10
 Yaş : 34
 Nerden : Denizli
 Cinsiyet : 
 |  Konu: Para Üstü Hesaplama programı  Perş. Ağus. 19, 2010 9:34 am | |
| İ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"
|KADİR SELEN-HAKAN ŞEN| | |
|
Darth Vader
Mesaj Sayısı : 286
Kayıt tarihi : 12/09/10
Yaş : 28
Nerden : Nereye
Cinsiyet :
| | Konu: Geri: Para Üstü Hesaplama programı Çarş. Ekim 27, 2010 3:08 pm | |
| | |
|
kadirselen
Mesaj Sayısı : 550
Kayıt tarihi : 15/08/10
Yaş : 34
Nerden : Denizli
Cinsiyet :
| | Konu: Geri: Para Üstü Hesaplama programı Ptsi Kas. 01, 2010 10:23 pm | |
| | |
|
