cs_Lind
Messages postés24Date d'inscriptionlundi 14 juillet 2003StatutMembreDernière intervention27 juillet 2003
-
14 juil. 2003 à 23:22
cs_Lind
Messages postés24Date d'inscriptionlundi 14 juillet 2003StatutMembreDernière intervention27 juillet 2003
-
15 juil. 2003 à 00:54
Bonjour !
Alors c'est tout pleins de questions à la con sur vb car je débute...
1ère : alors c'est tout bête mais on se moque pas ! alors j'aimerais tout simplement enregistrer dans un fichier texte des coordonnées que j'ai calculés précédemment dans le programme...alors que ça se présente comme ça :
X1,Y1,Z1
X2,Y2,Z2
alors en plus y'à que 2 points et les les Z sont toujours nuls...bref ça doit être trop fcile mais je trouve pas !
nhervagault
Messages postés6063Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention15 juillet 201137 14 juil. 2003 à 23:56
dim fso as new filesystemobject
dim ts as textsream
set ts = fso.opentextfile("monfichier.txt")
for each point in points
ts.writeln point.x & "," & point.y & "," & point.z
next
ts.close
point est une classe (assitant classe x as integer y as integer et z as integer)
ou un type enum
point est une collection de point
(avec assitant de classe aussi)
il faut ajouter la reference à microsoft scriping rutime dans ton projet.
cs_Lind
Messages postés24Date d'inscriptionlundi 14 juillet 2003StatutMembreDernière intervention27 juillet 2003 15 juil. 2003 à 00:02
merci acive, je viens d'essayer et ça marche c'est cool!
mais alors j'aurais une autre question si c'est pas trop abusé :
alors je souhaiterais maintenant dessiner un arc de cercle, avec comme paramètres l'angle de balayage, le rayon et la norme de l'arc...bref j'ai tout mais comment puis-je faire pour en fait le tracer et générer un ensemble de points de cet arc sur un fichier texte pour changer ?
Mais en tout cas merci pour l'aide de tout à l'heure !
Vous n’avez pas trouvé la réponse que vous recherchez ?
nhervagault
Messages postés6063Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention15 juillet 201137 15 juil. 2003 à 00:03
C'est pas que c'est compliqué c'est que c'est propre comme programmation vb :-)
Avec des classes et des collections ton applis est plus facilement maintenable.
Et les assistants VB sont la (malgré leur faible pussance pour t'aider.
Le code peut ne pas compilé je l'ai fais de tete :-)
nhervagault
Messages postés6063Date d'inscriptiondimanche 13 avril 2003StatutMembreDernière intervention15 juillet 201137 15 juil. 2003 à 00:17
tu veux quoi un tracé ton arc sur ta form ou lire ton arc dans le fichier text.
Lire l'arc est simple
un petit split et le tour est joué
mon_array = split (maligne_arc, ",")
rayon = mon_array(0) 'ou 1 je ne sais plus ou commence les indices de split en VB
....
Tu as la methode inverse pour ecrire dans ton fichier avec le join (c'est pour info :-)
pour tracer l'arc tu dois utiliser les api de windows.
Declare Function Arc Lib "gdi32" Alias "Arc" (ByVal hdc As Long, ByVal
X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal
X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As
Long
Declare Function ArcTo Lib "gdi32" Alias "ArcTo" (ByVal hdc As Long,
ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long,
ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long)
As Long
Private Sub Form_Click()
Dim CX, CY, Radius, Limit ' Déclare la variable.
ScaleMode = 3 ' Définit pixel comme unité de
' mesure.
CX = ScaleWidth / 2 ' Définit la position X.
CY = ScaleHeight / 2 ' Définit la position Y. If CX > CY Then Limit CY Else Limit CX
For Radius = 0 To Limit ' Définit le rayon.
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radius
End Sub