begin process at 2012 02 13 05:04:09
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Jeux

 > CLICK AND GO

CLICK AND GO


 Information sur la source

Note :
5 / 10 - par 1 personne
5,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Jeux Classé sous :déplacement, image, souris, clic, formulaire Niveau :Débutant Date de création :27/12/2001 Date de mise à jour :27/12/2001 18:28:50 Vu :3 004
Auteur : ATH|500|

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

C'est un p-tit code que quand tu click ben l'image s'en va la ou tu as cliké... c'Est pratique pour les jeux d'aventure...

Je sais merde j'ai utilisé LE LOOP j'aurais peut-être du le convertir pour un timer ! Mais merde existe t'il quelques choses qui diffère pas d'un ordi a l'autre comme le loop !!!? À part le timer !!!

Besoin d'un image seulement...

Source

  • Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  • Do
  • DoEvents
  • If Image1.Left < X Then
  • Image1.Left = Image1.Left + 3
  • End If
  • If Image1.Left > X Then
  • Image1.Left = Image1.Left - 3
  • End If
  • If Image1.Top < Y Then
  • Image1.Top = Image1.Top + 3
  • End If
  • If Image1.Top > Y Then
  • Image1.Top = Image1.Top - 3
  • End If
  • Loop Until Image1.Left > X And Image1.Top > Y Or Image1.Left < X And Image1.Top < Y
  • Do
  • DoEvents
  • If Image1.Left < X Then
  • Image1.Left = Image1.Left + 3
  • End If
  • If Image1.Left > X Then
  • Image1.Left = Image1.Left - 3
  • End If
  • If Image1.Top < Y Then
  • Image1.Top = Image1.Top + 3
  • End If
  • If Image1.Top > Y Then
  • Image1.Top = Image1.Top - 3
  • End If
  • Loop Until Image1.Left > X And Image1.Top < Y Or Image1.Left < X And Image1.Top > Y
  • End Sub 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Do
DoEvents
If Image1.Left < X Then
Image1.Left = Image1.Left + 3
End If
If Image1.Left > X Then
Image1.Left = Image1.Left - 3
End If
If Image1.Top < Y Then
Image1.Top = Image1.Top + 3
End If
If Image1.Top > Y Then
Image1.Top = Image1.Top - 3
End If
Loop Until Image1.Left > X And Image1.Top > Y Or Image1.Left < X And Image1.Top < Y

Do
DoEvents
If Image1.Left < X Then
Image1.Left = Image1.Left + 3
End If
If Image1.Left > X Then
Image1.Left = Image1.Left - 3
End If
If Image1.Top < Y Then
Image1.Top = Image1.Top + 3
End If
If Image1.Top > Y Then
Image1.Top = Image1.Top - 3
End If
Loop Until Image1.Left > X And Image1.Top < Y Or Image1.Left < X And Image1.Top > Y

End Sub

 Conclusion

Si quelqu'un serait assez gentil pour le convertir dans un timer ben je te le recommande !!


 Sources du même auteur

Source avec Zip Source avec une capture SIMON EN DIRECTX RÉPÉTEZ LA SÉQUENCE ( PARTICULES , MANIPUL...
Source avec Zip Source avec une capture JEU DE COURSE (VOITURES) AVEC DIRECTX 8.1
Source avec une capture ÉCRIRE DES NOMBRES EN BINAIRE !
Source avec Zip Source avec une capture TROUVE UN ANGLE GRÂCE À LA TANGEANTE ( TRIGONOMÉTRIE TRIANGL...
Source avec Zip Source avec une capture STARCRAFT VER: 0.00001
Toutes les sources de ATH|500|

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) DES CHIFFRES ET DES LETTRES par ShayW
Source avec Zip Source avec une capture FAIRE REBONDIR PLUSIEURS BALLES par pierreh51
Source avec Zip Source .NET (Dotnet) JE DES BRIQUES MOUVANTES par alpha5
Source avec Zip Source avec une capture TOWER BATTLE 2 par Softmama
JEU D'ADRESSE ,JEU DE TIR À LA SOURIS par yvesdudu
Toutes les sources de la catégorie Jeux

 Sources en rapport avec celle ci

Source avec une capture Source .NET (Dotnet) CONTROLE IMAGE ZOOM/DÉZOOM par lesdis
Source avec Zip Source avec une capture Source .NET (Dotnet) AFFICHER UNE IMAGE DANS UNE CELLULE D'UN DATAGRIDVIEW LIÉ À ... par christcnet
Source avec Zip Source .NET (Dotnet) VB2005 ZOOM-DÉPLACEMENT IMAGE par filou26
Source avec Zip Source avec une capture Source .NET (Dotnet) USERCONTROL PERMETTANT D'AFFICHER UNE CARTE (OU N'IMPORTE QU... par preventionhs
Source avec Zip Source .NET (Dotnet) DÉPLACER LA SOURIS PAR CLAVIER par hdpn

Commentaires et avis

Commentaire de KL le 27/12/2001 19:01:15

suffit ke tu calcul le temps pour faire un tour de loop et tu les addtiones jusqu'a ce que ca fasse une seconde par exemple.
Une fois que tu as atteint ta seconde, tu peux declecher ton action

Commentaire de KL le 27/12/2001 19:03:28

ainsi, une seconde vaut toujours une seconde, meme dans un loop

Commentaire de ATH|500| le 28/12/2001 00:05:16

Nan ça va rien changer du tout car plus ton processeur va vite plus le loop v a vite donc c'est pas correct ton affaire...

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Déplacement + clic de souris [ par cobra51 ] Salut,J'ai un formulaire avec 2 picturebox : PictureBox(0) et PictureBox(1).J'ai codé l'événement suivant : Private Sub PictureBox_Click(Index As Int Déplacement d'une image par rapport à la position X de la souris [ par Damob ] Bonjour,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;J'aimerais savoir s'il y a une m&#233;thode particuli&#232;re pour faire d&#233;placer une image sans que modification image page html [ par jauneas4 ] Bonjour, voila mon pb : je voudrais faire de la domotique. Bon, j'ai la photo d'une maison sur une page web. Je voudrais, d'un clic de souris, cr&#233 Pb d'affichage clic de souris sur image [ par hidozo ] Bonjour, J'ai un lecteur WMP je souhaite marquer une croix à l'endroit du clic de souris quand je mets pause : - Cela ne fonctionne pas, car pour ma Automatiser clic sur une position X,Y sans bouger la souris [ par maxsecurite2 ] Bonjour, Je suis bloqué sur un projet :( J'aimerais savoir si quelqu'un peut m'aider a générer un clic sur une position X,Y définie mais sans bouger afficher un texte lors du déplacement de la souris sur les objets d'une feuille. [ par p2zouille ] Bonjour, J'ai créé une sorte de diagramme avec des zones de texte (rectangle avec texte ajouté). Le contenu du texte est incompréhensible pour les per Créer une image cursor de la souris en dynamique [ par Fabasia ] Je souhaiterais donner des infos lors d'un drag & drop et afficher un texte particuler et variable dans l'image cursor de la souris. Dois-je créer un Ouvrir une image du web dans un formulaire [ par lanamus ] Bonjour,J'ai cherché par monts et part vaux, je n'ai pas trouvé de réponse satisfaisante à mon problème, j'ai donc grand espoir pour ici :dJ'ai un for Clic de souris sans bouger la souris! [ par Julamo ] Bonjour a tous,Avec les fonctions "SetCursorPos" et "mouse_event" on peut facilement bouger la souris n'importe ou sur l'ecran et simuler un clic. Par


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,889 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)