| Controle Paneel |
|
|
|
| Site info |
»
»
»
»
» Upload Archief
|
|
| Stats |
Totaal online: 13
13 gasten
0 leden: |
|
|
| Forum > Computer > looplicht in vb |
|
|
Gepost op maandag 12 Maart 2012 19:46:15 |
  |
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. |
|
|
|
|
|
|
|
