evet bunun gibi ama dört basamklı bir sayı girince mesela 9999 gibi

Yapınca söyle de işe yaramış

Arkadaşım ben yapamadım ben sharp develop consol uygulamsında denedim beceremedim. ayriyettende ellerine saglık yardımın için saol. Konu için yardıncı biri lazım :S

vb. net mi hangisi? Kod: Function NToT Dim N(100) Dim T(5) N(0) = "sıfır" N(1) = "bir" N(2) = "iki" N(3) = "üç" N(4) = "dört" N(5) = "beş" N(6) = "altı" N(7) = "yedi" N(8) = "sekiz" N(9) = "dokuz" N(10) = "on" N(20) = "yirmi" N(30) = "otuz" N(40) = "kırk" N(50) = "elli" N(60) = "altmış" N(70) = "yetmiş" N(80) = "seksen" N(90) = "doksan" T(0) = "" T(1) = "bin" T(2) = "milyon" T(3) = "milyar" T(4) = "trilyon" T(5) = "kattrilyon" ThreeIn = Int(Len / 3) ThreeOut = Len - ThreeIn 3 ThreeOuttedText = Mid(Value, ThreeOut + 1) ThreeInText = Left Dim Threes ReDim Threes Select Case Len Case 1 LeftText = N Case 2 If Mid(ThreeInText, 2, 1) <> "0" Then LeftText = N(Left(ThreeInText, 1) & "0") & N(Right(ThreeInText, 1)) Else LeftText = N End If End Select If ThreeIn <> 0 Then Dim SplittedNumber ReDim SplittedNumber(ThreeIn - 1) For i = 0 To UBound SplittedNumber = Mid(ThreeOuttedText, (i 3) + 1, 3) Next For i = UBound To 0 Step -1 If Mid(SplittedNumber , 1, 1) <> "0" Then If Mid(SplittedNumber , 1, 1) <> "1" Then A = N(Mid(SplittedNumber , 1, 1)) & "yüz" Else A = "yüz" End If Else A = "" End If If Mid(SplittedNumber , 2, 1) <> "0" Then B = N(Mid(SplittedNumber , 2, 1) & 0) Else B = "" End If If Mid(SplittedNumber , 3, 1) <> "0" Then C = N(Mid(SplittedNumber , 3, 1)) Else C = "" End If Threes(UBound - i) = A & B & C Next For i = IIf((ThreeOut = 0), UBound - 1, UBound To 0 Step -1 ThreeText = ThreeText & Threes & T & " " Next End If LastText = LeftText & ThreeText LastText = Replace LastText = Replace LastText = Replace LastText = Replace LastText = Replace LastText = Replace NToT = LastText End

güzel ellerine saglık ama hoca dizi ile istiyor yani olmuyor anla beni hem biz böyle ögretmediler cok saol ama

aynı şekilde yüzler diye switch yapçan... Kod: case 1: sayi= "bin"; break; case 2: sayi= "ikibin"; break; diye ekleme yapabilirsin..

Farklı farklı konular açma.. Burdan yardımcı olurum... Kod: public partial class Form1 : Form { public Form1 private void Form1_Load private void button1_Click { try { int sayi; sayi = int. Parse(textBox1. Text); if (sayi >= 0 &amp;amp;amp; sayi <= 9999) { switch (sayi / 1000) switch (sayi % 1000 / 100) switch ((sayi % 100) / 10) switch ((sayi % 10)) } else MessageBox. Show("1 ile 9999 arası bir sayı giriniz","Yemekte Yapsın mı? "); } catch } private void button2_Click }

C#console ugulaması

girilen bir sayıyı harfle yazan programı dizi ile yazmam gerekiyor yardımcı olurmsunuz. lütfen

Okudum onu Sende buraya bak... http://www.wardom.com.tr/showpost. php?p=4003207&postcount=

teşekkürler şey bunu diziyle nasıl yapıcam

Öğrettikleri gibi yap o

abicim biz programlama dersinde sharp developu böyle görmedim yani alayamıyorum. http://www.wardom.com.tr/yapmis-oldugun-programda-bi-sorun-var-cozemedim-bi-yardim-pls-t531172.html bakarsan suraya yeni bir konu actım burda yaptım ben programı ama bi sorun var sürekli sayi girnizi tekrarlıyor yardımların için teşekkürler.