PWS "Buizenpost" (inspiratie?)

Heey,

Na lang werken is ons profielwerkstuk af. We hebben een buizenpostsysteem (op schaal) gebouwd, waardoor bijv. medicijnen door een ziekenhuis heen geschoten kunnen worden. (ja we weten dat het al bestaat, maar we hadden gewoon zin om het te bouwen)

En ik dacht, misschien vinden jullie het leuk om het filmpje van een demonstratie ervan te bekijken, voor degene die volgend jaar een profielwerkstuk moeten bouwen (ter inspiratie). Het is overigens HAVO-niveau.



De wissels werken op luchtdruk, en alles wordt via de computer (d.m.v. Velleman K8055 bordje + door mij geschreven programma) aangestuurd.

Wat vinden jullie ervan?

[Naimin]

Woah dat is geweldig
Ik vind het heel knap dat je zoiets hebt kunnen maken

Naimin schreef:

Woah dat is geweldig
Ik vind het heel knap dat je zoiets hebt kunnen maken

Dankje!
Ik heb het overigens gelukkig niet alleen hoeven maken Mijn PWS-partner heeft zich wat meer met het bouwen bezig gehouden, ik wat meer met het programmeren...

[Naimin]

Was het programmeren moeilijk?
Of kan je zoiets wel met de standaard middelbareschool kennis alles wel maken?

Naimin schreef:

Was het programmeren moeilijk?
Of kan je zoiets wel met de standaard middelbareschool kennis alles wel maken?

Als je informatica hebt, zou je dit met Google erbij moeten kunnen programmeren. Ik heb voor de taal VisualBasic gekozen, die is vrij eenvoudig. Aansturen van onderdelen is ook vrij eenvoudig, bijv. gewoon SetDigitalChannel(3) om stroom op uitgang 3 (in ons geval de voorste wissel) te zetten.

Maar toch, ervoor zorgen dat dat ook op het juiste moment gebeurd blijft misschien voor de gemiddelde middelbare scholier wat lastig. Ik denk dan ook dat de standaard scholier de basis van een dergelijk systeem zou kunnen leggen, maar het niet zo uitgebreid als dat van ons zou kunnen maken (met bijv. sensoren die hem automatisch uitzetten, route berekening, etc.)

[Naimin]

Kan je het script hier posten, het lijkt me wel interessant om daar even naar te kunnen kijken.

Naimin schreef:

Kan je het script hier posten, het lijkt me wel interessant om daar even naar te kunnen kijken.

Ik post liever niet het hele script, maar zal hieronder een stukje ervan posten.
Het is wel een beetje een rommeltje geworden, ik had geen tijd meer om het op te schonen
Bovendien is dit niet helemaal de laatste versie

Private Sub MainControl_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MainControl.Tick
        If CheckStationSensor_finished = 0 Then
            If CheckStationSensor_NaarS = 1 Then
                poort = 2
            Else
                poort = 1
            End If
            If ReadAnalogChannel(poort) > 30 And CheckStationSensor_active = 0 And CheckStationSensor_stap > 50 Then
                ClearDigitalChannel(1)
                ClearDigitalChannel(2)
                GetBaanstuk(CheckStationSensor_NaarS)
                ZetWisselOm(3, False)
                ZetWisselOm(7, False)
                If NaarStation.Text = 1 Then
                    While gepauzeerd = 1
                        'wachten totdat we op hervatten klikken
                    End While
                End If
                BerekenEnLanceer(NaarStation.Text)
                CheckStationSensor_finished = 1
                CheckStationSensor_active = 1
                CheckStationSensor_stap = 0
                CheckStationSensor(CheckStationSensor_NaarS)
            Else
                CheckStationSensor_active = 0
                CheckStationSensor_stap = CheckStationSensor_stap + 1
            End If
        End If
    End Sub

    Private Sub BerekenEnLanceer(ByVal NaarS As Integer)
        ' ROUTE BEREKENING
        If NaarS = 1 Then
            Button1.Visible = False
        ElseIf NaarS = 5 Then
            Button5.Visible = False
        ElseIf NaarS = 9 Then
            Button9.Visible = False
        Else
            Button11.Visible = False
        End If
        If NaarS = GetBaanstuk(-1) Then
            Progress.Value = 100
            ' ClearDigitalChannel(1)
            ' ZET DE MOTOR UIT, WE ZIJN OP DE BESTEMMING
        ElseIf GetBaanstuk(-1) = 1 Then
            ' Capsule is in het hoofdstation
            If NaarS <> 5 Then
                ZetWisselOm(3, False)
                If NaarS <> 11 Then
                    ZetWisselOm(7, True)
                    ' ALS VOLTOOID; ZET DE MOTOR AAN
                    SetDigitalChannel(1)
                    CheckStationSensor(NaarS)
                    Progress.Value = 50
                Else
                    ZetWisselOm(7, False)
                    ' ZET DE MOTOR AAN
                    SetDigitalChannel(1)
                    CheckStationSensor(NaarS)
                    Progress.Value = 50
                End If
            Else
                ZetWisselOm(7, False) ' niet noodzakelijk, geeft wissel 3 meer druk
                ZetWisselOm(3, True)
                ' ZET DE MOTOR AAN
                SetDigitalChannel(1)
                CheckStationSensor(NaarS)
                Progress.Value = 50
            End If
        Else
            gepauzeerd = 1
            'Ga naar hoofdstation'
            If GetBaanstuk(-1) = 5 Then
                ZetWisselOm(7, False)
                ZetWisselOm(3, True)
                SetDigitalChannel(2)
                CheckStationSensor(1)
                Progress.Value = 25
                ' klaar om te gaan
            ElseIf GetBaanstuk(-1) = 9 Then
                ZetWisselOm(7, True)
                ZetWisselOm(3, False)
                SetDigitalChannel(2)
                CheckStationSensor(1)
                Progress.Value = 25
                ' klaar om te gaan
            ElseIf GetBaanstuk(-1) = 11 Then
                ZetWisselOm(7, False)
                ZetWisselOm(3, False)
                SetDigitalChannel(2)
                CheckStationSensor(1)
                Progress.Value = 25
                ' klaar om te gaan
            End If
        End If
    End Sub

    Public Function GetBaanstuk(ByVal nieuwBaanstuk As Integer) As Integer
        Static baanstuk As Integer
        Select Case nieuwBaanstuk
            Case -1
                Return baanstuk
            Case Is > -1
                baanstuk = nieuwBaanstuk
                Return baanstuk
        End Select
    End Function

[Naimin]

He bedankt, maakt niet uit dat het een stukje is. Ik wil er gewoon even naar kijken. Misschien is het wel wat voor mij om volgend jaar te doen .

Maar dan ga ik je natuurlijk helemaal overtreffen

Naimin schreef:

He bedankt, maakt niet uit dat het een stukje is. Ik wil er gewoon even naar kijken. Misschien is het wel wat voor mij om volgend jaar te doen .

Maar dan ga ik je natuurlijk helemaal overtreffen

Haha, ik kan het je zeker aanraden. Het programmeren stuk in ieder geval. Met zo'n Velleman K8055 bordje gaat dat echt lekker.

Het werken met een luchtdruksysteem is echter lastiger dan wij van te voren ingeschat hadden. Dat kan ik je dan ook iets minder aanraden. Misschien kun je beter een soort modelspoorbaan o.i.d. bouwen. Tenzij je natuurlijk een grote uitdaging zoekt, maar zeg niet dat ik je niet gewaarschuwd heb haha
Je kunt me altijd een PM sturen als je ergens niet uitkomt

p.s. ik ben nu al aan het nadenken wat ik in 6 VWO ga bouwen....

[Naimin]

Het programmeer werk ziet er best logisch uit.
En ik zal je het zeker vragen als ik er niet uit kom

Misschien is het wat om een magneettrein te maken (je weet wel, zo'n trein die zweeft boven het spoort)
Als je die kan maken en ervoor kan zorgen dat hij kan bewegen, verzeker ik je dan heb je een 10+++

Naimin schreef:

Het programmeer werk ziet er best logisch uit.
En ik zal je het zeker vragen als ik er niet uit kom

Misschien is het wat om een magneettrein te maken (je weet wel, zo'n trein die zweeft boven het spoort)
Als je die kan maken en ervoor kan zorgen dat hij kan bewegen, verzeker ik je dan heb je een 10+++

Haha, dat is exact waar ik al een tijdje aan zit te denken xD kun jij gedachten gelezen ofzo?

[Naimin]

Nee, maar wel creatief nadenken