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

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.

Mooi programma, waar wat kleine schoonheidsfoutjes in zitten. (Een paar clear screens bijv.)

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

Wat is het verschil bij de effecten tussen nr 1 & 3???

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

euh, bij mij niet, maar zal nog es kijken

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

Ow w8 ik zal er ff na kijken...

En die clearscreens ook ff verbeteren..

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.

ik heb win2000 en programma van randy werkt perfect bij mij

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

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

heeft er ook, iemand zo een proggama code voor in ms dos promt dat op 10mhz draait

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 :S

[knip]emailadres hier maar weggehaald[/knip]

[Bericht gewijzigd door Pieterjan V. op (13%)]

staat in je inbox als het goed is