Programalama > VISUAL BASIC

Dim birler(9) As String
Dim onlar(9) As String
Dim yuzler(9) As String
Dim binler(5) As String
Dim yazi As String
Dim sayi As Double
Dim SayiMetin As String
Private Function ucrakam(metin As String) As String
    ucrakam = birler(Val(Mid(metin, 3, 1)))
    ucrakam = onlar(Val(Mid(metin, 2, 1))) + ucrakam
    ucrakam = yuzler(Val(Mid(metin, 1, 1))) + ucrakam
End Function

Private Sub Command1_Click()
    sayi = Int(Val(Text1.Text))
    Text1.Text = Format(sayi, "#,##0")
    SayiMetin = Right(Str(sayi), Len(Str(sayi)) - 1)
    yazi = ""
    For i = 0 To 5
        yazi = ucrakam(Right(SayiMetin, 3)) + IIf(Val(Right(SayiMetin, 3)) <> 0, binler(i), "") + yazi
        If Len(SayiMetin) > 3 Then
            SayiMetin = Left(SayiMetin, Len(SayiMetin) - 3)
            Do While Len(SayiMetin) < 3
               SayiMetin = "0" + SayiMetin
            Loop
        Else
            SayiMetin = ""
        End If
    Next i
    Label1.Caption = yazi
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
    Text1.SetFocus
End Sub

Private Sub Form_Load()
    birler(0) = ""
    birler(1) = "bir"
    birler(2) = "iki"
    birler(3) = "üç"
    birler(4) = "dört"
    birler(5) = "beş"
    birler(6) = "altı"
    birler(7) = "yedi"
    birler(8) = "sekiz"
    birler(9) = "dokuz"
    onlar(0) = ""
    onlar(1) = "on"
    onlar(2) = "yirmi"
    onlar(3) = "otuz"
    onlar(4) = "kırk"
    onlar(5) = "elli"
    onlar(6) = "altmış"
    onlar(7) = "yetmiş"
    onlar(8) = "seksen"
    onlar(9) = "doksan"
    yuzler(0) = ""
    yuzler(1) = "yüz"
    yuzler(2) = "ikiyüz"
    yuzler(3) = "üçyüz"
    yuzler(4) = "dörtyüz"
    yuzler(5) = "beşyüz"
    yuzler(6) = "altıyüz"
    yuzler(7) = "yediyüz"
    yuzler(8) = "sekizyüz"
    yuzler(9) = "dokuzyüz"
    binler(0) = ""
    binler(1) = "bin"
    binler(2) = "milyon"
    binler(3) = "milyar"
    binler(4) = "trilyon"
    binler(5) = "katrilyon"
    Text1.Alignment = 1
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then Command1_Click
End Sub