Calcul des surfaces et affichage des formes géometriques
Résolu
Lenouveauapprenti
Messages postés
306
Date d'inscription
Statut
Membre
Dernière intervention
-
Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention -
Lenouveauapprenti Messages postés 306 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Calcul des surfaces et affichage des formes géometriques
- Calcul moyenne excel - Guide
- Logiciel gratuit calcul surface m2 - Télécharger - Outils professionnels
- Affichage double ecran - Guide
- Calcul km marche à pied gratuit - Télécharger - Sport
- Windows 11 affichage classique - Guide
10 réponses
Bonjour,
Je ne fais pas de vb6... mais une rapide recherche sur le net permet de trouver des tutos du genre
https://www.go4expert.com/articles/graphics-visual-basic-6-t30202/
L'exemple 12 montre la création d'un rectangle
Sinon tu as aussi ce tuto
https://www.vbtutor.net/lesson18.html
Je ne fais pas de vb6... mais une rapide recherche sur le net permet de trouver des tutos du genre
https://www.go4expert.com/articles/graphics-visual-basic-6-t30202/
L'exemple 12 montre la création d'un rectangle
Line (300, 300)-Step(4000, 2000), vbBlue, B
Sinon tu as aussi ce tuto
https://www.vbtutor.net/lesson18.html
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour
N.B : l'environnement VB6
Je tente de dessiner un rectangle à l'intérieur de PictureBox en utilisant les données suivantes:
le problème est l'application me renvoie la moitié du rectangle, c'est à dire, une Ligne (Longueur),
et une Largeur (Largeur), en constituant une angle de 90 °
Merci d'avance de m'aider à avoir mon rectangle
Important : J'ai sélectionné les deux crochets <> et choisi Basic sans resultat
EDIT : Ajout du LANGAGE dans les balises de code.
NB: Si la selection ne t'affiche pas le langage dans les balises... tu peux l'écrire à la main tel qu'indiqué dans le lien que je t'ai donné ! (jordane)
N.B : l'environnement VB6
Je tente de dessiner un rectangle à l'intérieur de PictureBox en utilisant les données suivantes:
Private Sub Cmd_Click() Dim X, Y, Lon, Lar As Double Y = 288 / 0.0265 X = 122 / 0.0265 Pict1.Left = 100 Pict1.Height = X Pict1.Width = Y Lon = 75 / 0.0265 Lar = 60 / 0.0265 Pict1.Line (0, 0)-(Lon, Lar), , B End Sub
le problème est l'application me renvoie la moitié du rectangle, c'est à dire, une Ligne (Longueur),
et une Largeur (Largeur), en constituant une angle de 90 °
Merci d'avance de m'aider à avoir mon rectangle
Important : J'ai sélectionné les deux crochets <> et choisi Basic sans resultat
EDIT : Ajout du LANGAGE dans les balises de code.
NB: Si la selection ne t'affiche pas le langage dans les balises... tu peux l'écrire à la main tel qu'indiqué dans le lien que je t'ai donné ! (jordane)
Tu as essayé de ne pas commencer à 0,0 ?
Tu as essayé (comme dans les exemples) d'utiliser le mot clé STEP ?
Pour info, une autre doc sur le sujet : https://bytes.com/topic/visual-basic/insights/706417-drawing-graphics
Et comme indiqué dans mon EDIT de ton message :
Tu as essayé (comme dans les exemples) d'utiliser le mot clé STEP ?
Pour info, une autre doc sur le sujet : https://bytes.com/topic/visual-basic/insights/706417-drawing-graphics
Et comme indiqué dans mon EDIT de ton message :
Si la selection ne t'affiche pas le langage dans les balises... tu peux l'écrire à la main tel qu'indiqué dans le lien que je t'ai donné ! (jordane)
Re
Merci pour votre réponse.
Je vous explique pourquoi J'ai commencé par (0,0)
L'idée est :
J'ai une plaque de 280 cm de longueur et 120 cm de largeur ( désigné par PictureBox )
Après je veux y tracer un rectangle de 75 cm x 60 cm
Le traçage commencé le bord gauche de la plaque et le haut
Merci pour votre réponse.
Je vous explique pourquoi J'ai commencé par (0,0)
L'idée est :
J'ai une plaque de 280 cm de longueur et 120 cm de largeur ( désigné par PictureBox )
Après je veux y tracer un rectangle de 75 cm x 60 cm
Le traçage commencé le bord gauche de la plaque et le haut
Re
J'ai tenté de décaler le rectangle, toujours le même résultat. La moitié du rectangle.
Par contre, si je travaille directement sur la form en éliminant la PictureBox, mes rectangles apparaissaient
J'ai tenté de décaler le rectangle, toujours le même résultat. La moitié du rectangle.
Par contre, si je travaille directement sur la form en éliminant la PictureBox, mes rectangles apparaissaient
Re
Voilà ce que j'ai tenté sauf erreur de ma part.
J'ai prédéfini la propriété ScalMode PictureBox à Pixel
Comme ma plaque est de 280 cm x 120 cm
J'ai transforme les cm en Pixel ( 0,0265 )
X est la longueur
Y est la largeur
X= 280/0,0265
Y= 120/0,0265
Le rectangle , car il y a plusieurs. Mais comme essai je tente avec un seul
Dimension du rectangle 75 cm x 60 cm ( à transformer en Pixel )
Voilà ce que j'ai tenté sauf erreur de ma part.
J'ai prédéfini la propriété ScalMode PictureBox à Pixel
Comme ma plaque est de 280 cm x 120 cm
J'ai transforme les cm en Pixel ( 0,0265 )
X est la longueur
Y est la largeur
X= 280/0,0265
Y= 120/0,0265
Le rectangle , car il y a plusieurs. Mais comme essai je tente avec un seul
Dimension du rectangle 75 cm x 60 cm ( à transformer en Pixel )
Re
Le cadre ( PictureBox) avec les dimensions que je t'ai donné auparavant, apparaît normalent dans presque la moitié de l'ecran
Le cadre ( PictureBox) avec les dimensions que je t'ai donné auparavant, apparaît normalent dans presque la moitié de l'ecran
Bonjour
J'ai réessayé une autre fois, et j'ai pu arriver à un début de résultat, mais je n'arrive pas à comprendre certains détails, à savoir
1 définition des mesures des X et Y, puisque la PictureBox est prédéfinie en Pixel, et les données que je cherche sont en cm (à convertir en pixel pour avoir une homogénéité de mesures)
Notez bien que les vrais mesures :
- de Picture1, le cadre initial (X=280 cm, Y=140 cm)
- des morceaux à découper (X=75 cm, Y=60 cm)
- les 60, et 4 sont estimations je ne peux pas les expliquer, seulement ils me permettaient de donner
formes visibles à mes rectangle
2 Au premier clic du bouton Command1, la demi, demi rectangle apparaît,
Au deuxième Click tous les rectangles apparaissent (alors que l’événement est Click)
mes codes:
Je vous prie de m'expliquer :
- comment devrais je faire pour harmoniser mes mesures, celles de PictureBox et celles des rectangles à y dessiner.
- pourquoi devrais je cliquer une deuxième fois sur la commande pour avoir le bon résultat, alors que l’événement est Click et non double click
J'ai réessayé une autre fois, et j'ai pu arriver à un début de résultat, mais je n'arrive pas à comprendre certains détails, à savoir
1 définition des mesures des X et Y, puisque la PictureBox est prédéfinie en Pixel, et les données que je cherche sont en cm (à convertir en pixel pour avoir une homogénéité de mesures)
Notez bien que les vrais mesures :
- de Picture1, le cadre initial (X=280 cm, Y=140 cm)
- des morceaux à découper (X=75 cm, Y=60 cm)
- les 60, et 4 sont estimations je ne peux pas les expliquer, seulement ils me permettaient de donner
formes visibles à mes rectangle
2 Au premier clic du bouton Command1, la demi, demi rectangle apparaît,
Au deuxième Click tous les rectangles apparaissent (alors que l’événement est Click)
mes codes:
Private Sub CmdNouv_Click() Dim XCadre, YCadre As Double Dim XBloc, YBloc As Double XCadre = 280 * 60 YCadre = 140 * 60 Picture1.Left = 50 Picture1.Width = XCadre Picture1.Height = YCadre XBloc = 75 * 4 YBloc = 60 * 4 'Ligne 1 Picture1.Line (0, 0)-Step(XBloc, YBloc), vbBlue, B Picture1.Line (0 + (1 * XBloc), 0)-Step(XBloc, YBloc), vbBlue, B Picture1.Line (0 + (2 * XBloc), 0)-Step(XBloc, YBloc), vbBlue, B 'Ligne 2 Picture1.Line (0, 0)-Step(XBloc, (2 * YBloc)), vbBlue, B Picture1.Line (0 + (1 * XBloc), 0)-Step(XBloc, (2 * YBloc)), vbBlue, B Picture1.Line (0 + (2 * XBloc), 0)-Step(XBloc, (2 * YBloc)), vbBlue, B End Sub
Je vous prie de m'expliquer :
- comment devrais je faire pour harmoniser mes mesures, celles de PictureBox et celles des rectangles à y dessiner.
- pourquoi devrais je cliquer une deuxième fois sur la commande pour avoir le bon résultat, alors que l’événement est Click et non double click