Türkçe Konuşan Bilgisayar Visual Basic KOD!

[Doğuş Pertez]

10 adet CommandButton(0 için Name=T(0),Caption=0... 9'a kadar böyle)
2 adet CommandButton(sil ve konuş fonksiyonu için)
1 adet TextBox
1 adet CheckBox(Style=Graphic olacak)
1 adet Timer
...İyi eğlenceler
-------------------------------------------
Dim Oku As New SpeechLib.SpVoice
Dim G, I, L, S, E As Integer
Dim M, Use As String
Private Sub Check1_Click()
Timer1.Enabled = True: Check1.Caption = "saymayı durdur"
For I = 0 To 9: T(I).Enabled = False: Next I
sil.Enabled = False: Konuş.Enabled = False: Text1.Text = ""
If G = 1 Then
Timer1.Enabled = False: Check1.Caption = "saymaya devam et": G = 0
For I = 0 To 9: T(I).Enabled = True: Next I
sil.Enabled = True: Konuş.Enabled = True: Text1.Text = ""
End If
End Sub
Private Sub sil_Click()
Text1.Text = ""
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000: Timer1.Enabled = False: G = 0: Text1.TabStop = True
End Sub
Private Sub T_Click(X As Integer)
Text1.Text = Text1.Text + Trim(Str(X If Len(Text1.Text) > 4 Then Text1.Text = Left(Text1.Text, 4)
End Sub
Private Sub Konuş_Click()
SayıOku
End Sub
Private Sub Timer1_Timer()
Text1.Text = S
SayıOku
S = S + 1: G = 1
End Sub
Private Sub SayıOku()
Text1.Text = Val(Text1.Text)
Birler = Array("", "bihr", "ieckie", "uge", "dirt", "baysh", "aultgha", "yeh-dhe", "seckes", "dho-coose")
Onlar = Array("", "ohn", "yer-mie", "oht-oose", "cairck", "el-lih", "ault-tmysh", "yet-tmeish", "seck-san", "doack-son")
Yüzler = Array("", "bihr", "ieckie", "uge", "dirt", "baysh", "aultgha", "yeh-dhe", "seckes", "dho-coose")
Binler = Array("", "ieckie", "uge", "dirt", "baysh", "aultgha", "yeh-dhe", "seckes", "dho-coose")
L = Len(Text1.Text)
If L = 1 Then M = Birler(Text1.Text)
If L = 2 Then M = Onlar(Left(Text1.Text, 1)) + " " + Birler(Right(Text1.Text, 1))
If L = 3 Then
If Left(Text1.Text, 1) = 1 Then E = 1 Else E = 0
M = Yüzler(Left(Text1.Text, 1) - E) + " use " + Onlar(Mid(Text1.Text, 2, 1)) + " " + Birler(Right(Text1.Text, 1))
End If
If L = 4 Then
If Mid(Text1.Text, 2, 1) = 1 Then E = 1 Else E = 0
If Mid(Text1.Text, 2, 1) = 0 Then Use = "" Else Use = " use "
M = Binler(Left(Text1.Text, 1) - 1) + " bean " + Yüzler(Mid(Text1.Text, 2, 1) - E) + Use + Onlar(Mid(Text1.Text, 3, 1)) + " " + Birler(Right(Text1.Text, 1))
End If
If Text1.Text = 0 Then M = "csoufor"
Oku.Speak M
End Sub

 

[beyaznarin]

teşekkürler

 

[dinccine]

Visual basic i nerden bulacaz ya. ?

 

[Godfather]

saol doğuş abi

 

[aron54hacker]

smileyin olduğu yerde hata verdi buraya ne yazacaz?

 

[Aziz™]

biraz açıklama yapsandın daha iyi olurdu

 

[spacesyng]

arkadaşlar bu kodları direk geçirmekle çalışmıyor ama kodların içinde yazan button textbox falan varya bunları öncelikle formunuza oluşturmanız gerekir

 

[rudboys]

cestlavie bunları bi metin dosyasına atıp o metin dosyasını komut dosyası yapsak olmazmı ?

 

[Nedved]

Olmaz.Form üzerinde çalışman lazım.

 

[ajlojyoy]

yazan yerde tex bişey yazıo o surat işe sıçtı

 

[hasbaly]

Nedir bu? Ayrıntılı bilgi verirseniz sevinirim...