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