Images en quadrichrome sur vg5000

Cette catégorie traite de développements récents pour nos vieilles machines, applications, jeux ou démos... Amis programmeurs, c'est ici que vous pourrez enfin devenir célèbres!

Modérateurs : Papy.G, fneck, Carl

Avatar de l’utilisateur
rendomizer
Messages : 413
Inscription : 17 juin 2016 21:00
Contact :

Re: Images en quadrichrome sur vg5000

Message par rendomizer »

Je suis enfin arrivé à quelque chose... :) rouge à 255, vert à64, bleu à 50 sur 1x 6 pixels de haut. youpi ! un grand merci à vous et surtout sam pour le "readbyte " !

Code : Tout sélectionner

 
file$=RequestFile$("choose a wav file","raw",False)  
 
 Graphics 800,600,32,2  

  Dim num(100000)    

   fil=OpenFile(file$)         

  For i=1 To 2500 

   num(i)=ReadByte (fil)    

  Next       

  CloseFile(dataout)

  For i=1 To 600 Step 3: v=v+1

 y=num(i) 
 
y2=num(i+1) 

y3=num(i+2)

y4=num(i+3)

Line 0,250,0,0

 Color 255,255,255 

 
Text x,u,"octet"+y
  
Text x+80,u,"octet"+y2

Text x+160,u,"octet"+y3

 Text x+500,u,"?"+v

   u=u+10
If  u>600 Then u=0:Delay 100000:End
  Flip  

   Next 
  

Delay 50000


Pièces jointes
Capture d’écran de 2020-12-06 09-59-44.png
Capture d’écran de 2020-12-06 09-59-44.png (67.5 Kio) Consulté 2133 fois
Je ne suis qu'un utilisateur pas un pro
Répondre