LCD won't display?

Device = 18F1320
Clock = 8 // 8MHz clock
Config OSC = INTIO2

// some LCD options...
#option LCD_DATA = PORTB.0 // Assign the LCD connections
#option LCD_EN = PORTB.5 //
#option LCD_RS = PORTB.4 //

// import LCD library...
Include "IntOSC8.bas"
Include "LCD.bas"
Include "convert.bas"
Dim Variable As Word

// Start Of Program...
DelayMS(150) // Let the LCD warm up
LCD.Cls // Clear the LCD screen
LCD.WriteAt(1,1,"Hello World")
// Send some text to the LCD
Variable = 0 // Clear the "Variable" register
While True
Inc(Variable) // Increment the "Var1" register
// Convert to a string,
// and always display 5 characters
LCD.WriteAt(2,1,Convert.DecToStr(Variable,5))

DelayMS(1000) // Delay for 1 second
Wend

Click to expand...

'
device and clock
Device = 18f1320




'*********************************************************************
'Compiler directives like oscillator settings
Clock = 8 // 8mhz clock
config OSC=INTIO2

'*********************************************************************
'#Options for include statements - must be before include statements

// some LCD options...
#option LCD_DATA = PORTb.0 // Assign the LCD connections
#option LCD_EN = PORTb.5 //
#option LCD_RS = PORTb.4 //



'*********************************************************************
'Includes

// import modules...
Include "DS18B20.bas" //temperature module
Include "convert.bas"
Include "usart.bas" //usart module
Include "LCD.bas" //LCD module if not using usart
include "intOSC8.bas" //osc module
include "utils.bas"







'*********************************************************************
'Dimension Statements (variable and constants

Dim
TempA As ShortInt, //temp a id farienheight
TempB As Word //temp b id metric
Dim Variable As Word
dim index as byte

'*********************************************************************
'Subroutines and functions


'Notice Function name, code steps, function end. Indenting shows what's contained 'inside the function or subroutine

'Note: If any subroutine calls another subroutine or function, the called sub or
' function must be placed first in the listing

'*********************************************************************
'Program initialization - only gets done once. Define initial variable conditions and etc.

'Note: The above happens only once when the program initializes.


'*********************************************************************
'Main program loop. This continues forever
//USART
//333333333333333333333333333333333333333333333333333
//SetBaudrate(br19200) // for usart
SetPin(PORTa.3) // set up port pin ra.3 as input of temp sensor

// Find() will search the bus for a single DS1820 device
// and load its ROM ID into the DS1820 public variable RomID - you
// could do this manually. For example, RomID = MyRomID...

If DS18B20.Find Then //locate a sensor
While true // convert date to readable format
Convert
GetTemp(TempA, TempB) // get readable data to display
LCD.WriteAt(2,1,convert.(DecToStr(TempA),".",DecToStr(TempB,4), " C", ) //display data SYNTAX eRROr
DelayMS(1000)
Wend
Else
USART.Write("No device found", 13, 10)
EndIf
//33333333333333333333333333333333333333333333333333333333333333
//LCD
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
DelayMS(150) // Let the LCD warm up
LCD.Cls // Clear the LCD screen
LCD.WriteAt(1,1,"Hello World") // Send some text to the LCD
Variable = 0 // Clear the "Variable" register
While True
Inc(Variable) // Increment the "Var1" register
// Convert to a string,
// and always display 5 characters
LCD.WriteAt(2,1,Convert.DecToStr(TempA))

DelayMS(1000) // Delay for
wend
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx



'Note: the above goes on forever. This is the main program and all action
' is directed from within this loop
//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Click to expand...

Device = 18F1320
Clock = 8 // 8MHz clock
Config OSC = INTIO2, WDT = OFF, LVP = OFF

Include "OW.bas"
Include "USART.bas"
Include "DS18B20.bas"
Include "CONVERT.bas"

Dim Temperature As Word
Dim i As Byte

OSCCON = $72 // select 8MHz internal clock
ADCON1 = $7f //all digital
TRISA.3=0 //A3 output
PORTA.3=1 //and high
SetBaudrate(br9600)
OW.SetPin(PORTA.4)
While true
If OW.Reset Then
OW.WriteByte(owReadROM) //Skip ROM
USART.Write("Rom = ")
For i = 0 To 7
USART.Write(HexToStr(OW.ReadByte()))
Next
OW.Reset
OW.WriteByte(owSkipROM) //Skip ROM
OW.WriteByte($44) //Convert
OW.Reset
OW.WaitForHigh //wait for convert to finish
OW.Reset
OW.WriteByte(owSkipROM) //Skip Rom
OW.WriteByte($be) //Read Scratch Pad
Temperature=OW.ReadByte()
Temperature=(Temperature+OW.ReadByte()*128)changing this formula
USART.Write(" Temperature = ",DecToStr(Temperature/4))

and this

Click to expand...

If (Temperature And 1) = 1 Then
USART.Write(".5")
EndIf
USART.Write("C",13,10)
Else
USART.Write("No device found", 13, 10)
EndIf
DelayMS (100)
Wend
End

Click to expand...