Месяц назад я вообще смутно представлял что такое микроконтроллер...
Сначала ёлки и мигалки, потом синтез сложных звуков, который невозможен как я понимаю без использования внешней памяти, но пока разбираюсь с этим. Что тут не так, почему компилируется, но отказывается работать правильно.
Code
Device = 12C509A
XTAL = 4
TRISB=%00110100
'------- Определение переменных ------------
Symbol PIN = GPIO.0
Symbol PINM = GPIO.5
Symbol PINH = GPIO.4
Symbol PINW = GPIO.2
Dim A As Word
Dim INDEX As Byte
Dim Assign1 As Word
Dim Assign2 As Word
main:
'------обработчик кнопок-----
'------бработчик кнопки Микрофон-----
If PINM=1 Then
GoTo main
EndIf
'------бработчик кнопки Horn-----
If PINH=0 Then
'--------Horn --------
HORN:
INDEX = 0
Assign1 = LookUpL INDEX, [ 1000, 600, 440, 400, 360, 320, 300, 280, 300, 320, 360, 400, 440, 600 ]
Assign2 = LookUpL INDEX, [ 600, 440, 400, 360, 320, 300, 280, 300, 320, 360, 400, 440, 600, 1000 ]
PIN=1
PAUSEUS Assign1
PIN=0
PAUSEUS Assign2
INDEX = INDEX + 1
If INDEX = 13 Then GoTo main
GoTo HORN
EndIf
'------обработчик кнопки Wail-----
If PINW=0 Then
'--------Wail --------
Wail:
For A=0 To 700 Step 1
PIN=1
PAUSEUS 800
PIN=0
PAUSEUS 400
PIN=1
PAUSEUS 250
PIN=0
PAUSEUS 125
PIN=1
PAUSEUS 62
PIN=0
PAUSEUS 31
PIN=1
PAUSEUS 15
PIN=0
PAUSEUS 7
PIN=1
PAUSEUS 3
PIN=0
PAUSEUS A
Next
For A=700 To 0 Step -1
PIN=1
PAUSEUS 800
PIN=0
PAUSEUS 400
PIN=1
PAUSEUS 250
PIN=0
PAUSEUS 125
PIN=1
PAUSEUS 62
PIN=0
PAUSEUS 31
PIN=1
PAUSEUS 15
PIN=0
PAUSEUS 7
PIN=1
PAUSEUS 3
PIN=0
PAUSEUS A
Next
GoTo Wail
EndIf
GoTo main
End
файл ISIS
Возможны небольшие фатальные ляпы, не судите строго