AccessTr.neT
Banknot Hesaplama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Dersleri (https://accesstr.net/forum-visual-basic-6-dersleri.html)
+--- Konu Başlığı: Banknot Hesaplama (/konu-banknot-hesaplama.html)



Banknot Hesaplama - gitarc - 04/11/2010

Eklenecek nesneler: text
command button
Private Sub Command1_Click()
Dim i, j
Cls
i = Val(Text1.Text)
j = Int(i / 100)
Print j; " Tane 100 YTL Vardır "
i = i Mod 100
j = Int(i / 50)
Print j; " Tane 50 YTL Vardır "
i = i Mod 50
j = Int(i / 20)
Print j; " Tane 20 YTL Vardır "
i = i Mod 20
j = Int(i / 10)
Print j; " Tane 10 YTL Vardır "
i = i Mod 10
j = Int(i / 5)
Print j; " Tane 5 YTL Vardır "
i = i Mod 5
j = Int(i / 1)
Print j; " Tane 1 YTL Vardır "
i = i Mod 1
End Sub

Private Sub Form_Load()
Text1.ToolTipText = "Para Miktarını Giriniz"
End Sub<b></b>



Cvp: Banknot Hesaplama - ozanakkaya - 05/11/2010

Paylaşım için teşekkürler


Cvp: Banknot Hesaplama - okileturc - 06/11/2010

Uygulama için teşekkürler.


Cvp: Banknot Hesaplama - assenucler - 06/11/2010

Sayın gitarc;

Günaydın.. Çalışma ve paylaşım için teşekkürler..

Biliyorsunuz para birimimiz "TL"... "YTL" yı düzelmeniz mümkün müdür?




Cvp: Banknot Hesaplama - akin - 24/01/2011

bu programın exe değilde visual basic yapımı varmı