PLUS OU MOINS

	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

Télécharger le zip

26 août 2006 21:47:19 :

Mise a jour le 26/08/06 à 21 Heures 45

26 août 2006 21:51:12 :

Mise à jour le 26/08/06 à 21 Heures 50

26 août 2006 21:55:34 :

Mise à jour le 26/08 à 21 Heures 55