Installation et introduction au Quick Basic avec QB64

Version imprimable

15/04/2014, 08h06
LittleWhite

Installation et introduction au Quick Basic avec QB64

Bonjour à tous,

Vous connaissez certainement Papi Commando, ce jeu réalisé par Vetea :

https://www.youtube.com/watch?v=ipJUBIhLVM4

Vetea utilise QB64 comme langage de ce jeu et ce tutoriel vous propose de découvrir ce qu'est QB64, de l'installer et de faire vos premier pas dans le monde du Quick Basic : un langage simple permettant de faire des jeux. D'ailleurs, après avoir découvert le langage, un exemple de jeu vous ai donné à faire en exercice (et une correction est proposée pour vous guider dans le monde de la programmation).

Bonne lecture.
15/04/2014, 11h31
Vetea

Bonjour,

Excellent article d'initiation !! :ccool:
Je n'aurai pas fait mieux. :mrgreen:
J'espère que cela motivera la plupart d'entre vous, pour découvrir cette technologie.
15/04/2014, 11h45
Miistik
Bonjour,

Vu la méthode pour switcher entre Joueur1 et Joueur2 , je suppose que la notion True/False n'existe pas ?

De plus, il n'y a pas de typage.

Si j'écris :
Code:

1 2 3 monEntier = 1 monEntier2 = 0.222222222 monEntier3 = 100000000000
Les trois variables sont alloués en mémoire de la même façon ?
15/04/2014, 11h51
Vetea

Citation:

Envoyé par Miistik

Bonjour,

Vu la méthode pour switcher entre Joueur1 et Joueur2 , je suppose que la notion True/False n'existe pas ?

Bonjour Miistik,
Exact, il n'existe pas de variable de type Booléenne.

Mais on peut en créer une facilement en ajoutant ce code en même temps que la déclaration des variables du programme :

Code:

CONST FALSE = 0, TRUE = NOT FALSE ' Constante bool‚enne

:)
03/08/2014, 09h22
barmet

QB64 avec W8.1 64 bits uefi et gpt

Bonjour tout le monde,

je découvre cette version windows et je voulais savoir si elle était compatible avec l'intitulé.

merci pour votre réponse.

@+
03/08/2014, 22h01
Vetea

Bonjour barmet,

Oui, QB64 SDL est compatible avec votre version de Windows. :)
05/08/2014, 09h48
I_Pnose

Le qbasic sous dos (et avant ça le basic sur Amstrad cpc 6128) ça me rappelle à quel point ma tendre enfance est loin ^^
16/10/2015, 22h18
barmet

Bonsoir tous,

Je reviens vers vous après avoir subi tous les avatars de w8 et w8.1 (plantages, perte de données, rechargements et BSOD en quantité industrielle.
Je commence depuis peu à regarder plus sérieusement QB64. Il est en effet à peu près compatible w8.1 (tout au moins pour mes applications) mais très loin du BASIC (GW ou QB), malgré les affirmations péremptoires de GALLEON à 95-100%.
Etant donné le nombre impressionnant de modules à convertir et à écrire, et certaines difficultés de fonctionnement de QB64, je me pose des questions
sur l'opportunité de persévérer ou de prendre un autre langage type FORTRAN.
Il faudrait que je trouve un forum en français QB64 et w8/10 ou quelqu'un qui puisse me faire profiter de son expérience.
Pourquoi ne développeriez-vous pas un forum sur Développez.net ? Je suis sûr que beaucoup seraient intéressés.

barmet

Intéressant ce QB64 :P

Je viens de faire un petit test de pseudo-voxel:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
SCREEN 13: DEF SEG = &HA000
DIM hei%(4096 - 1), col%(4096 - 1)
 
'Generate palette
OUT &H3C8, 0
FOR z% = 0 TO 63: OUT &H3C9, z%: OUT &H3C9, z%: OUT &H3C9, z% \ 2: NEXT z%
FOR z% = 0 TO 63: OUT &H3C9, z% \ 2: OUT &H3C9, z%: OUT &H3C9, z%: NEXT z%
 
'Generate interesting height & color maps
p% = 0
FOR y% = 0 TO 63
    FOR x% = 0 TO 63
        d% = 15 * 15 - ((x% AND 31) - 16) ^ 2 - ((y% AND 31) - 16) ^ 2
        IF d% > 0 AND ((x% XOR y%) AND 32) THEN
            hei%(p%) = 64 - SQR(d%): col%(p%) = (x% + y%) * .5
        ELSE
            hei%(p%) = 64: col%(p%) = (COS(x% * .2) + SIN(y% * .3)) * 3 + 88
        END IF
        p% = p% + 1
    NEXT x%
NEXT y%
 
'Initialize starting position
posx& = 0: posy& = 0: posz& = 40 * 65536: ang = 0: horiz& = -50
 
r160 = 1 / 160
dd& = 65536 * r160 'Increment size
de& = dd& * 512 'Scan out 512 units
sdz& = (100 - horiz&) * 65536 * r160
DO
    cosang = COS(ang) * 65536: sinang = SIN(ang) * 65536
    dx& = sinang + cosang: dxi& = -sinang * r160
    dy& = sinang - cosang: dyi& = cosang * r160
 
    'For each column in 320*200 mode...
    FOR sx% = 0 TO 319
 
        'Fast ray trace! No *'s or /'s in here (\ 65536 is a shift)
        x& = posx&: y& = posy&: z& = posz&: dz& = sdz&: p& = sx% + 63680
        FOR d& = 0 TO de& STEP dd&
            x& = x& + dx&: y& = y& + dy&: z& = z& + dz&
            i% = (((x& * 64) AND &HFC00000) + (y& AND &H3F0000)) \ 65536
            h& = hei%(i%) * 65536
            DO WHILE h& < z&
                POKE p&, col%(i%): p& = p& - 320&
                z& = z& - d&: dz& = dz& - dd&
            LOOP
        NEXT d&
        dx& = dx& + dxi&: dy& = dy& + dyi&
 
        'Finish off rest of line
        DO WHILE p& >= 320: POKE p&, 0: p& = p& - 320: LOOP
    NEXT sx%
 
    'Move position & angle
    posx& = posx& + cosang * 1
    posy& = posy& + sinang * 1
    ang = ang + .005
 
 
    'Wait vsync
 
    WAIT &H3DA, 8
    WAIT &H3DA, 8, 8
 
 
LOOP WHILE INKEY$ = ""

Ca emule parfaitement l'ecran VGA avec écriture dans le buffer video à l'aide de POKE, pratique pour prototyper des algos de rendu.

Ce langage me rappelle ma jeunesse, j'ai fait mes tout premiers jeux avec :) qu'est-ce que j'ai pu galérer avec les goto