[Résolu][Basic] Mouvement des cercles sur fenêtre.

[hamilton]

Bonsoir,
Je voudrai appliquer mouvement aux cercles, formes géométriques, comme carrées sur une fenêtre, comment faire.
Je pense qu'il serait possible dans [Python] or même dans [JavaScript].
J'ai essayé en [Basic], mais ce n'est pas possible.
j'implore votre aide pour c'est sujet.

[Jurassic Pork]

hello,
je ne comprends pas très bien ta question. Peux-tu nous faire un dessin ?
Veux-tu déplacer une forme dans une fenêtre ? Quel type de fenêtre ? Quel est le but ?
Ami calmant, J.P

[hamilton]

Bonne Nuit,
Sur une boîte de Dialogue.
Je voulais faire une accélérogramme, j'ai les calculs numériques, est je besoin appliquer mouvement dans le lignes. Une boîte de Dialogue c'est le meilleur.
En [Basic] je peux dessiner les formes géométriques, mais appliquer mouvement, ce n'est pas possible.
Une boîte de Dialogue, dans [Python] or même dans [JavaScript] avec des cercles en mouvement. Je pense peut résulter. Type balles rebondissantes.

[hamilton]

Bonsoir,
Ici le dessin, une accélérogramme, c'est une exemple, de cela que je recherche .

[Hubert Lambert]

Bonjour,

Ça ne répond que partiellement à la question, mais je vous le livre quand même... pour le fun :

hamilton.odt

Cordialement... et meilleurs voeux donc .

[Jurassic Pork]

hello,
il y a aussi possibilité d'utiliser un graphique LibreOffice OpenOffice de calc avec une série qui définit le chemin et une série qui affiche un point mobile :

AnimLO.gif

Cliquer sur GO pour démarrer l'animation


Ami calmant, J.P

[Piaf]

Bonjour
Pour le fun à partir du fichier d'Hubert Lambert

ham.gif

Code : Tout sélectionner

Sub feu(evt)
Dim orect as New com.sun.star.awt.Rectangle
	dlg = evt.Source.Context
	txt = dlg.getControl("TextField1")
	longLigne = txt.PosSize.Width
	PosLigne = txt.PosSize.Height / 2
	tabPosx = Array(0,25,50,75,100,125,150,175,200,235,270,295,320,360,400,422,longLigne)
	tabPosy = Array(PosLigne - 30,PosLigne,PosLigne + 30,PosLigne,PosLigne - 30,PosLigne,PosLigne + 30,PosLigne,PosLigne - 30,PosLigne,PosLigne + 30,PosLigne,PosLigne - 30,PosLigne,PosLigne + 30,posLigne,PosLigne - 30)
	graphic = txt.Peer.createGraphics()
	graphic.drawText(10,10,"ACCELERATION (a)")
	graphic.drawText(10,25,"a (m/s)"
	graphic.drawText(350,200,"Temps (t)")
	graphic.drawText(350,215,"t (s)")
	graphic.LineColor = RGB(0,255,255)
	graphic.drawLine(0,PosLigne,longLigne,PosLigne)
	n =  longLigne / 10
	For i = 1 To 9
		graphic.drawLine(n,PosLigne -10,n,posLigne + 10)
		n = n + (longLigne / 10)
	Next i
	graphic1 = txt.Peer.createGraphics()
	graphic1.LineColor = RGB(0,204,0)
	graphic1.FillColor = RGB(0,204,0)
	For i = LBound(tabPosx) + 1 To UBound(tabPosx) - 1
		graphic1.drawRoundedRect(tabPosx(i)-15, tabPosy(i)-15,30,30,30,30)
		Wait 150
		With oRect
			.Height = 30 
			.Width = 30
			.X = tabPosx(i) - 15
			.Y = tabPosy(i) - 15
		End With
		graphic1.clear(oRect)
		graphic.LineColor = RGB(0,255,255)
		graphic.drawLine(0,PosLigne,longLigne,PosLigne)
		graphic.LineColor = RGB(255,0,0)
		graphic.drawPolyLine(tabPosx,tabPosy)
	Next i
	n =  longLigne / 10
	graphic.LineColor = RGB(0,255,255)
	For i = 1 To 9
		graphic.drawLine(n,PosLigne -10,n,posLigne + 10)
		n = n + (longLigne / 10)
	Next i
End Sub

A+

[hamilton]

Bonsoir,
Grand merci Jurassic Pork .
Grand merci Hubert Lambert .
Grand merci Piaf .
C'est que je recherche . La Programmation appliqué à le mouvement.
Il manque faire ça dans une boîte, fenêtre qui je peuvez aussi Minimizer.

[hamilton]

Joyeux Noël et bonne année à tous.
J'ai essayé le accélérogramme sur une fenêtre, mais je n'est réussi pas.

[Piaf]

Bonjour
Pourquoi ne pas utiliser la même procédure en l'affectant au contrôle de texte que tu créés ?
HS : Tu devrais supprimer la balise [Python] et la remplacer par [Basic] dans ton premier message.
A+

[hamilton]

Joyeux Noël.
C'est ça. Grand Merci Piaf.
Cela semblait était très compliquée sur langage [Basic], que je pense faire ça sur [Python].