Evo ti kostur u Proton+
Code:
Device 16F887
Xtal 8
Declare Hserial_Baud 9600
Declare Hserial_RCSTA ' pogledati data sheet
Declare Hserial_TXSTA ' pogledati datasheet
Declare Adin_Res 10
Declare Adin_Tad FRC
Declare Adin_Stime 50
Dim Vrednost1 As Word
Dim Vrednost2 As Word
Dim Bajt1 As "A"
Dim Bajt2 As "F"
While 1 = 1
Vrednost1 = ADIn 0
Vrednost2 = ADIn 1
HSerOut [Bajt1, Vrednost1.HighByte, Vrednost1.LowByte, Vrednost2.HighByte, Vrednost2.LowByte, Bajt2]
Wend
jos samo da podesis registre piconje i 'vozi'