LED Lauflicht mit Fader Effeckt

Hey Paul P.

Okay das verstehe ich soweit.

Meinst du das Tutorial?:
http://www.mikrocontroller.net/articles/Soft-PWM

ich habe das mal spaßeshalber in Bacon Basic eingefügt.
Der bringt mir da lauter fehler.

Ich versteh nicht ganz wie ich das mit BB einfügen und so umändert muss 
damit ich mein lauflicht hab -.-

Hätte noch ne Software-PWM, 12-Kanal, 8 bit die ähnlich der 2. Methode 
in dem vorhin genannten Artikel konstruiert ist. (In C, für PIC18F2550). 
Läuft bei 200 Hz, ca 10% Prozessorlast.

hey,

danke für die vielen antworten.
Kann ich das nicht mit Bascon irrendwie machen?

ich habe hir einen Code der die Leds in unterschiedlichen helligkeiten 
läuchten lässt.

Genau sowas brauche ich ja ... jetzt muss sich das nur noch so bewegen:

http://www.youtube.com/watch?v=c_OokiDGNqE


gruß

Oh hab den Code vergessen :D

1

Led_1 Alias Portc.0

2

Config Led_1 = Output

3

Led_1 = 0

4

5

Led_2 Alias Portc.1

6

Config Led_2 = Output

7

Led_2 = 0

8

9

Led_3 Alias Portc.2

10

Config Led_3 = Output

11

Led_3 = 0

12

13

Dim Led_1_value As Byte

14

Dim Led_2_value As Byte

15

Dim Led_3_value As Byte

16

17

18

Config Timer0 = Timer , Prescale = 1                        '=122 Durchläufe die Sekunde

19

Enable Timer0

20

Enable Interrupts

21

22

23

Led_1_value = 5                                             'dunkel aber nicht aus

24

Led_2_value = 50                                            'mittel

25

Led_3_value = 255                                           'hell

26

27

28

Do

29

   If Led_1_value <= Timer0 Then

30

      Led_1 = 0

31

   Else

32

      Led_1 = 1

33

   End If

34

   If Led_2_value <= Timer0 Then

35

      Led_2 = 0

36

   Else

37

      Led_2 = 1

38

   End If

39

   If Led_3_value <= Timer0 Then

40

      Led_3 = 0

41

   Else

42

      Led_3 = 1

43

   End If

44

45

Loop

46

End

Das ist ja übles Zeugs...  Timer in der Hauptschleife abfragen und den 
MC damit beschäftigen, brrrrr.

Auch das Enable Interrupts kannst Du Dir sparen, sind ja keine drin. 
Aber genau damit würde man es allerdings machen: mit einem Interrupt.

@ MWS

könntest du mir vllt sagen wie ich das machen könnte?

bin noch ziemlich neu in dem gebiet.

gruß
matze

Lies Dich doch zuerst ein bisschen ein, gibt genügend Tutorials. Die 
Meisten helfen Dir gern wenn sie sehen daß Du Deine Hausaufgaben gemacht 
hast und motiviert bist etwas zu lernen.

Prinzipiell geht's so: man lässt einen Zähler laufen, das machst Du ja 
bereits, der löst dann beim Überlaufen oder bei einem bestimmten Wert 
einen Interrupt aus, darin zählt ein Zähler hoch und vergleicht die 
Werte, setzt oder löscht die einzelnen Ports, ähnlich wie Dein Code in 
der Hauptschleife, nur halt im Hintergrund.

Die Hauptschleife kann dann Anderes erledigen,, z.B. die Werte der 
einzelnen Kanäle setzen um den Fadereffekt zu erreichen.

Hier ist noch'n Link zu einer ähnlichen Diskussion:
Beitrag "Re: Moodlight Sourcecode hilfe"

Bugbereinigten Code hab' ich nochmal angehängt. Lern aber nicht von mir, 
denn es ist schlechter Programmierstil und RAM-Verschwendung aus einem 
Speicher Array in ein Variablen-Array einzulesen, aber die Funktion zu 
zeigen war damit deutlicher möglich.

Und frag' mich nicht, was ich da mache, ich mag das nicht im Einzelnen 
erklären. Der Code ist zwar leistungsfähig, jedoch schon etwas komplexer 
als eine Supersimpelversion, unsd wenn Du gerade beginnst, Dich dafür zu 
interessieren, ein bisserl schwer zu verstehen. Aber laufenlassen und in 
der Hauptschleife ein wenig rumspielen geht sicher. :-)

Es gibt noch Einfacheres, dazu musst Du halt mal suchen, hier ist aber 
nicht unbedingt ein typisches Bascom Forum, hier wird Dir eher mit C 
geholfen.

-.- ...

kann mir denn keiner wirklich helfen?
Ich kann alle 8 Leds unterschiedlich leuchten lassen ... ich kann ein 
lauflich ... nur wir soll ich das denn verbinden?

ich bin total verzweifelt! ich habe mir sicherheit über 90% alle 
beitrage im inet die man über googel finden kann angeschaut. nirrendswo 
wird beschrieben wie ich mit Bascom Fader + lauflicht verbinden kann.

Ich bin heute extra losgezogen und hab mir vom Conrad nen "Lernset" für 
50 Euro gekauft ...das hat mir auch nicht weiter geholfen :'-(

gruß
Matthias
ich schaff das ohne hilfe einfach nicht!

@ Dominique Görsc ehm sry ignorieren tu ich dich nicht ... aber 
irrendwie finde ich keinen Bascom code -.-

Also, Du kannst die Led's leuchten lassen ? Gut. Dann überleg doch mal 
wie's wäre ohne faden, das ist ein Lauflicht, also 8 Led's, von 1 bis 8 
zählen und dann wieder von 8 bis 1, immer mit ein bisserl Pause, 
Leistung der entsprechenden Led auf 100%. Nur fadet's jetzt nicht, es 
ist nur ein normales Lauflicht. Aber wenn man nun die Led 1 kleiner und 
1 größer als die aktuelle Led auf halbe Leistung und die Led 2 kleiner 
und 2 größer auf 1/3 Leistung setzt, dann fadet es. Code muss 
berücksichtigen daß Led 7 & 8 natürlich nicht plus 1 oder 2 gerechnet 
werden kann, und auch nicht Led 1 & 2 minus 1 oder 2. Code musst Dir 
schon selber schreiben. Mach' mal und wir sehen weiter.

waor sau geil Dominique Görsch

es funz jetzt schon teilweiße. Habe jetzt deinen schaltplan auch voll 
begriffen und sehr viel daraus gelernt. Nur die LEDs "flackern" so ... 
also es ist sichtbat wie der µC die LED an und auschaltet also in deinem 
Video sind die übergänge weich ... bei mir nicht... und ich weiß nicht 
wie ich das wegbekomm. Ich habe einfach die befehle wo ich nicht bruache 
aus gekommert und habe "Enable Timer0" hinzugefügt hat aber nichts 
geholfen.

hast du oder jemand anderes eine idee wie ich den Fade sauber hinbekomm?

liegt das vllt an die einstellungen von meinen µC?

regfile = "m8535.dat"
$crystal = 16000000
$baud = 19200
$hwstack = 64
$swstack = 64
$framesize = 64

Config Portc = Output

Config Timer0 = Timer , Prescale = 1
Enable Timer0
On Timer0 Timer0_isr

'Sternegruppen
Gruppe1 Alias Portc.0
Gruppe2 Alias Portc.1
Gruppe3 Alias Portc.2
Gruppe4 Alias Portc.3
Gruppe5 Alias Portc.4

'Plastikfiguren
'Sonne Alias Portd.4
'Mond Alias Portd.5

Dim Zaehler As Byte , Pwmvar(5) As Byte , I As Byte
Dim Group As Byte , Pwm_sonne As Byte , Pwm_mond As Byte

'Grenzwerte fuer die Schleifen
Const Pwm_min = 0
Const Pwm_low = 10
Const Pwm_high = 50
Const Pwm_max = 150

Enable Timer0
Enable Interrupts

'Plastikfiguren auf festen Wert
'Pwm_sonne = 200
'Pwm_mond = 100

For I = Pwm_min To Pwm_low
   Pwmvar(1) = I
   Waitms 1
Next I

Main:
Do
Group = 1
   For I = Pwm_low To Pwm_high
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_high To Pwm_max Step 2
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_max To Pwm_high Step -2
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_high To Pwm_low Step -1
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_low To Pwm_min Step -1
      Pwmvar(group) = I
      Pwmvar(group + 1) = Pwm_low - I
      Waitms 1
   Next I

Group = 2
   For I = Pwm_low To Pwm_high
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_high To Pwm_max Step 2
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_max To Pwm_high Step -2
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_high To Pwm_low Step -1
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_low To Pwm_min Step -1
      Pwmvar(group) = I
      Pwmvar(group + 1) = Pwm_low - I
      Waitms 1
   Next I

Group = 3
   For I = Pwm_low To Pwm_high
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_high To Pwm_max Step 2
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_max To Pwm_high Step -2
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_high To Pwm_low Step -1
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_low To Pwm_min Step -1
      Pwmvar(group) = I
      Pwmvar(group + 1) = Pwm_low - I
      Waitms 1
   Next I

Group = 4
   For I = Pwm_low To Pwm_high
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_high To Pwm_max Step 2
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_max To Pwm_high Step -2
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_high To Pwm_low Step -1
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_low To Pwm_min Step -1
      Pwmvar(group) = I
      Pwmvar(group + 1) = Pwm_low - I
      Waitms 1
   Next I

Group = 5
   For I = Pwm_low To Pwm_high
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_high To Pwm_max Step 2
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_max To Pwm_high Step -2
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_high To Pwm_low Step -1
      Pwmvar(group) = I
      Waitms 1
   Next I
   For I = Pwm_low To Pwm_min Step -1
      Pwmvar(group) = I
      Pwmvar(1) = Pwm_low - I
      Waitms 1
   Next I

Loop
End


Timer0_isr:
   Zaehler = Zaehler + 1

   If Pwmvar(1) > Zaehler Then
      Gruppe1 = 1
   Else
      Gruppe1 = 0
   End If

   If Pwmvar(2) > Zaehler Then
      Gruppe2 = 1
   Else
      Gruppe2 = 0
   End If

   If Pwmvar(3) > Zaehler Then
      Gruppe3 = 1
   Else
      Gruppe3 = 0
   End If

   If Pwmvar(4) > Zaehler Then
      Gruppe4 = 1
   Else
      Gruppe4 = 0
   End If

   If Pwmvar(5) > Zaehler Then
      Gruppe5 = 1
   Else
      Gruppe5 = 0
   End If


'   If Pwm_sonne > Zaehler Then
'      Sonne = 1
'   Else
'      Sonne = 0
'   End If
'
'   If Pwm_mond > Zaehler Then
'      Mond = 1
'   Else
'      Mond = 0
'   End If
Return

danke für den Tipp ... lag daran ... jetzt läuft es absolut sauber :D 
danke nochmal

gruß
matthias