Gryphon писал(а):Здравствуйте дорогие форумчане!
Меня интересуют следующие ворпросы по BASCOM-AVR:
6. Можно-ли в BASCOM сделать подключение AVR c PC по USB (без преобразователей)
dhouse писал(а):можно ли в BASCOM обратиться к порту не явно ...
Код: Выделить всё
a(1) Alias PORTB.1
a(2) Alias PORTD.2
a(3) Alias PORTC.3
For i=1 To 3
Set a(i)
Next idhouse писал(а):придется городить CASE-ми и IF-ами...
Intel_agent писал(а):Всем привет, требуется помощь в коде bascom'a
Код: Выделить всё
Wait сколько_нужно_секунд
Код: Выделить всё
$regfile = "AtTiny2313.dat"
$crystal = 1000000
Config Timer0 = Timer , Prescale = 1
Declare Sub My_led
Dim H As Byte , M As Byte , S As Byte
Dim T(4) As Byte
Dim Ncount As Word
Dim Q As Byte
Dim Tmp As Byte
Ncount = 0
H = 9
M = 55
S = 0
Config Portb = Output
Config Portd = Output
Config Pind.0 = Input
Config Pind.1 = Input
Config Debounce = 200
Set Pind.0
Pind.0 = 1
Set Pind.1
Pind.1 = 1
On Timer0 Pulse
Enable Interrupts
Enable Timer0
'************
Do
Debounce Pind.0 , 0 , H_ed , Sub
Debounce Pind.1 , 0 , M_ed , Sub
T(1) = H \ 10
T(2) = H Mod 10
T(3) = M \ 10
T(4) = M Mod 10
Call My_led
Loop
End 'end program
'************************
Sub My_led
For Q = 1 To 4
Select Case T(q)
Case 1 : Portb = &B11111001
Case 2 : Portb = &B10100100
Case 3 : Portb = &B10110000
Case 4 : Portb = &B10011001
Case 5 : Portb = &B10010010
Case 6 : Portb = &B10000010
Case 7 : Portb = &B11111000
Case 8 : Portb = &B10000000
Case 9 : Portb = &B10010000
Case 0 : Portb = &B11000000
End Select
Select Case Q
Case 1 : If T(1) <> 0 Then
Set Portd.2
Waitms 10
Reset Portd.2
End If
Case 2 : Tmp = S Mod 2
If Tmp = 0 Then Portb.7 = 0
Set Portd.3
Waitms 10
Reset Portd.3
Case 3 : Set Portd.4
Waitms 10
Reset Portd.4
Case 4 : Set Portd.5
Waitms 10
Reset Portd.5
End Select
Next Q
End Sub
'************************
Pulse:
Ncount = Ncount + 1
If Ncount => 31250 Then
Ncount = 0
S = S + 1
End If
If S > 59 Then
S = 0
M = M + 1
End If
If M > 59 Then
M = 0
H = H + 1
If H > 23 Then H = 0
End If
Return
'************************
H_ed:
Waitms 100
H = H + 1
If H > 23 Then H = 0
Return
'************************
M_ed:
Waitms 100
M = M + 1
If M > 59 Then M = 0
Return
Секретный кот писал(а):Код: Выделить всё
Wait сколько_нужно_секунд
Например, 30 минут это Wait 1800.
ВНН писал(а):Если делать тупо то
Обработка int
Запретить прерывание
for i=0 to 10
wait 60
next i
чото делаеш
...
разрешить прерывание
Но лучше все делать по таймеру
ВНН писал(а):Если делать тупо то
Обработка int
Запретить прерывание
for i=0 to 10
wait 60
next i