En Komik ve Eğlenceli Videolar Burada. * FrmTR Sohbet Kontrol Panelinizde.
Forum TR
Go Back   Forum TR > > >
FrmTR'ye Reklam Vermek İçin: [email protected]
Cevapla
 
Konu Araçları
Eski 18-05-11, 11:21   #1
WeYSTYLe

13 KLavyeden Gİrilen Harfleri tersten ve aLt alta yazma :)


Private Sub Command1_Click()
Form1.Cls
Dim a
a = Len(Text1.Text)
ReDim b(a)
For i = 1 To a
b(i) = Mid(Text1.Text, i, 1)
Next
For i = a To 1 Step -1
ad = ad & b(i)
Next
For i = 1 To a
Print Mid(ad, 1, i)
Next
End Sub


+ ReP PLease
  Alıntı Yaparak Cevapla
Eski 18-05-11, 11:24   #2
donartur21

Varsayılan C: KLavyeden Gİrilen Harfleri tersten ve aLt alta yazma :)


ey vallah ayan
  Alıntı Yaparak Cevapla
Eski 18-05-11, 11:25   #3
WeYSTYLe

Varsayılan C: KLavyeden Gİrilen Harfleri tersten ve aLt alta yazma :)


ne demek KArdeşim + rep pLease :P
  Alıntı Yaparak Cevapla
Eski 18-05-11, 11:58   #4
1comolokko1

Varsayılan C: KLavyeden Gİrilen Harfleri tersten ve aLt alta yazma :)


biraz Fazla Uğraşmısıın
form resizeye koyun
Alıntı:
Dim a As String
a = "lala"
Dim i As Integer
a = StrReverse(a)
For i = 1 To Len(a)
Print Mid(a, i, 1)
Next i
isterseniz
Alıntı:
a = "lala"
yerine
Alıntı:
a=inputbox("Bir yazı Girin","Ak")
da Yaza Bilirsiniz
benden Rep Bekleme

Bu arada dim a olarak bırakma variant olur dim a as string filan yaz

__________________________________________________
[Linkleri sadece kayıtlı üyelerimiz görebilir.ForumTR üyesi olmak için tıklayınız]
Türkçe Kod Kaynağı Forum

Mesajı son düzenleyen 1comolokko1 ( 18-05-11 - 13:01 )
  Alıntı Yaparak Cevapla
Eski 18-05-11, 12:47   #5
WeYSTYLe

Varsayılan C: KLavyeden Gİrilen Harfleri tersten ve aLt alta yazma :)

Emeqe Sayqı Lütfen !
  Alıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Reklam Mailimiz. Gizlilik Politikası


Reklamı Kapat

Reklamı Kapat