Türkçe Konuşan Bilgisayar

Dört Basamaklı rakamlara kadar Türkçe okuyan program. 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