G.I.P: automatisch schaduwstation zonder wissels

[conducteur]

ga ik eens testen ze 

[PeterC]

...ben benieuwd...

[conducteur]

Code Selecteer Uitklappen

procedure verplaatsen (word in  Ppositie, word in  Peindpositie) is


          var word stappen                       ;


          if Ppositie> Peindpositie then
            stappen=Ppositie-Peindpositie
             direction=0
          else
              direction=1
              stappen=Peindpositie-Ppositie
          end if


          for stappen loop
              step=!step
              delay_10us(25)
          end loop


  Peindpositie=positie

end procedure
In de procedure gewoon de variabelen veranderd van naam, de p van procedure ervoor geplaatst maar de if statement blijft false opleveren (draaizin is "1")

[PeterC]

Nieuwe poging:

Na elke aanroep van je procedure je huidige positie aanpassen:

Code Selecteer Uitklappen


...
verplaatsen(positie, eindpositie)
positie = eindpositie
...


In je procedure zelf zit je ander met een mix van lokale en globale variabelen (niet zo netjes).

[dani]

probeer eens te tracken of je wel de juiste variabelen mee stuurt vanuit je hoodprogramma, ik heb de indruk dat die verloren gaan


dit 

" Peindpositie=positie "     (laatste regel van je sub )  zal er ook geen deugd aan doen natuurlijk.

[conducteur]

Yes het werkt, na de oproep de positie en eindpositie gelijk stellen en ik zie de motor al in de twee richtingen draaien :p

Code Selecteer Uitklappen

--------------------------------------------------------------------------------
; procedure verplaatsing
;direction=off/0 ==> richting nulpunt
;direction=onn/1 ==> van nulpunt weg
--------------------------------------------------------------------------------
procedure verplaatsen (word in  Ppositie, word in  Peindpositie) is


          var word stappen                       ;


          if Ppositie> Peindpositie then
            stappen=Ppositie-Peindpositie
             direction=0
          else
              direction=1
              stappen=Peindpositie-Ppositie
          end if


          for stappen loop
              step=!step
              delay_10us(25)
          end loop


end procedure


;--------------------------------------------------------------------------------
;initialisatie start
const byte initstart[]="start initialisatie"
print_string(serial_hw_data, initstart)
;--------------------------------------------------------------------------------
; zoek nulpunt (schakelaar=microswitch nulpunt)
;--------------------------------------------------------------------------------


relais=off
relaisinrij=off
direction=off
while !schakelaar loop
      step=!step
      delay_10us(25)
end loop
positie=0
delay_1ms(1250)
;--------------------------------------------------------------------------------
; controle 8 sporen vrij/ bezet in array bezet en terug naar nulpunt
;--------------------------------------------------------------------------------
for 8 using teller loop
    eindpositie= spoor[teller]
    verplaatsen(positie, eindpositie)
    positie=eindpositie
    bezet[teller]=lichtsluis
     delay_1ms(1000)
end loop
delay_1ms(1250)
eindpositie=0
verplaatsen(positie, eindpositie)

[PeterC]

...probeer eens te tracken of je wel de juiste variabelen mee stuurt vanuit je hoodprogramma, ik heb de indruk dat die verloren gaan...

Onmisbaar tijdens het debuggen.  Je hebt de mogelijkheid om een variabele naar je LCD of naar je terminal te sturen.

[conducteur]

Even iets anders dan programmeren, een "bug" uit het mechanische gedeelte halen

De stappenmotor is op het aluminium frame gemonteerd met deze houder. (2 boutjes in de onderste gleuf in het frame; de vier kleinere gaten en het grote gat zijn afgestemd op de afmetingen van nema23 motoren. Een domme fout om die gleuf horizontaal te maken, want horizontaal kan ik die afregelen met de gleuven in het profiel. Verticaal niet, en het is belangrijk dat de as op een mooie lijn met de stappenmotoras ligt. Een oplossing dus zoeken:

[PeterC]

De chinaman is eindelijk langs geweest 

[dani]

haha, van een innovatieve manier van communiceren gesproken !!!

[doomslu]

haha, van een innovatieve manier van communiceren gesproken !!!

Zijn tamtam was in panne gevallen. 

[PeterC]

haha, van een innovatieve manier van communiceren gesproken !!!

Zijn tamtam was in panne gevallen. 

Blijkbaar komt mijn bericht niet goed over: Rian heeft een tijdje geleden een (heel oud) display van mij gekregen om verder te kunnen werken omdat er iets mis was met zijn display.  Ik had hem een nieuw beloofd zodra die geleverd werden.  Twee maand geleden in China besteld maar nu pas toegekomen.  Het doosje is blijkbaar vrij lang in handen geweest van de douane (gecontroleerd en terug dichtgeplakt met een 'douane controle' tape)...

...Maar zonder adres kan ik niets opsturen...

[doomslu]

Wees gerust Peter, we hadden het door, maar we zijn nu eenmaal een beetje gek (een heel klein beetje, hé dani  )

[PeterC]

Wees gerust Peter, we hadden het door, maar we zijn nu eenmaal een beetje gek (een heel klein beetje, hé dani  )

...Ik was wel mee, maar toch...   ...Op eieren lopen hé 

[dani]

Jaja Peter ik had het verhaal wel gevolgd hoor!
Il vond het een heel originele manier om uit de hoek te komen van jou, zo veel leuker dan gewoon een tekstje te tikken in dit draadje. Je moet er maar op komen! 

En tof van jou dat je de jeugd zo belangeloos helpt.
Mijn persoonlijk record met een pakje van bij de chinees is 14 weken :-)


@luc : klein beetje gek ? Ikke ?
Men zegt soms van iemand dat er een hoekje af is, wel .... Ik ROL overal naartoe :-p