Nego, moze sve sa jednim cipom.
Code:
Device 16F628A
Xtal 4
All_Digital True
PortB_Pullups True
Config BODEN_OFF, BOREN_OFF, CP_OFF, DATA_CP_OFF, PWRTE_ON, WDT_OFF,_
LVP_OFF, MCLRE_OFF, INTOSC_OSC_NOCLKOUT
Input PORTB
Output PORTA
Input PORTA.7
Dim BrojacBitova As Byte
PORTA.0 = 0
PORTA.1 = 0
PORTA.2 = 0
PORTA.3 = 0
While 1 = 1
BrojacBitova = 0
If PORTB.0 = 0 Then
Inc BrojacBitova
ElseIf PORTB.1 = 0 Then
Inc BrojacBitova
ElseIf PORTB.2 = 0 Then
Inc BrojacBitova
ElseIf PORTB.3 = 0 Then
Inc BrojacBitova
ElseIf PORTB.4 = 0 Then
Inc BrojacBitova
ElseIf PORTB.5 = 0 Then
Inc BrojacBitova
ElseIf PORTB.6 = 0 Then
Inc BrojacBitova
ElseIf PORTB.7 = 0 Then
Inc BrojacBitova
ElseIf PORTA.7 = 0 Then
Inc BrojacBitova
EndIf
PORTA.0 = BrojacBitova.0
PORTA.1 = BrojacBitova.1
PORTA.2 = BrojacBitova.2
PORTA.3 = BrojacBitova.3
DelayMS 95
Wend
End
--
Make no mistake between my personality and my attitude.
My personality is who I am.
My attitude depends on who you are.