Visual Basic StrRev Alternatif Kod [VB6] [SRC]
![Visual Basic StrRev Alternatif Kod [VB6] [SRC] Visual Basic StrRev Alternatif Kod [VB6] [SRC]](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8sj508TUlgMpl6DsWhJFelA7MijP37-tCafQvE-jdmW85i_fEPGOe1aIYTUOoj5CkMV9oxlRW5u5ZvubNvqscS-8e9GOzyb9yyN3Tedb5w4PiK2bB10TRC8Q9X1nkEzAxiuYwEn-fRbSm/s1600/vb6.gif)
Visual basic 6 ögren,visual basic ögren,strreverse alternatif,strrev alternativo,harmmy
Visual basic progrmalama yapan herkesin aklına kodların alternatifini yazmak gelmiştir ya da ileride gelecektir diye düşünüyorum..
StrReverse komutunun alternatifini sizlere vereceğim isteyenler kullanabilirler..
Kod:
- Public Function StrRev_Alter_7913(Expression As String) As String
- Dim b() As Byte: b = Expression
- If UBound(b) < 1 Then Exit Function
- For x = UBound(b) - 1 To 0 Step -2
- StrRev_Alter_7913 = StrRev_Alter_7913 & ChrW$(b(x))
- Next
- End Function
Blogu takip etmeye devam ediniz..
0 Cevap::
Yorum Gönder
Küfür,argo kelimeler yazanlar ve reklam yapanların yorumları onaylanmayacaktır.