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.
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.
