Reverseme

Reverseme

Aquí les dejo el código de un simple programa que a los entusiastas que recién comienzan a programar en Gambas sabrán valorar, no así los programadores que sin dudas largaran una sonrisa jaja. Se trata simplemente de poner los caracteres de un texto cualquiera en forma inversa. Ejemplo: si ponemos la palabra HOLA y presionamos en el botón “Poner al revés ahora”, el resultado sera ALOH. La idea es ir compartiendo código, enlaces, manuales y lo que sea sobre la programación en gambas.

----------------------------------------- Comienzo de código -----------------------------------------

' Gambas class file

Public palabrax As String
Public revirtiendo As String
Public largoX As Integer


Public Sub Form_Open()
  Me.Center
  Me.Title = "Reverseme"
  TextBox1.Text = "odinevneiB"
  Button1.SetFocus
End

Public Sub Button1_Click()
  Dim palabrarevertida As String
  Dim contador As Integer

  If TextBox1.Text = Null Then
    Message.Info("No a ingresado texto")
    TextBox1.SetFocus
  Else

  palabrax = TextBox1.Text
  largoX = Len(palabrax)

  For contador = largoX To 1 Step -1
    revirtiendo = Mid$(palabrax, contador, 1)
    palabrarevertida &= revirtiendo
    TextBox2.Text = palabrarevertida
  Next
  Endif
End

Public Sub Button3_Click()
  Dim pregunta As String
    pregunta = Message.Question("Esta seguro que quiere salir del programa?", "Sí, estoy seguro", "No, quiero volver")
  Select Case pregunta
    Case 1
      Me.Close
    Case 2
      Return
  End Select
End

Public Sub Button2_Click()
  TextBox1.Text = ""
  TextBox2.Text = ""
  TextBox1.SetFocus
End

Public Sub Button4_Click()
  Message.Info("Programado por postapase \n http://postapase.blogspot.com/ \n Gambas 3.4 \n http://gambas.sourceforge.net/es/main.html")
End

----------------------------------------- Final del código -----------------------------------------

Descargar código fuente: reverseme-0.0.1.tar.gz