Skip to main content

AccessTr.neT


Yazdıklarınızı Ters Çevirsin

Yazdıklarınızı Ters Çevirsin

#1
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

™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Yazdıklarınızı Ters Çevirsin - Yazar: chopper07 - 28/11/2008, 21:36
Cvp: Yazdıklarınızı Ters Çevirsin - Yazar: syrup - 29/11/2008, 14:57
Cvp: Yazdıklarınızı Ters Çevirsin - Yazar: nuriyee - 13/05/2009, 19:10
Cvp: Yazdıklarınızı Ters Çevirsin - Yazar: melleq - 13/05/2009, 21:51
Task