Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Sayı'yı yazıya çevirme
#1
1 2 3 4 5 6 7 8 9 0 Onlar Yüzler Binler vs vs Gibi Sayıları Oldugu Gibi yazıya çeviriyor kodlar alıntı olup tarafımca geliştirildi bir kaç yönleri.

Kod:
<form name="form1" method="post" action="default.asp?islem=cevir&sayi=<%=Request.Form("sayi")%>">
Çevirilecek Sayı Giriniz : <input name="sayi" type="text" id="sayi" />
  <input type="submit" name="Submit" value="G&ouml;nder" />
</form>
<%if request.QueryString("islem")="cevir" Then%>
<%  
sayi = request.QueryString("sayi")
if InStr(sayi,",") > 0 then  
     bv=InStr(sayi,",")  
     bv2=bv-1  
     bv3=bv+1  
     bf=len(sayi)  
     ilk=Mid(sayi, 1, bv2)  
     son=Mid(sayi, bv3, bf)  
     for i=1 to len(ilk)  
           ysayi=len(ilk)  
           if ysayi="1" then  
                s1 = Array("","bir","iki","üç","dört","beş", "altı","yedi","sekiz","dokuz")  
           elseif ysayi="2" then  
                s1 = Array("","on","yirmi","otuz","kırk","elli", "altmış","yetmiş","++++en","doksan")  
           elseif ysayi="3" then  
                s1 = Array("","yüz","ikiyüz","üçyüz","dörtyüz","beşyüz", "altıyüz","yediyüz","sekizyüz","dokuzyüz")  
           elseif ysayi="4" then  
                s1 = Array("","bin","ikibin","üçbin","dörtbin","beşbin", "altıbin","yedibin","sekizbin","dokuzbin")  
           elseif ysayi="5" then  
                s1 = Array("","onbin","yirmibin","otuzbin","kırkbin","ellibin", "altmışbin","yetmişbin","++++enbin","doksanbin")  
           elseif ysayi="6" then  
                s1 = Array("","yüzbin","ikiyüzbin","üçyüzbin","dörtyüzbin","beşyü zbin", "altıyüzbin","yediyüzbin","sekizyüzbin","dokuzyüzbin")  
           elseif ysayi="7" then  
                s1 = Array("","birmilyon","ikimilyon","üçmilyon","dörtmilyon","be şmilyon", "altımilyon","yedimilyon","sekizmilyon","dokuzmilyon")  
           elseif ysayi="8" then  
                s1 = Array("","onmilyon","yirmimilyon","otuzmilyon","kırkmilyon", "ellimilyon", "altmışmilyon","yetmişmilyon","++++enmilyon","doksanmilyon")  
           elseif ysayi="9" then  
                s1 = Array("","yüzmilyon","ikiyüzmilyon","üçyüzmilyon","dörtyüzmi lyon","beşyüzmilyon", "altıyüzmilyon","yediyüzmilyon","sekizyüzmilyon","dokuzyüzmi lyon")  
           elseif ysayi="10" then  
                s1 = Array("","birmilyar","ikimilyar","üçmilyar","dörtmilyar","be şmilyar", "altımilyar","yedimilyar","sekizmilyar","dokuzmilyar")  
           end if  
           sayim=Mid(ilk, 1, 1)  
                response.write      s1(sayim)  
                sb=ysayi-1  
                ilk=right(ilk, sb)  
     next  
           s5 = Array("","onda","yüzde","binde","onbinde","yüzbinde", "milyonda","onmilyonda","yüzmilyonda","milyarda")  
           basamak=len(son)  
           response.write " tam "&s5(basamak)  
            
     for i=1 to len(son)  
           ysayi=len(son)  
           if ysayi="1" then  
                s1 = Array("","bir","iki","üç","dört","beş", "altı","yedi","sekiz","dokuz")  
           elseif ysayi="2" then  
                s1 = Array("","on","yirmi","otuz","kırk","elli", "altmış","yetmiş","++++en","doksan")  
           elseif ysayi="3" then  
                s1 = Array("","yüz","ikiyüz","üçyüz","dörtyüz","beşyüz", "altıyüz","yediyüz","sekizyüz","dokuzyüz")  
           elseif ysayi="4" then  
                s1 = Array("","bin","ikibin","üçbin","dörtbin","beşbin", "altıbin","yedibin","sekizbin","dokuzbin")  
           elseif ysayi="5" then  
                s1 = Array("","onbin","yirmibin","otuzbin","kırkbin","ellibin", "altmışbin","yetmişbin","++++enbin","doksanbin")  
           elseif ysayi="6" then  
                s1 = Array("","yüzbin","ikiyüzbin","üçyüzbin","dörtyüzbin","beşyü zbin", "altıyüzbin","yediyüzbin","sekizyüzbin","dokuzyüzbin")  
           elseif ysayi="7" then  
                s1 = Array("","birmilyon","ikimilyon","üçmilyon","dörtmilyon","be şmilyon", "altımilyon","yedimilyon","sekizmilyon","dokuzmilyon")  
           elseif ysayi="8" then  
                s1 = Array("","onmilyon","yirmimilyon","otuzmilyon","kırkmilyon", "ellimilyon", "altmışmilyon","yetmişmilyon","++++enmilyon","doksanmilyon")  
           elseif ysayi="9" then  
                s1 = Array("","yüzmilyon","ikiyüzmilyon","üçyüzmilyon","dörtyüzmi lyon","beşyüzmilyon", "altıyüzmilyon","yediyüzmilyon","sekizyüzmilyon","dokuzyüzmi lyon")  
           elseif ysayi="10" then  
                s1 = Array("","birmilyar","ikimilyar","üçmilyar","dörtmilyar","be şmilyar", "altımilyar","yedimilyar","sekizmilyar","dokuzmilyar")  
           end if  
           sayim=Mid(son, 1, 1)  
                response.write      s1(sayim)  
                sb=ysayi-1  
                son=right(son, sb)  
     next  
      
else  
for i=1 to len(sayi)  
     ysayi=len(sayi)  
           if ysayi="1" then  
                s1 = Array("","bir","iki","üç","dört","beş", "altı","yedi","sekiz","dokuz")  
           elseif ysayi="2" then  
                s1 = Array("","on","yirmi","otuz","kırk","elli", "altmış","yetmiş","++++en","doksan")  
           elseif ysayi="3" then  
                s1 = Array("","yüz","ikiyüz","üçyüz","dörtyüz","beşyüz", "altıyüz","yediyüz","sekizyüz","dokuzyüz")  
           elseif ysayi="4" then  
                s1 = Array("","bin","ikibin","üçbin","dörtbin","beşbin", "altıbin","yedibin","sekizbin","dokuzbin")  
           elseif ysayi="5" then  
                s1 = Array("","onbin","yirmibin","otuzbin","kırkbin","ellibin", "altmışbin","yetmişbin","++++enbin","doksanbin")  
           elseif ysayi="6" then  
                s1 = Array("","yüzbin","ikiyüzbin","üçyüzbin","dörtyüzbin","beşyü zbin", "altıyüzbin","yediyüzbin","sekizyüzbin","dokuzyüzbin")  
           elseif ysayi="7" then  
                s1 = Array("","birmilyon","ikimilyon","üçmilyon","dörtmilyon","be şmilyon", "altımilyon","yedimilyon","sekizmilyon","dokuzmilyon")  
           elseif ysayi="8" then  
                s1 = Array("","onmilyon","yirmimilyon","otuzmilyon","kırkmilyon", "ellimilyon", "altmışmilyon","yetmişmilyon","++++enmilyon","doksanmilyon")  
           elseif ysayi="9" then  
                s1 = Array("","yüzmilyon","ikiyüzmilyon","üçyüzmilyon","dörtyüzmi lyon","beşyüzmilyon", "altıyüzmilyon","yediyüzmilyon","sekizyüzmilyon","dokuzyüzmi lyon")  
           elseif ysayi="10" then  
                s1 = Array("","birmilyar","ikimilyar","üçmilyar","dörtmilyar","be şmilyar", "altımilyar","yedimilyar","sekizmilyar","dokuzmilyar")  
           end if  
     sayim=Mid(sayi, 1, 1)  
           response.write      s1(sayim)  
           sb=ysayi-1  
           sayi=right(sayi, sb)  
next  
end if  
%> <br /><br />
<input onclick="history.back();" type="button" value="<<geri dön">
<%end if%>
Beğenenler: -italyan- , S1L3NC3R
#2
sadice bunun üstüne bir site açılabilir hemen icraata geçiyorum exciting
Beğenenler:

Anahtar Kelimeler

Sayı'yı yazıya çevirme indir, Sayı'yı yazıya çevirme Videosu, Sayı'yı yazıya çevirme Online izle, Sayı'yı yazıya çevirme Bedava indir, Sayı'yı yazıya çevirme Yükle, Sayı'yı yazıya çevirme Hakkında, Sayı'yı yazıya çevirme Nedir, Sayı'yı yazıya çevirme Free indir, Sayı'yı yazıya çevirme Oyunu, Sayı'yı yazıya çevirme Download


1 Ziyaretçi