IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Temmuz 2008, 19:17   #1
Çevrimdışı
Yardımcı Admin
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Rakamı Yazıya Çevirme




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 Function Yazıyla$(sayi)
Dim b$(9)
Dim y$(9)
Dim m$(4)
Dim v(15)
Dim c(3)
b$(0) = ""
b$(1) = "Bir"
b$(2) = "İki"
b$(3) = "Üç"
b$(4) = "Dört"
b$(5) = "Beş"
b$(6) = "Altı"
b$(7) = "Yedi"
b$(8) = "Sekiz"
b$(9) = "Dokuz"
y$(0) = ""
y$(1) = "On"
y$(2) = "Yirmi"
y$(3) = "Otuz"
y$(4) = "Kırk"
y$(5) = "Elli"
y$(6) = "Altmış"
y$(7) = "Yetmiş"
y$(8) = "Seksen"
y$(9) = "Doksan"
m$(0) = "Trilyon"
m$(1) = "Milyar"
m$(2) = "Milyon"
m$(3) = "Bin"
m$(4) = ""
a$ = Str(sayi)
If 
Left$(a$, 1) = "-" Then pozitif Else pozitif 0
a
$ = Right$(a$, Len(a$) - 1)
For 
1 To Len(a$)
If (
Asc(Mid$(a$, x1)) > Asc("9")) Or (Asc(Mid$(a$, x1)) < Asc("0")) Then GoTo hata
Next x
If Len(a$) > 15 Then GoTo hata
a
$ = String(15 Len(a$), "0") + a$
For 
1 To 15
v
(x) = Val(Mid$(a$, x1))
Next x
s
$ = ""
For 0 To 4
c
(1) = v((3) + 1)
c(2) = v((3) + 2)
c(3) = v((3) + 3)
If 
c(1) = 0 Then
e
$ = ""
ElseIf c(1) = 1 Then
e
$ = "Yüz"
Else
e$ = b$(c(1)) + "Yüz"
End If
e$ = e$ + y$(c(2)) + b$(c(3))
If 
e$ <> "" Then e$ = e$ + m$(x)
If (
3) And (e$ = "BirBin"Then e$ = "Bin"
s$ = s$ + e$
Next x
If s$ = "" Then s$ = "Sıfır"
If pozitif 1 Then s$ = "Eksi" s$
Yazıyla$ = s$
GoTo 
tamam
hata
Yazıyla$ = "Hata"
tamam:
End Function
Private 
Sub Command1_Click()
Text2.Text Yazıyla(Text1.Text)
End Sub 

Alıntıdır

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
cevirme, rakamı, yazıya


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
1-999 arasında girilen sayıyı yazıya çevirme aSi C ve C++ 3 12 Temmuz 2012 21:16
Sıfır Rakamı Hakkında-Sıfır Rakamı KarakıZ Ödev ve Tezler 0 18 Ocak 2012 09:56
Visual Basic - Rakamı Yazıya Çevirme yoSun Visual Basic 0 13 Haziran 2011 22:58
SAYIYI Yazıya cevirme.. toXic C ve C++ 0 08 Mart 2010 20:48