ATOTCLIC Aplicaciones,Linux,Seguridad,Sistema,Video Gambas, ¿que es? Gambas es un editor visual de Basic, para GNU-Linux

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.

 

Related Post