Para Üstü Hesaplama programı

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|

Konu: Geri: Para Üstü Hesaplama programı Çarş. Ekim 27, 2010 3:08 pm

Teşekkürler

Konu: Geri: Para Üstü Hesaplama programı Ptsi Kas. 01, 2010 10:23 pm

Birşey degil