Tersine Çevir

1 2
17/01/2023, 13:05

husem

merhaba, kolay gelsin arkardaşlar,
tersine çevir butonuna basınca, 1.metin kutusunda olan veriyi tersine çevirmek istiyorum,
yardımcı olabilir misiniz,

aşağıdaki gibi,
[img]
[/img]
17/01/2023, 13:32

berduş

Split() fonksiyonu ile metni diziye aktarıp dizi elemanlarını tersten birleştirerek yapabilirsiniz
17/01/2023, 13:51

husem

nasıl yapacağımı bilmiyorum,
yardımcı olabilirsen sevinirim,

iyi çalışmalar,
17/01/2023, 13:55

berduş

2 konuda araştırma yapmanız işinize yarayabilir
1 - Split fonksiyonu
2 - dizi elemanlarını alma
17/01/2023, 23:20

Yandemir

Dim myString As String
    myString = "This is my test string"
    MsgBox myString
   
    myString = StrReverse(myString)
    MsgBox myString
17/01/2023, 23:46

husem

(17/01/2023, 23:20)Yandemir yazdı: Dim myString As String
    myString = "This is my test string"
    MsgBox myString
   
    myString = StrReverse(myString)
    MsgBox myString

merhaba,
bu kodu denemiştim,


örnekteki 15-16-17 gibi rakamları çevirirken 71-61-51 diye çeviriyor, mantıken doğru, ama ben tersine yaparken aslında
8-9-10-11-12-13-14-15'i
15-14-13-12-11-10-9-8'gibi yapmak istiyorum,

o yüzden bu kod işime yaramadı,
ilgilendiğiniz için teşekkür ederim,
1 2