Gast
#371155
hallo mc-freunde. habe mein erstes programm geschrieben,denke das das mit der programmiererei in bascom ganz gut läuft,für den anfang. bin damit voll zufrieden und macht spass wenn´s funzt. aber bis man alles kapiert hat ist noch ein weiter weg. zum progamm selbst: ich wollt eigentlich ein lauflicht das nicht ständig die selbe abfolge hat,wird ja nach 5 minuten langweilig. denke das dies die beste lösung ist(für mich),aber unter euch gibt es bestimmt welche die das noch besser hinbekommen. allso,ran ans bord und kreativ sein.ist der beste weg um sich mit der mc-welt zu befassen. mein nächster schritt ist eigentlich ein weicher übergang von led zu led. dies wird aber bestimmt schwieriger,was solls da heist es sich hinhocken und lernen. viel spass damit mike '************************************************************ 'Name : Zufalls-Lauflicht.bas 'Version : V 1.00 'Compiler : BasCom AVR 1.11.8.1 'Hardware : LED's bzw ULN2803 an PB0 bis PB7 'Chip type : AT90S2313 '************************************************************ $regfile = "2313def.dat" $crystal = 4000000 Ddrb = &B11111111 ' PORTB ALS AUSGANG 0-7 Dim I As Integer 'WERT ZUWEISUNG Dim A As Byte Dim B As Byte Do ' START DER SCHLEIFE A = Rnd(32) ' ZUFALLSZAHL ERZEUGEN VON 1-256 For I = 1 To 50 '50 TAKTE LAUFLICHT Portb = A Rotate A , Left ' AUSGABE AUF PORT B = 1-8 Waitms 200 Next I Loop ' SPRINGE AN DEN ANFANG DER SCHLEIFE 'BILDE EINEN KREIS MIT 4 MAL 8 LED´S , WENN DU DIE 2 MILLIAMPERE LED´S 'NIMMST IST DAS DAZWISCHEN SCHALTEN VON TREIBERN NICHT NOTWENIG 'DER IC KANN BIS 20 MILLIAMPERE SCHALTEN 'EXPERIMENTIERE MIT DEN WERTEN IN DER SCHLEIFE UND SCHAUE SELBS