Tags-Etiketler
Bu kısımda sitemizde etiketlenmiş makaleleri toplu olarak bulabilirsiniz...
[ kelime ] /
Makaleler-Article(s)
kelime ile ilgili toplam 5 makale bulundu ! (A total of 5 article(s) about kelime was(were) found in all of articles!)
| Article |
|---|
Cümle İçerisindeki Kelimeleri Saymak
Merhaba arkadaşlar bu makalemizde InputBox a girilmiş olan cümlenin içerisinde kaç adet kelime olduğunu öğreneceğiz. | Otomatik Kelime Tamamlama
Merhaba arkadaşlar. Bu makalemizde Google arama motorundaki gibi Textbox a girilen kelimeyi otomatik olarak tamamlatacağız. | Kelime Ayırma
Merhaba arkadaşlar. Aşağıdaki küçük kod parçasıyla cümlenin içerisindeki kelimeleri ayırıp alabilirsiniz. | Cümledeki Karakter, Boşluk ve Kelime Sayısını Bulmak
Bu örneğimizde TextBox taki cümledeki Karakter, Boşluk ve Kelime sayısını bulacağız.
Formunuza 1 adet TextBox, Button ve 3 adet Label ekleyin. Aşağıdaki şekli inceleyin.
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Text = "Cümledeki boşluk sayısı "
Label2.Text = "Cümledeki harf sayısı "
Label3.Text = "Cümledekı kelime sayısı "
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, f As String
Dim c, I, d, w, x As Integer
a = TextBox1.Text
c = Len(a)
LTrim(a)
For I = 1 To c
f = Mid(a, I, 2)
If f = Strings.Space(2) Then
d = d + 1
End If
Next
For I = 1 To c
f = Mid(a, I, 1)
If f = Strings.Space(1) Then
w = w + 1
Else
x = x + 1
End If
Next
Label1.Text = "Cümledeki boşluk sayısı: " & CStr(w)
Label2.Text = "Cümledeki harf sayısı: " & CStr(x)
Label3.Text = "Cümledekı kelime sayısı: " & CStr(w - d + 1)
d = 0
w = 0
x = 0
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır
| CapsLock, NumLock Açık Kapalı Kontrol
Arkadaşlar bu örneğimizde CapsLock, NumLock, ScrollLock açık mı kapalı mı olduğunu kontrol edeceğiz. Formunuzu 1 adet Timer, 3 adet Label ve TextBox ekleyin. Aşağıdaki şekilleri inceleyin. Şekil 2 de de çalışma anında yapılan değişikliği görebilirsiniz. Bir sonraki makalede CapsLock, Numlock tuşuna basıldığı zaman uyarı mesajı verecek olan küçük örneğimizi göreceğiz.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If (My.Computer.Keyboard.NumLock) Then
TextBox1.Text = "AÇIK"
Else
TextBox1.Text = "KAPALI"
End If
If (My.Computer.Keyboard.CapsLock) Then
TextBox2.Text = "AÇIK"
Else
TextBox2.Text = "KAPALI"
End If
If (My.Computer.Keyboard.ScrollLock) Then
TextBox3.Text = "AÇIK"
Else
TextBox3.Text = "KAPALI"
End If
End Sub
Bir sonraki makalede görüşmek üzere. Bahadır |
|
Sitede yayınlanan makaleleri
Blog sitemizden de takip edebilirsiniz.
Sitemizdeki makaleleri RSS olarak takip edebilirsiniz.