Bioacide
Messages postés58Date d'inscriptionjeudi 5 septembre 2002StatutMembreDernière intervention20 septembre 2004
-
30 avril 2004 à 08:23
cs_Sapeur
Messages postés4Date d'inscriptionjeudi 27 mars 2003StatutMembreDernière intervention 2 octobre 2004
-
2 oct. 2004 à 00:17
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_Sapeur
Messages postés4Date d'inscriptionjeudi 27 mars 2003StatutMembreDernière intervention 2 octobre 2004 2 oct. 2004 à 00:17
Je suis désolé SDan, je connais pas les fonctions dispo sous vb5, ce prog a ete fait avec vb6.
Je te conseille de chercher dans l'aide une fonction equivallente.
Désolé de pas pouvoir t'aider...
cs_SDan
Messages postés288Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention13 juin 2008 27 août 2004 à 13:14
salut,
J'utilise la version 5.0 de Visual Basic et en testant ton application, ds la feuille Form1, quand j'ai testé, un message d'ereur de compilation est apparu à l'écran :
Erreur de compilation
Procedure Sub ou Function non définie
Resultat.Caption = Round(Rnd * 1000), Round est surligné.
Peux-tu me dire ce que je peux faire pour faie fonctionner la sourc ecorrectement?
Merci d'avance.
cs_Sapeur
Messages postés4Date d'inscriptionjeudi 27 mars 2003StatutMembreDernière intervention 2 octobre 2004 2 mai 2004 à 18:39
Me cherche pas bioacide, sinon je te la colle la musique !!! :-)
Nan, c'est gentil pour le neuf sur dix...mais je suis pas sur que ca le merite, c'est pas de la grande programmation...
vpcorpprog
Messages postés36Date d'inscriptionmardi 9 mars 2004StatutMembreDernière intervention18 octobre 2005 1 mai 2004 à 18:15
pas mal 9/10
Bioacide
Messages postés58Date d'inscriptionjeudi 5 septembre 2002StatutMembreDernière intervention20 septembre 2004 1 mai 2004 à 08:11
Super il ne reste plus que la musique pourrave derrière et les sales blagues de romechko ( desolé pour l'orthographe de son nom ) lol.
Merci pour la mise à jour ;)
cs_Sapeur
Messages postés4Date d'inscriptionjeudi 27 mars 2003StatutMembreDernière intervention 2 octobre 2004 30 avril 2004 à 12:36
Le code a été mis a jour!
cs_Sapeur
Messages postés4Date d'inscriptionjeudi 27 mars 2003StatutMembreDernière intervention 2 octobre 2004 30 avril 2004 à 10:49
Bah, y'en a pour 3 lignes de vb... je vais faire ca tout a l'heure, comme ca j'ajouterai quelques verifs sur l'operation.
Je viens de m'apercevoir que ce jeu a deja été fait en une multitude d'exemplaires, mais a mon avis aucun n'a un algo de recherche de solution aussi performant, je ne parle que des sources vb bien evidemment, car j'entend déjà les remarques disant que vb n'est pas adapté a ce type de résolution (et ils auraient raison) , mais j'avais ni le temps ni l'envie de me lancer dans un projet vc++.
Je suis déjà assez occupé par un jeu c++ utilisant une webcam comme interface homme-machine.
Bioacide
Messages postés58Date d'inscriptionjeudi 5 septembre 2002StatutMembreDernière intervention20 septembre 2004 30 avril 2004 à 08:23
Ce que tu pourrait faire c'est ajouter l'option enlever la dernière ligne . Ca evite de tout reprendre .
Sinon jaime bien
2 oct. 2004 à 00:17
Je te conseille de chercher dans l'aide une fonction equivallente.
Désolé de pas pouvoir t'aider...
27 août 2004 à 13:14
J'utilise la version 5.0 de Visual Basic et en testant ton application, ds la feuille Form1, quand j'ai testé, un message d'ereur de compilation est apparu à l'écran :
Erreur de compilation
Procedure Sub ou Function non définie
J'ai cliqué sur OK et là, ds
Private Sub Nouveau_Click ()
Randomize Timer
Nombre(0) = 1
Nombre(1) = 2
Nombre(2) = 3
Nombre(3) = 4
Nombre(4) = 5
Nombre(5) = 6
Nombre(6) = 7
Nombre(7) = 8
Nombre(8) = 9
Nombre(9) = 10
Nombre(10) = 25
Nombre(11) = 50
Nombre(12) = 75
Nombre(13) = 100
Resultat.Caption = Round(Rnd * 1000)
Chiffre1.Caption = Nombre(Round(Rnd * 13))
Chiffre2.Caption = Nombre(Round(Rnd * 13))
Chiffre3.Caption = Nombre(Round(Rnd * 13))
Chiffre4.Caption = Nombre(Round(Rnd * 13))
Chiffre5.Caption = Nombre(Round(Rnd * 13))
Chiffre6.Caption = Nombre(Round(Rnd * 13))
Call effacer_Click
End Sub
Resultat.Caption = Round(Rnd * 1000), Round est surligné.
Peux-tu me dire ce que je peux faire pour faie fonctionner la sourc ecorrectement?
Merci d'avance.
2 mai 2004 à 18:39
Nan, c'est gentil pour le neuf sur dix...mais je suis pas sur que ca le merite, c'est pas de la grande programmation...
1 mai 2004 à 18:15
1 mai 2004 à 08:11
Merci pour la mise à jour ;)
30 avril 2004 à 12:36
30 avril 2004 à 10:49
Je viens de m'apercevoir que ce jeu a deja été fait en une multitude d'exemplaires, mais a mon avis aucun n'a un algo de recherche de solution aussi performant, je ne parle que des sources vb bien evidemment, car j'entend déjà les remarques disant que vb n'est pas adapté a ce type de résolution (et ils auraient raison) , mais j'avais ni le temps ni l'envie de me lancer dans un projet vc++.
Je suis déjà assez occupé par un jeu c++ utilisant une webcam comme interface homme-machine.
30 avril 2004 à 08:23
Sinon jaime bien