Skip to main content

AccessTr.neT


Banknot Hesaplama

Banknot Hesaplama

#1
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>
.exe BANKOT Hesapla.exe (Dosya Boyutu: 20 KB | İndirme Sayısı: 52)
PROGRAMMER MEHMET
Son Düzenleme: 04/11/2010, 17:15, Düzenleyen: gitarc.
Cevapla
#2
Paylaşım için teşekkürler
Cevapla
#3
Uygulama için teşekkürler.
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
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?

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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task