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 > Programma voor Paralellepoort maken.
jeffrey_om
Lid
Berichten: 269
Gepost op zondag 25 Maart 2012 19:22:57 QuoteWijzig

Hallo allemaal,

Ik wil een programma maken voor het aan sturen van mijn zelfgemaakte relaiskaart die ik op de parallele poort aansluit.

Zo ziet mijn programma eruit.
Als ik op de aan/uitknop druk bij relais 1 gaat relais 1 aan. In het programma wordt het woord uit in aan gewijzigt en het rode vlak word groen. Als ik weer op aan/uit druk gaat relais 1 naar de begin positie uit.

Bij de input word het woord uit in aan verandert als de input wordt geschakeld en het rode vlak wordt groen. Als de input niet meer wordt geschakeld gaat deze weer naar de begin positie.

Ik heb Visual Basic 2008.Zou iemand mij kunnen helpen om te zorgen dat mijn programma goed werkt. Mijn grooste probleem is om signalen te sturen en te ontvagen via mijn paralelle poort.

Deze relais kaart moest ik met mijn klas op school maken.Dit programma wil ik voor mij zelf maken. Als extra voor mijn relais kaart.
jeffrey_om
Lid
Berichten: 269
Gepost op maandag 26 Maart 2012 21:17:54 QuoteWijzig

Dit is het stukje code wat ik al heb geschreven.

Code
Option Strict On
Option Explicit On

Public Class Controller

    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 inputValue As Integer

    Dim aan, uit, relais1, relais2, relais3, relais4, relais5, relais6, relais7, relais8, relaisValue As Integer
    relaisValue = relais1 + relais2 + relais3 + relais4 + relais5 + relais6 + relais7 + relais8

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rAButton1.Click
        relaisCollorBox1.BackColor = Color.Green
        rLabel1.Text = "Aan" & CStr(relais1) = 1

        Outp(&H378, relaisValue)
    End Sub

    Private Sub rUButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rUButton1.Click
        relaisCollorBox1.BackColor = Color.Red
        rLabel1.Text = "Uit" & CStr(relais1) = 0
    End Sub
End Class


En het menu ziet er nu zo uit.


De code die ik heb geschreven is voor het eerste relais. Alleen zou ik nog ervoor moeten zorgen dat het relais wordt geschakeld. Alleen klopt de code niet helemaal.

Kan iemand mij mischien helpen?

pascalbianca
Lid
Berichten: 1444
Gepost op maandag 26 Maart 2012 23:00:03 QuoteWijzig

Als deze iets weg heeft van die velleman relai kaart K8056 zou je kunnen kijken of je daar die dll file van kunt gebruiken.
Anders eens je schema van die relai kaart plaatsen, dan kan er makkelijker naar gekeken worden wat wat aanstuurt.
Enkele maanden terug heb ik via de parallele poort voor iemand een print gemaakt die daarop reageerde, maar dan ben je bekend met het schema , dus handig als je hem even plaatst.

M.v.g. Pascal.


http://pascalbianca.blogspot.nl/
jeffrey_om
Lid
Berichten: 269
Gepost op dinsdag 27 Maart 2012 21:08:18 QuoteWijzig

Ik heb niet een echt schema maar wat ik wel heb is dit.









En hier nog 2 foto's van mijn voeding die hier bijn hoort.




Pascalbianca
hij ziet erongeveer zo uit. Helaas de relais kaart die je noemt wordt aangestuurd doormiddel van de serieele poort en ik gebruik de paralelle poort.

pascalbianca
Lid
Berichten: 1444
Gepost op woensdag 28 Maart 2012 22:03:32 QuoteWijzig

Ik post deze link, niet om reclame te maken , sommige van jullie kennen de link en zullen ook snappen dat , vooral deze post, iets te lang is en is door een van de leden hier aangemaakt.
In die post zie je hoe je connectie via een paralle poort doet om rechtstreeks iets te sturen.
Dit is de Link

Wat ook zou kunnen , als je via com had gewerkt deze Link te proberen.
 
[Bericht gewijzigd door pascalbianca op Woensdag 28 Maart 2012 22:07:18]


http://pascalbianca.blogspot.nl/
jeffrey_om
Lid
Berichten: 269
Gepost op woensdag 28 Maart 2012 22:19:28 QuoteWijzig

Dankje voor die link.

Ik zal eens wat proberen of ik hier iets mee kan. Ik laat weten of het gelukt is of niet.


Active Topics

» De tuin.
» De gevolgen van een kl...
» Afstandsbediening plaf...
» Virtual Chemist probleem
» Probleem met Toyota Av...
» Whirlpool kookplaat
» 24 volt motor vertrage...
» Show je mini projecten
» Purer 8.3se
» MULTIMETERS geven alle...

» Meer actieve topics

Advertenties

PCBway

© 2004-2022 SchemaTheek
Laadtijd: 0.24903 sec.