Voilà Tout!
bienvenue sur notre forum !
le forum est de nouveau plublic !
Toto 7 Votre administrateur !
Votre forum a un tout nouveau nom !
Voilà Tout !
Bonne Année a tous
Voilà Tout!


 
AccueilAccueil  PortailPortail  S'enregistrerS'enregistrer  ConnexionConnexion  

Partagez | 
 

 Freebasic : un exemple de fichier

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
zubule
Mes doigt surchauffe !
avatar

Messages : 634
Date d'inscription : 11/01/2011
Localisation : Terre Adélie

Feuille de personnage
test:
0/0  (0/0)
loto:
0/0  (0/0)

MessageSujet: Freebasic : un exemple de fichier   Mar 22 Fév - 12:24

Rem 'Affichage dirigé d'un cercle avec test d'obstacle.
? "realise par (nom)"
? "Tous droits reserves"
Screen 12 'mode graphique permettant de gérer 640X320=268 800 points
Dim rayon As Integer
Dim coul_tron As Integer
Dim clavier As String *1
Dim As Double abs_tron,ord_tron 'coordonnées du centre du cercle

'INITIALISATION
abs_tron=56
ord_tron=84

'CORPS DU PROGRAMME
While clavier<"s"
clavier=InKey$
Circle (abs_tron,ord_tron),15,45 'dessine un cercle...
Circle (abs_tron,ord_tron),12,28
Circle (abs_tron,ord_tron),15,56
Circle (abs_tron,ord_tron),13,47
Circle (abs_tron,ord_tron),11,70
PSet(Rnd(1)*640,Rnd(1)*420),Int(Rnd(1)*3)
Select Case clavier
Case "2"
ord_tron=ord_tron+5
Case "6"
abs_tron=abs_tron+2
Case "8"
ord_tron=ord_tron-2
Case "4"
abs_tron=abs_tron-2
Case "5"
abs_tron=ord_tron+2
Case "3"
ord_tron=ord_tron+2
abs_tron=abs_tron+2
Case "7"
abs_tron=abs_tron-2
ord_tron=ord_tron-2
Case "1"
abs_tron=abs_tron-2
ord_tron=ord_tron+2
Case "a"
Cls
Case "z"
End
Case "9"
abs_tron=abs_tron+2
ord_tron=ord_tron-2
Case "."
abs_tron=abs_tron+3
ord_tron=abs_tron+1
End Select
Wend
'Sleep 'faire une pause
Revenir en haut Aller en bas
 
Freebasic : un exemple de fichier
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Format de fichier innatendu
» Fichier cfg
» comment mettre des images ? sur un post par exemple
» script creation fichier rss avec nouveau mail
» Comment couper un fichier .rar en plusieurs parties ???

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Voilà Tout! :: informations sur tout :: tout sur les technologies et l'informatique-
Sauter vers:  
White Flower 50Créer un forum | © phpBB | Forum gratuit d'entraide | Contact | Signaler un abus | Forum gratuit