Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı

Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı

Gökhan KILIÇ-Recep TÜRK
 
AnasayfaKapıTakvimGaleriSSSKayıt OlGiriş yap
Arama
 
 

Sonuç :
 
Rechercher çıkıntı araştırma
En son konular
» Leman Sam-Kıyamam Sana
Çarş. Mart 17, 2010 5:48 pm tarafından BTA

» Leman Sam-Rüzgar
Çarş. Mart 17, 2010 5:47 pm tarafından BTA

» Komik Videolar 3
Çarş. Mart 17, 2010 5:44 pm tarafından BTA

» Komik Videolar 2
Çarş. Mart 17, 2010 5:43 pm tarafından BTA

» Komik Videolar 1
Çarş. Mart 17, 2010 5:41 pm tarafından BTA

» Leman Sam - Anladım
Salı Mart 09, 2010 6:32 pm tarafından BTA

» Alışveriş Merkezinde Kız Kavgası
Ptsi Mart 08, 2010 11:35 am tarafından BTA

» Canı Sıkılan Anket Çözmeye
Cuma Mart 05, 2010 12:29 am tarafından BTA

» Samsung B3410W Ch@t
Perş. Mart 04, 2010 11:34 pm tarafından BTA

Tarıyıcı
 Kapı
 Indeks
 Üye Listesi
 Profil
 SSS
 Arama
Forumlar
Ortaklar
bedava forum

Paylaş | 
 

 Türkçe Konuşan Bilgisayar

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
BTA
Admin
avatar

Mesaj Sayısı : 244
Points : 732
Reputation : 0
Kayıt tarihi : 28/02/10
Yaş : 25
Nerden Nerden : TOKAT/Reşadiye

MesajKonu: Türkçe Konuşan Bilgisayar   Perş. Mart 04, 2010 1:01 pm

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
Sayfa başına dön Aşağa gitmek
http://resadiye-eml.yetkinforum.biz
 
Türkçe Konuşan Bilgisayar
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası
 Similar topics
-
» küçük bilgisayar oyunları
» Güzel ve Etkili Konuşma (e-kitap)
» Peygamber Efendimiz (s.a.v.) ile Şeytan arasında geçen bir konuşma

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Tokat-Reşadiye Teknik ve Endüstri Meslek Lisesi Bilişim Teknolojileri Alanı 12-D Sınıfı :: Programlama :: Visual Basic Dilinde Hazır Programlar-
Buraya geçin: