Heroji Webera

01.02.2008., petak

Domaća zadaća!!!

Za domaću zadaću odgovori na pitanje:Što rade sljedeči programi?

1.zadatak

$sim
Dim I As Byte , J As Byte
Config Lcd = 16 * 2
For I = 1 TO 5
Cls
Lcd “IME“
For J = 1 TO 24
Shiftlcd Right
Waitms 250
Next
Wait 1
Next
End

2.zadatak

$sim
Dim I As Byte
Config Lcd = 16 * 2
For I =0 TO 255
Cls
Lcd Chr(i) ; ““
Lcdhex I ;““
Lcd I
Wait 1
Next
End

3.zadatak

$sim
Dim I As Byte , A As Byte
Config Lcd = 16 * 2
For I = 1 TO 5
Cls
Upperline
Lcd “IME“
Wait 1
Next
For I = 1 TO 5
Cls
Lowerline
Lcd “IME“
Wait 1
Next
End
4.Zadatak

$sim
Dim I As Byte , J As Byte
Config Lcd = 16 * 2
For I = 1 TO 10
Cls
Lcd “IME“
For J = 1 TO 3
Display Off
Waitms 250
Display On
Waitms 250
Next
Wait 1
Next
End

-Što gledate, niste još ništa riješili?

<< Arhiva >>