FiveTech Software tech support forums

Code: Select all

#include <stdint.h>
#include <avr/io.h>
#include <util/delay.h>
#include "RS485.h"
int main()
{
    char data = ' ';
    uint16_t Baud = 12;             // from datasheet for Clock = 1Mhz,4800bps
    
    DDRB |= (1<<PB2) | (1<<PB3) |(1<<PB4); // PB2,PB3,PB4 all output
    DDRD |= (1<<PD5);                      // PD5 all output
    
    PORTB = 0x00;
    PORTD = 0x00;
    
    RS485_init(12);                 // intialize RS485 Port @4800bps
    while(1)
    {
        data  = RS485_Receive_Byte();   // Wait for PC to send data via  RS485 port 
    
        // use a switch to select appropriate action receiving commands from PC 
        switch (data)
            {
                case 'A':   PORTB |= (1<<PB3); // Switch ON LED D4
                            break;
                    
                case 'B':   PORTB |= (1<<PB4); // Switch ON LED D5
                            break;
                    
                case 'C':   PORTB |= (1<<PB2); // Switch ON LED D2
                            break;
                    
                case 'D':   PORTD |= (1<<PD5); // Switch ON LED D3
                            break;
                    
                default:    PORTB &= ~(1<<PB3); // Switch OFF LED D4
                            PORTB &= ~(1<<PB4); // Switch OFF LED D5
                            PORTB &= ~(1<<PB2); // Switch OFF LED D2
                            PORTD &= ~(1<<PD5); // Switch OFF LED D3
                            break;
            }//end of switch
    }
    return 0;
    
    
}






//used for indicating where the code is at a given time ,Debugging purpose only
void LED_Debug_Blink(void)
{
    char i = 0;
    
    DDRB  |=  (1<<PB3); // PB3 Output
    
    for(i=0;i<2;i++)
    {
        PORTB |=  (1<<PB3); // PB3 = High,Lights up D4
        _delay_ms(500);
        PORTB &=  ~(1<<PB3); //PB3 = Low,Switch OFF D4
        _delay_ms(500);
    }
    
}

 

Code: Select all

function Drawer(x0,x1,x2,x3,x4,x5)
   local cDcb, nBytes
   local nComm := OpenComm( alltrim(x1),x2, 128 )
   local nError

   if empty(x1) .or. alltrim(x1)='-' .or. alltrim(x1)='SCREEN'
     return .t.
   endif

   if upper(left(x1,3))='LPT'
     BuildCommDcb( alltrim(x1)+":"+str(x2,4)+",n,8,1", @cDcb )
     SetCommState( cDcb )
     cNxLine=CRLF
   else
     if alltrim(x1)<>'SCREEN'
       x3=padl(left(x3,20),20,' ')
       x4=padl(left(x4,20),20,' ')
     endif
     cNxLine=CHR(13)
    if ! BuildCommDcb( alltrim(x1)+":"+str(x2,4)+",n,8,1", @cDcb )
      nError = GetCommError( nComm )
      Msgwait( x0+" : BuildCommDcb Error: " + Str( nError ),'',.3 )
    endif

    if ! SetCommState( cDcb )
      nError = GetCommError( nComm )
      Msgwait( "SetCommState Error: " + Str( nError ),'',.3 )
      return .t.
    endif
   endif

   if !empty(x5)
     for iii=1 to len(x5)
       if ( nBytes := WriteComm( nComm, x5[iii]) ) < 0
         nError = GetCommError( nComm )
         Msgwait( "WriteComm Error: " + Str( nError ),'',.1 )
       else
         Msgwait( x0+' : Ok','',.1 )
       endif
     next
   else
     if ( nBytes := WriteComm( nComm, x3+cNxLine ) ) < 0
       nError = GetCommError( nComm )
       Msgwait( "WriteComm Error: " + Str( nError ),'',.1 )
     else
       Msgwait( x0+' : Ok','',.1 )   // important, do not change the delay
     endif
     if !empty(x4)
       if ( nBytes := WriteComm( nComm, x4+cNxLine ) ) < 0
         nError = GetCommError( nComm )
         Msgwait( "WriteComm Error: " + Str( nError ),'',.1 )
       else
         Msgwait( x0+' : Ok','',.1 )
       endif
     endif
   endif

   if FlushComm( nComm, 0 ) != 0
      nError = GetCommError( nComm )
      Msgwait( x0+" : FlushComm Error: " + Str( nError ),'',.01 )
   endif

   if ! CloseComm( nComm )
      nError = GetCommError( nComm )
      Msgwait( "CloseComm Error: " + Str( nError ),'',.01 )
   endif

return nil