Le langage SMS est exclu sur les forums ProgBoards, tout message ne respectant pas la charte sera déplacé, modifié, ou supprimé par nos modérateurs.

Forum Langages » BASIC » Dessin avec LINE et CIRCLE sous qb4.5

Freem
Modérateur
RemonterCiter Windows XP Firefox 2 - Posté le 21/02/2008 à 16:59
Alors, pour ce qui est de l'image, c'est dans ton espace membre.
Pour savoir ou elle est hébergée, une technique simple est de l'ouvrir dans un onglet, et dans le menu contectuel, de sélectionner "copier l'adresse de l'image".
Pour le wall, regarde dans la section outils de la banderolle de gauche.
Tout est expliqué, ensuite.
Tu me dis, j'oublie. Tu m'enseignes, je me souviens. Tu m'impliques, j'apprends. - Benjamin Franklin
diemaker form
ProgBoarder
RemonterCiter Windows XP Firefox 2 - Posté le 21/02/2008 à 17:11
Ok, merci.
Formes de Découpe, Outils Coupants pour l'imprimerie sur http://www.diemakerform.fr
SFLPMEA
ProgBoarder
RemonterCiter Windows 98 Firefox 2 - Posté le 21/02/2008 à 17:30
(héhé Salutations.

Dans le programme/étude que j'ai communiqué, je calcule toujours les angles des différents points à partir du centre trigo que j'ai placé arbitrairement en 320 et 240 (centre de l'écran pour une meilleure visibilité) sans tenir compte du centre réel de ton arc.
Pour chacun de tes arcs, il faut 'déplacer' le centre (utilisant d'une variable pour ajuster sa position).
Inutile d'avoir 2 GOSUB identiques (ou presque).
Je pense qu'il te faut ajuster le centre trigo de chacun de tes arcs (par exemple X.Decal! et Y.Decal! qui auront comme valeurs les coordonnées du centre de ton angle et remplacer 320 et 240 par ces variables.
Pour le départ Initialiser X! et Y! par les valeurs correspondantes, appeler le GOSUB, noter l'angle de départ (Angle.Depart!).
Pour l'arrivée initialiser X! et Y!, effectuer le même GOSUB et noter l'angle d'arrivée.
Ensuite dessin . . . ou cris de rage.

(héhé Salutations.
Moi, mon ordinateur, je l'ai baptisé "Billy" ...
En remerciement, je reçois beaucoup de pages bleues !
diemaker form
ProgBoarder
RemonterCiter Windows XP Firefox 2 - Posté le 22/02/2008 à 10:52
(héhé
Bonjour à tous,
J'ai mis le prog sur le wall, mais il n'apparait pas dans la liste ?
Voilà le prog fonctionnel avec les modifs suivant les conseils à SFLPMEA

CLS : SCREEN 12: WINDOW (1, 120)-(160, 1): CLS
DEFSTR A-Z
PI! = 3.141593

'c! = 25.78: d! = 17.1: e! = 25.78: f! = 17.1: g! = 25: h! = 20
'c! = 33.9: d! = 26.41: e! = 34.99: f! = 22.31: g! = 36.49: h! = 24.91
c! = 22: d! = 29.81: e! = 26.1: f! = 30.91: g! = 23.5: h! = 32.41
'c! = 16.1: d! = 13.59: e! = 15: f! = 17.69: g! = 13.5: h! = 15.09
'c! = 28: d! = 10.18: e! = 23.9: f! = 9.09: g! = 26.49: h! = 7.59
'c! = 50: d! = 5: e! = 45: f! = 0: g! = 50: h! = 0
'c! = 45: d! = 40: e! = 50: f! = 35: g! = 50: h! = 40
'c! = 0: d! = 35: e! = 5: f! = 40: g! = 0: h! = 40
'c! = 5: d! = 0: e! = 0: f! = 5: g! = 0: h! = 0

Xdepart! = c!: Ydepart! = d!: Xarrivee! = e!: Yarrivee! = f!
Xcentre! = g!: Ycentre! = h!

R! = SQR((Xcentre! - Xarrivee!) ^ 2 + (Ycentre! - Yarrivee!) ^ 2) 'calcul rayon
coul! = 17

X! = c! - g!: Y! = d! - h!'coord depart moins coord centre
GOSUB GS01.ANALYSE
X! = e! - g!: Y! = f! - h!'coord fin moins coord centre
Angledebut! = Angle!
GOSUB GS01.ANALYSE
Anglefin! = Angle!
IF Angledebut! = Anglefin! THEN 'controle si un cercle
CIRCLE (g!, h!), R!, coul!
ELSE
CIRCLE (g!, h!), R!, coul!, Angledebut!, Anglefin!
END IF
PRINT "angle debut "; Angledebut!, "angle fin "; Anglefin!
PRINT "R "; R!
SLEEP
END

GS01.ANALYSE: 'Calcul de l'angle trigo
SELECT CASE X! ' ATN(expression numerique)
CASE IS < 0: ' Calcul direct impossible
SELECT CASE Y!
CASE IS < 0 'QUADRANT 3
X1! = ABS(X!)
Sinus1! = Y! / X1!
Cosinus1! = X1! / Y!
Tangente1! = Sinus! / Cosinus1!
Angle1! = ATN(Tangente1!)
Angle! = PI! + ABS(Angle1!)
CASE IS = 0 ' Ligne des abscisses, a gauche
Angle! = PI!
CASE IS > 0 ' QUADRANT 2
X1! = ABS(X!)
Y1! = ABS(Y!)
Sinus1! = Y1! / X1!
Cosinus1! = X1! / Y1!
Tangente1! = Sinus1! / Cosinus1!
Angle1! = ATN(Tangente1!)
Angle! = PI! - ABS(Angle1!)
END SELECT
CASE 0
SELECT CASE Y!
CASE IS < 0 ' Ligne des ordonnees en bas
Angle! = PI! * 6 / 4
CASE IS = 0 ' A l'intersection lignes abscisses et ordonnees
' IMPOSSIBLE
CASE IS > 0 ' Ligne des ordonnees, en haut
Angle! = PI! / 2
END SELECT
CASE IS > 0
SELECT CASE Y!
CASE IS < 0 ' QUADRANT 4
Sinus! = Y! / X!
Cosinus! = X! / Y!
Tangente! = Sinus! / Cosinus!
Angle! = ATN(Tangente!)
Angle! = 2 * PI! - Angle!
CASE IS = 0 ' Ligne des abscisses, a droite
Angle! = 0
CASE IS > 0 ' QUADRANT 1
Sinus! = Y! / X!
Cosinus! = X! / Y!
Tangente! = Sinus! / Cosinus!
Angle! = ATN(Tangente!)
END SELECT
END SELECT
RETURN


Pour moi ce post est résolu, à vous de voir les "modos" et un grand merci !
DMF
(sourire) (sourire) (héhé (héhé (héhé (exclamation) (exclamation)
Formes de Découpe, Outils Coupants pour l'imprimerie sur http://www.diemakerform.fr
SFLPMEA
ProgBoarder
RemonterCiter Windows 98 Firefox 2 - Posté le 22/02/2008 à 11:24
(héhé Salutations.

O U F ! Nous avons eu un peu/beaucoup de mal et j'ai failli passer le PC par la fenêtre (exclamation)
Content d'avoir participé à la solution de ton problème. As-tu encore beaucoup de problèmes tricornus de ce genre (car il était plus que BIScornu et sortait de l'ordinaire).

(gêné) A quelle heure passons nous au bistrot/café pour que tu nous payes l'apéritif ? (gêné)

(héhé Salutations.
Moi, mon ordinateur, je l'ai baptisé "Billy" ...
En remerciement, je reçois beaucoup de pages bleues !
diemaker form
ProgBoarder
RemonterCiter Windows XP Firefox 2 - Posté le 22/02/2008 à 11:45
Bonjour SFLPMEA !
Pour l'apéro, c'est quand vous voulez ! (héhé
si vous êtes de ma région ! (maine et loire)
vous êtes de quel département ?
je ne vais pas me taper 1000 bornes pour vous offrir l'apéro !
Des Moutons à 5 pattes j'en ai d'autres !
d'ailleur je vais en poster un si je ne trouve pas sur le site ! (héhé
et je vais encore pleurer ! (triste)
Salutations,
DMF
(langue)
Formes de Découpe, Outils Coupants pour l'imprimerie sur http://www.diemakerform.fr
Freem
Modérateur
RemonterCiter Windows XP Firefox 2 - Posté le 22/02/2008 à 13:38
Quand tu postes sur le wall, au moment de la validation, tu es redirigé sur une page qui t'indique le lien vers ta source.
Tu colles ce lien dans ton post, et voila (sourire)
Tu me dis, j'oublie. Tu m'enseignes, je me souviens. Tu m'impliques, j'apprends. - Benjamin Franklin
diemaker form
ProgBoarder
RemonterCiter Windows XP Firefox 2 - Posté le 22/02/2008 à 13:59
Bonjour Freem,
Je suis entièrement d'accord !
j'ai fait comme indiqué, j'ai même choisi qb pour les couleurs, j'ai validé, la page vers le lien n'a pas fonctionnée et m'a retournée un message genre "inexistant", je me souviens plus.
Salutations,
DMF
(désapprouve)
Formes de Découpe, Outils Coupants pour l'imprimerie sur http://www.diemakerform.fr
Freem
Modérateur
RemonterCiter Windows XP Firefox 2 - Posté le 22/02/2008 à 15:44
Si tu rencontres à nouveau ue erreur, notes le message et les circonstances de l'erreur, et mets tout ça dans un post dans la section développement, ça permettra à neliger de réparer (clein d'oeil) merci
Tu me dis, j'oublie. Tu m'enseignes, je me souviens. Tu m'impliques, j'apprends. - Benjamin Franklin

Poster une réponse

STOP aux fautes volontaires !
Message
Formatage
Note: pour partager du code source, merci d'utiliser le wall !
Smileys (sourire) (yekyek) (clein d'oeil) (désapprouve) (triste) (cool) (langue) (confus) (gêné) (neutre) (eek) (surpris) (diable) (flèche) (exclamation) (question) (diable) (idée) (méchant)
Pseudonyme
Recopiez le code
v6 © Computaid SPRL 2005-2008 - Tous droits réservés - Hébergé par eTigris - Page générée en 0,142 s - Crédits - Stats
1 connecté