Yazdıklarınızı Ters Çevirsin

Yazdıklarınızı Ters Çevirsin - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Örnekleri ve Uygulamaları (https://accesstr.net/forum-visual-basic-6-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Yazdıklarınızı Ters Çevirsin (/konu-yazdiklarinizi-ters-cevirsin.html)

Yazdıklarınızı Ters Çevirsin - chopper07 - 28/11/2008

bunun için formumuza 2 adet textbox 1 tane command button eklememiz ve formumuza aşağıdaki kodu yapıştırmamız yeterli.

ör: textbox1'e ERKAN yazıyorsunuz butona tıklayınca NAKRE olarak çeviriyor. çok işe yaramaz ama belli mi olur belki lazım olur Halay

Kod:

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



Private Sub Form_Load()



End Sub

Cvp: Yazdıklarınızı Ters Çevirsin - syrup - 29/11/2008

harfelere bu kadar işgence günahtır erkan. strreverse kullan.
textbox1.text=strreverse("erkan")
tek satır

Cvp: Yazdıklarınızı Ters Çevirsin - nuriyee - 13/05/2009

ya bide devamsızlk takip proqramı olsa ne iyi olur Lol

Cvp: Yazdıklarınızı Ters Çevirsin - mehmetdemiral - 13/05/2009

Nuriye Hanım
Lütfen mesajınızı konuyla ilgili bir yere yazınız. Sitemizde arama yaparsanız mutlaka devamsızlık takibi ile ilgili örnekler bulacaksınız. Bu mesajın yeri burası değil ama..

Cvp: Yazdıklarınızı Ters Çevirsin - melleq - 13/05/2009

bu kodlar v.stud. 2005 için değil sanırım kodlarda sorun gösteriyor..öylemi acaba??

Cvp: Yazdıklarınızı Ters Çevirsin - chopper07 - 15/05/2009

kodlar VB6 içindir.