LCD 16x2 Crear nuevos caracteres con Mikrobasic & Isis de Proteus

Practica Nuevo carácter en Pantalla Pantalla de cristal liq uido LCD p rograma con Mikrobasic: Mikrobasic: Aquí s eleccionam eleccionamos os e n el menu superior project, project, ne w project y abre l a ventana que observa observa mos mos e n la siguiente grafica. grafica. Le p ondremos: ondremos:LCD_Nvo_caracter_PACMAN “

”

https://es.scribd.com/user/12337371/Carlos-Navarro-M Prof. Carl os Navarro Morín. Morín. 2010-201 2010-2017 7 [email protected]

AQUÍ DEJO LA INSTRUCCIÓN INSTRUCCIÓN EN MIKROBASIC: program LCD_Nvo_caracter_PACMAN program LCD_Nvo_caracter_PACMAN dim i dim i as byte dim j dim j as byte dim k dim k as byte const character1 as byte[ byte[8 ] = (0,14,23,28,31,14,0,0 0,14,23,28,31,14,0,0)'boca )'boca abierta const character2 as byte[ byte[8 ] = (0,14,23,31,31,14,0, 0,14,23,31,31,14,0,0)'boca 0)'boca cerrada const character3 as byte[ byte[8 ] = (0,0,0,6,6,0,0, 0,0,0,6,6,0,0,0) 0) 'pi ldora ldora sub procedure procedureCustomChar1( CustomChar1(dim dim pos_row pos_row as byte, byte, dim dim pos_char pos_char as byte) byte ) dim i i as byte dim LCD_Cmd(64) for i = 0 to 7 LCD_Chr_Cp(character1[i]) next i next i LCD_Cmd(LCD_RETURN_HOME) LCD_Chr(pos_row,p os_char, os_char, 0 ) end sub sub procedure procedureCustomChar2( CustomChar2(dim dim pos_row pos_row as byte, byte, dim dim pos_char pos_char as byte) byte ) dim j dim j as byt byte e LCD_Cmd(64 LCD_Cmd(64)) for j for j =0 = 0 to 7 LCD_Chr_Cp(character2[j]) next j next j LCD_Cmd(LCD_RETURN_HOME) LCD_Chr(pos_row,p os_char, os_char, 0 ) end sub sub procedure procedureCustomChar3( CustomChar3(di dim m pos_row as b yte, di dim m pos_char as byte) byte ) dim k as byte LCD_Cmd(64) for k = 0 to 7 LCD_Chr_Cp(character3[k]) next k next k LCD_Cmd(LCD_RETURN_HOME) LCD_Chr(pos_row,p os_char, os_char, 0 ) end sub


main: lcd_config(portb,7,6,5,4 lcd_config(portb,7,6,5,4,portb, ,portb,0,1,2 0,1,2)) repetir: i=1 i=1 for i= for i=1 1 to 16 lcd_cmd(lcd_clear) lcd_cmd(lcd_cursor_off) CustomChar1(1 CustomChar1( 1,i) CustomChar1(2 CustomChar1( 2,i) lcd_out(2 lcd_out(2 ,i," P ACMAN") ACMAN") delay_ms(100) next i next i

j=1 j=1 for j= for j=1 1 to 1 6 lcd_cmd(lcd_clear) lcd_cmd(lcd_cursor_off) CustomChar2(1 CustomChar2(1,j) CustomChar2(2 CustomChar2( 2,j) lcd_out(2 lcd_out(2,j," RETURN") delay_ms(100) next j next j

k=1 k=1 for k=1 for k=1 to 16 lcd_cmd(lcd_clear) lcd_cmd(lcd_cursor_off) CustomChar3(1 CustomChar3( 1,k) CustomChar3(2 CustomChar3( 2,k) lcd_out(2 lcd_out(2 ,i," TIEEE") delay_ms(100) next k next k goto repetir goto repetir End. 'f End. 'fina ina liza la instrucción instrucción


AHORA EL DIAGRAMA

EN “ISIS” DE SIMULADOR SIMULADOR PROTEUS

INDICACIONES FINALES PARA HACER DIAGRAMA.


Recuerda Recuerda que puedes puedes agregar nuevos car acteres con la herramienta de Mikrobas ic en el menu menu en “Tools, LCD Custom

Character” Un cordial saludo y espero les sirva la información. https://es.scribd.com/user/12337371/Carlos-Navarro-M Prof. Carl os Navarro Morín. Morín. 2010-201 2010-2017 7 [email protected]

LCD 16x2 Crear nuevos caracteres con Mikrobasic & Isis de Proteus

Recommend Documents