Banknot Hesaplama

'Web Programlama & Scriptler' forumunda Siraç tarafından 2 Kasım 2008 tarihinde açılan konu

  1. Siraç

    Siraç Site Yetkilisi Admin Editör

    Banknot Hesaplama konusu
    Banknot Hesaplama

    Girilen para miktarındaki banknotları bulup ekrana yazdıran program.
    Eklenecek nesneler: text1, command1
    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
     
  2. Google

    Google Özel Üye

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

Bu Sayfayı Paylaş