Station " Asche aan zee"

[raf]

Hallo

buiten een programma foutje (de fuses vergeten te zetten)heb ik de pic aan het werk gekregen.
morgen een spoortje maken waar ik op kan testen .
ik heb nog een controle led toegevoegd en de snelheid is nog te hoog maar ik ben reeds blij dat het werkt.
alles wat programma aan gaat kan worden aangepast het is de hard ware die roet in het eten kan gooien.
maar gelukkig is dit voorlopig goed afgelopen.
nu kijken wat de schakeling in het echtie gaat doen.
hier de pendel code

Code Selecteer Uitklappen


;program pendel TGV
Device 16f628a
 
  CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF

Xtal=4
All_Digital= TRUE
Symbol S1 = PORTB.0
Symbol S2 = PORTB.1
symbol links = porta.0       ;relais 1
symbol rechts = porta.1     ;relais 2
    Dim a As word
    dim wachttijd as word
           

 
PORTB = %00000000
TRISB = %00010111

PORTA = %00000000
TRISA = %00000000
delayms 100
PORTB_PULLUPS ON
clear
    links = 1
    rechts = 0
    wachttijd = 2000
main:
if S1 = 0 then gosub tijd1
if s2 = 0 or s2 = 1 then links = 0
if S2 = 0 then gosub tijd
if s1 = 0 or s1 = 0  then rechts = 0
goto main

  tijd1:
  porta.3 = 1
for a = 1 to wachttijd       ;wacht tijd tot vertrek
delayms 150
next a
   links = 1
         while s1 = 0 :wend         ;tijd om schakelaar te verlaten
      porta.3 = 0
delayms 200
return

  tijd:
  porta.3 = 1
for a = 1 to wachttijd       ;wacht tijd tot vertrek
delayms 150
next a
   rechts = 1
       while s2 = 0 :wend            ;tijd om schakelaar te verlaten
     porta.3 =0             ;controle led
  delayms 200
return
   end


gr raf

[raf]

Hallo

de schakeling werkt
maar was het allemaal de moeite waard om ze zelf te maken
bij conrad heb je voor 43 euro een schakeling die meer kan al moet je deze ook nog zelf in elkaar zetten
op trekken en afremmen bij de haltes en dies meer
bij mij is dit nu niet van toepassing daar de trein steeds in een tunnel stopt en dus niet zichtbaar is hoe hij stopt
maar het zet je wel aan het denken
het probleem van de prijs is dat ze hier in de shop nogal prijzig zijn
voor een dil111 vragen ze hier al snel 2.50 euro terwijl ik er nu 100 besteld heb voor 5.40 euro
zo ook wat de fed en transistoren aan gaat .
nu zijn het proef schakelingen en als ze werken dan gaat het allemaal chinees materiaal zijn wat gebruikt gaat worden (spijtig genoeg)want de prijzen liggen echt ver uit elkaar
filmpje komt straks eerst goed wakker worden

gr raf

[raf]

hallo

De schakeling nog wat moeten aan passen
de lichten werkten niet zoals het moest
nu doen ze dat wel
het pendelen verloopt goed en de trein staat hier reeds een paar uur over en weer te rijden
nog niet volle snelheid want daar is het proef parkoer te klein voor
maar hoe zit dat met die diod's op een eind spoor
ik heb er nu geen op zitten en de trein rijd en vertrekt wel maar op de meeste sporen zie ik ze dus wel zitten
dus hoe zit dat met die diode's en hoe moeten ze zitten

Code Selecteer Uitklappen


;program pendel TGV
Device 16f628a
 
  CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF

Xtal=4
All_Digital= TRUE
Symbol S1 = PORTB.0
Symbol S2 = PORTB.1
symbol links = porta.0       ;relais 1
symbol rechts = porta.1     ;relais 2
    Dim a As word
     dim wacht as word     

 
PORTB = %00000000
TRISB = %00010111

PORTA = %11000000
TRISA = %00000000
delayms 100
PORTB_PULLUPS ON
clear
    links = 1
    rechts = 0
    wacht = 200
main:
    porta.3  =0
       if links = 1 then porta.6 = 1
   if rechts = 1 then porta.7 = 1
   if S1 = 0 then goto lichtr
if S2 = 0 then goto lichtl
goto main
lichtl:
links = 0
  rechts = 0
  porta.3 = 1
porta.7 = 0
for a = 1 to wacht
delayms 200 ;wacht tijd tot vertrek
next a
rechts = 1
delayms 150           ;tijd om schakelaar te verlaten
goto main
lichtr:
links = 0
  rechts = 0
  porta.3 = 1
    porta.6 = 0
for a = 1 to wacht
delayms 200;wacht tijd tot vertrek
next a
links = 1
delayms 150        ;tijd om schakelaar te verlaten
goto main

   end

filmpje is in de maak

gr raf

[raf]

filmpke zoals beloofd

https://www.youtube.com/watch?v=UESVdozZHo4&feature=youtu.be

slechte verlichting ik weet het maar het gaat om den trein niet om de qualiteit van de opname

morgen proberen een beter te maken

gr raf

[Stieven76]

Dat doet blijkbaar wat het moet doen    Dat het bruut stopt kan geen kwaad als je dat toch niet ziet hé.
Toch wel leuk wat je met die µcontrollers allemaal kan doen.

[raf]

Hallo stieven

het probleem is niet dat het niet langzaam kan stoppen het probleem is dat ik het in 50 program regels moet krijgen
deze schakeling blijft zoals ze is maar voor de eggerbahn moet er wel een andere gebouwd worden die wel langzaam optrekt en afremt
want er moet ook een wissel worden omgezet
hij gaat 1 keer de ene kant uit en dan langs de fabrieken de andere kant uit
waarna hij terug keert en alles opnieuw begint
dus dat word haast hetzelfde programma maar den met HPWM en dus langzaam op trekken en afremmen
ook de stop tijd moet nog langer worden want nu is het maar de test stoptijd
als ik een jumper zet over een poort dan heb ik een tijd van ongeveer 15 minuten stop

het programma is besteld en nu hopen dat het snel daar gaat zijn

gr raf

[raf]

hallo

zoals beloofd de dubbele mal
dit spaart je silicone uit maar de mal word wel slap
dit vang je op met rijst (die ik ook gebruik bij andere modelbouw zaken)
een hoog malletje vul je op met gebroken rijst en dat is de hoeveelheid die je moet afmaken aan hars

de rijst uitstrooien en de mal er mooi horizontaal in leggen
hoe ik het gedaan heb
je ziet twee grote oppervlakken en dan heb je 100 % kans op lucht die onder de bovenste plaats zit
maar ik smeer de plaat eerst in met silicone (aluminium folie bakje)en laat dit uitharden
de andere kant daar giet ik zoveel silicone in dat alles juist onder zit en laat dit ook harden
daarna als alles is uitgehard terug een laagje silicone en dan de twee op elkaar plakken en klaar
een dubbele mal met maar de helft aan silicone die je anders zou nodig hebben
hier een filmpje van de mal en hij is werkelijk perfect zonder lucht belletjes
https://www.youtube.com/watch?v=ys6KiTeEFi8&feature=youtu.be

gr raf

[raf]

hier de eerste delen uit de vorm


twee muur platen voor de muur op het nieuwe traject
deze plaat kun je na warm maken in warm water nog gemakkelijk buigen in de vorm die je moet hebben
daarom is ze ook zo dun uitgevoerd

en nog wat deeltjes gemaakt voor de winkeltjes
twee schildjes voor een signaal en die zijn goed gelukt want de kleine kapjes en zo kan ik mee gieten
nu kijken of ik draden aan die ledjes krijg
anders moet ik gerolf eens met een bezoekje vereren hahahaha
gr raf

[Steam.N]

Goed resultaat precies, Raf.
Ik moet zeggen dat ik twijfelde aan de dubbelzijdige mal, omdat die zo dun is uitgevoerd, en dus zou kunnen uitzakken als je er giethars in giet.
Maar het resultaat lijkt zeer bruikbaar.
Goed gevonden.  Je bespaart heel wat siliconen !

[raf]

hallo Jean

ik laat wel de achterste plaat er in zitten als ik de voorste giet
want anders zakt inderdaad de mal door
maar alsnog komen er mooie en goeie stukken uit
ik gebruik normaal gips voor de platen maar nu eens giet hars gebruikt omdat ik nog stukken nodig heb voor de winkels
en dan werkt giet hars beter ,ook om te lijmen.
maar morgen maak ik een muur in gips en dan blijft die in de mal zitten want ik wil de achterste plaat een paar keer afgieten (dat zijn kleine steentjes)die ik ook nog nodig heb voor de fabriek en de winkels.

gr raf morgen weer foto's van de gips muren

[raf]

hallo
ik ga nog een veiligheid inbouwen aan het pendel spoor want ik ben niet zeker dat de trein ook elke keer stopt
de software doet het wel maar de trein is soms de boos doener
als er  vuile wieltjes onder zitten dan krijgt het contact niet altijd op tijd het signaal en dan schiet hij door
nu heb ik de wieltjes wel proper gemaakt hoor maar als de trein een tijdje aan het rijden gaat zijn op de baan dan worden ze toch terug vuil
dus op de kop van de rail komt een schakelaar te zitten en als de trein deze raakt meteen heel het spoor stroom loos
of toch koppelen aan de pendelregelaar
ik moet zien hoe het gaat want anders kan dat ook natuurlijk

gr raf

[Stieven76]

Is het dan niet beter dat je een 10cm voor het einde van het spoor een schakelaar of lichtsluis zet dat wanneer de trein hier toch voorbij moest rijden het spoor direct stroomloos gezet wordt? Een trein staat niet direct zomaar volledig stil, ook niet wanneer de stroom er ineens afgaat. Dan kan hij nog iets uitlopen. Anders knalt hij altijd tegen de schakelaar en bescherming of hij rijd het spoor af.
Het is maar een idee 

[raf]

Hallo Stieven

daar het maar steeds om dezelfde trein gaat (TGV)zou ik een schakelaar met een rolletje zetten
op de schakelaar een lage hefboom met op de kop een teflon rolletje
als de trein de stop sectie binnen loopt dan raakt hij altijd de schakelaar maar hij rijd normaal niet ver genoeg om deze in te drukken
een tgv is vooraan nogal spits en dan is er een 5 cm ruimte om met de schakelaar te spelen wat schakel moment is

rijd hij toch te ver door dan heb ik nog zo een 30 cm spoor over om volledig tot stilstand te komen
maar op het filmpje stopt de trein wel op de lengte van 1 cm na het bedienen van de rail schakelaar
maar misschien beter een reed contact tussen de rails plaatsen en onder de trein een magneetje zetten zodat hij bij detectie reeds begint te remmen voor hij de schakelaar raakt
eens kijken of ik dat nog verwerkt krijg in die paar regels program code die ik over heb

gr raf en bedankt voor het mee denken

[raf]

Hallo
eventjes de stock gaan na zien en kijken wat we nog hebben om weer een schakeling te bouwen
ik haal het liefst niet teveel onder delen bij

nu het programma voor de egger bahn
deze moet HPWM worden
2 schakelaars
S1 is deze aan de cintel kuil
S2 is deze boven op de stortplaats of aan de fabriek
1 wissel dus 2 uitgangen
1 fluitje dus 1 uitgang (luidspreker heb ik reeds )
twee relais om de richting te sturen dus 1 uitgang ik ga proberen te foetelen met prog regels
1 timer voor de stilstaan tijd
1 timer voor de pwm
1 timer voor het fluitje
dat zal het zowat zijn mijn gedacht

dus nu dit alles in het programma proppen hahaha ik haast 20 regels nu

gr raf

[raf]

Hallo

we hebben iets meer schakelaars dan voor zien
de reden is dat ik hier wat meer controle wil hebben om de trein juister te laten stoppen dan de TGV

Code Selecteer Uitklappen


;program eggerbaan
Device 16f628a
 
CONFIG INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, LVP_OFF, MCLRE_OFF

Xtal=4
All_Digital= TRUE
PORTB_PULLUPS ON
     Dim a As word
     dim b as word
     dim c as word
     dim d as word
      symbol relais = porta.0       ;relais 1
      Declare CCP1_PIN PORTB.3     ; PWM op poort B.3
PORTB = %00000000
TRISB = %00010111

PORTA = %00000000
TRISA = %00000000
         c = 200
     a = 255
     symbol fluit = porta.4
    symbol s1 = portb.0               ;schakelaar aan de sintel kuil
    symbol s2 = portb.1               ;schakelaar aan het stort of de fabriek
    symbol s3 = porta.2               ;schakelaar juist voor de rem stroken
    symbol s4 = porta.3               ;schakelaar  aan het einde van de sporen
    symbol s5 = portb.2               ;jumper voor slaap tijd X 10 te doen
    if s5 = 0 then c = 2000  elseif c  = 200          ;jumperke zetten  slaap tijd X 10
main:
  if s3 = 0 then a = 255
if S3 = 0   then gosub timer
   if s1 = 0 or s2 = 0 and a = 1 then goto fluit1
hpwm 1,255,2000
goto main
   
timer:                            ;rem timer van 255 tot 0  of een schakelaar
if s1 = 0 or s2 = 0 then dec a

if s4 = 0  then a = 0
hpwm 1,a,2000
if s1 = 0 then relais = 1
if s2 = 0 then relais = 0
if a = 0 then goto slapen
goto timer

slapen:
for b = 1 to c       ;slaap tijd word langer door de jumper
delayms 100
next b
  a = 1
return

timer2:
  inc a                       ;optrekken na de slaap
hpwm 1,a,2000
if a = 255 then goto main
goto timer2

fluit1:
                        ;hier moet nog over nagedacht worden want normaal neemt de fluit ook het pwm kanaal in
goto timer2             ;dus ????? nog eventjes over denken hoe ik dit kan oplossen



dit zou het dus moeten zijn en nu testen of het virtueel werkt
zie ik dat de wissel er nog niet tussen staat( verdekke nog aan toe)
das voor als de rest reeds loopt

grrrr geen plaats meer voor de wissel sturing
gr raf