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!
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!
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Voilà Tout!


 
AccueilAccueil  PortailPortail  Dernières imagesDernières images  S'enregistrerS'enregistrer  ConnexionConnexion  
-50%
Le deal à ne pas rater :
-50% Baskets Nike Air Huarache
64.99 € 129.99 €
Voir le deal

 

 Freebasic : un exemple de fichier

Aller en bas 
AuteurMessage
zubule
Mes doigt surchauffe !
zubule


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

Feuille de personnage
test:
Freebasic : un exemple de fichier Left_bar_bleue0/0Freebasic : un exemple de fichier Empty_bar_bleue  (0/0)
loto:
Freebasic : un exemple de fichier Left_bar_bleue0/0Freebasic : un exemple de fichier Empty_bar_bleue  (0/0)

Freebasic : un exemple de fichier Empty
MessageSujet: Freebasic : un exemple de fichier   Freebasic : un exemple de fichier Icon_minitimeMar 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
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Fichier heberger
» nouvel herbergeur de fichier !
» Le langage BASIC : exemple de programmation

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 | Signaler un abus | Forum gratuit