Jeu "light off on"

Soyez le premier à donner votre avis sur cette source.

Vue 5 095 fois - Téléchargée 619 fois

Description

Jeu de reflexion qui consiste à éteindre tous les lumières selon certaines règles
Utilisation de fonctions graphiques
Utilisation du texttospeech lib

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
En effet tu ne pourra pas car l'évenment se produira de toute façon à moins de le virer ? là je ne sais pas trop dsl ++
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
49
Bonjour
Je n'ai pas réussi à résoudre le petit bug si on bouge la souris pendant la demo de solution je ne pense pas qu'on puisse empecher la souris pendant le demo.j'ai posé la question au forum mais pas de réponse convenable
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
49
Bonjour
Merci pour la note
Enfin l'important c'est d'analyser ce que tu as écrit
J'écris "me" une habitude de l'ancienne époque vb6

ps l'algo de solution n'est pas compliqué puisque c'est moi
qui décide de façon aléatoire quels interrupteurs va etre en position "ON" la solution il faut mettre ces meme interrupteur en position "OFF"
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
ah aussi, pour toutes tes sub qui définissent le cursors.hand, utilise le handle, cel ane fait qu'une seul fois à l'écrire ^^
Private Sub difficulté_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles difficulté.MouseMove, about.MouseMove, help.MouseMove, etc......
sender.Cursor = Cursors.Hand
End Sub

le sender est celui qui envoie, tu vois ?

pour finir, pour l'anim du message du winner, vas y franchement lol

Private Sub Timerwin_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerwin.Tick
Me.Timerwin.Interval = 50
Success.Visible = True
Success.Left = boardgame.Right + 6
Success.Top = Me.Height / 2 - Me.Success.Height / 2
Success.Font = New Font("Angsana NEW", sizefontsucesss, FontStyle.Bold, GraphicsUnit.Pixel)
sizefontsucesss = sizefontsucesss - 1
If sizefontsucesss < 1 Then
sizefontsucesss = 60
End If
End Sub

@ pluche et bonne prog
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
1
Ps, tu n'es pas obligé de mettre Me. devant chaque control posé sur la form ;)
Ex Me.Timerwin.interval devient timerwin.interval ;)

tu peux aussi faire une ptite sub pour le code qui se répétte à chaque appui sur un bouton.
Me.Timerwin.Enabled = False
Me.feuille.Visible = False
texte.Text = ""
Me.texte.Visible = False
Me.about.Cursor = Cursors.Hand
devrait être dans une sub raz() ou autre.

++
Afficher les 12 commentaires

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.