Comment on fait !

cs_Lind Messages postés 24 Date d'inscription lundi 14 juillet 2003 Statut Membre Dernière intervention 27 juillet 2003 - 14 juil. 2003 à 23:22
cs_Lind Messages postés 24 Date d'inscription lundi 14 juillet 2003 Statut Membre Dernière intervention 27 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 !

Alors merci par avance !

Lind !

Lindmakhloufi@hotmail.com

10 réponses

Utilisateur anonyme
14 juil. 2003 à 23:49
Salut,
éssaye :

Private Sub Command1_Click()
Open App.Path & "\texte.txt" For Append As #1
Print #1, X1 & "," & Y1 & "," & z1
Close
End Sub

et tes données sont inscrites dans le fichier texte.txt....
A+
0
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 37
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.

Voila

J'espere que c'est pas trop complexe pour toi.
0
cs_Lind Messages postés 24 Date d'inscription lundi 14 juillet 2003 Statut Membre Dernière intervention 27 juillet 2003
14 juil. 2003 à 23:59
merci en tout cas mais ça à l'air super compliqué mais je vais essayer aussi...merci en tout cas !
0
cs_Lind Messages postés 24 Date d'inscription lundi 14 juillet 2003 Statut Membre Dernière intervention 27 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 !
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 37
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 :-)
0
Utilisateur anonyme
15 juil. 2003 à 00:09
Re:
C'est fesable, mais il faut reflechir un peu, que veux tu faire exactement?
0
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 37
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

dans un modules pour les parametre cf msdn
sur le site msdn.microsoft.com/library
ou sur un autre site
http://www.ex-designz.net/apicat.asp?apicat=2
0
Utilisateur anonyme
15 juil. 2003 à 00:21
re:
éssaye :

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
0
Utilisateur anonyme
15 juil. 2003 à 00:53
excuse, j'arrive pas a lire ton dernier message, ca me donne erreur (je sais pas quoi....)
0
cs_Lind Messages postés 24 Date d'inscription lundi 14 juillet 2003 Statut Membre Dernière intervention 27 juillet 2003
15 juil. 2003 à 00:54
ben je viens de t'en envoyer un autre car le premier était vide (désolé)...et là ça marche ?
0
Rejoignez-nous