programmer en basic sur windows gratuitement

Vous avez le choix entre QB64, blitzplus, blitz3d dont voici les lien de telechargement:

pour QB64 c'est simple il faut juste décompresser le fichier et le lancer, attention quand même pour
que le programme fonctionne il faut mettre les images et les musiques dans le repertoir du programme.
http://www.qb64.net/release/official/2015_03_12__02_08_19__v0000/windows/qb64v1000-win.zip

pour blitzplus et blitz3d il faut créer un compte sur le site et vous aurais les logiciels dans votre compte "acount " et "product update "

http://www.blitzmax.com/Products/blitzplus.php

comment faire pivoter un vaisseau avec cos et sin avec blitz3d how to do a space destroyer with blitz3d et blitzplus

Graphics 320,200,16,2
Global x
Global y
Global a
Global x2
Global y2
Global x3
Global y3
Global r
x1=160:y1=100:xx1=168:yy1=108
x2=160:y2=100:xx2=152:yy2=108
x3=152:y3=108:xx3=168:yy3=108

r=16
.debut

For a = 1 To 360 Step 8




Locate 10,10:Color 255,0,0:Print "rayon "+r



        x = 160+Cos(a) * r :xcanon = 160+Cos(a) * 25
        y = 100+Sin(a) * r :ycanon = 100+Sin(a) * 25
       
        xa = 160+Cos(a+120)*r:xcanon2 = 160+Cos(a+120) * 25
        ya = 100+Sin(a+120)*r:ycanon2 = 100+Sin(a+120) * 25

        xb = 160+Cos(a+120+120)*r :xcanon3 = 160+Cos(a+240) * 25
        yb = 100+Sin(a+120+120)*r :ycanon3 = 100+Sin(a+240) * 25
;fuselage
Color 0,255,0

Line x ,  y ,  xa ,  ya
Line x  , y , xb ,  yb
Line xb ,  yb ,  xa ,  ya
;canon

Line x,y , xcanon, ycanon

Delay 50

Cls
Next
Goto debut

frequences et notes midi

how to play msic with blitz3d comment faire de la musique avec blitz3d

Pour jouer deux instruments simultanément essayez ceci :
d'abord  telecharchez les instruments DRUMS
Créez un dossier LOOP sur le bureau et decompressez le fichier instrument dedans !


.debut

If KeyDown(17)=1  And ChannelPlaying (pp1)=0 Then pp1 = PlayMusic ("C:\Users\rendomizer\Desktop\LOOP\stamp.wav"):ResumeChannel pp1 ;écrivez votre chemin complet de VOTRE ordinateur !
If KeyDown(17)=0 Then StopChannel pp1
If KeyDown(19)=1  And ChannelPlaying (pp2)=0 Then pp2 = PlayMusic ("C:\Users\rendomizer\Desktop\LOOP\stich.wav"):ResumeChannel pp2
If KeyDown(19)=0 Then StopChannel pp2
 
Goto debut 

blitz3d read MIDI IN USB EXTERNAL KEYBOARD programming

Dabord il faut telecharger blitz3D avec la librairie blitz3d+midi 
Surtout mettre le programme si dessous dans le fichie userlib pour que ça fonctionne !!!!
essayez toutes vos prises usb pour le test en changent midiopen(1),midiopen(2)...(3) 
Global hIn = MidiInOpen(0)

.debut
    If MidiEvent(hIn) Then
MidiInStart(hIn)

    msg$= MidiGetParam1()
    Print Hex(msg$)
;affiche les données du clavier externe    
    EndIf
   
Goto debut

comment utiliser la sourie avec _mousex, _mousey et _mousebutton avec QB64 HOW TO USE MOUSE

DO
    i = _MOUSEINPUT                 'je me demande a quoi ça sert mais il faut l'ecrire pour que ça marche !
    x = _MOUSEX                        
    y = _MOUSEY
bouton=_MOUSEBUTTON(1)
    LOCATE 1, 1: PRINT x, y,bouton
LOOP

Comment utiliser un tableau DIM en basic QB64 HOW TO DO DIM

Un petit exemple concret de la fonction DIM qui est bien utile pour mémoriser des données...


10 DIM a$(200): LOCATE 1, 1: PRINT "tapez  sur le cavier et touche p pour voir le resultat ! "
20 i = i + 1: SLEEP 1
30 k$ = INKEY$
40 a$(i) = k$
90 IF k$ = "p" THEN GOTO 120
95 PRINT i, a$(i)
100 GOTO 20
120 FOR i = 0 TO i
    130 PRINT a$(i), i
135 next i
 

comment afficher une image dans une fenêtre avec _loadimage,_putimage,_newimage,screen en basic QB64 HOW TO PUT IMAGE

le lien pour télécharger le programme pour coder en basic --->http://www.qb64.net/

ça ce présente comme ça :

10 DEFLNG A-Z                                                               'ben la,je me demande ...
20 fenetre = _NEWIMAGE(640, 480, 32)                          'c'est la fenetre qui a pour variable "fenetre"
30 SCREEN fenetre 'ouvre la fenetre !
40 image = _LOADIMAGE("votre image.png", 32)            'met l'image dans la variable "image" et 32c'est le format true color ou n'importe quelle image peut ce mettre d'ailleur je me demande pourquoi il y a plusieurs type d'affichage ?
50 CLS                                                                               'efface le contenue de la fenetre
60 _PUTIMAGE (10, 20)-(100, 200), image, fenetre          'met l'image dans la fenetre avec les dimentions choisient !
70 END

comment utiliser _sndplay,_sndplayfile en basic QB64 HOW TO PLAY WAV MP3 OGG MIDI

Le lien pour programmer en basic ---->http://www.qb64.net/


Un grand merci a la clinique GAMOPAT pour les réponse à mes questions car sans eux je n'aurai pas fais cet article.

10 emplacement$ = "rock/"                ' faites un dossier dans QB64 et nomez le " rock" dans lequel vous y metrais vos chansons
20 titre$(i) = "highway to hell.ogg"
30 titre$(i + 1) = "hell bells.wav"
40 titre$(i + 2) = "back to black.mp3"
50 i = 2                                              'votre choix de chanson

60 PRINT titre$(i)
70_SNDPLAYFILE emplacement$ + titre$(i)

 
Jouera le titre " back to black " car la variable est égale a 2 ! si elle était égale a 0 le titre aurai été " highway to hell" et si i était égale a 1 le titre serait "hell bells"

ATTENTION si vous ouvrez plusieurs chansons a la fois ça entraine un plantage ! il faut pour cela fermer la chanson precedente avec les fonctions _SNDSTOP handle&:_SNDCLOSE handle&, il se peut qu'il y es des lenteurs aussi !

Maintenant un petit programme pour faire une playliste !

ATTENTION le demarage de chaque titre prend du temp et MAJ doit être verouillé pour que le clavier réponde ! Les titres doivent se trouver dans le répertoire QB64.sinon ça ne marche pas.

20 titre$(i) = "highway to hell.MP3"                                             'notez que ce titre est facultatif !vous devez y mettre vos propres titres...
30 titre$(i + 1) = "hell  bells.MP3"
40 titre$(i + 2) = "back to black.MP3"
41 LOCATE 20, 20: PRINT "select 1-2-3 to play song AND E TO STOP THE PROG "

51 k$ = INKEY$:
52 IF k$ = "0" THEN i = 0: GOTO 90
53 IF k$ = "1" THEN i = 1: GOTO 90
54 IF k$ = "2" THEN i = 2: GOTO 90
55 IF k$ = "E" THEN END
80 GOTO 20
90 LOCATE 1, 1: PRINT titre$(i): _SNDSTOP handle&: _SNDCLOSE handle&: handle& = _SNDOPEN(titre$(i), "sync,vol"): _SNDVOL handle&, .3: _SNDPLAY handle&
100 GOTO 20

comment écrire du texte sur une image avec _printmode,_keepbackground,_printstring,_onlybackground,_fillbackground,_loadfont en basic QB64 HOW TO PRINT TEXT WITH FONT

Le lien pour programmer en basic ----->http://www.qb64.net/

 ça se presente comme ça



10 SCREEN _NEWIMAGE(600, 400, 32)                       ' redimentionne votre image a cette taille
20 ImageFile& = _LOADIMAGE("Votre image.jpg")         'charge votre image en mémoire  ATTENTION le fichier image doit se trouver dans le même répertoire que le programme exe ou .bas
30 _PUTIMAGE (0, 0), ImageFile&                                  ' positionne votre image dans la fenetre
40 COLOR _RGB(105, 238, 0)                                        'selectionne la couleur
50 _PRINTMODE _KEEPBACKGROUND                    ' ecrire le texte par dessus l'image 
60 a$ = " Salut ! "   ' votre texte
70 _PRINTSTRING (160, 50), a$                                     ' positionne le texte dans l'image


Notez que je mets des numéros de ligne, c'est comme le bon vieux temps !

Essaillez le texte en mode inverse:



10 SCREEN _NEWIMAGE(600, 400, 32) 
20 ImageFile& = _LOADIMAGE("Votre image.jpg")
30  _PUTIMAGE (0, 0), ImageFile&
40 COLOR _RGB(105, 238, 0)
50 _PRINTMODE _ONLYBACKGROUND                         ' inverse le texte  
60 a$ = " Salut ! "
70 _PRINTSTRING ( 160,150), a$


écrire un texte avec un fond

 
10 SCREEN _NEWIMAGE(600, 400, 32) 
20 ImageFile& = _LOADIMAGE("Votre image.jpg")
30  _PUTIMAGE (0, 0), ImageFile&
40 COLOR _RGB(105, 238, 0),_RGB32(255, 0, 0)
50 _PRINTMODE _FILLBACKGROUND                       ' écrit le texte de couleur verte avec un font rouge
60 a$ = " Salut ! "
70 _PRINTSTRING ( 160,150), a$




Maintenant comment écrire avec les fonts de windows:

10 i& = _NEWIMAGE(400, 400, 32)
20 SCREEN i&
30 ImageFile& = _LOADIMAGE("votre image.jpg")                                   'charge votre image en mémoire
40 _PUTIMAGE (0, 0), ImageFile&
50 rootpath$ = ENVIRON$("SYSTEMROOT")                                         'normalement"C:\WINDOWS" la je me demande
60 fontfile$ = rootpath$ + "\Fonts\cour.ttf"                                                    'j'ai compris que la c'est le chemain des fonts
70 style$ = "italic" 'je n'arrive pas a le faire fonctionner
80 f& = _LOADFONT(fontfile$, 50, style)                                                    'la le 50 c'est la dimension du font mais le style$ pas moyen...
90 _FONT f&                                                                                              ' appel la fonction
100 COLOR _RGB32(0, 255, 0)
110_PRINTMODE _KEEPBACKGROUND
120 PRINT "Hello!"

comment faire de la musique avec_sndplay,_sndopen,sndsetpos en basic QB64 HOW TO PLAY MUSIC

Si vous êtes comme moi confronté au seul site du QB64 avec des exemples tres pauvres alors vous êtes sauvé ! tout d'abord voici le lien pour télécharger le programme ---->http://www.qb64.net/ Maintenant je vais explorer le son du QB64 !


le fichier son doit imperativement ce trouver dans le répertoire ou sont les programmes basic OU de votre programme exe, sinon ça ne marche pas ! le mieux c'est de créer son répertoire.


  exemple:

10 _SNDPLAYFILE ("VOTRE fichier son 1.WAV", "sync,vol")
20 _SNDPLAYFILE ("VOTRE fichier son 2.WAV", "sync,vol")

"sync,vol" c'est la synchronisation et le volume avec un autre fichier son, il doit imperativement être mit sinon un message d'erreur s'affiche.

     ATTENTION ! le programme met un certain temps pour commencer "le temps de compiler et charger les sons"

 Et si vous souhaitiez debuter un son au milieu de la chanson par exemple comment on fait ?

assaillez ça:

exemple:

10 MusicHandle = _SNDOPEN("VOTRE fichier son.wav", "setpos") 
20_SNDSETPOS MusicHandle,10
30_SNDPLAY MusicHandle

"setpos"doit imperativement être ecrit  si on veut valider le point de départ dans une chanson.

le 10 c'est la variable en secondes pour positionner le point de départ dans la chanson .Vous pouvez le changer !

vous pouvez aussi savoir ou la musique en est en secondes !

exemple :

10 MusicHandle = _SNDOPEN("votre fichier son.mp3", "setpos")
20 _SNDSETPOS MusicHandle, 10
30 _SNDPLAY MusicHandle
40 t& = _SNDGETPOS(MusicHandle)                                     ' fonction pour savoir ou l'on se trouve en secondes dans la chanson
50 LOCATE 20, 10
60 PRINT t&
70 GOTO 40





PS quand vous démarrez le programme il faut attendre que le fichier ce charge !

n'est-ce pas plus simple non ?