Из лички от Alexej79: 'Привет. Долго я мучаюсь чтоб в PROTEUS вставить строку аналогичную строке в PICBasic
'Portb.0 [N] = 1
'Мне надо чтоб зажигался светодиод которому равна переменная N это может быть 1 или 4 или 3 и т.д. в зависимости от хода программы.
'Как правильно будет это сделать в Протеусе?
Привожу один из вариантов:
Device 16F628A
Xtal 4
Declare All_Digital = On ' Сделать все порты цифровыми
TRISA= %00000011
TRISB=%00000000
PORTB=$00000000
Dim N As Byte
Dim VAR1 As Byte
init:
N = 0
main:
If PORTA.0 = 0 Then GoSub M1
If PORTA.1 = 0 Then GoSub M2
VAR1 = LookUp N, [%00000000, %00000001, %00000010, %00000100, %00001000, %00010000, %00100000, %01000000, %10000000]
PORTB = VAR1
DelayMS 1
GoTo main
M1:
DelayMS 250: N = N + 1
If N > 8 Then N = 8
Return
M2:
DelayMS 250: N = N - 1
If N = 0 Or N > 8 Then N = 0
Return
В приложенном архиве программа и действующая модель в Протеусе 7.7
