Koda: |
'***Casovna prekinitev vsakih 100ms***
Const Timer1reload = 360 Config Timer1 = Timer , Prescale = 1024 Load Timer1 , Timer1reload On Ovf1 Timer1_int Enable Timer1 Start Timer1 Enable Interrupts |
Koda: |
Timer1_int:
Ledica = Not Ledica 'Ledica (Nek izhodni pin) spremeni stanje vsako casovno enoto. Load Timer1 , Timer1reload Incr stevec 'Nek stevec, ki se vsako casovno enoto poveca za 1 in definiran mora biti na zacetku programa. Return |
Koda: |
IF expression THEN
[ ELSEIF expression THEN ] [ ELSE ] END IF |
Koda: |
Dim A As Byte
A = 25 If A < 30 Then Print A < 30 Elseif A = 25 Then Print A = 25 Elseif A > 23 Then Print A > 23 End If |
mato1111 je napisal/a: |
Dva if stavka? |
Koda: |
If T_k > (T_b + 3) Then vklopi_Rele1
elseIf T_k <= T_b Then izklopi_Rele1 EndIf |