steakos78
Messages postés9Date d'inscriptionlundi 29 novembre 2010StatutMembreDernière intervention 1 décembre 2010
-
22 août 2010 à 12:25
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024
-
23 août 2010 à 09:53
Bonjour,
Alors je souhaiterai créer un programme sous forme de jeu qui donnerait le nom d'un departement et ou l'utilisateur entrerait le numéro.
Le problème est que je suis bloqué ... Quelqu'un pourrait-il m'aider à trouver l'erreur ?
Public Class Form1
Dim Tdep(96) As String
Dim Tbool(96) As Integer
Dim dep As Integer
Private Sub butquit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butquit.Click
Me.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Tdep(1) = "Ain"
Tdep(2) = "Aisne"
Tdep(3) = "Allier"
Tdep(4) = "Alpes de Haute Provence"
Tdep(5) = "Hautes-Alpes"
Tdep(6) = "Alpes Maritimes"
Tdep(7) = "Ardèches"
Tdep(8) = "Ardennes"
Tdep(9) = "Ariège"
Tdep(10) = "Aube"
Tdep(11) = "Aude"
Tdep(12) = "Aveyron"
Tdep(13) = "Bouches du Rhône"
Tdep(14) = "Calvados"
Tdep(15) = "Cantal"
Tdep(16) = "Charente"
Tdep(17) = "Charente Maritime"
Tdep(18) = "Cher"
Tdep(19) = "Corrèze"
Tdep(20) = "Corse"
Tdep(21) = "Côte d'Or"
Tdep(22) = "Côte d'Armor"
Tdep(23) = "Creuse"
Tdep(24) = "Dordogne"
Tdep(25) = "Doubs"
Tdep(26) = "Drôme"
Tdep(27) = "Eure"
Tdep(28) = "Eure-et-Loir"
Tdep(29) = "Finistère"
Tdep(30) = "Gard"
Tdep(31) = "Haute-Garonne"
Tdep(32) = "Gers"
Tdep(33) = "Gironde"
Tdep(34) = "Hérault"
Tdep(35) = "Ille-et-Vilaine"
Tdep(36) = "Indre"
Tdep(37) = "Indre-et-Loire"
Tdep(38) = "Isère"
Tdep(39) = "Jura"
Tdep(40) = "Landes"
Tdep(41) = "Loir-et-Cher"
Tdep(42) = "Loire"
Tdep(43) = "Haute-Loire"
Tdep(44) = "Loire-Atlantique"
Tdep(45) = "Loiret"
Tdep(46) = "Lot"
Tdep(47) = "Lot-et-Garonne"
Tdep(48) = "Lozère"
Tdep(49) = "Maine-et-Loire"
Tdep(50) = "Manche"
Tdep(51) = "Marne"
Tdep(52) = "Haute-Marne"
Tdep(53) = "Mayenne"
Tdep(54) = "Meurthe-et-Moselle"
Tdep(55) = "Meuse"
Tdep(56) = "Morbihan"
Tdep(57) = "Moselle"
Tdep(58) = "Nièvre"
Tdep(59) = "Nord"
Tdep(60) = "Oise"
Tdep(61) = "Orne"
Tdep(62) = "Pas-de-Calais"
Tdep(63) = "Puy-de-Dôme"
Tdep(64) = "Pyrénnées-Atlantiques"
Tdep(65) = "Haute-Pyrénées"
Tdep(66) = "Pyrénées Orientales"
Tdep(67) = "Bas-Rhin"
Tdep(68) = "Haut-Rhin"
Tdep(69) = "Rhône"
Tdep(70) = "Haute-Saône"
Tdep(71) = "Saône-et-Loire"
Tdep(72) = "Sarthe"
Tdep(73) = "Savoie"
Tdep(74) = "Haute-Savoie"
Tdep(75) = "Paris"
Tdep(76) = "Seine-Maritime"
Tdep(77) = "Seine-et-Marne"
Tdep(78) = "Yvelines"
Tdep(79) = "Deux-Sèvres"
Tdep(80) = "Somme"
Tdep(81) = "Tarn"
Tdep(82) = "Tarn-et-Garonne"
Tdep(83) = "Var"
Tdep(84) = "Vaucluse"
Tdep(85) = "Vendée"
Tdep(86) = "Vienne"
Tdep(87) = "Haute-Vienne"
Tdep(88) = "Vosges"
Tdep(89) = "Yonne"
Tdep(90) = "Territoire-de-Belfort"
Tdep(91) = "Essonne"
Tdep(92) = "Hauts-de-Seine"
Tdep(93) = "Seine-Saint-Denis"
Tdep(94) = "Val-de-Marne"
Tdep(95) = "Val-d Oise"
butval = AcceptButton
P_init()
Depart()
txtdep.Text = Tdep(dep)
End Sub
Sub P_init()
Dim i As Integer
For i = 1 To 95
Tbool(i) = 0
Next i
End Sub
Sub Depart()
Randomize()
Do
dep = Int(Rnd() * (95 + 1 - 1)) + 1
Loop Until Tbool(dep) = 0
Tbool(dep) = 1
End Sub
Private Sub butval_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butval.Click
If txtrep.Text = dep Then
rep.Text = "Vrai !"
Else
rep.Text = "Faux !"
End If
Depart()
txtdep.Text = Tdep(dep)
End Sub
End Class
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 22 août 2010 à 22:18
A mettre dans le button: butval
If txtrep.Text = "" Then Exit Sub
If txtrep.Text = dep Then
rep.Text = "Vrai !"
Else
rep.Text = "Faux ! C'est le: " & dep
End If
Depart()
txtdep.Text = Tdep(dep)
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 23 août 2010 à 09:53
Bonjour,
Pour le focus, je pense que tu veux que le curseur clignote à l'ouverture dans ton textBox "txtrep" .
Tu mets dans l'évenement Private Sub Form1_Load:
txtrep.Select()
Pour éviter des erreurs de saisie mets la propriété: ReadOnly à True dans les 2 autres TextBox.
@+
Le Pivert