sevgili sonbalina emeğine sağlık ikinci seçenekte verdiğin güzel bir şekilde çalışıyor vb. net 2010 kullanıyorum çok çok teşekkür ediyor çalışmalarınızda başarılar diliyorum...

Arkadaşlar şu kodları yazamıyorum. Visual Studio 2010 programı ile Visual Basic kullanarak hazırlanması gerekiyor ama beceremedim bir türlü. Kullanıcı ekrandan 3 basamaklı bir sayı girmektedir. Bu sayıyı yazıya çeviren programı yazınız. Örneğin 258 girildiğinde ekrana İKİ YÜZ ELLİ SEKİZ yazsın. Hepsini görmek için tıklayın...

dostum çok teşekkürler. vb. net te yazmam gerekiyor. textbox ve buton hazırlamak kolay ama programı nerelere entegre etmem lazım onu

Merhaba arkadaşlar bende bir soru sorsam bu konuda yardımlarınız çok hoş olabilirdi. Ben. net de bir text boxlardan oluşan bir form oluşturmak istiyorum bu texboxlar ama db kaynağı olarak bir text file kullanıcak. Şöyleki; text dosyasının içeriği: 0101031500000010100000ADANA 01104322-231047831103MAHFESIĞMAZ TELEKOM 31/12/20102010120235835 ARALIK-2010 Gibi burda ilk 4 karakter bir colon sonraki 10 karakter bir kolon gibi ayırmak istiyorum. Datasource ekleme olayı ile sorunu çözemedim ama yardımlarınız için şimdiden teşekkürler.

Bu işine yarar mı bilmem? Kod: Public Class Form1 Function tlcevir ' Dim sonuc As String = " # SIFIR TL, " Dim basamak(10), deger(13), basamaklarimiz(13) As String Dim i As Integer 'tl = Str(Int basamak(0) = " SIFIR" basamak(1) = " BİR" basamak(2) = " İKİ" basamak(3) = " ÜÇ" basamak(4) = " DÖRT" basamak(5) = " BEŞ" basamak(6) = " ALTI" basamak(7) = " YEDİ" basamak(8) = " SEKİZ" basamak(9) = " DOKUZ" deger(1) = " ON" deger(2) = " YİRMİ" deger(3) = " OTUZ" deger(4) = " KIRK" deger(5) = " ELLİ" deger(6) = " ALTMIŞ" deger(7) = " YETMİŞ" deger(8) = " SEKSEN" deger(9) = " DOKSAN" Dim k As Integer = 0 For i = Strings. Len To 1 Step -1 basamaklarimiz = Strings. Mid(tl, i, 1) Next If Strings. Len > 1 Then If Strings. Len > 2 Then If Strings. Len > 3 Then If Strings. Len > 4 Then If Strings. Len > 5 Then If Strings. Len > 6 Then Else sonuc = basamak(basamaklarimiz(Strings. Len - 5)) & " YÜZ" & deger(basamaklarimiz(Strings. Len - 4)) & basamak(basamaklarimiz(Strings. Len - 3)) & " BİN" & basamak(basamaklarimiz(Strings. Len - 2)) & " YÜZ" & deger(basamaklarimiz(5)) & basamak(basamaklarimiz(6)) sonuc = Replace End If Else sonuc = deger(basamaklarimiz(Strings. Len - 4)) & basamak(basamaklarimiz(Strings. Len - 3)) & " BİN" & basamak(basamaklarimiz(Strings. Len - 2)) & " YÜZ" & deger(basamaklarimiz(4)) & basamak(basamaklarimiz(5)) sonuc = Replace End If Else sonuc = basamak(basamaklarimiz(Strings. Len - 3)) & " BİN" & basamak(basamaklarimiz(Strings. Len - 2)) & " YÜZ" & deger(basamaklarimiz(3)) & basamak(basamaklarimiz(4)) End If Else sonuc = basamak(basamaklarimiz(Strings. Len - 2)) & " YÜZ" & deger(basamaklarimiz(2)) & basamak(basamaklarimiz(3)) End If Else sonuc = deger(basamaklarimiz(1)) & basamak(basamaklarimiz(2)) End If Else sonuc = basamak(basamaklarimiz(1)) End If sonuc = Replace sonuc = Replace sonuc = Replace sonuc = Replace sonuc = Replace sonuc = Replace Return sonuc End Function Function yaziyacevir Dim virgulnerde As Integer If gelen = "" Then gelen = "0,00" Dim sonuc, tlsayi, kurussayi As String gelen = Replace virgulnerde = InStr 'If virgulnerde <> 0 Then tambasamak = virgulnerde - 1 Else tambasamak = Strings. Len If virgulnerde <> 0 Then tlsayi = Strings. Left(gelen, virgulnerde - 1) Else tlsayi = gelen If virgulnerde <> 0 Then kurussayi = Strings. Mid(gelen, virgulnerde + 1, 2) Else kurussayi = 0 If Int < 10 Then kurussayi = kurussayi & "0" sonuc = "# " & tlcevir & " TL, " & tlcevir & " KRŞ #" Return sonuc End Function Private Sub Button1_Click Handles Button1. Click TextBox2. Text = yaziyacevir(TextBox1. Text) End Sub End Class Yada bu da olabilir Tek Yapmanız Gereken İki Tane TextBox Bir Tane De Buton Koymanız... 1. TextBox; Sayı Girişi 2. TextBox; Yazı Çıktısı Kolay gelsin... Kod: Public Class Form1 Dim Birler(9) As String Dim Onlar(9) As String Dim Yüzler(9) As String Dim Binler(5) As String Dim Sayi As Long Dim Yazi As String Private Sub Form1_Load Handles MyBase. Load Birler(0) = "" Birler(1) = "Bir" Birler(2) = "İki" Birler(3) = "Üç" Birler(4) = "Dört" Birler(5) = "Beş" Birler(6) = "Altı" Birler(7) = "Yedi" Birler(8) = "Sekiz" Birler(9) = "Dokuz" Onlar(0) = "" 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" Yüzler(0) = "" Yüzler(1) = "Yüz" Yüzler(2) = "İkiYüz" Yüzler(3) = "ÜçYüz" Yüzler(4) = "DörtYüz" Yüzler(5) = "BeşYüz" Yüzler(6) = "AltıYüz" Yüzler(7) = "YediYüz" Yüzler(8) = "SekizYüz" Yüzler(9) = "DokuzYüz" Binler(0) = "" Binler(1) = "Bin" Binler(2) = "Milyon" Binler(3) = "Milyar" Binler(4) = "Trilyon" Binler(5) = "Katrilyon" End Sub Private Sub Button1_Click Handles Button1. Click Dim Sayi_Yazi As Object Dim i As Integer Sayi = Int(Val(TextBox1. Text)) Sayi_Yazi = Microsoft. VisualBasic. Right(Str , Len(Str - 1)) Yazi = "" For i = 0 To 5 Yazi = Uc_Hane(Microsoft. VisualBasic. Right(Sayi_Yazi, 3)) + _ IIf(Val(Microsoft. VisualBasic. Right(Sayi_Yazi, 3)) <> 0, Binler , "") + Yazi If Len > 3 Then Sayi_Yazi = Microsoft. VisualBasic. Left(Sayi_Yazi, Len - 3) Do While Len < 3 Sayi_Yazi = "0" + Sayi_Yazi Loop Else Sayi_Yazi = "" End If Next TextBox2. Text = Yazi. Replace End Sub Function Uc_Hane As String Uc_Hane = Birler(Val(Mid(X, 3, 1))) Uc_Hane = Onlar(Val(Mid(X, 2, 1))) + Uc_Hane Uc_Hane = Yüzler(Val(Mid(X, 1, 1))) + Uc_Hane End Function End Class C#. NET yapmak istersen.. 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ı? <img src="http://www.gorselprogramlama.com/wp-includes/images/smilies/icon_smile. gif" alt=":)" class="wp-smiley"> "); } catch } private void button2_Click } -