Kelimeleri array'e parçalayın, split yapıp boşluk ile, ardından kendi yazdığınız kod ile tek tek ters çevirin.

simdi bu programı hazırladım ama hocamız :S boyle olmayacak dedi kelimeyi oldugu gibi ters cevircek dedi söyle yani örnek olarak girilen cümle " ali ekmek al " bunu "ila kemke la" die çevirecek Bunu Nasıl Düzeltebilirim :S kaynak Kodları su kodlarda oynama yaparak duzeltebılırmıyım bi yardım.. Private Sub Text1_Change Dim ters, terscevir As String Dim x, c As Integer ters = Text1. Text For x = Len To 1 Step -1 topla = Mid(ters, x, 1) terscevir = terscevir + topla Next Label1. Caption = terscevir If Len = 30 Then c = MsgBox("Girdiğiniz Kelime " & Text1. Text & vbCrLf & "Tersi " & terscevir, vbInformation, "Ters Çevir") End Sub - admin

mehmet abi naptın sen abi allah razı olsunda bu bizim hoca bu kodları gorurse söver bana bide anlatamam bu akdarını kısacık olanı varmı abi cok seyistedim ama hani bnm kodlama uzerinden yapamazmıyız

m3hm3t abi bide soyle kod var buda yazılanı silmiyor geri... yazdıgın kalıyor formda.. Dim dizi(50) As String Dim d(50), dgr(50) As Integer Dim t As String Dim c, s, k As Integer Private Sub Command1_Click f = Text1. Text f = f + Space$(1) s = 0 k = 1 c = 1 While c <> 0 c = InStr s = s + 1: d = c k = c + 1 Wend Cls dgr(1) = d(1) For i = 2 To s Show dgr = d - d(i - 1) Next i k = 1 For i = 1 To s If dgr < 0 Then GoTo git dizi = Mid$(f, k, dgr k = d + 1 Next i git: Show For i = 1 To s For j = Len(dizi To 1 Step -1 t = t + Mid$(dizi , j, 1) Next j Next i print t End Sub admin

Visual basic'te strreverse fonksiyonu yok muydu niye yazdırdılar tekrar Tek tek çevirmek için: Private Sub text1_chage Label1. Caption = StrReversed(Trim(Text1. Text)) End Sub Function StrReversed As String On Error GoTo StrReversed_Error Dim llngUBound As Long Dim larrStr As String Dim lstrStr As String Dim llngStrSize As Long Dim lstrReversed As String Dim llngCounter As Long larrStr = Split llngUBound = UBound llngStrSize = 0 For llngCounter = 0 To llngUBound lstrStr = larrStr llngStrSize = Len lstrReversed = lstrReversed & FlipString & " " Next llngCounter Debug. Print StrReversed = lstrReversed Exit Function StrReversed_Error: StrReversed = "" MsgBox "Error #: " & Err. Number & vbCrLf & "Description : " & Err. Description & vbCrLf & vbCrLf & vbCrLf, vbCritical, "ERROR" End Function Function FlipString As String On Error GoTo FlipString_Error Dim llngLenStr As Long Dim lstrLChr As String Dim lstrRChr As String Dim lstrFlipString As String Dim llngLoc As Long Dim llngRightPos As Long llngLenStr = Len If llngLenStr = 0 Then Exit Function lstrFlipString = Space llngRightPos = llngLenStr For llngLoc = 1 To llngLenStr lstrLChr = Mid$(lstrString, llngLoc, 1) If InStr(1, "abcdefghijklmnopqrstuvwxyz", LCase = 0 Then Mid$(lstrFlipString, llngLoc, 1) = lstrLChr llngRightPos = llngRightPos + 1 Else If llngRightPos > 0 Then lstrRChr = Mid$(lstrString, llngRightPos, 1) Else lstrRChr = lstrLChr End If If InStr(1, "abcdefghijklmnopqrstuvwxyz", LCase <> 0 Then If UCase = lstrLChr Then lstrLChr = UCase Else lstrLChr = LCase End If Mid$(lstrFlipString, llngLoc, 1) = lstrLChr Else llngLoc = llngLoc - 1 Mid$(lstrFlipString, llngRightPos, 1) = lstrRChr End If End If llngRightPos = llngRightPos - 1 Next llngLoc FlipString = lstrFlipString Exit Function FlipString_Error: FlipString = "" MsgBox "Error #: " & Err. Number & vbCrLf & "Description : " & Err. Description & vbCrLf & vbCrLf & vbCrLf, vbCritical, "ERROR" End Function