LED control via USART and VB6 in MikroC

[pinoytsikboy]

I have this program from one tutorial site which i want to modify to control LED and reset the PIC via USART and VB6. i added some modifcation to allow LED on when it receive any data from USART. The code display text to an LCD. simulated this in proteus and i used virtual serial port driver. I need help to detect command or text output from keyboard to control LED. Here is the code. any help is appreciated.

unsigned short pos, i;
char lcdtext [41];
void main (){
TRISA =0;
PORTA =0;
Usart_Init (9600);
Lcd_Init (&PORTB);
i=0;
while (1)
{
if(Usart_Data_Ready ())
{
lcdtext = Usart_Read ();

i++;
if (i==40)
{PORTA.f0 =1;
PORTA.f1 = 1;
i=0;
Lcd_Cmd (LCD_RETURN_HOME);
for (pos=0;pos<40;pos++ )
{
Lcd_Chr_CP (lcdtext[pos]);

if (pos==16) Lcd_Cmd (LCD_SECOND_ROW);
}
Usart_Write('Y');
}
}
}
}

[Math]

It could be usefull if you would say what do you think the program does..

[pinoytsikboy]

as mentioned, the program code simply put text in the VB6 form in the LCD display via USART. What i what to do now is to put in specific text to trigger LED using the USART. I am still new to Mikro C and not familiar on how to compare file data from USART with the text characters. Hope this help clear up things

[boris]

Please post the type of PIC you are using. Several PICs have ADCs on PORTA, so try disablind the A/D converters.

for PIC16F88
ANSEL = 0b00000000;  //set all to digital
ADCON0.ADON = 0b0;  //disable A/D

[rod27cn]

can u post the schematic of the board where u want to run the program? It would be a little better to visualized what you want and how to give some advise if u have the schematic.

[eYe]

Is it LED or LCD or MIX.?
also need to see your circuit firsbefore understanf your code..t

[Math]

Please post the type of PIC you are using. Several PICs have ADCs on PORTA, so try disablind the A/D converters.

for PIC16F88
ANSEL = 0b00000000;  //set all to digital
ADCON0.ADON = 0b0;  //disable A/D

A PIC16F88 does't have an USART on board so I think this isn't very usefull ..

[pinoytsikboy]

sorr for l8 reply been out for a while. i'm using 16f877a. managed to work it out but it take three tries to functions. needs to modify it to respond immediately. here is the code. trying to upload the proteus schematic, no lucK. how to upload proteus schematic here? need help on that one too, sorry.
char lcdtext [3];
unsigned char lcd [3], buf ;
unsigned char buffer[]={0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00} ;
void gets(char lcd[]);
char  *tc1 = "n1";
char *tc2 ="n2";

void main (){
TRISA =0;
PORTA =0;
Usart_Init (9600);
Lcd_Init (&PORTB);

buf=0;
while (1)
{
 if(Usart_Data_Ready ())
 {

   gets (lcd);
   buffer = atoi(lcd);

    if (buffer == tc1)  { portA.f0 = 1;  Lcd_Out(1,1,"on1"); }
   else if (buffer ==tc2){ portA.f1 = 1;  Lcd_Out(1,1,"on2");}
          portA.f0 = ~portA.f0 ;
       Usart_Write('Y');


        }
      }
    }

  void gets(unsigned char lcd[])
{

 char rx_count=0; //counter for character array(string)
 char flag=1; //loop status

 while(flag==1)
 {
  if(Usart_Data_Ready()==1)
  {
   lcd[rx_count]=Usart_Read();
   if(lcd[rx_count]==3) flag=0;
   rx_count++;
  }
 }
}

[rod27cn]

you can upload it using www.rapidshare.com, then post the link.