Plus ou moins

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

S'inscrire maintenant

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.

Du même auteur (benji2000)