1. Reklam


    1. joysro
      asur
      serenity
      redsea
      blacksro
      plag
      alaaddin
      erix

Banknot Hesaplama


  1. Black Rain

    Black Rain rank8

    Kayıt:
    17 Kasım 2007
    Mesajlar:
    10.692
    Beğenilen Mesajlar:
    2
    Ödül Puanları:
    38
    Meslek:
    Kamyon Şöförü
    Şehir:
    Bursa / Gemlik
    Girilen para miktarındaki banknotları bulup ekrana yazdıran program.
    Eklenecek nesneler: text1, command1
    Kod:
    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