2 adet textbox
3 adet label
1 commandButon
ekleyin…

Nesne Bilgileri
(Properties Kısmı için)

Form için;

Name :frmKarakterSayici
BorderStyle:1-Fixed Single
Caption :Karakter Sayma
MinButon :True
ScaleHeight:3195
ScaleWidth :4785
Diğerlerini Kendi isteğinize göre düzenleyebilirsiniz…

TextBox1 için;

Name :Text1
Aligment :2-Center
BorderStyle:1-Fixed Single
Height :1935
Left :1680
MultiLine :True
ScrollBars :2-Veritical
ToolTipText:Mesaj Yazma Penceresi
Top :240
Width :2655

TextBox2 için;


Name :text2
Aligment :2-Center
BorderSytle:1-Fixed Single
Height :495
MultiLine :False
ScrollBars :0-None
ToolTipText:Mesajınızın Kaydedileceği yer
Top :2400
Width :1455

Label1 için;

Name :Label1
Alignment :2-Center
BorderStyle:1-Fixed Single
Caption :Birşey Yazmayın..
Height :375
Left :360
ToolTipText:Mesajınızın içerdiği karakter sayısını gösterir.
Width :975

Label2 için;

Name :Label2
Aligment :2-Center
Caption :Karakter Sayısı
ForeColor :&H80000001&
Height :255
Left :120
Top :240
Width :1455

Label3 için;

Name :Label3
Alignment :2-Center
Caption osya İsmi
ForeColor :&H80000001&
Height :255
Left :120
Top :2040
Width :1455

CommandButton için;

Name :cmdSave
Caption :Me&sajı Kaydet
Default :True
Height :495
Left :1680
ToolTipText:Yazdığınız mesajı kaydeder.
Top :2400
Width :2655
Dim i As Integer
Dim DosyaAdı As String

Private Sub cmdSave_Click()

‘Dosya adı kısmı boş olursa çıkacak uyarı mesajı ve eğer yazılırsa sonuna txt uzantısı eklenen kısım.
If Text2.Text = “” Then
MsgBox “Bir dosya adı giriniz…”, vbExclamation, “Uyarı!”
Exit Sub
Else
DosyaAdı = Text2 + “.txt”
End If

‘Dosyanın oluşturulması yazılan mesajın ve kaç karakter olduğunun belirtilen yere kaydedilmesi.
Open DosyaAdı For Append As #1
Write #1, Text1
Write #1, “Karakter Sayısı =”, i
Close #1

‘işlemin tamamlandığını gösteren, işlem tamamlandı mesajı.
MsgBox “Mesajınız Kaydedildi..”, vbInformation, “İşlem Tamamlandı..”

‘Programın ilk açılmadaki hanine geri dönmesi.
Text1.Text = “”
Text2.Text = “”
i = 0
Label1.Caption = i

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

‘Ascii kodu 8 olan butona (BackSpace) basıldığında yapılacak işlem.
If KeyAscii = 8 Then
i = i - 1
Else
i = i + 1
End If

‘Karakter sayısı eksi olamıyacağı için , eksi ye düşmemesi için.
If i < 0 Then
i = 0
Label1.Caption = i
End If

Label1.Caption = i
End Sub