WHICH PROGRAMMER USED???

[ziizoo]

CAN ANYONE TELL ME WHAT PROGRAMMING TYPE FOR THIS PROGRAMME???
PLEASE HELP ME!!!


define osc 20

DEFINE LCD_DREG PORTD 'LCD data port
DEFINE LCD_DBIT 0 'LCD data starting bit 0 or 4
DEFINE LCD_RSREG PORTC 'LCD register select port
DEFINE LCD_RSBIT 7 'LCD register select bit
DEFINE LCD_EREG PORTC 'LCD enable port
DEFINE LCD_EBIT 5 'LCD enable bit
DEFINE LCD_RWREG PORTC 'LCD read/write port
DEFINE LCD_RWBIT 6 'LCD read/write bit
DEFINE LCD_BITS 8 'LCD bus size 4 or 8
DEFINE LCD_LINES 2 'Number lines on LCD
DEFINE LCD_COMMANDUS 2000 'Command delay time in us
DEFINE LCD_DATAUS 50 'Data delay time in us

TRISD = %00000000 'Set port D as output
TRISC = %00000000 'Set port C as output
TRISB = %11111111 'Set port B as input
low PORTC.6 'Set the R/W bit to low

pause 1000 'wait until the LCD initializes


SCAN:

LCDOUT $FE,1 'clear LCD display

IF PORTB.0=$0 AND PORTB.1=$0 AND PORTB.2=$0 AND PORTB.3=$0 AND PORTB.4=$0 AND
PORTB.5=$0 AND PORTB.6=$0 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "plz train the HM"

IF PORTB.0=$0 AND PORTB.1=$1 AND PORTB.2=$1 AND PORTB.3=$0 AND PORTB.4=$0 AND
PORTB.5=$0 AND PORTB.6=$0 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "one"

IF PORTB.0=$0 AND PORTB.1=$0 AND PORTB.2=$0 AND PORTB.3=$1 AND PORTB.4=$0 AND
PORTB.5=$0 AND PORTB.6=$0 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "two"

IF PORTB.0=$0 AND PORTB.1=$0 AND PORTB.2=$0 AND PORTB.3=$0 AND PORTB.4=$1 AND
PORTB.5=$0 AND PORTB.6=$0 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "left"

IF PORTB.0=$1 AND PORTB.1=$1 AND PORTB.2=$0 AND PORTB.3=$0 AND PORTB.4=$1 AND
PORTB.5=$0 AND PORTB.6=$0 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "jump"

IF PORTB.0=$0 AND PORTB.1=$0 AND PORTB.2=$1 AND PORTB.3=$0 AND PORTB.4=$1 AND
PORTB.5=$0 AND PORTB.6=$0 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "gil"

IF PORTB.0=$0 AND PORTB.1=$1 AND PORTB.2=$1 AND PORTB.3=$0 AND PORTB.4=$1 AND
PORTB.5=$0 AND PORTB.6=$0 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "three"

IF PORTB.0=$0 AND PORTB.1=$0 AND PORTB.2=$0 AND PORTB.3=$1 AND PORTB.4=$1 AND
PORTB.5=$0 AND PORTB.6=$0 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "stop"

IF PORTB.0=$0 AND PORTB.1=$1 AND PORTB.2=$0 AND PORTB.3=$0 AND PORTB.4=$0 AND
PORTB.5=$1 AND PORTB.6=$0 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "text"

IF PORTB.0=$0 AND PORTB.1=$0 AND PORTB.2=$1 AND PORTB.3=$0 AND PORTB.4=$0 AND
PORTB.5=$1 AND PORTB.6=$0 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "point"

IF PORTB.0=$1 AND PORTB.1=$0 AND PORTB.2=$0 AND PORTB.3=$1 AND PORTB.4=$0 AND
PORTB.5=$1 AND PORTB.6=$0 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "socks"

IF PORTB.0=$0 AND PORTB.1=$0 AND PORTB.2=$0 AND PORTB.3=$1 AND PORTB.4=$1 AND
PORTB.5=$1 AND PORTB.6=$0 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "green"

IF PORTB.0=$1 AND PORTB.1=$0 AND PORTB.2=$1 AND PORTB.3=$0 AND PORTB.4=$1 AND
PORTB.5=$0 AND PORTB.6=$1 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "word too long"

IF PORTB.0=$0 AND PORTB.1=$1 AND PORTB.2=$1 AND PORTB.3=$0 AND PORTB.4=$0 AND
PORTB.5=$1 AND PORTB.6=$1 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "word too short"

IF PORTB.0=$1 AND PORTB.1=$1 AND PORTB.2=$1 AND PORTB.3=$0 AND PORTB.4=$1 AND
PORTB.5=$1 AND PORTB.6=$1 AND PORTB.7=$0 THEN LCDOUT $FE.$C0, "word no match"

pause 1000 'delay for 1 second before scanning the next word

GOTO SCAN

END[/color]

 

[rajudp]

it is PIC basic program

 

[ziizoo]

right...

but which programmer?

c language, matlab, or else?

 

[rajudp]

it is a basic language program for PIC, i dont know which basic try picbasic or mikrobasic for pic

 

[ziizoo]

can you send me a basic program using microC languange?

i use 2x16 line LCD.