Plasma in vb 
Author Message
 Plasma in vb

Is it possible to create this effect in vb(6)? If so, can someone convert it
to vb code for me?
All help appreciated.
Thanx!

QB45 code:

'Begin Code
DO UNTIL INKEY$ <> ""               'Color Cycle!
FOR n = 1 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9): NEXT
m: NEXT n
c(255, 0) = co(1, 0): c(255, 1) = co(1, 1): c(255, 2) = co(1, 2)
FOR n = 1 TO 254: FOR m = 0 TO 2: c(n, m) = co(n + 1, m): NEXT m: NEXT n
FOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT m:
NEXT n
FOR x = 1 TO 50: FOR w8 = 1 TO 5000: NEXT w8: NEXT x 'Slow down
LOOP
'End code




Sat, 10 Nov 2001 03:00:00 GMT  
 Plasma in vb
Don't know these functions in VB:

OUT()
INP()

I'm interested in plasma too !!

Pete



Quote:
> Is it possible to create this effect in vb(6)? If so, can someone convert
it
> to vb code for me?
> All help appreciated.
> Thanx!

> QB45 code:

> 'Begin Code
> DO UNTIL INKEY$ <> ""               'Color Cycle!
> FOR n = 1 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9):
NEXT
> m: NEXT n
> c(255, 0) = co(1, 0): c(255, 1) = co(1, 1): c(255, 2) = co(1, 2)
> FOR n = 1 TO 254: FOR m = 0 TO 2: c(n, m) = co(n + 1, m): NEXT m: NEXT n
> FOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT
m:
> NEXT n
> FOR x = 1 TO 50: FOR w8 = 1 TO 5000: NEXT w8: NEXT x 'Slow down
> LOOP
> 'End code





Tue, 13 Nov 2001 03:00:00 GMT  
 Plasma in vb

Peter Quick heeft geschreven in bericht

me neither :(, can someone please tell me if it possible to create plasma
screens in vb5/6?
thanx!

Quote:
>Don't know these functions in VB:

>OUT()
>INP()

>I'm interested in plasma too !!

>Pete



>> Is it possible to create this effect in vb(6)? If so, can someone convert
>it
>> to vb code for me?
>> All help appreciated.
>> Thanx!

>> QB45 code:

>> 'Begin Code
>> DO UNTIL INKEY$ <> ""               'Color Cycle!
>> FOR n = 1 TO 255: OUT &H3C7, n: FOR m = 0 TO 2: co(n, m) = INP(&H3C9):
>NEXT
>> m: NEXT n
>> c(255, 0) = co(1, 0): c(255, 1) = co(1, 1): c(255, 2) = co(1, 2)
>> FOR n = 1 TO 254: FOR m = 0 TO 2: c(n, m) = co(n + 1, m): NEXT m: NEXT n
>> FOR n = 1 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): NEXT
>m:
>> NEXT n
>> FOR x = 1 TO 50: FOR w8 = 1 TO 5000: NEXT w8: NEXT x 'Slow down
>> LOOP
>> 'End code





Tue, 13 Nov 2001 03:00:00 GMT  
 
 [ 3 post ] 

 Relevant Pages 

1. Creating Plasma Screens

2. Plasma clouds

3. Plasma graphic?

4. Plasma effect for PowerBASIC

5. Plasma in QBasic 4.50

6. Plasma Generators

7. Coding plasmas...

8. Cheap Plasma TV N8

9. Detecting Mouse Click in Non-VB or VB app (in VB 6)

10. vb MSCOMM Control works in VB 5 and not VB 6

 

 
Powered by phpBB® Forum Software