Anasayfa > Kodlar > Visual Basic 6 ile Yazdığınız yazı geri silinsin

Visual Basic 6 ile Yazdığınız yazı geri silinsin


Yazdığınız yazı geri silinsin.

2 adet TextBox
1 adet Button

KOD
Dim kar(107), Y, X, harf, uzunluk

Private Sub Command1_Click()
TextBox3.Text = ""
uzunluk = Len(TextBox1.Text)

For X = 1 To uzunluk
harf = Mid(TextBox1.Text, X, 1)

For Y = 1 To 107

If harf = kar(Y) Then
TextBox3.Text = TextBox3.Text & kar(Y + 1)
ElseIf harf = kar(107) Then
TextBox3.Text = TextBox3.Text & kar(1)
End If

Next

Next

End Sub


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: