Girilen sayıyı ve metni sesli okuma
Textbox' a girdiğiniz sayıları ve cümleleri sesli olarak okuyan bir program yapmaya ne dersiniz?
Bir form oluşturalım önce. Forma:
1 adet textbox ve
1 adet button ekleyin.
Sonra formun "General" kısmına (en üstte) şu kodu yazın:
Kod:
Dim konus As New SpeechLib.SpVoice
Button'un içine ise şunu:
Kod:
konus.Speak(TextBox1.Text)
Şimdi yapmanız gereken f5 tuşuna basarak yenileme işlemini gerçekleştirmek. Programımız hazırdır.
Kolay gelsin.
************************************************** *************************
Dosya Yerinde mi?
Belirtilen yoldaki dosyanın yerinde olup olmadığını bulan program yapalım.
Oluşturduğumuz forma:
1 adet button ve
1 adet textbox ekliyoruz.
Textbox'ı dosyanın yolunu girmek için kullanacağız.
Butonun içine şu kodları ekliyoruz:
Kod:
Dim dosya dosya = Dir(textbox1.text)
If dosya = "" Then
MsgBox(" Dosya Bulunmuyor!")
Else MsgBox(" Dosya Bulundu!") End If
Kolay gelsin.
************************************************** *************************
Bu dersimizde kolay ve basit bir kronometre yapmayı öğrenelim.
Forma;
2Button
1Timer
Ekliyoruz
Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label4.Text = TextBox1.Text
Timer1.Interval = ComboBox1.Text
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Label4.Text > 0 Then
Label4.Text = Label4.Text - 1
Else
Timer1.Stop()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
TextBox1.Text = Label4.Text
End Sub
************************************************** *************************
Now() Fonksiyonunu Biçimlendirme
Bu Derste Visual Basic.NET'te Kullanabileceğimiz Bir Fonksiyonu Göreceğiz...
Bu Fonksiyon Now() Fonksiyonu... Eğer Bu Fonksiyonu Program İçerisinde Bir Değişkene Atarsanız O Ana Ait Tarih ve Saat Birlikte Bu Değişkenin Yeni Değeri Olacaktır. Ancak Size Lazım Olan Sadece Örnek Olarak Tarih İse Bu İşlemi Yapmak İçin Aşağıdaki Koda İhtiyacınız Olacaktır...
Kod:
Dim tarih As String tarih = FormatDateTime(Now,.ShortDate)
Zaten:
Kod:
FormatDateTime(Now
Kısmını Yazdığınız Zaman Karşınıza Gele Seçeneklerden İstediğinizi Seçerek İstediğiniz Türü Kullanabilirsiniz...
Kolay Gelsin...
Textbox' a girdiğiniz sayıları ve cümleleri sesli olarak okuyan bir program yapmaya ne dersiniz?
Bir form oluşturalım önce. Forma:
1 adet textbox ve
1 adet button ekleyin.
Sonra formun "General" kısmına (en üstte) şu kodu yazın:
Kod:
Dim konus As New SpeechLib.SpVoice
Button'un içine ise şunu:
Kod:
konus.Speak(TextBox1.Text)
Şimdi yapmanız gereken f5 tuşuna basarak yenileme işlemini gerçekleştirmek. Programımız hazırdır.
Kolay gelsin.
************************************************** *************************
Dosya Yerinde mi?
Belirtilen yoldaki dosyanın yerinde olup olmadığını bulan program yapalım.
Oluşturduğumuz forma:
1 adet button ve
1 adet textbox ekliyoruz.
Textbox'ı dosyanın yolunu girmek için kullanacağız.
Butonun içine şu kodları ekliyoruz:
Kod:
Dim dosya dosya = Dir(textbox1.text)
If dosya = "" Then
MsgBox(" Dosya Bulunmuyor!")
Else MsgBox(" Dosya Bulundu!") End If
Kolay gelsin.
************************************************** *************************
Bu dersimizde kolay ve basit bir kronometre yapmayı öğrenelim.
Forma;
2Button
1Timer
Ekliyoruz
Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label4.Text = TextBox1.Text
Timer1.Interval = ComboBox1.Text
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Label4.Text > 0 Then
Label4.Text = Label4.Text - 1
Else
Timer1.Stop()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
TextBox1.Text = Label4.Text
End Sub
************************************************** *************************
Now() Fonksiyonunu Biçimlendirme
Bu Derste Visual Basic.NET'te Kullanabileceğimiz Bir Fonksiyonu Göreceğiz...
Bu Fonksiyon Now() Fonksiyonu... Eğer Bu Fonksiyonu Program İçerisinde Bir Değişkene Atarsanız O Ana Ait Tarih ve Saat Birlikte Bu Değişkenin Yeni Değeri Olacaktır. Ancak Size Lazım Olan Sadece Örnek Olarak Tarih İse Bu İşlemi Yapmak İçin Aşağıdaki Koda İhtiyacınız Olacaktır...
Kod:
Dim tarih As String tarih = FormatDateTime(Now,.ShortDate)
Zaten:
Kod:
FormatDateTime(Now
Kısmını Yazdığınız Zaman Karşınıza Gele Seçeneklerden İstediğinizi Seçerek İstediğiniz Türü Kullanabilirsiniz...
Kolay Gelsin...
