Pic Con Pic Ide Simulator Basicingjaop

download Pic Con Pic Ide Simulator Basicingjaop

of 16

description

pic simulator

Transcript of Pic Con Pic Ide Simulator Basicingjaop

PIC CON PIC IDE SIMULATOR [email protected]/www.ingjaop.blogspot.comIng.JaimeAlbertoOcampoPrezManizalesColombia11_2009/DerechosreservadosPgina65rvd3 = vd3EndifGoto inicioEndAhora vamos a mostrar tambin el valor en voltaje, para calcular el voltaje a partir del valor decimal, usar la formula,Voltios = Vd * 5/ 1024Para obtener un decimal de precisin cambiamos 5 por50,Voltios = Vd * 50 / 1024Para obtener la parte entera calculamos , V1= Voltios / 10Para obtener el decimal calculamos, V2 =Voltios Mod 10El programa es el siguienteDefine LCD_LINES = 2Define LCD_CHARS = 16Define LCD_BITS = 8Define LCD_DREG = RBDefine LCD_DBIT = 0Define LCD_RSREG = RCDefine LCD_RSBIT = 0Define LCD_EREG = RCDefine LCD_EBIT = 2Define LCD_RWREG = RCDefine LCD_RWBIT = 1Dim vd3 As WordDim rvd3 As WordDim voltios As WordDim v1 As ByteDim v2 As ByteLcdinit 0Lcdcmdout LcdClearrvd3 = 2000Lcdcmdout LcdLine1HomeLcdout "Decimal =", #vd3Lcdcmdout LcdLine2HomeLcdout "Voltios = ", #v1, ",", #v2

PIC CON PIC IDE SIMULATOR [email protected]/www.ingjaop.blogspot.comIng.JaimeAlbertoOcampoPrezManizalesColombia11_2009/DerechosreservadosPgina66inicio:Adcin 3, vd3voltios = vd3 * 50 / 1024v1 = voltios / 10v2 =voltios Mod 10If vd3 rvd3 ThenLcdcmdout LcdLine1Pos(11)Lcdout""Lcdcmdout LcdLine1Pos(11)Lcdout #vd3Lcdcmdout LcdLine2Pos(11)Lcdout""Lcdcmdout LcdLine2Pos(11)Lcdout #v1, ",", #v2rvd3 = vd3EndifGoto inicioEndEjemplo:Mostrar en un LCD el valor de temperatura dada por un LM35.

PIC CON PIC IDE SIMULATOR [email protected]/www.ingjaop.blogspot.comIng.JaimeAlbertoOcampoPrezManizalesColombia11_2009/DerechosreservadosPgina67Recordemos que un LM35 es un sensor de temperatura, con rango de -55 a 150 grados centgrados, nos entrega 10milivoltios por grado centgrado.Define LCD_LINES = 2Define LCD_CHARS = 16Define LCD_BITS = 8Define LCD_DREG = RBDefine LCD_DBIT = 0Define LCD_RSREG = RCDefine LCD_RSBIT = 0Define LCD_EREG = RCDefine LCD_EBIT = 2Define LCD_RWREG = RCDefine LCD_RWBIT = 1Dim vd0 As WordDim rvd0 As WordDim grados As WordDim v1 As ByteDim v2 As ByteLcdinit 0Lcdcmdout LcdClearrvd0 = 2000Lcdcmdout LcdLine1HomeLcdout "Temperatura Lm35"Lcdcmdout LcdLine2HomeLcdout "Grados C. = ", #v1, ",", #v2inicio:Adcin 0, vd0grados = vd0 * 50 / 1024v1 = gradosv2 = grados Mod 10If vd0 rvd0 ThenLcdcmdout LcdLine2Pos(13)Lcdout""Lcdcmdout LcdLine2Pos(13)Lcdout #v1, ",", #v2rvd0 = vd0EndifGoto inicioEnd