Az_current_position
El_current_position
jeżeli przypiszę do niej wartości z palca
, czyli Az_current_position=150
El_current_position=10
jest ok jeżeli chcę przypisać jej wartość z zmiennej Al_position i El_position nie działa
kod całości poniżej
[syntax=basic4gl]$regfile = "m644pdef.dat" ' specify the used micro
$crystal = 16000000
$baud = 19200
Config Serialin = Buffered , Size = 20 'konfiguracja bufora wejsciowego
Config Serialout = Buffered , Size = 20 'konfiguracja bufora wyjsciowego
'Configuring the ADC for maximum resolution 10bits (0-1023)
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
'-------------------------------------------------------------------------------
'enable receive isr
Enable Interrupts
'Declaring all Variables
Dim Firmware As String * 5
Firmware = "1.15c"
'Dim Beepcount As Word
'Dim Beeplength As Word
'Dim Beeptone As Byte
'Dim Az As Single
'Dim El As Single
Dim Az_current_position As Word
Dim El_current_position As Word
Dim Az_position As Word
Dim El_position As Word
Dim El_temp_position As Word
Dim Az_temp_position As Word
'Dim Az_preset As Word
'Dim El_preset As Byte
'Dim Az_preset_temp As Word
'Dim El_preset_temp As Byte
'Dim El_prepark As Byte
'Dim Az_prepark As Word
'Dim Az_preset1 As Word
'Dim El_preset1 As Byte
'Dim Az_preset2 As Word
'Dim El_preset2 As Byte
'Dim Az_preset3 As Word
'Dim El_preset3 As Byte
'Dim Az_preset4 As Word
'Dim El_preset4 As Byte
'Dim Az_park As Word
'Dim El_park As Byte
'Dim Az_adress As Byte
'Dim El_adress As Byte
'Dim Az_tempa As Word
'Dim El_tempa As Byte
'Dim Az_tempb As Word
'Dim El_tempb As Byte
'Dim Azadc As Word
'Dim Eladc As Word
'Dim Az_resolution As Single
'Dim El_resolution As Single
'Dim Az_span As Word
'Dim El_span As Word
'Dim Endazy As Byte ' X axis end coordinate for Azimuth arrow
'Dim Endazx As Byte ' X axis end coordinate for Azimuth arrow
'Dim Endelx As Byte
'Dim Endely As Byte '
'Dim Az_needle As Word 'Value from 0 to 260 for Azimuth arrow positioning
'Dim Az_needletemp As Word 'Temporary Value from 0-260 for Azimuth arrow resetting
'Dim El_needle As Word 'Value from 0 to ??? for Elevation arrow positioning
'Dim El_needletemp As Word 'Temporary Value from 0-??? for Elevation arrow resetting
'Dim Azxlinestart As Byte
'Dim Azylinestart As Byte
'Dim Elxlinestart As Byte
'Dim Elylinestart As Byte
'Dim Azimuth As Word
'Dim Elevation As Word
'Dim Az360multiplier As Single
'Dim El90multiplier As Single
'Dim El180multiplier As Single
'Dim Az450multiplier As Single
'Dim Az360pixconv As Single
'Dim El180pixconv As Single
'Dim Az450pixconv As Single
'Dim El90pixconv As Single
'Dim El_deadband As Byte
'Dim Az_deadband As Byte
'Dim Az_0_calibration As Word
'Dim Az_450_calibration As Word
'Dim Az_360_calibration As Word
'Dim El_0_calibration As Word
'Dim El_90_calibration As Word
'Dim El_180_calibration As Word
'Dim Az_mode As Byte '0=360 degree mode, 1=450 degree mode
'Dim El_mode As Byte '0=90 degree mode, 1=180 degree mode
'Dim Az_offset As Word
'Dim El_offset As Word
'Dim Az_degrees As Word
'Dim El_degrees As Word
'Dim Az_optimiser As Integer
'Dim El_optimiser As Integer
'Dim Park_az As Word
'Dim Park_el As Byte
'Dim Keystep_el As Byte
'Dim Keystep_az As Byte
'Dim Device As Byte '0= Az only, 1= Azimuth and Elevation
'Dim Az_max_calibration As Word 'Maximum calculated ADC value for selected AZ mode
'Dim El_max_calibration As Word 'Maximum calculated ADC value for selected EL mode
'Dim Calbit As Bit
'Dim Caladc As Word
'Dim Az_max_degree As Word 'Maximum calculated Decimal value for selected AZ mode
'Dim El_max_degree As Word 'Maximum calculated Decimal value for selected EL mode
'Dim Mode_select As Byte '0= Manual mode, 1= Preset/Tracking mode
'Dim Send_mode_status As Bit
'Graphical Azimuth X and Y axis offset
'Dim Azxoffset As Integer
'Dim Elxoffset As Integer
'Dim Azyoffset As Integer
'Dim Elyoffset As Integer
'Dim Countdown As Byte
Const Cmaxchar = 3
Dim Char_no As Byte 'byte counter char number
Dim Serial_buffer As String * Cmaxchar 'serial buffer
Dim Rs_input As Byte
Dim Az_rs232 As String * 5
Dim El_rs232 As String * 5
Dim Az_serial As Word
Dim El_serial As Word
Dim Az_serial_temp As String * 3
Dim El_serial_temp As String * 3
Dim Command_ready As Bit
Dim Y_command As String * 2 'max number of characters W ttt XXX YYY command
Dim Serial_up As Bit
Dim Serial_down As Bit
Dim Serial_ccw As Bit
Dim Serial_cw As Bit
'Dim Serial_mode_select As Bit
'Dim Box_position As Byte
'Dim Box_position_temp As Byte
'Dim Box_xleft As Byte
'Dim Box_top As Byte
'Dim Box_bottom As Byte
'Dim Box_xright As Byte
'Dim Menu As Byte
'Dim Items As Byte
'Dim No_action_timer As Single
'Dim Cleardata As Byte
' 'Control bits used in Preset/Tracking mode
'Dim Rotor_az_bit As Bit
'Dim Rotor_el_bit As Bit
'Dim Preset_az_bit As Bit
'Dim Preset_el_bit As Bit
'Dim Deadband_az_bit As Bit
'Dim Deadband_el_bit As Bit
'-- Y line in message box variable
Dim Message_line As Byte
Dim Screensaver_counter As Long
Dim Screensaver_bit As Bit
Dim Timetemp As Byte , I As Byte , Tm(5) As Byte , Answer As String * 1
Dim Second As Byte , Minute As Byte , Hour As Byte
Dim Time_pos As Byte
Dim Time_value As Byte
'-------------------------------------------------------------------------------
Dim Rs_in(8) As String * 1
Dim Aut_az As String * 3
Declare Sub No_command
'-------------------------------------------------------------------------------
Az_current_position = 333
El_current_position = 23
Cursor Off
Cls
Config Lcd = 16 * 4
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
Do
Locate 2 , 1 : Lcd "Command:" ; Y_command
[b] If Rs_input = 87 Then
For I = 2 To 8 Step 1
Rs_in(i) = Inkey()
Next I
End If
Az_serial_temp = Rs_in(2) + Rs_in(3) + Rs_in(4)
If Len(az_serial_temp) = 3 Then
Az_position = Val(az_serial_temp)
El_serial_temp = Rs_in(6) + Rs_in(7) + Rs_in(8)
If Len(el_serial_temp) = 3 Then
El_position = Val(el_serial_temp)
End If
End If[/b]
Locate 3 , 1 : Lcd Rs_in(2) ; Rs_in(3) ; Rs_in(4) ; Rs_in(5) ; Rs_in(6) ; Rs_in(7) ; Rs_in(8)
Gosub Rec_isr
Loop
Sub No_command
Y_command = "00"
Char_no = 0
Serial_buffer = ""
End Sub
'=========================== start RS232 INT receive
Rec_isr:
Rs_input = Ischarwaiting()
If Rs_input = 1 Then 'we got something
Rs_input = Inkey()
If Rs_input > 0 Then
'read only one character in one time
'each characters receive in each INT
'we can collect command in INT procedure
'and ready COMMAND back to program
'we can use FLAG 0/1 to mark "is some command"
'and program reckognized command from string
' or we can reckognize command in INT procedure
' collect complete buffer / string and reckognize string
' and use flag 1/2/3/4/... or W/M/S/B/C ....
' and put ready value to wariables..
' all chars are glued in one string below
Incr Char_no
'upcase procedure :-)
If Rs_input >= 97 And Rs_input <= 122 Then Rs_input = Rs_input - 32
If Char_no = 1 And Rs_input = 13 Then 'EMPTY LINE - FIRST ENTER before collecting COMMAND
'Call No_command
Else
Locate 1 , 1 : Lcd Az_current_position : Locate 1 , 7 : Lcd El_current_position
'============================== COMMNAD RECKOGNIZE =======================================
If Char_no = 1 Then 'check command first letter
Y_command = Chr(rs_input) 'assign firs letter to command variable
Else 'check rest characters
Select Case Y_command
'0 W M S B C C2 U D L R
Case "W": 'read 6 next char + ENTER
'WAAAEEE/ eight char as ENTER
' if more or less char than seven+ENTER - command ignored
If Rs_input <> 13 Then
If Rs_input < 48 Or Rs_input > 57 Then
If Rs_input <> 32 Then
'Call No_command
'Print ">"
End If
End If
End If
If Char_no < 8 And Rs_input = 13 Then 'ENTER before collect XXX YYY
'Call No_command
End If
Serial_buffer = Serial_buffer + Chr(rs_input)
If Char_no = 4 Then
Az_serial = Val(serial_buffer)
Serial_buffer = ""
End If
If Char_no = 5 And Rs_input <> 32 Then 'SPACE after XXX YYY
' Call No_command ' delete buffer
Print ">" '
End If
If Char_no = 5 And Rs_input = 32 Then 'SPACE after XXX YYY
Serial_buffer = "" ' delete buffer
End If
If Char_no = 8 Then
El_serial = Val(serial_buffer)
Serial_buffer = ""
End If
If Char_no = 9 And Rs_input = 13 Then 'ENTER after XXX YYY
Command_ready = 1
Preset_az_bit = 1
Preset_el_bit = 1
Az_preset = Az_serial
El_preset = El_serial
Az_preset_temp = Az_serial
El_preset_temp = El_serial
Char_no = 0
Serial_buffer = "" ' delete
End If
If Char_no > 9 Then 'to long W commnad
'Call No_command
End If
If Az_preset > Az_max_degree Then
'Call No_command
End If
If El_serial > El_max_degree Then
'Call No_command
End If
Case "M": 'read 3 next char + ENTER
'MXXX/ fifth char as ENTER
' if more or less char than four+ENTER - command ignored
If Rs_input <> 13 Then
If Rs_input < 48 Or Rs_input > 57 Then
'Call No_command
End If
End If
If Char_no < 5 And Rs_input = 13 Then 'ENTER before collect XXX YYY
'Call No_command
End If
Serial_buffer = Serial_buffer + Chr(rs_input)
If Char_no = 4 Then
Az_serial = Val(serial_buffer)
Serial_buffer = ""
End If
If Char_no = 5 And Rs_input = 13 Then 'ENTER after XXX
Command_ready = 1
Preset_az_bit = 1
Az_preset = Az_serial
Az_preset_temp = Az_serial
Char_no = 0
Serial_buffer = ""
End If
If Char_no > 5 Then 'to long M commnad
'Call No_command
End If
If Az_preset > Az_max_degree Then
'Call No_command
End If
Case "A": 'read 3 next char + ENTER
'MXXX/ fifth char as ENTER
' if more or less char than four+ENTER - command ignored
If Rs_input <> 13 Then
If Rs_input < 48 Or Rs_input > 57 Then
' Call No_command
End If
End If
If Char_no < 5 And Rs_input = 13 Then 'ENTER before collect XXX YYY
'Call No_command
End If
Serial_buffer = Serial_buffer + Chr(rs_input)
If Char_no = 4 Then
Az_serial = Val(serial_buffer)
Serial_buffer = ""
End If
If Char_no = 5 And Rs_input = 13 Then 'ENTER after XXX
Command_ready = 1
Preset_az_bit = 1
Az_preset = Az_serial
Az_preset_temp = Az_serial
Char_no = 0
Serial_buffer = ""
Waitms 100
Print "1"
End If
If Char_no > 5 Then 'to long M commnad
'Call No_command
End If
If Az_preset > Az_max_degree Then
'Call No_command
End If
Case "S":
'all STOP
If Char_no = 2 And Rs_input = 13 Then 'ENTER after STOP
Command_ready = 1
Char_no = 0
Serial_buffer = ""
'Call Rotor_stop
Else
'Call No_command
End If
Case "B":
If Char_no = 2 And Rs_input = 13 Then 'ENTER after B command
Command_ready = 1
Char_no = 0
Serial_buffer = ""
If El_current_position < 10 Then
El_rs232 = "+000" + Str(el_current_position)
Else
If El_current_position < 100 Then
El_rs232 = "+00" + Str(el_current_position)
Else
El_rs232 = "+0" + Str(el_current_position)
End If
End If
Print El_rs232
Else
'Call No_command
End If
Case "C":
If Char_no = 2 And Rs_input = 13 Then
Command_ready = 1
Char_no = 0
Serial_buffer = ""
If Az_current_position < 10 Then
Az_rs232 = "+000" + Str(az_current_position)
Else
If Az_current_position < 100 Then
Az_rs232 = "+00" + Str(az_current_position)
Else
Az_rs232 = "+0" + Str(az_current_position)
End If
End If
Print Az_rs232 '
Else
If Char_no = 2 And Rs_input = 50 Then 'if SECOND char=2 then next step
Else
If Char_no = 3 And Rs_input = 13 Then 'if THIRD char=ENTER then next step
Command_ready = 1
Char_no = 0
Serial_buffer = ""
If Az_current_position < 10 Then
Az_rs232 = "+000" + Str(az_current_position)
Else
If Az_current_position < 100 Then
Az_rs232 = "+00" + Str(az_current_position)
Else
Az_rs232 = "+0" + Str(az_current_position)
End If
End If
If El_current_position < 10 Then
El_rs232 = "+000" + Str(el_current_position)
Else
If El_current_position < 100 Then
El_rs232 = "+00" + Str(el_current_position)
Else
El_rs232 = "+0" + Str(el_current_position)
End If
End If
Print Az_rs232 ; El_rs232 : Locate 4 , 1 : Lcd Az_rs232 ; El_rs232 '
Else
' Call No_command
End If
End If
End If
Case "U"
If Char_no = 2 And Rs_input = 13 Then
Command_ready = 1
Char_no = 0
Serial_buffer = ""
If Mode_select = 0 Then
Serial_up = 1
Serial_down = 0
Elseif Mode_select = 1 Then
End If
Else
Serial_up = 0
'Call No_command
End If
Case "D"
If Char_no = 2 And Rs_input = 13 Then
Command_ready = 1
Char_no = 0
Serial_buffer = ""
If Mode_select = 0 Then
Serial_up = 0
Serial_down = 1
Elseif Mode_select = 1 Then
End If
Else
Serial_down = 0
'Call No_command
End If
Case "L"
If Char_no = 2 And Rs_input = 13 Then
Command_ready = 1
Char_no = 0
Serial_buffer = ""
If Mode_select = 0 Then
Serial_ccw = 1
Serial_cw = 0
Elseif Mode_select = 1 Then
End If
Else
Serial_ccw = 0
' Call No_command
End If
Case "R"
If Char_no = 2 And Rs_input = 13 Then
Command_ready = 1
Char_no = 0
Serial_buffer = ""
If Mode_select = 0 Then
Serial_cw = 1
Serial_ccw = 0
Elseif Mode_select = 1 Then
End If
Else
Serial_cw = 0
'Call No_command
End If
Case "X"
If Char_no = 2 And Rs_input = 13 Then
Command_ready = 1
Char_no = 0
Serial_buffer = ""
Serial_mode_select = 1
Else
'Call No_command
End If
Case "Z"
If Char_no = 2 And Rs_input = 13 Then
Command_ready = 1
Char_no = 0
Serial_buffer = ""
Send_mode_status = 1
Else
' Call No_command
End If
Case Else:
'Call No_command
End Select
End If
'END FROM EMPTY ENTER
End If
End If
End If
Return[/syntax]
Statystyki: Napisane przez slawek3000 — 3 sty 2015, o 13:04
]]>