SandMan
Als ik een koe was, mog jij me melken. ;-)
Hallo,
weet iemand misschien hoe ik mijn paralelle poort interface kan besturen met visual basic???
please help me!!!
Martijn Berntsen
pe4mb
met een dll, ik heb er wel een, heb je msn? dan stuur ik hem.
Martijn Berntsen
Erik
In order to succeed you must fail, so that you know what not to do the next time.
door hier te kijken:
Jeroen
Moderator
Door eens [url=www.circuitsonline.net/forum/search.php]te zoeken[/url] misschien?
Is al vaak langgekomen hier.
PowerPC603
4096 LED's of meer afzonderlijk sturen met parallelle poort? Easy...
Op mijn website heb ik een tooltje gezet: IOPort.
http://users.pandora.be/vge/ioport.zip
Als je deze file unzipt en installeert,
kan je dat heel simpel gebruiken.
Hier is de website waar het vandaan komt:
http://www.doc.ic.ac.uk/~ih/doc/par/doc/data.html#sources
Hier is hoe:
Na het laden van Visual Basic en uw project,
neem je in het menu:
Project -> Components...
In dit venster vink je ioport aan en klik op OK.
Dan komt in uw toolbar een ikoontje voor IOport te staan.
Dit klik je aan en je tekent een vierkantje in uw Form.
Wees gerust, bij het uitvoeren van het programma, wordt dit niet getoond.
In het properties-venster kan je de opties instellen.
Het is het beste dat je alles zo laat staan.
Om de waarde die op uw poort moet komen, te veranderen:
Ioport1.value = 255
Deze regel zet alle datapinnen HOOG.
[Bericht gewijzigd door PowerPC603 op ]
spitfire87
Ik ben geen pro in elektronica, maar daarom ben ik hier. :-)
he powerpc603 kan jij me met het volgende helpen???
ralais nr. knoppen
=======================
voor ralais 1 - 1 q a z
voor ralais 2 - 2 w s x <-- hier lijkt het verwarrend
voor ralais 3 - 3 e d c maar eigenlijk als
voor ralais 4 - 4 r f v je naar je toetsenbord
voor ralais 5 - 5 t g b kijkt dan staat het
voor ralais 6 - 6 y h n toch nog best logisch
voor ralais 7 - 7 u j m onder elkaar.
voor ralais 8 - 8 i k ,
ralais nr. knop / funktie
===========================================================
("wissel 1" betekent automatisch aan en uitschakelen met een tussen
tijd van 0,5sec. en "wissel 2" een tussen tijd van 1 sec.)
(1) 1=aan / uit(schakelaar funktie)
(1) q=wissel 1
(1) a=wissel 2
(1) z=reset (wissel-uit / schakel-uit)
(2) 2=aan / uit(schakelaar funktie)
(2) w=wissel 1
(2) s=wissel 2
(2) x=reset (wissel-uit / schakel-uit)
(3) 3=aan / uit(schakelaar funktie)
(3) e=wissel 1
(3) d=wissel 2
(3) c=reset (wissel-uit / schakel-uit)
(4) 4=aan / uit(schakelaar funktie)
(4) r=wissel 1
(4) f=wissel 2
(4) v=reset (wissel-uit / schakel-uit)
(5) 5=aan / uit(schakelaar funktie)
(5) t=wissel 1
(5) g=wissel 2
(5) b=reset (wissel-uit / schakel-uit)
(6) 6=aan / uit(schakelaar funktie)
(6) y=wissel 1
(6) h=wissel 2
(6) n=reset (wissel-uit / schakel-uit)
(7) 7=aan / uit(schakelaar funktie)
(7) u=wissel 1
(7) j=wissel 2
(7) m=reset (wissel-uit / schakel-uit)
(8) 8=aan / uit(schakelaar funktie)
(8) i=wissel 1
(8) k=wissel 2
(8) ,=reset (wissel-uit / schakel-uit)
div.opties
==========================================================
spatie = alles uit / reset
backspace = ralais als "knight rider"(+/- 1sec.tussentijd)
=========================================================
gebruik voor:
ik wil het gebruiken voor muzicols op de bassis scholen ,
tot nu toe heb ik een schakel paneel gebruikt maar ik wil
met behulp van de pc de lampen gaan schakelen ... ,
spullen heb ik er al voor maar krijg het maar niet
voor elkaar om een (SIMPEL) programma te maken
dat ik dit kan doen ik wil het ook best zelf maken
maar ik heb hier simpel weg TE weinig verstand van ,
heb trouwens al gezocht naar een boek over q-basic
maar kan niets vinden.
voorbeeld:
ik heb verschillende spots op de ralais staan
voor het voorbeeld gebruik ik per ralais 1 lamp ,
(b.v. ralais 1 = lamp 1)
alles staat uit.
terwijl er mensen de zaal in lopen druk ik eerst nog even op
"backspace" nu krijg ik een apart effect op het toneel,
ik ga beginnen dus druk ik op "spatie"
ik wil nu lamp 1 en 2 aan dus druk ik nu op "1" en dan op "2"
nu wil ik die weer uit en wil lamp 4 en 5 om en om laten knipperen
met een snelheid van 1 sec. dus druk ik nu op "1" en dan op "2"
(of spatie (=alles uit)) dan op "f" en dan op "g"
nu wil ik lamp 6 erbij laten knipperen op 0,5 sec. dus druk ik op
"y" nu ben ik klaar en druk dus op "spatie" ,
voordat de mensen de zaal uitlopen druk ik nog even op "backspace"
dat ik een leuk effect op het podium heb terwijl de mensen vertrekken
(ik gebruik natuuuuuuuurlijk ook die andere lampen maar anders word
mijn voorbeeld wel heel erg lang)
kun je dan niet beter een dmx sysje maken...(heeft ooit zoiets in de Elektuur gestaan)
offtopic: me = same person as SandMan.
[Bericht gewijzigd door Kayr Herkert op ]
spitfire87
Ik ben geen pro in elektronica, maar daarom ben ik hier. :-)
Op 2 januari 2004 12:22:24 schreef Kayr Herkert:
kun je dan niet beter een dmx sysje maken...(heeft ooit zoiets in de Elektuur gestaan)offtopic: me = same person as SandMan.
voor mij bedoeld? of iemand anders?
ik heb de ballen verstand van om programma's te maken mischien kan iemand dit voor mij doen in z'n vrije tijd?
PLEASE!
PowerPC603
4096 LED's of meer afzonderlijk sturen met parallelle poort? Easy...
Hoi Spitfire87,
Ik zou je hiermee wel kunnen helpen, maar ik gebruik zelf NTPort, i.p.v. IOPort.
Mijn vorige pc draaide nog met Windows98 (waarop IOPort werkte), maar mijn nieuwe pc draait met Windows XP.
Hierop werkt IOPort niet meer, omdat de parallelle poort niet direct toegankelijk is.
NTPort werkt identiek hetzelfde als IOPort, dat heb je waarschijnlijk al gelezen op die website van IOPort.
Maar als ik een tool voor jou zou schrijven, zal die dus NTPort gebruiken, tenzij je toch een beetje van Visual Basic afweet.
Als je al eens iets simpel hebt gemaakt met Visual Basic,
dan kan ik je wel de complete broncode voor die tool naar je opsturen (zodra die klaar is natuurlijk) en dan kan je zelf IOPort erin plaatsen.
Als je eventueel kan vermelden hoeveel ervaring je hebt met VB, dan kan ik aan de hand daarvan een hoop commentaar in de broncode zetten die voor jou begrijpelijk is.
En eventueel een apart readme-bestand meesturen waarin vermeld staat wat je moet doen om IOPort erin te plaatsen.
Je mag altijd een e-mail rechtstreeks sturen, indien nodig.
Vermeld dan wel jouw nickname (= Spitfire87), dan weet ik dat het van jou komt.
Let wel: ik heb een AZERTY-toestenbord, dus kan het zijn dat je de toetsen zou moeten aanpassen.
Ik ben niet zeker maar volgens mij moet je gewoon aan het begin van het programma!
Config port??? as output
normaal werkt dit dan zo werkt het toch op school
PowerPC603
4096 LED's of meer afzonderlijk sturen met parallelle poort? Easy...
Dierickx,
Config port??? as output
Toch niet bij IOPort?
Wanneer je een toepassing start waarin IOPort zit, staat IOPort altijd standaard op output (bij mij toch alleszins).
Ik heb reeds veel tools met IOPort (en daarna met NTPort) geschreven en bij geen enkel tool, dat enkel data uitstuurt, heb ik de poort op output moeten zetten.
PowerPC603
4096 LED's of meer afzonderlijk sturen met parallelle poort? Easy...
Ik ben reeds begonnen aan uw programma.
Het zal nog een paar dagen duren vooraleer het af is.
Ik zal ook zoveel mogelijk commentaar in de broncode zetten in het Nederlands (ik gebruik normaal gezien Engels).
Het programma zal ook zeer simpel opgebouwd zijn, zodat je altijd eenvoudig dingen kan aanpassen.
PowerPC603
4096 LED's of meer afzonderlijk sturen met parallelle poort? Easy...
Het programma is bijna af.
Het is toch ingewikkelder geworden dan ik had gedacht.
Ik heb met geïndexeerde knoppen en timers moeten werken,
anders werd de broncode veeeeel te lang en totaal onoverzichtelijk.
Maar wees gerust, het werkt reeds zonder fouten.
Het knightrider effect werkt ook reeds (met 3 lampen die heen en weer gaan).
Dit zijn de stappen van de knight rider:
Stap 1: lamp 1 aan, rest uit
Stap 2: lampen 1 en 2 aan, rest uit
Stap 3: lampen 1, 2 en 3 aan, rest uit
Stap 4: lampen 2, 3 en 4 aan, rest uit
Stap 5: lampen 3, 4 en 5 aan , rest uit
Stap 6: lampen 4, 5 en 6 aan, rest uit
Stap 7: lampen 5, 6 en 7 aan, rest uit
Stap 8: lampen 6, 7 en 8 aan, rest uit
Stap 9: lampen 7 en 8 aan, rest uit
Stap 10: lamp 8 aan, rest uit
En ditzelfde patroon ook omgekeerd (van stap 10 terug naar 1).
IOPort zal je er wel zelf moeten inplaatsen.
Laat me weten of dit reeds goed is.
Hier is een screenshot van de Spots Controller:
http://users.pandora.be/vge/CircuitsOnline/SpotsController.jpg
Ik hoop dat je het goed vindt.
Die "Port output value" onderaan verdwijnt nog.
Ik gebruikte deze om te debuggen en om tijdelijk IOPort te vervangen.
Oh ja, die rode bolletjes duiden aan dat die specifieke uitgang "uit" is.
Ze worden groen als de uitgang "aan" is.
PowerPC603
4096 LED's of meer afzonderlijk sturen met parallelle poort? Easy...
Het volledige programma is af.
http://users.pandora.be/vge/CircuitsOnline/SpotsController.zip
Je moet wel nog IOPort toevoegen en nog een nieuwe regel in de file "SubRoutines.bas".
Zie de bijgevoegde Manual.txt voor info hierover.
spitfire87
Ik ben geen pro in elektronica, maar daarom ben ik hier. :-)
Op 9 januari 2004 16:46:33 schreef PowerPC603:
Het volledige programma is af.http://users.pandora.be/vge/CircuitsOnline/SpotsController.zip
Je moet wel nog IOPort toevoegen en nog een nieuwe regel in de file "SubRoutines.bas".
Zie de bijgevoegde Manual.txt voor info hierover.
hee hardstikke bedankt !
het werkt goed, dus.
DANK U!
IOport toevoegen.
Bij mijn staat IOport niet in de componenten. en ik heb visual basic 6.
kan iemand dat bestand op internet zetten?
spitfire87
Ik ben geen pro in elektronica, maar daarom ben ik hier. :-)
HAHAH , klopt ... , is idd al een jaar oud .. meer zelfs 
PowerPC603
Kan je nogeens dat programma beschikbaar stellen op je site of emailen naar fuseboy26@gmail.com
http://users.pandora.be/vge/CircuitsOnline/SpotsController.zip