Plus ou moins

Soyez le premier à donner votre avis sur cette source.

Vue 9 517 fois - Téléchargée 357 fois

Description

C'est un vieux jeu que j'ai remodifié en Visual Basic 2003.
Il faut écrire un nombre entre 0 et 99 dans le textbox et de presser la barre d'espace pour valider.
Il y a plusieur niveaux.
Avec un son sonore qui vous dit plus ou moins.

Source / Exemple :


Public Const Lecture As Short = &H1S
	Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Integer) As Integer
	Dim Chemin As String
	Dim A As Single
	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
		If Label9.Text = 99 Then
			Label9.Text = 0
		Else
			Label9.Text += 1
		End If
	End Sub

	Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
		A = Label1.Text
		Label3.Text -= 1
		If Label3.Text = "0" Then
			Timer2.Enabled = False
			Timer1.Enabled = False
			Label1.Visible = True
			TextBox1.Enabled = False
			Label5.Visible = False
			MessageBox.Show("Désolé vous avez perdus, la solution été " & A)
			Minimum.Text = 0
			Maximum.Text = 99
		End If
	End Sub

	Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
		Timer1.Enabled = True
		Timer2.Enabled = False
		Label1.Visible = False
		TextBox1.Enabled = True
		TextBox1.Text = ""
		Label2.Text = ""
		Label3.Text = Niveau.Text
		Label5.Visible = True
		Minimum.Text = 0
		Maximum.Text = 99
		Label1.Text = Label9.Text
	End Sub

	Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
		A = Label1.Text
		Timer1.Enabled = True
		Timer2.Enabled = False
		Label1.Visible = False
		TextBox1.Enabled = True
		TextBox1.Text = ""
		Label2.Text = ""
		Niveau.Text = 25
		Label3.Text = Niveau.Text
		Label5.Visible = True
		Minimum.Text = 0
		Maximum.Text = 99
		Label1.Text = Label9.Text
	End Sub

	Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
		A = Label1.Text
		Timer1.Enabled = True
		Timer2.Enabled = False
		Label1.Visible = False
		TextBox1.Enabled = True
		TextBox1.Text = ""
		Label2.Text = ""
		Niveau.Text = 20
		Label3.Text = Niveau.Text
		Label5.Visible = True
		Minimum.Text = 0
		Maximum.Text = 99
		Label1.Text = Label9.Text
	End Sub

	Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
		A = Label1.Text
		Timer1.Enabled = True
		Timer2.Enabled = False
		Label1.Visible = False
		TextBox1.Enabled = True
		TextBox1.Text = ""
		Label2.Text = ""
		Niveau.Text = 15
		Label3.Text = Niveau.Text
		Label5.Visible = True
		Minimum.Text = 0
		Maximum.Text = 99
		Label1.Text = Label9.Text
	End Sub

	Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
		Me.Close()
	End Sub

	Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
		If e.KeyCode = 32 Then
			Chemin = Application.StartupPath + "\Son\"
			A = Label1.Text
			Format(A, "00")
			Timer2.Enabled = True
			Label1.Visible = False
			Label5.Visible = True
			If Val(TextBox1.Text) >= 0 And Val(TextBox1.Text) <= 99 Then
				Select Case A
					Case Is > Val(TextBox1.Text)
						If Val(TextBox1.Text) > Minimum.Text Then
							Minimum.Text = Val(TextBox1.Text)
						End If
						Label1.Visible = False
						Label5.Visible = True
						Label2.Text = "C'est plus"
						sndPlaySound(Chemin + "C'est plus.wav", Lecture)
						TextBox1.Text = ""

					Case Is < Val(TextBox1.Text)
						If Val(TextBox1.Text) < Maximum.Text Then
							Maximum.Text = Val(TextBox1.Text)
						End If
						Label1.Visible = False
						Label5.Visible = True
						Label2.Text = "C'est moins"
						sndPlaySound(Chemin + "C'est moins.wav", Lecture)
						TextBox1.Text = ""

					Case Is = Val(TextBox1.Text)
						Label2.Text = "C'est Gagné"
						Label1.Visible = True
						Label5.Visible = False
						Timer2.Enabled = False
						TextBox1.Enabled = False
				End Select
			Else
			End If
		End If
	End Sub

	Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
		Dim Form2 As New Form2
		Form2.ShowDialog()
	End Sub

	Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
		A = Label1.Text
		Timer1.Enabled = True
		Timer2.Enabled = False
		Label1.Visible = False
		TextBox1.Enabled = True
		TextBox1.Text = ""
		Label2.Text = ""
		Niveau.Text = 10
		Label3.Text = Niveau.Text
		Label5.Visible = True
		Minimum.Text = 0
		Maximum.Text = 99
		Label1.Text = Label9.Text
	End Sub

Conclusion :


SVP si quelqu'un sait régler le volume sur visual basic 2003 avec un trackbar pourait-il me donner le code Merci

Codes Sources

Ajouter un commentaire

Commentaires

benji2000
Messages postés
78
Date d'inscription
samedi 26 août 2006
Statut
Membre
Dernière intervention
25 novembre 2016

OneHacker

If e.KeyCode = 32 Then signifie que si j'appuis sur la touche 32 (La barre d'espace) alors ...

Regarde jmecodol et malkolinge ont réussis à ce débrouiller car eux au moins ils ont lus la description du code où il était écrit :

"Il faut écrire un nombre entre 0 et 99 dans le textbox ET DE PRESSER LA BARRE D'ESPACE pour valider."

Regarde par toi même.
OneHacker
Messages postés
1447
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2007
1
Déjà on sait même pas joué ensuite dans le KeyCode de Textbox1.KeyDown tu vérifies si il a la valeur 32 alors qu'il faut vérifier une touche. Et la touche 32 on c'est pas ce que c'est, en tout pas c'est pas entrée(comme les utilisateurs ont l'habitude de faire). Ensuite la Form2 ca devrait être un formulaire d'aide.

Sinon rien à ajouter.

Cordialement

Redman
benji2000
Messages postés
78
Date d'inscription
samedi 26 août 2006
Statut
Membre
Dernière intervention
25 novembre 2016

Je crois que &H1S veut dire "play" , tu peux aussi essayer &H8 , je crois qu'il joueras le morceau en boucle mais tu peux faire un tour sur :

http://www.vbfrance.com/codes/MIXAGE-MUSIQUE_41199.aspx

Sur cette source j'utilise un WindowsMediaPlayer bien plus utile pour lire tous les fichiers de musiques sauf celles qui sont protégées.
Mastronic
Messages postés
94
Date d'inscription
lundi 8 août 2005
Statut
Membre
Dernière intervention
13 juin 2012

trés bien. je cherché comment lire un Wav en .net ..
il suffit de déclarer dans la class:
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Integer) As Integer

puis, pour l'évenement donné, cliquer sur un bouton par ex:
Const Lecture As Short = &H1S
sndPlaySound("lefichier.wav", Lecture)

Par contre, je n'est pas compris ce que c "&H1S" ?
OneHacker
Messages postés
1447
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2007
1

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.