Station " Asche aan zee"

[raf]

Hallo

de oplossing gevonden voor het fluitje en meteen ook voor alle andere alarmen
ik ga een losse pic programmeren waar al de alarm lijnen op binnen komen
zo heb ik 7 ingangen om een alarm te detecteren en daar naargelang het alarm iets mee te laten schakelen
uitgang poortb.3 is de pwm en daar kan ik verschillende geluiden mee produceren
door nu naargelang de aangesproken poort de frequentie te veranderen krijg ik dus verschillende tonen naargelang de schakelaar

eens zien in hoeverre het gaat lukken

gr raf 

[raf]

Hallo

een proefje van het eerste alarm
nog net perfect maar we hebben reeds geluid
https://www.youtube.com/watch?v=tvSypPzEVYo&feature=youtu.be

bij bediening van een schakelaar gaat het alarm dus af
nu proberen een fluitje van de egger na te doen

gr raf

[raf]

het programma voor de egger klaar
de wissel sturing daar was nog geen plaats voor in het programma
deze is reeds getest maar in een apart progje en die werkt zoals gedacht

hier weer de code van de eger wendel baan

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
     
     
      Declare CCP1_PIN PORTB.3     ; PWM op poort B.3
PORTB = %00000000
TRISB = %00110111

PORTA = %00000100
TRISA = %00000000
         c = 200
     a = 255
     
     ;symbol s1 = portb.0               ;schakelaar aan de sintel kuil
    ;symbol s2 = portb.1               ;schakelaar aan het stort of de fabriek
    symbol s3 = portB.2               ;schakelaar juist voor de rem stroken
                                      ;symbol s4 = portB.4             
                                      ;schakelaar  aan het einde van de sporen
                                      ;poortb.5 is de jumper om de tijd te verlengen
    if portb.5 = 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 portb.0 = 0 or portb.1 = 0 and a = 1 then goto timer
hpwm 1,255,2000
goto main
   
timer:                            ;rem timer van 255 tot 0  of een schakelaar
if portb.0 = 1 and portb.1 = 1 then goto timer
while 1=1
dec a
if portB.4 = 0  then a = 0  and porta.3 = 0
hpwm 1,a,2000
delayms 50

if a = 0  then goto slapen
wend

slapen:
  if portb.1 = 0  then porta.0 = 0
if portb.0 = 0  then  porta.1 = 0
for b = 1 to c       ;slaap tijd word langer door de jumper
delayms 100
toggle porta.2
next b
  if portb.0 = 1 then  porta.1 = 1
  if portb.1 = 1  then  porta.0 = 1
  a = 1
  delayms 100
while 1 = 1
inc a                       ;optrekken na de slaap
hpwm 1,a,2000
delayms 50
if a = 255 then a = 1
if a = 1 then goto main
wend
  return

   
             ;eventueel een tweede pic die alleen de fluit doet misschien (dure oplossing LOL)
                       
                       
end

nu programmeren en testen op een bordje

gr raf

[TBCédric]

Goed dat je ermee opschiet Raf. zelf weet ik er niet veel van (niets) maar het is leuk dat je vordering maakt.

[raf]

Hallo
ach als je eenmaal terug het programmeren onder de knie hebt is alleen de 50 lijnen een probleem
er zijn oplossingen door het NIET defigneren van schakelaars maar meteen in het programma de poort aan te spreken
BV
"S1 =porta.0" dit kost 1 regel
"if S1 = 0 then goto loop" en dit kost je de volgende maar het is wel duidelijk leesbaar wat welke schakelaar doet
maar om regels te sparen doe ik het nu zo

"if porta.0 = 0 then goto loop"zo kan ik toch de poort afvragen maar ik spaar 1 regel en met een schakelaar of 3 heb je zo reeds 3 regels gespaard waar je dan weer iets anders mee kan doen
Het volledige programma is onder weg dus ik kan er volop tegen aan gaan als het hier is
ik ben nu de deeltjes voor de egger schakeling aan het bij elkaar zoeken zodat ik ze morgen kan gaan in elkaar zetten
maar je zult zien ik kom 1 weerstand te kort hahaha 47 K en nergens te vinden
morgen eens boven in de bakjes gaan graven of ik heb hier nog een pc liggen die hemelen is en misschien zit daar nog wel iets bruikbaars in

gr raf

[raf]

hallo
tussen het programmeren door een muurtje aan het gieten

nu ga je zeggen das makkelijk ;hars er in en klaar
maar ik wil een muurtje met aan 2 kanten stenen
ik heb dus nu een dunne laag hars gegoten en als deze hard is giet ik een tweede kant maar druk de reeds gegoten kant er terug in
zo krijg ik een plaat met aan twee kanten stenen hoop ik
want het is de eerste keer dat ik dit ga doen

ik wil een muur maken om het erf van de hoeve mee af te bakenen
er komt een grote poort in te zitten zoals hier op de casters hoeve

ik ga wel de poort gebruiken van de loc loods die ik heb omdat ik daar een malletje van heb
eventueel een beetje aan passen wat de hoogte betreft
nu nog een oplossing voor die pannetjes boven op de muur

voor vervolg blijf lezen
gr raf

[raf]

Hallo

Het lukt dus niet om een dubbel muur om deze manier te maken.
Het zal dus een dubbele mal moeten worden of een iets dikkere muur.
Dilemma alweer .
Kost wel wat om weer de mal te maken en dit voor maar een 40 cm muur.
Eens kijken of ik het niet anders kan oplossen door twee platen tegen elkaar te zetten.
Want daar een mal voor maken is gekke werk en kost te veel.

gr raf

[raf]

Hallo

het begin van de omheining van het boeren erf

dat boogje boven de poort gaat het meeste werk zijn maar het gaat goe komen mijn gedacht
een kant haast klaar en de poorten heb ik  ook reeds
nu nog de palen aan de ingang maken en dan afwerken met putty zodat er aan de binnen kant ook bakstenen  kunnen gemaakt worden.
gr raf

[raf]

Hallo

hier het vervolg

kwestie van nu te wachten tot de pannen zijn uitgehard en de tweede deur klaar is
dan wat plamuren en schuren en de eerste muur is klaar
dan op naar de volgende

gr raf

[Dirkh]

Mooi resultaat Raf,

Gaat een mooi erf worden.

[Steam.N]

Ziet er zeer goed uit, Raf !
Ik blijf volgen !

[raf]

Hallo

de eerste laag verf en het ziet er echt niet uit LOL

het lijkt wel een chinese muur want het rood is wel echt rood
maar na de witte voegen in de bakstenen en het verweren gaat het wel goed komen denk ik
ik zit nog met een dillema
ik heb nog de andere stenen muren maar ik vind de stenen veel te groot ten opzichte van de stenen van de gebouwen.
ik wil aan de achter kant van de gebouwen een betonnen muur (beton platen)en dan nog eens tuk met natuursteen en nu zin juist deze sten veel te grosseel.
eens kijken of ik hiervoor iets beter vind
gr raf die nog wat gaat verven

[TBCédric]

ching chang chong ding chong. Nee, zoals jij zegt zal het na een paar washjes  een mooie muur zijn. Trouwens niet alle gebruikte stenen zijn even groot.
Doe zo voort !

[raf]

hallo

hier zit er reeds een washe over heen met roestkleur


Ik weet niet of het goed te zien is maar ik heb het rood eerst gezet omdat ik nadien met een ruwe borstel de volgende lagen zet om zo een wat minder egale muur te bekomen
Ik ga er zelfs met een zeefje met wit overheen gaan want de stenen hebben zo van die witte spikkels en dat kun je doen met een zeefje en een tanden borstel maar dat is maar helemaal op het einde
hier alle potjes verf die ik bij deze muur ga gebruiken
vooral het bruin , beige en zwart gaan nog structuur aan de muur geven
daarna met vloeibaar licht beige de muur voegen en hopelijk lukt dit allemaal
voor het voegen gebruik ik verf op olie basis (rembrand)zo kan ik met terpentine het overtollige weg vegen zonder de onderlinge lagen van verf aan te tasten

straks nog een laag je doen en ik ben nu aan de poort bezig met groene en witte strepen
veul afplakken mijn gedacht

gr raf

[raf]

hallo
die witte en groene strepen zijn niet voor vandaag
als je langs de streep kleurt met dat groen krijg je dat nooit meer terug goed met wit bij te werken
dus voorlopig groene deuren tot ik er nieuwe heb gegoten
hier het muurtje zoals hij nu is want de bovenste dakpannen moeten er nog op komen maar das voor morgen



gr raf