SchemaTheek
 
Home Nieuws Forum Schema's Artikelen Magazine Downloads Links Shops Zoeken
 
Controle Paneel
Gebruikersnaam
Wachtwoord
  Onthoud mij
» Wachtwoord?
» Registreren
Site info
» Het Team
» Contact
» FAQ
» Leden
» Upload Archief
Stats
Totaal online: 13
13 gasten
0 leden:
Forum > Computer > looplicht in vb
jeffrey_om
Lid
Berichten: 269
Gepost op maandag 12 Maart 2012 19:46:15 QuoteWijzig

Hallo allemaal

Voor mijn opleiding midderkader engineering(richting elektronica) moet ik een relais kaart maken waarop 8 relais zitten. Voor deze kaart moet software worden geschreven.



Hier boven zie je het programma wat de leraar heeft gemaakt. Ik moet de code zelf toevoegen om een werkend geheel te krijgen.

1. Doormiddel van de drukknoppen 1/tm 8 kun je de lamp kiezen die aan moet.
2. In de textbox moet ik een getal typen en als ik op send druk moeten de verschillende lampen aangaan.
3. Als ik op looplicht druk moet moeten de lampen in looplicht gaan.


Code
Option Strict On
Option Explicit On

Public Class Form1

    Public Declare Function Inp Lib "InpOut32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer
    Public Declare Sub Outp Lib "InpOut32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

    Private optocoupler, relais, relaisbegin As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        clear()
    End Sub

    Private Sub lampPage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lampPage.Click
        clear()
    End Sub

    Private Sub oneBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles oneBtn.Click
        relais = 1
        Outp(&H378, relais)     'zet relais 1 aan en de rest uit
    End Sub

    Private Sub twoBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles twoBtn.Click
        relais = 2
        Outp(&H378, relais)     'zet relais 2 aan en de rest uit
    End Sub

    Private Sub threeBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles threeBtn.Click
        relais = 4
        Outp(&H378, relais)     'zet relais 3 aan en de rest uit
    End Sub

    Private Sub fourBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fourBtn.Click
        relais = 8
        Outp(&H378, relais)     'zet relais 4 aan en de rest uit
    End Sub

    Private Sub fiveBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fiveBtn.Click
        relais = 16
        Outp(&H378, relais)     'zet relais 5 aan en de rest uit
    End Sub

    Private Sub sixBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sixBtn.Click
        relais = 32
        Outp(&H378, relais)     'zet relais 6 aan en de rest uit
    End Sub

    Private Sub sevenBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sevenBtn.Click
        relais = 64
        Outp(&H378, relais)     'zet relais 7 aan en de rest uit
    End Sub

    Private Sub eightBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eightBtn.Click
        relais = 128
        Outp(&H378, relais)     'zet relais 8 aan en de rest uit
    End Sub

    Private Sub sendBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sendBtn.Click
        relais = CInt(byteBox.Text)

        Outp(&H378, relais)
    End Sub

    Private Sub loopBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles loopBtn.Click
        If relais = 0 Then relais = 1
        relaisbegin = relais
        Timer3.Start()


    End Sub

    Private Sub cranePage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cranePage.Click
        clear()
    End Sub

    Private Sub stopBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopBtn.Click

    End Sub

    Private Sub forwardBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles forwardBtn.Click

    End Sub

    Private Sub backwardsBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles backwardsBtn.Click

    End Sub

    Private Sub rightBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rightBtn.Click

    End Sub

    Private Sub leftBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles leftBtn.Click

    End Sub

    Private Sub upBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upBtn.Click

    End Sub

    Private Sub downBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles downBtn.Click

    End Sub

    Private Sub buttonPage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonPage.Click
        clear()
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        optocoupler = (Not (Inp(&H379)  8)) And 15     ' lees 1e vier optocouplers in
        Outp(&H37A, 12)                                 ' selecteer 2e vier optocouplers
        Timer2.Start()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Timer2.Stop()
        optocoupler = ((Not (Inp(&H379) * 2)) And 240) Or optocoupler   ' lees 2e vier optocouplers in
        Outp(&H37A, 0)                                                  ' selecteer 1e vier optocouplers
        Timer1.Start()
    End Sub

    Private Sub clear()
        relais = 0
        Outp(&H378, relais)     'zet alle relais uit
        Outp(&H37A, 0)          'selecteer 1e vier optocouplers
        Timer1.Stop()
        Timer2.Stop()
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Timer3.Stop()


        relais = relais * 2
        If relais > 128 Then relais = relaisbegin


        Outp(&H378, relais)

        Timer3.Start()

    End Sub
End Class


Dit is de code die ik al heb. Er staat ook een gedeelte van de Crane in die hoeft niet en Buttuns ook niet. Alleen het gedeelte van de lamp.

Nu is mijn vraag kan iemand mij hierbij helpen. Ik doe Visual basic nog maar een paar weken.
pascalbianca
Lid
Berichten: 1437
Gepost op dinsdag 13 Maart 2012 14:44:26 QuoteWijzig

Mischien even vermelden welke VB versie dit is want ik kan zo niet opmaken of je VB2005 , 2008 of de VB.Net versie hebt, dit namelijk ivm toepassing van codes.


http://pascalbianca.blogspot.nl/
jeffrey_om
Lid
Berichten: 269
Gepost op dinsdag 13 Maart 2012 16:04:53 QuoteWijzig

Vb 2008

Ik was het helemaal vergeten te vermelden. pascalbianca als je op de foto had geklikt kon je zien welke versie ik gebruik. Het staat helemaal boven.
 
[Bericht gewijzigd door jeffrey_om op Dinsdag 13 Maart 2012 18:50:31]


Active Topics

» Werkplaatsinrichting
» Show je mini projecten
» 2022
» De tuin.
» li-ion diepontlaadbev...
» Subaru Outback 2016
» Schema voor voeding me...
» 24 volt naar 12 volt?
» ? => Mini kerstlan...
» Lengteaanslag verstekzaag

» Meer actieve topics

Advertenties

PCBway

© 2004-2022 SchemaTheek
Laadtijd: 0.13973 sec.