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

Doğuş Pertez

Emekli Yönetici

Konu Sahibi

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

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

Üye

teşekkürler

 

dinccine

Üye

Visual basic i nerden bulacaz ya. ?

 

Godfather

Üye

saol doğuş abi

 

aron54hacker

Üye

smileyin olduğu yerde hata verdi buraya ne yazacaz?

 

Aziz™

Üye

biraz açıklama yapsandın daha iyi olurdu

 

spacesyng

Üye

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

Üye

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

 

Nedved

Emekli Yönetici

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

 

ajlojyoy

Üye

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

 

hasbaly

Üye

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