Soyez le premier à donner votre avis sur cette source.
Vue 5 394 fois - Téléchargée 321 fois
'======================================================= '======================================================= 'code : par fki | icq 104358060 | aim : fkiaim ' 'Composant : sur une form ajouter 3 picturebox (picture1 = obj en mvnt / picture2 = limites du systeme / ' picture3 = ico pour dragdrop) ; un timer : timer1 (interval = 10) ; 2 label : label1 et label2 ' (pour un afficher les vitesses en pixel/s et m/s ; 1 boutou command1 (pour quitter) ' 'com. : ceci n'est qu'un simple code de remplacement ' j'ai concience que ceului-ci est inutile puisque peu réaliste ' (entre autre : pas de rebonds sur les cotés) et n'utilisant pas directx ou opengl ' En esperant que vous puissiez trouver un interret quelquonque a cette source ' 'Ps : J'emerde royalement les connards prétancieux qui ne pencent qu'a critiquer sans aucun apport ' de solution et je remercie les tt les gens pret à aider et à critiquer de façon positive. @+. '======================================================= '======================================================= '============= Variables =============' Dim Y As String ' vitesse horizontale Dim v As String ' vitesse verticale Dim w As Boolean ' Perdiode : accélération / deccélération Dim z As Boolean ' Pr stoper la balle si elle touche un cote du sys. Private Sub Command1_Click() End End Sub Private Sub Form_Load() 'assignation des var Y = 5 v = 2 w = True z = True End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'dragdrop 'ont arreter le timer et ont cache l'image Timer1.Enabled = False Picture1.Visible = False 'ont remplace l'image par l'ico de dragdrop Picture1.Drag Picture1.DragIcon = Form1.Picture3 End Sub Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single) 'un fois le dragdrop terminer ont depalce l'objet Picture1.Top = Y Picture1.Left = X 'ont réassigne les var Y = 5 v = 2 w = True z = True 'et ont afficher l'image puis ont lance le timer Picture1.Visible = True Timer1.Enabled = True End Sub Private Sub Timer1_Timer() 'etat_a = balle en acceleration 'verif que la balle sera bien dans le systeme apres le prochaine mvnt If ((Picture1.Top + v) < Picture2.Height And (Picture1.Left + Y) < Picture2.Width And w = True And z = True) Then 'incrementation de la vitesse v = v + 1 'mvnt de l'objet Picture1.Top = Picture1.Top + v Picture1.Left = Picture1.Left + Y 'si il arrive aux limites du systeme (verticalement) ElseIf ((Picture1.Top + v) > Picture2.Height And w = True And z = True) Then Picture1.Top = Picture2.Height w = False v = v - 10 'si il arrive aux limites du systeme (verticalement) ElseIf ((Picture1.Left + Y) > Picture2.Width And w = True And z = True) Then Picture1.Left = Picture2.Width z = False End If 'etat_a = balle en descceleration If (v > 0 And (Picture1.Left + Y) < Picture2.Width And w = False And z = True) Then v = v - 1 Picture1.Top = Picture1.Top - v Picture1.Left = Picture1.Left + Y ElseIf (v = 0 And w = False And z = True) Then w = True ElseIf ((Picture1.Left + Y) > Picture2.Width And w = False And z = True) Then Picture1.Left = Picture2.Width z = True End If 'Affichage de la vitesse de l'objet Label2.Caption = "Vitesse : " & (v * (1000 / Timer1.Interval)) & " Pixels /s" Label3.Caption = "Vitesse : " & ((v * (1000 / Timer1.Interval)) * 0.04) & " Cm /s" End Sub
22 août 2006 à 13:57
J'espère ne plus voir de dérapage pareil; je trouve que vous êtes tous assez lamentable pour en être arriver à ce point là...
7 avril 2005 à 01:36
ce code là, au moins, parrait respectable ! (système repiqué en fait sur mes sources de gravités... repiqué ou alors identique en tout cas, enfin bon, au moins c'est du bon, repiqué ou pas).
Autant dire que les critiques d'antan ne s'appliquent plus !
@+
Celiphane
9 juil. 2004 à 02:07
a trouver des formule physique pour exprimé cette gravité :p
Conclusion
Instruction avant Programmation :p
20 févr. 2004 à 11:19
et devrait etre optimisé car les clauses de test comme ca c'est un peu dommage
tu pourrais programmer objet et creer un objet balle avec ses caracteristiques et ses fonctions ( acceleration , descelleration en fonction d une gravité g )
si la programmation de classe ne vous dit rien, ne programmez pas graphiquement ( en encore moins 3D par la suite )
sinon ca doit fonctionner
dommage que la gravité soit simulée et non pas exacte, il existe des formules physiques pour l'acceleration, ( dérivée de la vitesse ) et ainsi de suite en fonction de la gravité je m'en souviens vaguement, on en faisait à la fac, en mecanique ( theorique hein ) j'etais en MIAS
ces formules sont assez simple tu devrais les trouver sur le net. Et forcement, seront plus realistes qu'un simple +1 et -1 lors de la descente ou l'ascension.
Cordialement :)
LesHauSsebons
9 juin 2003 à 22:24
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.