Soft Pwm - Code noch fehlerhaft

|hauke| · 22. Juni 2012

Hab auch einmal versucht einen eigenen code zu programmieren .

Code

$regfile = "2313def.dat"
$crystal = 8000000




Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output


Dim Warten As Byte
Dim Warten1 As Byte
Dim Rgb As Byte




Warten = 100
Warten1 = 10
Rgb = 0


Do


If Rgb = 0 Then


Portb.1 = 0 To 255
Portb.2 = 0
Portb.3 = 0
Waitms Warten1
End If


If Portb.1 = 255 Then


Rgb = 1
Waitms Warten
End If


If Rgb = 1 Then


Portb.1 = 255 To 0
Portb.2 = 0 To 255
Portb.3 = 0
Waitms Warten1
End If


If Portb.2 = 255 Then


Rgb = 2
Waitms Warten
End If


If Rgb = 2 Then


Portb.1 = 0
Portb.2 = 255 To 0
Portb.3 = 0 To 255
Waitms Warten1
End If


If Portb.3 = 255 Then


Rgb = 3
Waitms Warten
End If


If Rgb = 3 Then


Portb.1 = 0 To 255
Portb.2 = 0
Portb.3 = 255 To 0
Waitms Warten1
End If


End

Alles anzeigen

folgende fehler werden aber noch angezeigt. ich wäre dankbar wenn mal einer drübergucken könnte und die fehler korregiert.
error : 105 line : 22 storebit error [0]
error : 105 line : 36 storebit error [0]
error : 7 line : 0 if then expected [36]
error : 123 line : 0 end if expected

flipp86 · 22. Juni 2012

Habs nur mal kurz überflogen.

Guck dir mal die Syntax von Bascom an wie man da Schleifen programmiert. Bei dir fehtl so einiges.

Was du wohl wolltest war eine "For-Schleife"

Edit: (falscher Link eben)
Guckst du mal hier !

Pesi · 22. Juni 2012

Auch hier: Besser erst mal über die *absoluten Grundlagen* informieren, was in so nem µC überhaupt grob vor sich geht, statt *irgendwas* zusammenzutippen...

z.B., was soll

Code

Portb.1 = 0 To 255

bewirken...

mit "Portb.1 = " kannst Du den Portinpin auf "1" oder "0" setzen, also an oder aus - aber Du kanst ihn nicht "von 0 bis 255" setzen, was soll das machen...?

Man muss auch nicht jede seiner Ideen sofort im Forum veröffentlichen, lies' doch einfach mal in dem anderen aktuellen Thread mit, und schau', was da bei raus kommt... an diesem Code hier nun auch noch rumzuschnitzen bringt irgendwie nix, weil der (sorry) total "verhunzt" ist, da stimmt ja nicht mal die Syntax - wäre also Quatsch, wenn die User nun in gleich 2 Threads an nem simplen RGB-Fader rumdoktern, und dann in beiden das selbe Ergebnis raus kommt...

Teilen