Gambas, ¿que es? Gambas es un editor visual de Basic, para GNU-Linux

Buena pregunta, Gambas es un editor visual de Basic, para GNU-Linux con licencia GPL.

Basic es un lenguaje de programación de alto nivel y muy fácil de “aprender”, yo lo aprendí con 10 años con mi SPECTRUM 48K, aunque si no programas se te va olvidando y algunas instrucciones se me han olvidado.

Gambas30

Por que vuelvo a programar, pues a causa de un curso que estoy haciendo de SQL SERVER, en el cual también damos Visual Basic, y como yo no me puedo quedar amarrado a un Sistema, todo lo que programamos en el curso lo vuelvo a reescribir en Gambas.

Este es uno de los códigos que he escrito para sacar la letra final del DNI.

' Gambas class file

Public Sub Button1_Click()

Dim resultat As Integer

‘Aquí creo una Array e introduzco los datos.

Dim lletres As String[] = [“T”, “R”, “W”, “A”, “G”, “M”, “Y”, “F”, “P”, “D”, “X”, “B”, “N”, “J”, “Z”, “S”, “Q”, “V”, “H”, “L”, “C”, “K”, “E”]

‘ esta es la operación simplificada para sacar el numero que da la letra.

resultat = txtnumdni.Text – ((Fix(txtnumdni.Text / 23)) * 23)

‘ Este es el código ( txtlletra.text ) que lo saca por pantalla y este el que compara la letra con el numero ( lletres[resultat] ) , como funciona en la Array hay letras colocadas en filas numeradas hacemos una llamada a la fila y nos da la letra.

txtlletra.text = lletres[resultat]

End

Public Sub Button2_Click()

Me.close

End

Hasta aquí perfecto no, pues bien en el formulario hacen falta dos Button y dos TextBox.

Como podéis ver el código intento que sea lo mas legible posible, y podáis observar como crear Arrays en Gambas a la vez de simplificar el código, otro paso que podía haber hecho era quitar la variable resultado y toda la formula ponerla dentro del Array

Espero tener un poco mas de tiempo para ir colocando proyectos.