Başlangıç > Kodlar > Visual Basic 6 ile Sayıyı yazıya çeviren program

Visual Basic 6 ile Sayıyı yazıya çeviren program


Diğerlerinden daha az kod

Private Sub Command1_Click()
Dim sayı, k
Dim m
Dim birler(10), onlar(10)
Text2.Text = “”
If Check1.Value = 1 Then
m = Space(1)
Else: m = Space(0)
End If
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(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”
sayı = Text1.Text
x = Len(sayı)
For i = 1 To x
Label1(i).Caption = Mid(sayı, (x – i + 1), 1)
Next i
For i = 1 To x Step 3
Label1(i).Caption = birler(Label1(i).Caption)
Next i
For i = 2 To x Step 3
Label1(i).Caption = onlar(Label1(i).Caption)
Next i
For i = 3 To x Step 3
Label1(i).Caption = birler(Label1(i).Caption) + m + “yüz”
If Label1(i).Caption = “biryüz” Then
Label1(i).Caption = “yüz”
End If
Next i
For i = x To 1 Step -1
If i = 4 Then
k = “bin”
End If
If i = 7 Then
k = “milyon”
End If
If i = 10 Then
k = “milyar”
End If
If i = 13 Then
k = “trilyon”
End If
If i = 16 Then
k = “katrilyon”
End If
Text2.Text = Text2.Text + m + Label1(i).Caption + m + k
k = “”
Next i
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: