Mislim (ne zamo da mislim, nego znam) gde ti je greska. Turas Dec modifajer gde treba i gde ne treba. Procitaj help ili uputstvo za PBP.
Ovako to izgleda u Proton+ -u
Code:
Device 16F877
Xtal 20
Declare Adin_Res 10
Declare Adin_Tad 8_FOSC
Declare Hserial_Baud 2400
Dim AD_Rez_1 As Word
Dim AD_Rez_2 As Word
Dim AD_Rez_3 As Word
Dim AD_Rez_4 As Word
Dim AD_Rez_5 As Word
Dim AD_Rez_6 As Word
Dim AD_Rez_7 As Word
Dim AD_Rez_8 As Word
Dim i As Byte
Dim USBBufferSizeMax As 18
Dim USBBufferSizeTx As 18
Dim USBBufferSizeRx As 18
Dim test As Byte
Dim USBBuffer[USBBufferSizeMax] As Byte
Dim USBBufferCount As Byte
ADCON0 = %00111111
TRISA = %11111111
ADCON1 = %10000010
Low PORTE.0
TRISC.7 = 1
TRISC.6 = 1
RCSTA.7 = 1
Pocetak:
ProgramStart:
GoSub DoSerIn
GoTo ProgramStart
DoSerIn:
USBBufferCount = USBBufferSizeRx
HSerIn [Dec USBBuffer[0]]
If USBBuffer[0] = 254 Then
GoSub DoSerOut
EndIf
Return
DoSerOut:
USBBufferCount = USBBufferSizeTx
USBBuffer[0] = 254
'REALIZACIJA AD KONVERZIJE
AD_Rez_3 = ADIn 0 'izvrsi konverziju na RA0 i 10 bita
'rezultata smesti u AD_rez_3
AD_Rez_4 = ADIn 1 'izvrsi konverziju na RA1 i 10 bita
'rezultata smesti u AD_rez_4
AD_Rez_1 = ADIn 2 'izvrsi konverziju na RA2 i 10 bita
'rezultata smesti u AD_rez_1
AD_Rez_2 = ADIn 3 'izvrsi konverziju na RA3 i 10 bita
'rezultata smesti u AD_rez_2
AD_Rez_5 = ADIn 4 'izvrsi konverziju na RA4 i 10 bita
'rezultata smesti u AD_rez_5
AD_Rez_6 = ADIn 5 'izvrsi konverziju na RA5 i 10 bita
'rezultata smesti u AD_rez_6
AD_Rez_7 = ADIn 6 'izvrsi konverziju na RA6 i 10 bita
'rezultata smesti u AD_rez_7
AD_Rez_8 = ADIn 7 'izvrsi konverziju na RA7 i 10 bita
'rezultata smesti u AD_rez_8
USBBuffer[1] = AD_Rez_1.LowByte 'Nizi bajt rezultata smesti
'u USBBuffer[1]
USBBuffer[2] = AD_Rez_1.HighByte 'Visi bajt rezultata smesti
'u USBBuffer[2]
USBBuffer[3] = AD_Rez_2.LowByte 'Nizi bajt rezultata smesti
'u USBBuffer[3]
USBBuffer[4] = AD_Rez_2.HighByte 'Visi bajt rezultata smesti
'u USBBuffer[4]
USBBuffer[5] = AD_Rez_3.LowByte 'Nizi bajt rezultata smesti
'u USBBuffer[5]
USBBuffer[6] = AD_Rez_3.HighByte 'Visi bajt rezultata smesti
'u USBBuffer[6]
USBBuffer[7] = AD_Rez_4.LowByte 'Nizi bajt rezultata smesti
'u USBBuffer[7]
USBBuffer[8] = AD_Rez_4.HighByte 'Visi bajt rezultata smesti
'u USBBuffer[8]
USBBuffer[9] = AD_Rez_5.LowByte 'Nizi bajt rezultata smesti
'u USBBuffer[9]
USBBuffer[10] = AD_Rez_5.HighByte 'Visi bajt rezultata smesti
'u USBBuffer[10]
USBBuffer[11] = AD_Rez_6.LowByte 'Nizi bajt rezultata smesti
'u USBBuffer[11]
USBBuffer[12] = AD_Rez_6.HighByte 'Visi bajt rezultata smesti
'u USBBuffer[12]
USBBuffer[13] = AD_Rez_7.LowByte 'Nizi bajt rezultata smesti
'u USBBuffer[13]
USBBuffer[14] = AD_Rez_7.HighByte 'Visi bajt rezultata smesti
'u USBBuffer[14]
USBBuffer[15] = AD_Rez_8.LowByte 'Nizi bajt rezultata smesti
'u USBBuffer[15]
USBBuffer[16] = AD_Rez_8.HighByte 'Visi bajt rezultata smesti
'u USBBuffer[16]
High PORTE.0
HSerOut [Dec USBBuffer[1]]
timeout2:
HSerIn 5000,timeout2, [test]
If test = 111 Then
HSerOut [USBBuffer[2]]
EndIf
Low PORTE.0
timeout3:
HSerIn 5000,timeout3, [test]
If test = 111 Then
HSerOut [USBBuffer[3]]
EndIf
High PORTE.0
timeout4:
HSerIn 5000,timeout4, [test]
If test = 111 Then
HSerOut [USBBuffer[4]]
EndIf
Low PORTE.0
timeout5:
HSerIn 5000,timeout5, [test]
If test = 111 Then
HSerOut [USBBuffer[5]]
EndIf
High PORTE.0
timeout6:
HSerIn 5000,timeout6, [test]
If test = 111 Then
HSerOut [USBBuffer[6]]
EndIf
Low PORTE.0
timeout7:
HSerIn 5000,timeout7, [test]
If test = 111 Then
HSerOut [USBBuffer[7]]
EndIf
High PORTE.0
timeout8:
HSerIn 5000,timeout8, [test]
If test = 111 Then
HSerOut [USBBuffer[8]]
EndIf
Low PORTE.0
timeout9:
HSerIn 5000,timeout9, [test]
If test = 111 Then
HSerOut [USBBuffer[9]]
EndIf
High PORTE.0
timeout10:
HSerIn 5000,timeout10, [test]
If test = 111 Then
HSerOut [USBBuffer[10]]
EndIf
Low PORTE.0
timeout11:
HSerIn 5000,timeout11, [test]
If test = 111 Then
HSerOut [USBBuffer[11]]
EndIf
High PORTE.0
timeout12:
HSerIn 5000,timeout12, [test]
If test = 111 Then
HSerOut [USBBuffer[12]]
EndIf
Low PORTE.0
timeout13:
HSerIn 5000,timeout13, [test]
If test = 111 Then
HSerOut [USBBuffer[13]]
EndIf
High PORTE.0
timeout14:
HSerIn 5000,timeout14, [test]
If test = 111 Then
HSerOut [USBBuffer[14]]
EndIf
Low PORTE.0
timeout15:
HSerIn 5000,timeout15, [test]
If test = 111 Then
HSerOut [USBBuffer[15]]
EndIf
High PORTE.0
timeout16:
HSerIn 5000,timeout16, [test]
If test = 111 Then
HSerOut [USBBuffer[16]]
EndIf
Low PORTE.0 ' Ugasi signalnu lampicu
Return
End
za pic16
Normalno se kompajlira, a nocas cu da ti kazem kako se ponasa na razvojnom sistemu (sa PIC16F887 na 8MHz)
Re: Povezivanje dva PICa pomocu serijske komunikacije (PICBASIC)
Re: Povezivanje dva PICa pomocu serijske komunikacije (PICBASIC)
