Hoi!
Voor de schakeling van 'parallelle poort interface' op deze site waar je 8 ledjes kunt aansturen, heb ik
een Programmatje gemaakt in Qbasic (mooi programmatje van 366 regels script)..
Dit is alvast een test versie (is nog niet helemaal af..)
Als iemand de schakeling heeft gemaakt kun je hem met dit proggie aansturen...
Url: Progie
Misschien dat iemand even wat zegt over hoe die het programma tot nu toe vind..
Groeten Randy
Thomas
Hello, I'm a signature virus. Please copy me into Hello, I'm a signature virus scanner. I succesfully deleted your signature virus.
Tof programma, maar de url gaf een "bad gateway". Het werkt wel als bij http://members.lycos.nl/jackass638/ op "PCIAC.exe" klikt. Verder zou het leuk zijn als je de source code ff vrijgeeft, dan kunnen anderen er ook verbeteringen aan maken.
Jah dat van bad gateway had ik ook zoiets... Dan moet je idd ff naar http://members.lycos.nl/jackass638/
en dan op het bestandje klikken om te downloaden...
De SourceCode staat er nu ook ff op (SourceCode.bas)..
Tristan bedoel je dat als je b.v naar een submenu gaat dat het hoofdmenu moet blijven staan?
Als iemand nog tips heeft voor verbeteringen graag!
Als ik hem helemaal af heb dan upload ik um wel naar die server.
Groeten Randy
Uhm nr 1 gaan de ledjes heen en weer, en bij nr 3 kun je later kiezen welke ledjes aan en uit gaan en met welke snelheid..
Groeten Randy
Op 10 juli 2003 17:07:23 schreef kingjotte:
euh, bij mij niet, maar zal nog es kijken
Waar gaan ze niet heen en weer? Bij de Ledjes of in het programma?
Op 10 juli 2003 16:33:12 schreef Randy:
Tristan bedoel je dat als je b.v naar een submenu gaat dat het hoofdmenu moet blijven staan?
Nee, bij sommige gaat het hoofdmenu juist niet weg...
Op 10 juli 2003 17:22:37 schreef Randy:
[...]
Waar gaan ze niet heen en weer? Bij de Ledjes of in het programma?
Ze gaan juist bij alle twee heen en weer
Dat 1 en 3 hetzelfde zijn is dat ik bij optie 3 (bij het effects-menu), geen statementblock onder CASE "3"
Daarom gaat ie naar optie 1 toe.
maar aan optie 3 ben ik nog bezig...
Groten Randy..
Heb ff een vraagje aan iemand die met QBasic programmeert:
dit is de code probeer hem maar uns uit:
CLS
'Variablen:
dq = 0
dw = 0
de = 0
dr = 0
dt = 0
dy = 0
du = 0
di = 0
'---------
COLOR 14
LOCATE 1, 1
PRINT
PRINT
PRINT
COLOR 1
PRINT "D1 D2 D3 D4 D5 D6 D7 D8"
PRINT
PRINT
COLOR 4
DO
char$ = INKEY$
IF char$ = CHR$(27) THEN END
IF char$ = "1" THEN
char$ = "x"
IF dq = 1 THEN : LOCATE 6, 1 * 1: PRINT " ": dq = 0
IF dq = 0 THEN : LOCATE 6, 1 * 1: COLOR 9: PRINT "X": dq = 1
END IF
IF char$ = "2" THEN
char$ = "x"
IF dw = 1 THEN : LOCATE 6, 1 * 5 + 1: PRINT " ": dw = 0
IF dw = 0 THEN : LOCATE 6, 1 * 5 + 1: COLOR 9: PRINT "X": dw = 1
END IF
IF char$ = "3" THEN
char$ = "x"
IF de = 1 THEN : LOCATE 6, 2 * 5 + 1: PRINT " ": de = 0
IF de = 0 THEN : LOCATE 6, 2 * 5 + 1: COLOR 9: PRINT "X": de = 1
END IF
IF char$ = "4" THEN
char$ = "x"
IF dr = 1 THEN : LOCATE 6, 3 * 5 + 1: PRINT " ": dr = 0
IF dr = 0 THEN : LOCATE 6, 3 * 5 + 1: COLOR 9: PRINT "X": dr = 1
END IF
IF char$ = "5" THEN
char$ = "x"
IF dt = 1 THEN : LOCATE 6, 4 * 5 + 1: PRINT " ": dt = 0
IF dt = 0 THEN : LOCATE 6, 4 * 5 + 1: COLOR 9: PRINT "X": dt = 1
END IF
IF char$ = "6" THEN
char$ = "x"
IF dy = 1 THEN : LOCATE 6, 5 * 5 + 1: PRINT " ": dy = 0
IF dy = 0 THEN : LOCATE 6, 5 * 5 + 1: COLOR 9: PRINT "X": dy = 1
END IF
IF char$ = "7" THEN
char$ = "x"
IF du = 1 THEN : LOCATE 6, 6 * 5 + 1: PRINT " ": du = 0
IF du = 0 THEN : LOCATE 6, 6 * 5 + 1: COLOR 9: PRINT "X": du = 1
END IF
IF char$ = "8" THEN
char$ = "x"
IF di = 1 THEN : LOCATE 6, 7 * 5 + 1: PRINT " ": di = 0
IF di = 0 THEN : LOCATE 6, 7 * 5 + 1: COLOR 9: PRINT "X": di = 1
END IF
char$ = "x"
LOOP
De bedoeling is dat als je een cijfer indrukt (1 t/m 8), dat er een 'X' komt te staan onder het LED-nummer (D1 t/m D8).
Maar als er al een 'X' onder b.v D3 staat.. ..en je drukt het cijfer 3 nog eens in, dan moet de 'X' weg gaan..
Maar dat gebeurt niet.
Weet iemand misschien wat ik fout heb gedaan in het script, want zelf kan ik er niet achter komen 
Groeten Randy
Ik had het zelf al gevonden met die fout in de code..
Het programma heb ik nu klaar:
http://members.lycos.nl/jackass638/
En dan op PCIAC.exe voor te downloaden..
Grt Randy
Dit is ovrigens een hele bekende fout in het programmeren
Wat het programma doet is denken , ow dq is 1 dus we doen die dingen en maken dq 0.
Oh kijk aan dq is 0 dus dan doen we dat allemaal ook.
je moet met begin end's werken en met een if..then..else structuur
hey randy,
ik vind je programma'tje goed gemaakt, ik had het vroeger ook eens geprobeerd in qbasic. Maar ik vond dat qbasic iets te veel beperkingen had, en heb het daarom gedaan in VB (http://users.pandora.be/pieterofstairs/download/program.zip). Dit programma werkt goed op windows 95 (net zoals dat van randy). Mijn programma werkt bij mij niet op windows xp, maar dat van randy ook niet!! Zou het dan aan mijn pc liggen, en werken beide programma's ook bij anderen niet op windows xp??
Het is logisch dat het programma niet werkt onder windows XP. In ME of NT doet het het ook niet waarschijnlijk.
Hoe dat komt? -> Eenvoudig. Na windows 98 is het niet meer mogelijk om rechtstreeks de parallelle poort aan te sturen, en moet dit via een driver verlopen. Die driver zit niet gekoppeld aan het programma dus werkt het niet.
Op 13 juli 2003 17:48:48 schreef beertje_01:
ik heb win2000 en programma van randy werkt perfect bij mij
Zou idd kunnen dat het in 2000 nog wel werkt, omdat dit eigenlijk een programma is voor professioneel gebruik heb ik dat even niet meegerekend. in XP zit in ieder geval achter een driver
ok, ik dacht al zoiets. Maar mijn prog (met teller enzo), heb ik gemaakt voor op oude pc die op mijn kamer staat, om zo licht, soldeerbout, deur, ... aan te sturen. Die pc heeft windows 95, dus daar draait het perfect op. Maar ik zou het ook graag op windows xp laten draaien... Weet iemand iets meer over drivers voor parallele poort (gekoppeld aan VB of C#)??
thx
Sander Aerts
mov ax, 0x13h; mov es, ax; int 10h; mov ax, 0xA000h; mov es, ax; mov di, 1; mov al, 15; stosb; mov ax, 0x03h; mov es, ax; int 10h;
Ook mensen interesse in een windows versie?, dan post ik hem hier hij is wel in c++ en met behulp van parport.com een lib wat voor directe lpt poort aansturing zorgt in windows 
grtz Sander
Stynus
Met vriendelijke groet, Stynus ||| http://www.elektronicastynus.be
welke versie van ms dos?? Normaal gezien zou qbasic daar wel moeten op werken, dus randy's progamma (of een vereenvoudigde versie), zou daar moeten op werken (het is niet groot ook, kan dus op diskette (of heeft die pc een cd-rom:p?).
Wil iemand dit programma es naar me mailen, downloaden lukt me niet, steeds doorverwezen naar een pagina die zegt dat ik rechtstreeks moet downen, maar dat doe ik toch al 
[knip]emailadres hier maar weggehaald[/knip]
[Bericht gewijzigd door Pieterjan V. op (13%)]