Büyük Küçük Yaz

'Bir cümle yada kelimedeki harfleri bir büyük bir küçük olarak boşlukları katmadan yazar.Programlama öğrenenler için güzel bir alıştırma..
NESNELER
--------------------------------------------------------------------------------


1 adet CommandButton
1 adet TextBox
2 adet Label
2 adet OptionButton
1 adet Form

KODLAMA
--------------------------------------------------------------------------------

Private Sub Command1_Click()
    Dönüştür
End Sub

Sub Dönüştür()
Dim X, Harf As String
Dim i, z As Integer

If Option2.Value = True Then'Küçük harfden başlıyarak değiştirir.
    i = 1: z = 0
Else'Büyük harfden başlıyarak değiştirir.
    i = 0: z = 1
End If

    X = Text1.Text
    Text1.Text = ""
        For i = i To Len(X) - z
          Harf = Mid(X, i + z, 1)
          If Harf = " " Then z = z + 1: Harf = Mid(X, i + z, 1): Label2.Caption = Label2.Caption & " "
           If i Mod 2 = 0 Then
                Harf = UCase(Harf)
                Label2.Caption = Label2.Caption & Harf
            Else
                Label2.Caption = Label2.Caption & Harf
            End If
        Next i
End Sub

'Form yüklenince ayarlamalar.
Private Sub Form_Load()
Form1.Caption = "Harf Büyütüp Küçültücü"
Form1.Font = "Times new roman"
Form1.FontSize = 11
    Label1.Caption = "Küçük harf ile bir cümle yada kelime giriniz:"
    Label1.AutoSize = True
    Label2.AutoSize = True
    Label2.Caption = ""
    Text1.Text = ""
    Command1.Caption = "&Dönüştür"
    Label1.Font = "Times new roman"
    Label1.FontSize = 12
    Label2.Font = "Times new roman"
    Label2.FontSize = 12
    Text1.Font = Label1.Font
    Text1.FontSize = 10
    Command1.FontSize = Text1.FontSize
    Command1.Font = Text1.Font
    Command1.FontItalic = True
    Option1.Value = True
    Option1.Font = Text1.Font
    Option2.Font = Text1.Font
    Option1.FontSize = Text1.FontSize
    Option2.FontSize = Text1.FontSize
    Option1.Caption = "Büyük_Küçük"
    Option2.Caption = "Küçük_Büyük"
End Sub

'Cümle silinir yada değiştirilirse.
Private Sub Text1_Change()
    Label2.Caption = ""
End Sub