Ana Sayfa En Yeni 50 Kod En Popüler 50 Kod Sen de Yaz Bize Ulaşın
Sponsorlar
Programlama > VISUAL BASIC


Metin aynasi

Yazdiginiz metini tersten tekrar yazip size veriyor. bunun icin 2 tane textbox 1 tanede command button yeterli

Private Sub Command1_Click()

Dim i

i=0

do until i=len(Text1.text) 'Text1 deki karekter sayisi kadar Fonksiyonu calistir

i=i+1

a=Right(Text1.Text,i) 'sagdan i ninci karekteri Al

b=Left(a,1) ' Aldigin Metinin ilk karekterden sonra sil

Text2.Seltext=b 'sirasiyla Yaz

loop 'Fonksiyon kapanisi

End Sub


magician
sevimli_9@hotmail.com
Ana Sayfa   Ana sayfam yap   Favorilerime ekle   Bize Ulaşın
© 2002 - 2010 Hazır Kod Programlama - Türkiye