Metin-X
Would you like to react to this message? Create an account in a few clicks or log in to continue.

 
 
AnasayfaKapıLatest imagesKayıt OlGiriş yap

 

 Türkçe Konuşan Bilgisayar

Aşağa gitmek 
YazarMesaj
hakara619
Acemi
Acemi
avatar


Mesaj Sayısı : 16
Rep Gücü : : 20419
Rep Puani : : 10000
Kayıt tarihi : 23/08/09
Yaş : 33
Nerden : istanbul

Türkçe Konuşan Bilgisayar Empty
MesajKonu: Türkçe Konuşan Bilgisayar   Türkçe Konuşan Bilgisayar Icon_minitimeSalı Ağus. 25, 2009 9:22 am

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

+ repi unutmasak arkadaslar:P
Sayfa başına dön Aşağa gitmek
 
Türkçe Konuşan Bilgisayar
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Metin-X :: Visual Basic Dersleri :: Acemi-
Buraya geçin: