Anasayfa > Kodlar > Visual Basic 6 ile Türkçe konuşan bilgisayar

Visual Basic 6 ile 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


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: