Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

LEDBlinker.bas

Uploader:MitgliedPMedia
Datum/Zeit:22.09.2007 21:20:12

'Einfach an CS & DS 2 LED's anklemmen, und das ganze dann an COM2 anschließen - sie werden blinken!

#include "fbgfx.bi"

dim ct as single
dim waittime as single
dim owt as single
dim x as integer

ba = &h2F8
waittime = 64
ct = 0
OPEN COM "COM2:9600,N,8,1,CS,DS" AS #1
BLINK:

x += 1
if x > 640 then x = 0

locate 1,1
print waittime

OUT (BA+4), &b00
SLEEP abs(waittime)

OUT (BA+4), &b01
SLEEP abs(waittime)

OUT (BA+4), &b11
SLEEP abs(waittime)

OUT (BA+4), &b10
SLEEP abs(waittime)

if multikey(sc_escape) then goto ende

GOTO BLINK
ende:
CLOSE #1