Device = 16F877
XTAL=4
Dim val1 As Float
Dim val2 As Float
Dim intarray[10] As Word
Dim floatarray[10] As Word
Declare LCD_INTERFACE 4
Declare LCD_DTPIN PORTB.4
Declare LCD_ENPIN PORTB.3
'DECLARE LCD_RWPIN PORTB.2
Declare LCD_RSPIN PORTB.1
val1=23.342
intarray[1]=val1
floatarray[1]=(val1-intarray[1])*1000
Print At 1,1,#intarray[1],",",#floatarray[1]
loop:
DelayMS 100
GoTo loop
This sample dosn't work if you use PIC16F84. Proton doesn't compile if you choose device = 16f84. I used only one byte long array but you can use long size arrays in your programs.