Код: Выделить всё
var = RND( limit ) Код: Выделить всё
$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Dim I As Word ' dim variable
Do
I = Rnd(40) 'get random number (0-39)
Print I 'print the value
Wait 1 'wait 1 second
Loop 'for ever
End
Код: Выделить всё
if w = 5 and w1 = 20 then
то ... выполняем что то
end if
Код: Выделить всё
if w >= 5 and w1 =< 20 then
то ... выполняем что то
end ifКод: Выделить всё
If W => 23 Or W =< 7 Then : Goto Displey2 : Else : Goto Displey1 : End If
Для такого дисплея логичнее яркостью подсветки управлять (если она имеется, конечно). А урезать информацию на дисплее ночью как-то совсем не логично. Она же в глаза не светит. Если это не OLED, конечно...vanyap1 писал(а):так как регулировку яркости для данного индикатора нельзя применить
А, ну тогда другое дело.vanyap1 писал(а):В том то и дело что индикатор OLED
Этот дисплей ни с того ни с сего перестал работать.max50 писал(а):Сюдя по описанию это обычний дисплей 16х2 с желтой подсветкой. Поэтому подсветкой можно управлять обычным ШИМ-ом.
