AVRFreaks.net

#define FOSC 1843200// Clock Speed
#define BAUD 9600
#define MYUBRR FOSC/16/BAUD-1
void main( void )
{
...
USART_Init ( MYUBRR );
...
}
void USART_Init( unsigned int ubrr)
{
/* Set baud rate */
UBRRH = (unsigned char)(ubrr>>8);
UBRRL = (unsigned char)ubrr;
/* Enable receiver and transmitter */
UCSRB = (1<<RXEN)|(1<<TXEN);
/* Set frame format: 8data, 2stop bit */
UCSRC = (1<<URSEL)|(1<<USBS)|(3<<UCSZ0);
}

void USART_Transmit( unsigned char data )
{
/* Wait for empty transmit buffer */
while ( !( UCSRA & (1<<UDRE)) )
;
/* Put data into buffer, sends the data */
UDR = data;
}
void USART_Transmit( unsigned int data )
{
/* Wait for empty transmit buffer */
while ( !( UCSRA & (1<<UDRE))) )
;
/* Copy 9th bit to TXB8 */
UCSRB &= ~(1<<TXB8);
if ( data & 0x0100 )
UCSRB |= (1<<TXB8);
/* Put data into buffer, sends the data */
UDR = data;
}

S = S + Chr(akey)

Dim S As String * 60 , Z1 As String * 15 , A As String * 15
Dim Akey As Byte

Do
  ' read string from uart that is terminated with CR
  S = "" '<===== CLEAR THE STRING
  Do
    Akey = Waitkey()
    If Akey = 13 Then Goto cmdRecvd
    S = S + Chr(akey)
  Loop

cmdRecvd:
  ' Parse string..
  Print "Rotctl values " ; S ; " !"
  Z1 = Mid(s , 3 , 5) : Print Z1
  A = Mid(s , 11 , 5) : Print A
Loop

Dim str as string * 60
Dim substr(5) As String * 15
Dim azimuth as Single, elevation as Single

str = "az045.00 el110.00"

' split into substrings on space
Split( str , substr(1) , " ")

' get rid of first 2 characters in substrings
substr(1) = RIGHT(substr(1), len(substr(1)) - 2)
substr(2) = RIGHT(substr(2), len(substr(2)) - 2)

' convert strings to numeric values
azimuth = Val(substr(1))
elevation = Val(substr(2))

Dim Akey As Byte , S As String * 80 , Azimuth As Integer , Elevation As Integer , Substr(5) As String * 10 , Bcount As Byte , J As Byte
Dim W1 As Word , A As Single , C As Integer , W2 As Word , A1 As Single , C1 As Integer
Do
 S = ""

Do
Akey = Waitkey()

If Akey = 13 Then Goto Thanks
                              '
 S = S + Chr(akey)


Loop


Thanks:
Print "Rotctl values " ; S

Bcount = Split(s , Substr(1) , " ")

For J = 1 To Bcount

Next

 If Substr(1) = "SA" Then
 Porta = 0
 Elseif Substr(1) = "p" Then
     W1 = Getadc(3)
     A = W1 + 0.6613
     C = A / 2.1867
     W2 = Getadc(7)
     Locate 2 , 1

     A1 = W2 + 33.21
     C1 = A1 / 6.261
     Print "AZ" ; C ; "EL" ; C1                             'this value should be returned to command window


 Else


Substr(1) = Mid(substr(1) , 3 , 6)                          ': Print Substr(1)
Substr(2) = Mid(substr(2) , 3 , 6 )                         ': Print Substr(2)

' convert strings to numeric values

Azimuth = Val(substr(1)) : Print Azimuth
Elevation = Val(substr(2)) : Print Elevation



If Azimuth > 45 Then
Porta.0 = 1
Porta.1 = 0
Porta.2 = 1
Else
Print "no operation "
End If
End If
Loop


 End

if s = "p" Then

if Substr(1) = "p" Then

Print "AZ" ; C ; "EL" ; C1 ; Chr(10) ;

substr(1) = RIGHT(substr(1), len(substr(1)) - 2)

Dim templen as integer
templen = len(substr(1))
substr(1) = RIGHT(substr(1), templen - 2)

Dim ti as integer
ti = len(substr(1))
ti = ti - 2
substr(1) = RIGHT(substr(1), ti)

T1 = Len(substr(1))
T1 = T1 - 2
T2 = Len(substr(2))
T2 = T2 - 2
Substr(1) = Right(substr(1) , T1)
Substr(2) = Right(substr(2) , T2)