Proggie voor Stroboscoop effect......

[MP3-Junky]

Kent iemand een programma of plugin om je scherm om te toveren tot een stroboscoop??

ThnX

[schaduw]

gewoon de refreshrate van je monitor naar 50 Hz verlagen

[Verwijderd]

Spaanse pepers snijden en dan flink in je ogen gaan wrijven

[Verwijderd]

Ik heb maar ffe zitten knutselen

Je moet eerst ffe Qbasic van je Win98-CD halen (TOOLS\OLDMSDOS\QBASIC*.*), en de code ffe copy-pasten naar een .BAS file.

'Strobo.bas - Simpele stroboscoop
'
'Deze toetsen kun je gebruiken:
'
' Pijltjes = Langzamer of Sneller knipperen
' Enter = Default snelheid gebruiken
' Spatie = Wachten tot je weer kunt zien
' Escape = Ontsnappen
'
'(PS, de pijltjes slaan op de 2 & 8 pijltjes)

SCREEN 13

DefaultSnelheid% = 150
Snelheid% = DefaultSnelheid%

DO
LINE (0, 0)-(319, 199), 0, BF

FOR i% = 1 TO Snelheid%
WAIT 986, 8
NEXT i%

LINE (0, 0)-(319, 199), 15, BF

a$ = INKEY$
IF a$ <> "" THEN
SELECT CASE ASC(a$)
CASE 13: Snelheid% = DefaultSnelheid%
CASE 27: EXIT DO
CASE 32: a$ = INPUT$(1)
CASE 50: Snelheid% = Snelheid% + 1
CASE 56: Snelheid% = Snelheid% - 1
END SELECT
END IF
LOOP

SCREEN 0
WIDTH 80
PRINT "Je bent gestopt met Snelheid% ="; Snelheid%

[MP3-Junky]

Idee is leuk, alleen ik heb maar een 1/2 scherm en hij gat veel te snel...

maar bedankt voor de moeite!!

[Verwijderd]

Moet je de pijltjes ook gebruiken, en dan de defaultsnelheid% veranderen. Hoezo 1/2 scherm??

[MP3-Junky]

Ik heb met de snelheid alles geprobeerd...
Met half scherm bedoel ik dat alleen de bovenste helft van mijn scherm knippert niet de onderste..

[Verwijderd]

WOW!!! Pure Basic-code! Nostalgie ten top...

[PsychoG]

't kan aan mij liggen maar geeft je monitor daar niet te weinig 'licht' voor..?!?!

[Verwijderd]

Met de pijltjes bedoel ik ook de nummerieke-pijltjes (2 & . En voor een half scherm veranderje LINE naar: (blah blah)-(100,319)

Psycho heb je t geprobeerd??????

[johnwoo]

Ik heb zoiets vroeger ook wel eens geprobeerd, en bij mij tekende die ook maar een half scherm, terwijl ik toch een heel scherm aangaf.

Oorzaak: hij is nog bezig met het tekenen van dat witte vlak als de opdracht om het weer zwart te maken al komt. Dit komt door de - nogal trage - grafische functies van QB.
Oplossing: gebruik een mooie quicklibrary met assembly functies die *wel* snel zijn, en dan bij voorkeur eentje die backbuffering (oftewel pageflipping) aankan. Dan zie je de schermen niet meer 'getekend' worden maar staat het er in één klap.

Toen ik nog QB gebruikte (de good old days ) maakte ik heel veel gebruik van een kitje dat SvgaPV heette. Daar zitten een hele zooi grafische functies in (ook om bijv. resoluties van 1024x768 onder DOS te krijgen), en nog een paar extra dingetjes: CPU detection, mouse support, XMS support (EMS kun je niet gebruiken, die wordt door QB zelf gebruikt) en PCX routines. Kun je best toffe proggies mee maken (voor DOS dan); ik heb nog es een Windows kloon gefabriceerd.

[Verwijderd]

Johnwhoo, Heb je het programmaatje wel bekeken???? Hij doet 150!!!!! keer een Wait-for-retrace voordat ie weer tekent.

En QBasic is met dit niet langzamer dan ASM omdat ik line(x,x)-(x,x),Kleur,BF gebruik, de enigste manier omdit sneller te maken is
wat je al zei page-flipping te gebruiken.

MP3-Junky, als je dat bedoelt met 1/2 scherm,
dan moet je ook even een WAIT 986,8 voor de eerste line-functie zetten, dan moet het goed zijn.

[MP3-Junky]

Ik heb alles geprobeerd, maar heeft geen effect:nogsteeds half scherm...

Als ik de snelheid op langzaam zet, is het beeld bijna helemaal wit...Moet dit niet zwart zijn?(en af en toe wit?)

GrtNX

[Verwijderd]

MP3-Junky : Ik heb ook het een en ander geknutseld... Interesse?

Gr. Ron

[MP3-Junky]

Tuurlijk heb ik interesse!!!
Hebbe hebbe hebbe

[Verwijderd]

MP3-Junky : Als je de snelheid hoger instelt word ie langzamer,...

Snelheid = 1000 = langzaam
Snelheid = 1 = Ontiegelijk snel (Dus wit)

He Ron laat de jouwe eens zien????

[Verwijderd]

ok, ik heb mijn 'staaltje huisvleit' even geupload...

strobo.zip -> http://www.euro2000online.com/strobo.zip

Reacties zijn natuurlijk altijd welkom...

Gr. Ron

[MP3-Junky]

Ziet er leuk uit...
Alleen hij bouwt het scherm niet mooi op..
net of je pc het niet bij kan benen...
(ik heb het op 3 pc's geprobeerd, allemaal verschillende voedingen en andere monitoren)

ze hebben allemaal dit probleem...

Suggestie: Full screen option

Bedankt voor alle moeite alvast!!!

[Verwijderd]

Dat het scherm niet goed wordt opgebouwd heeft inderdaad te maken met het niet kunnen bijbenen van de PC...

Misschien dat gebruik van DirectX de boel is soepeler kan laten lopen...

Als ik tijd / zin heb wil ik hier weleens mee experimenteren...

Gr. Ron

[Verwijderd]

He Ron, niet echt smooth he? gebruik je Vierkantje.visible = True/False, en form.update = true/false???? Daar word ie ook smoother van.

Ik heb ook even STROBO.BAS geupdate, nu gebruikt ie page-flipping (Sneller & smoother). MP3-Junky deze doet wel een heel scherm!!!!!

komt ie:

'Strobo.bas - Simpele stroboscoop
'(Dit keer met page-flipping)
'
'Deze toetsen kun je gebruiken:
'
' Pijltjes = Langzamer of Sneller knipperen
' Enter = Default snelheid gebruiken
' Spatie = Wachten tot je weer kunt zien
' Escape = Ontsnappen
'
'(PS, de pijltjes slaan op de 2 & 8 pijltjes)

DefaultSnelheid% = 150
Snelheid% = DefaultSnelheid%

SCREEN 7, 0, 1, 0
LINE (0, 0)-(319, 199), 15, BF

DO
WAIT 986, 8
SCREEN 7, 0, 0, 0

FOR i% = 1 TO Snelheid%
WAIT 986, 8
NEXT i%

SCREEN 7, 0, 0, 1

a$ = INKEY$
IF a$ <> "" THEN
SELECT CASE ASC(a$)
CASE 13: Snelheid% = DefaultSnelheid%
CASE 27: EXIT DO
CASE 32: a$ = INPUT$(1)
CASE 50: Snelheid% = Snelheid% + 1
CASE 56: Snelheid% = Snelheid% - 1
END SELECT
END IF
LOOP

SCREEN 0
WIDTH 80
PRINT "Je bent gestopt met Snelheid% ="; Snelheid%

Zie je nu wel, geen link-libraries nodig met Basic Kan trouwens ook niet met Qbasic!!!

[MP3-Junky]

Dit lijkt er meer op

Is het ook mogelijk om hier een (windows) .exe van te maken??

ThnX!

[johnwoo]

DOS-exe moet niet zo moeilijk zijn... daar heb je LINK.EXE voor.

Win-exe zal niet gaan. Je kunt de code wel importeren in bijv. Visual Basic 5, maar runnen of compileren zal dan niet gaan. Het screen-statement bv. kent VB niet.
Je kunt proberen zo'n proggie onder Windows wel opnieuw te schrijven, maar echt snel zal het niet gaan. De grafische functies van Windows (GDI) zijn namelijk vooral bedoeld voor kantoorapplicaties (de 'gewone' windowtjes dus) en niet voor snelle grafische apps. Dan zal je toch C++ moeten gaan leren en een DirectX applicatie maken.

Just FYI...

[Verwijderd]

Om er een DOS-EXE van te maken moet je iemand zoeken die QuickBasic (nog) heeft.
Een Win-EXE kan niet, dit programma spreekt 'direct' met de Hardware.

Je kunt ook een shortcut maken met: 'Qbasic /run strobo.bas'.

[Verwijderd]

"...moet je iemand zoeken die QuickBasic (nog) heeft..."

OK, het .EXE-bestand van deze versie is nu ook beschikbaar:
strobo.zip -> http://www.euro2000online.com/strobo.zip

Gr. Ron

[MP3-Junky]

Ron, zou je hier ook een exe van willen maken?
------------------
'Strobo.bas - Simpele stroboscoop
'(Dit keer met page-flipping)
'
'Deze toetsen kun je gebruiken:
'
' Pijltjes = Langzamer of Sneller knipperen
' Enter = Default snelheid gebruiken
' Spatie = Wachten tot je weer kunt zien
' Escape = Ontsnappen
'
'(PS, de pijltjes slaan op de 2 & 8 pijltjes)
DefaultSnelheid% = 500
Snelheid% = DefaultSnelheid%

SCREEN 7, 0, 1, 0
LINE (0, 0)-(319, 199), 15, BF

DO
WAIT 986, 8
SCREEN 7, 0, 0, 0

FOR i% = 1 TO Snelheid%
WAIT 986, 8
NEXT i%

SCREEN 7, 0, 0, 1

a$ = INKEY$
IF a$ <> "" THEN
SELECT CASE ASC(a$)
CASE 13: Snelheid% = DefaultSnelheid%
CASE 27: EXIT DO
CASE 32: a$ = INPUT$(1)
CASE 50: Snelheid% = Snelheid% + 25
CASE 56: Snelheid% = Snelheid% - 25
END SELECT
END IF
LOOP

SCREEN 0
WIDTH 80
PRINT "Je bent gestopt met Snelheid% ="; Snelheid%

-----------------------

[Verwijderd]

MP3-Junky : check je mailbox voor de gecompileerde versie van bovenstaande code...

Gr. Ron

[MP3-Junky]

'K heb em...

BEDANKT ALLEMAAL!!