/*Programa: Nif
Autores: Lidia y
Pablo
Descripción: Este
programa devuelve a
partir del DNI, sin
letra, el NIF, es decir,
DNI+letra*/
Program
Nif
Method Main()
// Definimos un vector
de índice 23 y con
elementos
//
caracteres
Var
vector
As
String[23]
vector[1]="T"
vector[2]="R"
vector[3]="W"
vector[4]="A"
vector[5]="G"
vector[6]="M"
vector[7]="Y"
vector[8]="F"
vector[9]="P"
vector[10]="D"
vector[11]="X"
vector[12]="B"
vector[13]="N"
vector[14]="J"
vector[15]="Z"
vector[16]="S"
vector[17]="Q"
vector[18]="V"
vector[19]="H"
vector[20]="L"
vector[21]="C"
vector[22]="K"
vector[23]="E"
//mostramos la consola,
ponemos fuente verdana
tamaño
//24, color naranja de fondo y la pluma
azul
ShowConsole()
SetConsoleFont("Verdana",24)
SetConsoleBackgroundColor(orange)
SetConsoleFontColor(blue)
//pedimos al usuario su
nombre (no es necesario
pero
//queda bonito :-)
Var
Usuario
As
String=ConsoleReadLine("Por
favor, introduce tu
nombre: ",True)
If
Usuario<>""
Then
ConsoleWriteLine("Hola
"+Usuario)
Else
ConsoleWriteLine("No
has introducido tu
nombre, chiao!")
Return //salimos inmediatamente
del programa
End If
Var
x
As
Integer=ConsoleReadInt("Introduce
tu DNI sin letra: ",
True)
//detectamos posibles
errores al
introducir el DNI
While
x<=0
Or
x>99999999
ConsoleWriteLine("Por
favor, tiene que ser
mayor que cero y menor
que 99.999.999")
x=ConsoleReadInt("Introduce
tu DNI sin letra: ",
True)
End While
//se calcula el resto de
dividir x entre 23
Var
resto
As
Integer=x
Mod
23
ConsoleWriteLine("")
ConsoleWriteLine(Usuario+",
tu NIF es "+x+"-"+vector[resto+1])
//efecto de sonido
durante 2 segundos,
¿queda bien?
PlaySound("Utopia
Asterisk.wav")
Delay(2000)
End Method
End Program
