Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Otaku=) en 31 Agosto 2009, 14:31 pm



Título: Una pequeña ayudita por favor
Publicado por: Otaku=) en 31 Agosto 2009, 14:31 pm
Estado en un proyecto,  consiste en escribir al revez, por ejemplo

foro.elhacker = rekcahle.orof   

por favor le agradeceria mucho su ayuda,  y si postea el code, mucho mejor suerte

y Tremendo foro  ;-)


Título: Re: Una pequeña ayudita por favor
Publicado por: SRVAM en 31 Agosto 2009, 15:07 pm
es muy facil, solo haz un bucle for para recorrer el string letra por letra desde el final, y lo almacenas en una variable string en el orden en que la vas sacando

no se si me he explicado bien del todo... si no me has comprendido te hago un ejemplo


Título: Re: Una pequeña ayudita por favor
Publicado por: Otaku=) en 31 Agosto 2009, 15:18 pm
es muy facil, solo haz un bucle for para recorrer el string letra por letra desde el final, y lo almacenas en una variable string en el orden en que la vas sacando

no se si me he explicado bien del todo... si no me has comprendido te hago un ejemplo

jejejjeej la verda no, es que noc, mucho de visual basic apena empese hace 1 semana, es por eso si puede  hacerme una fuente  se me hace mas facil _:)


Título: Re: Una pequeña ayudita por favor
Publicado por: SRVAM en 31 Agosto 2009, 15:31 pm
en el command1_click pones este codigo

Código
  1.  
  2. Dim x As Integer
  3.  
  4. x = Len(Text1.Text)
  5.  
  6. Do While x >= 1
  7.  
  8. Text2.Text = Text2.Text & Mid(Text1.Text, x, 1)
  9.  
  10. x = x - 1
  11.  
  12. Loop
  13.  
  14.  

que vaya bien ;)


Título: Re: Una pequeña ayudita por favor
Publicado por: Otaku=) en 31 Agosto 2009, 16:06 pm
Mucha gracia,  ;-) ;-) ;-) ;-)

La verda lo necesitaba


Título: Re: Una pequeña ayudita por favor
Publicado por: jack06 en 31 Agosto 2009, 18:45 pm
Tambien hay una funcion que hace invertir la cadena se llama StrReverse

Código
  1. Private Sub Command1_Click()
  2.    Dim Cadena As String
  3.  
  4.    Cadena = Text1.Text
  5.  
  6.    ' Aca invertimos el texto
  7.    Cadena = StrReverse(Text1.Text)
  8.  
  9.    Text2.Text = Cadena
  10. End Sub
  11.  

Salu2


Título: Re: Una pequeña ayudita por favor
Publicado por: pungados en 31 Agosto 2009, 18:51 pm
Es mas, todavía mas corto el código:

Código:
Private Sub Command1_Click()
text2.text = StrReverse(text1.text) 
End Sub

 :rolleyes: