AccessTr.neT
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.