COURBE PASSANT PAR DES POINTS DÉFINIS
ld40
Messages postés
336
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
22 février 2019
-
12 sept. 2006 à 21:52
hossam120 Messages postés 9 Date d'inscription dimanche 2 mai 2010 Statut Membre Dernière intervention 14 juin 2013 - 14 juin 2013 à 21:21
hossam120 Messages postés 9 Date d'inscription dimanche 2 mai 2010 Statut Membre Dernière intervention 14 juin 2013 - 14 juin 2013 à 21:21
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/39530-courbe-passant-par-des-points-definis
https://codes-sources.commentcamarche.net/source/39530-courbe-passant-par-des-points-definis
14 juin 2013 à 21:21
14 juin 2013 à 21:17
8 nov. 2007 à 10:54
je met un 9
15 janv. 2007 à 23:39
tous simple, en fais pour la gravitation 0 apesenteur, il sufit de monter a bord d'un avion jusqu'a 30 000 pieds, ensuite, l'avion pique du nez et redescend tres rapidement jusqu'a environ 3000 pieds, avant de redresser. l'effet de quasi apesenteur est ainsi obtenu pour une duré d'environ 25 secondes à environ 0,08g. En tous cas c'est le mieux que la Nasa a obtenu pour l'instant. Autrement, il faut aller dans l'espace pour obtenir mieux...
mais au fais... a quoi cette question a lien avec la source de courbe ?
Pour la source, c'Est jolie tout de meme, j'ai bien aprécier. Je ne sais pas trop l'utilité que j'en aurais dans le futur, mais
ca m'a rappelé de drole de souvenir sur le Basic sur Comptern 80 et mon cours informatique en 4ieme. Evidement la function de courbe de basic a toujours été un peu lente, mais, le résultat est bien. Merci.
5 nov. 2006 à 15:11
13 sept. 2006 à 08:09
le code est pas simple a lire, car non indenté (les tabulations en debut de ligne)
If statt = 2049 Then
MsgBox "Maximum atteint.", vbCritical, "Maximum"
Unload Me
End If
un peu brutal, non, de quiter le programme
quelques améliorations possibles :
un bouton 'effacer' :
Private Sub Command2_Click()
Me.Cls
statt = 0
End Sub
un nombre illimité de points :
Dim points(2048) As Point => Dim points() As Point
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If activ Then
ReDim Preserve points(statt) '# ICI, ON AGRANDIT LE TABLEAU
Form1.Line (x - 20, y - 20)-(x + 20, y + 20), 0, BF
points(statt).x x: points(statt).y y
statt = statt + 1
dans la boucle de dessin :
For num = 3 To statt - 1 '# On s'arrete à statt -1
orientation = arc_circonscrit(points(num - 1), orientation, points(num), 255, Form1)
Next
et on pourrais imaginer voir le tout, en temps reel :
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If activ Then
ReDim Preserve points(statt)
Form1.Line (x - 20, y - 20)-(x + 20, y + 20), 0, BF
points(statt).x x: points(statt).y y
statt = statt + 1
'# visualisation temps reel (il ne faudrais pas retracer les points deja placés.
If statt >= 3 Then
Command1_Click
End If
End If
End Sub
pour que cela fonctionne, terminer simplement Command1_Click comme ceci :
...
Next
GoTo fin
fin:
End Sub
12 sept. 2006 à 21:52
mais je ne comprends pas le dernier arc de cercle qui va au delà du dernier point...