Anasayfa > Kodlar > Visual Basic 6 ile Sayıyı yazıya çeviren kodlamaya yeni bir örnek

Visual Basic 6 ile Sayıyı yazıya çeviren kodlamaya yeni bir örnek


Bu programın, “dizi” lerin ve “fonksiyon” ların anlaşılması bakımından programcılığa yeni başlayan arkadaşlara faydalı olacağı kanaatindeyim.
programlama.com’ a saygılarımla…

‘Bu program 1 KATRİLYON’ a kadar olan sayıları yazıya çevirir. ACCESS veri tabanındaki modül de visual basic le yazılmıştır.


Option Compare Database

Dim B(10)
Dim Y(10)
Dim M(10)
Dim SAYI As String
Dim RAKAM As String
Dim UZ As Integer
Dim UZ1 As Integer

Sub YAZIYACEVIR()
RAKAM = InputBox(“SAYI GİRİNİZ !!”)
X = RAKAM
UZ = Len(RAKAM)
Select Case UZ
Case 1 To 3
A = YAZIYLA(X)
Case 4
A = DORTHANE(X)
Case 5
A = BESHANE(X)
Case 6
A = ALTIHANE(X)
Case 7
A = YEDIHANE(X)
Case 8
A = SEKIZHANE(X)
Case 9
A = DOKUZHANE(X)
Case 10
A = ONHANE(X)
Case 11
A = ONBIRHANE(X)
Case 12
A = ONIKIHANE(X)
Case 13
A = ONUCHANE(X)
Case 14
A = ONDORTHANE(X)
Case 15
A = ONBESHANE(X)
End Select

MsgBox A

End Sub

Function YAZIYLA(SAYI) ‘1-3 HANE ARASI SAYILARI YAZIYA ÇEVİRİR
B(0) = “”
B(1) = “BİR”
B(2) = “İKİ”
B(3) = “ÜÇ”
B(4) = “DÖRT”
B(5) = “BEŞ”
B(6) = “ALTI”
B(7) = “YEDİ”
B(8) = “SEKİZ”
B(9) = “DOKUZ”

Y(0) = “”
Y(1) = “ON”
Y(2) = “YİRMİ”
Y(3) = “OTUZ”
Y(4) = “KIRK”
Y(5) = “ELLİ”
Y(6) = “ALTMIŞ”
Y(7) = “YETMİŞ”
Y(8) = “SEKSEN”
Y(9) = “DOKSAN”

BASLA:
UZ1 = Len(SAYI)

Select Case UZ1
Case 1
YAZIYLA = B(SAYI)
Case 2
If Left(SAYI, 1) > 0 Then
YAZIYLA = Y(Left(SAYI, 1)) & B(Right(SAYI, 1))
ElseIf Right(SAYI, 1) > 0 Then
SAYI = Right(SAYI, 1)
GoTo BASLA:
End If
Case 3
If Left(SAYI, 1) > 0 Then
If Left(SAYI, 1) = 1 Then
YAZIYLA = “YÜZ” + Y(Mid(SAYI, 2, 1)) _
+ B(Right(SAYI, 1))
Else
YAZIYLA = B(Left(SAYI, 1)) + “YÜZ” _
+ Y(Mid(SAYI, 2, 1)) + B(Right(SAYI, 1))
End If
ElseIf Mid(SAYI, 2, 1) > 0 Then
SAYI = Right(SAYI, 2)
GoTo BASLA:
ElseIf Mid(SAYI, 3, 1) > 0 Then
SAYI = Right(SAYI, 1)
GoTo BASLA:
End If
End Select
End Function

Function DORTHANE(DORT)
X = Left(DORT, 1)
If X = 1 Then
DORTHANE = “BİN”
Else
DORTHANE = YAZIYLA(X) + “BİN”
End If
X = Right(DORT, 3)
DORTHANE = DORTHANE + YAZIYLA(X)
End Function

Function BESHANE(BES)
X = Left(BES, 2)
BESHANE = YAZIYLA(X) + “BİN”
X = Right(BES, 3)
BESHANE = BESHANE + YAZIYLA(X)
End Function

Function ALTIHANE(ALTI)
X = Left(ALTI, 3)
If X > 1 Then
ALTIHANE = YAZIYLA(X)
ALTIHANE = ALTIHANE + “BİN”
ElseIf X = 1 Then
ALTIHANE = “BİN”
End If
X = Right(ALTI, 3)
If X > 0 Then
ALTIHANE = ALTIHANE + YAZIYLA(X)
End If
End Function

Function YEDIHANE(YEDI)
X = Left(YEDI, 1)
YEDIHANE = YAZIYLA(X) + “MİLYON”
X = Right(YEDI, 6)
YEDIHANE = YEDIHANE & ALTIHANE(X)
End Function

Function SEKIZHANE(SEKIZ)
X = Left(SEKIZ, 2)
SEKIZHANE = YAZIYLA(X) & “MİLYON”
X = Right(SEKIZ, 6)
SEKIZHANE = SEKIZHANE & ALTIHANE(X)
End Function

Function DOKUZHANE(DOKUZ)
X = Left(DOKUZ, 3)
If X > 1 Then
DOKUZHANE = YAZIYLA(X) & “MİLYON”
End If
X = Right(DOKUZ, 6)
DOKUZHANE = DOKUZHANE & ALTIHANE(X)
End Function

Function ONHANE(ONE)
X = Left(ONE, 1)
ONHANE = YAZIYLA(X) & “MİLYAR”
X = Right(ONE, 9)
End Function

Function ONBIRHANE(ONBIR)
X = Left(ONBIR, 2)
ONBIRHANE = YAZIYLA(X) & “MİLYAR”
X = Right(ONBIR, 9)
ONBIRHANE = ONBIRHANE & DOKUZHANE(X)
End Function

Function ONIKIHANE(ONIKI)
X = Left(ONIKI, 3)
If X > 1 Then
ONIKIHANE = YAZIYLA(X) & “MİLYAR”
End If
X = Right(ONIKI, 9)
ONIKIHANE = ONIKIHANE & DOKUZHANE(X)
End Function

Function ONUCHANE(ONUC)
X = Left(ONUC, 1)
ONUCHANE = YAZIYLA(X) & “TRİLYON”
X = Right(ONUC, 12)
ONUCHANE = ONUCHANE & ONIKIHANE(X)
End Function

Function ONDORTHANE(ONDORT)
X = Left(ONDORT, 2)
ONDORTHANE = YAZIYLA(X) & “TRİLYON”
X = Right(ONDORT, 12)
ONDORTHANE = ONDORTHANE & ONIKIHANE(X)
End Function

Function ONBESHANE(ONBES)
X = Left(ONBES, 3)
ONBESHANE = YAZIYLA(X) & “TRİLYON”
X = Right(ONBES, 12)
ONBESHANE = ONBESHANE & ONIKIHANE(X)
End Function

Metin Kaya

kayametin55@hotmail.com


TD Software


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

Bir Yanıt Bırakı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: