VB.NET et "Des chiffres et des lettres"

Question

Re bonsoir
J'enviseage de creer un petit soft base sur le jeu "des chiffres et des lettres"  pour une maison de retraitecee du projet 

J'ai une idée bien avancee du projet mais je butte sur un truc, le tirage aleatoire

ce que je voudrais c'est un bouton "voyelles" et un bouton "c  onsonnes" et lorsque quelqu'un demende voyelle ou consonne,le logiciel m'affiche dans une textbox une voyelle ou une consonne au hasard, sachant que les doublons sont autorises"

Il y aurait bien sur autant de textbox que dans le vrai jeu pour l'affichage

Mais je n'arrive pas a affectuer un tirge aleatoire (Ramdomize ?)
J'en appelle a vos lumieres
Merci

Utilisateur anonyme · Answer

Bonsoir,

La classe Random est là pour ça.
dim chiffre as integer = new random().next(0,7)
Dans ce cas, tu obtiendras un Integer supérieur ou égal à 0 et inférieur à 7 (non compris).
A toi d'adapter ensuite...

Bonne prog.

Attila54 · Answer

merci banana32
je comprends donc que je fais pareil pour les lettres avec un 
dim voyelle as string = new random().next(A,.......)
et les consonnes sur le meme modele

mais les chiffres se suivent au cas précis 
un Integer supérieur ou égal à 0 et inférieur à 7

si la je peux faire
dim chiffre as integer = new random().next(0,101) pour avoir un chiffre aléatoire entre 0 et 100, 

je ne vois pas comment faire pour les lettres vu que je dois différencier les voyelles des consonnes et donc je n'ai pas de suite logique dans ces 2 tirages aléatoires

cs_ShayW · Answer

Bonsoir

pour les chiffres .....
tu veux que l'ordi trouve la solution
ou seulement distribue les nombres
pour la solution 
soi avec récursion prend beaucoup de temps
soi avec l'algorithm de recherche aléatoire 

http://en.wikipedia.org/wiki/Randomized_algorithm

http://www.dcode.fr/compte-est-bon

Bonne prog

Attila54 · Answer

non non je ne veux pas qu'il trouve la solution
je veux juste que quand je clique sur le bouton "chiffres" il me place 5 chiffres au hasard de 0 a 100 dans 5 textbox différentes et que dans une sixieme textbox, il me choisisse un chiffre aléatoirement entre 150 et 1000

pour les lettres idem
1er clic sur bouton consonne = une consonne dans une textbox1 
2ieme sur bouton consonne = une consonne dans une textbox2
3ieme sur bouton consonne = une consonne dans une textbox3
4ieme sur bouton consonne = une consonne dans une textbox4
5ieme sur bouton consonne = une consonne dans une textbox5
6ieme sur bouton consonne = une consonne dans une textbox6

1er clic sur bouton voyelle = une voyelle dans une textbox7 
2ieme sur bouton voyelle = une voyelle dans une textbox7

cs_ShayW · Answer

je te conseille de placer tous les textbox
consonne dans un groupbox  control 
et les textbox voyelle  dans un autre groupbox
control 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        InitGroupBox()
End Sub

Private Sub InitGroupBox()
        For Each ctrl As Control In GroupBoxConsonne.Controls
            If TypeOf ctrl Is TextBox Then
                DirectCast(ctrl, TextBox).Text = String.Empty
            End If
        Next
        For Each ctrl As Control In GroupBoxVoyelle.Controls
            If TypeOf ctrl Is TextBox Then
                DirectCast(ctrl, TextBox).Text = String.Empty
            End If
        Next
    End Sub

    Private Sub Buttonconsonne_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttonconsonne.MouseClick
        Dim randomlettre As New Random
        Dim consonne As String = "bcdfghjklmnpqrstvwxz"
        Dim lettre As Char
        Dim x As Integer
        x = randomlettre.Next(0, consonne.Length)
        lettre = CChar(consonne.Substring(x, 1))
        For Each ctrl As Control In GroupBoxConsonne.Controls
            If TypeOf ctrl Is TextBox Then
                If DirectCast(ctrl, TextBox).Text = String.Empty Then
                    DirectCast(ctrl, TextBox).Text = lettre
                    Exit For
                End If
            End If
        Next

    End Sub

    Private Sub Buttonvoyelle_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttonvoyelle.MouseClick
        Dim randomlettre As New Random

        Dim voyelle As String = "aeiouy"
        Dim lettre As Char
        Dim x As Integer
        x = randomlettre.Next(0, voyelle.Length)
        lettre = CChar(voyelle.Substring(x, 1))
        For Each ctrl As Control In GroupBoxVoyelle.Controls
            If TypeOf ctrl Is TextBox Then
                If DirectCast(ctrl, TextBox).Text = String.Empty Then
                    DirectCast(ctrl, TextBox).Text = lettre
                    Exit For
                End If
            End If
        Next
    End Sub

Private Sub ButtonEffacer_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ButtonEffacer.MouseClick
        InitGroupBox()
    End Sub

Attila54 · Answer

Merci ShayW

Je dois toutefois avoir un petit souci car a chaque GroupBoxVoyelle.Controlls et GroupBoxconsonnes.Controlls, j'ai un message d'erreur me disant 
controls n'est pas un membre de system.array

cs_ShayW · Answer

Salut
Bizarre 
envoie ton bout de code

ucfoutu · Answer

j'espère que deux l n'ont pas été mis, comme montré ici :

Je dois toutefois avoir un petit souci car a chaque GroupBoxVoyelle.Controlls et GroupBoxconsonnes.Controlls, j'ai un message d'erreur me disant 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Attila54 · Answer

Arf c'est moi qui avait merd..... j'avais mal orthographie le nom des groupbox 
Par contre maintenant j'ai mis 8 textbox textbox1, 2, ....,7 et 

- au premier clic
   si je clique sur "consonne", il doit me mettre une consonne aleatoirement tiree 
   dans le textbox1
   si je clique sur "voyelle", il doit me mettre une voyelle aleatoirement tiree 
   dans le textbox1

Une fois que la textbox1 est remplie je clique de nouveau 
si je clique sur "consonne", il doit me mettre une consonne aleatoirement tiree 
   dans le textbox2
   si je clique sur "voyelle", il doit me mettre une voyelle aleatoirement tiree 
   dans le textbox2

ainsi de suite jusqu'a remplir les 8 textbox.

Apres, il faut faire une temporisation pendant 6 secondes et lancer un decompte avec une barre de chargement visible qui durera 1 minute 30s, puis apres les 1 minutes 30 , un message apparait disant " Solution ?"

voili voila

cs_ShayW · Answer

Bon Plan A ne convient pas donc PlanB

 Private listconsonne As New List(Of TextBox)
 Private listvoyelle As New List(Of TextBox)
 Private Sub InitList()
    listconsonne.Add(TextBox1)
    listconsonne.Add(TextBox2)
    listconsonne.Add(TextBox3)
    listconsonne.Add(TextBox4)
    listconsonne.Add(TextBox5)
    listconsonne.Add(TextBox6)
    listvoyelle.Add(TextBox7)
    listvoyelle.Add(TextBox8)
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        InitList()
        InitGroupBox()
End Sub
        Private Sub InitGroupBox()
    For Each ctrl As Control In GroupBoxConsonne.Controls
       If TypeOf ctrl Is TextBox Then
           DirectCast(ctrl, TextBox).Text = String.Empty
       End If
    Next
   For Each ctrl As Control In GroupBoxVoyelle.Controls
       If TypeOf ctrl Is TextBox Then
            DirectCast(ctrl, TextBox).Text = String.Empty
       End If
    Next
 End Sub

rivate Sub Buttonconsonne_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttonconsonne.MouseClick
        Dim randomlettre As New Random
        Dim consonne As String = "bcdfghjklmnpqrstvwxz"
        Dim lettre As Char
        Dim x As Integer
        x = randomlettre.Next(0, consonne.Length)
        lettre = CChar(consonne.Substring(x, 1))
        For Each element In listconsonne
            If element.Text = String.Empty Then
                element.Text = lettre
                Exit For
            End If
            
        Next

    End Sub

    Private Sub Buttonvoyelle_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttonvoyelle.MouseClick
        Dim randomlettre As New Random

        Dim voyelle As String = "aeiouy"
        Dim lettre As Char
        Dim x As Integer
        x = randomlettre.Next(0, voyelle.Length)
        lettre = CChar(voyelle.Substring(x, 1))
        For Each element In listvoyelle
            If element.Text = String.Empty Then
                element.Text = lettre
                Exit For
            End If

        Next
    End Sub

    Private Sub ButtonEffacer_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ButtonEffacer.MouseClick
        InitGroupBox()
    End Sub

Attila54 · Answer

on y est presque j'y crois pas 
Y'a un petit truc qui cloche dans la repartition des voyelles ou consonnes

En fait on n'a pas 6 textbox pour les consonnes et 2 Textbox pour les voyelles

On a en tout 8 Textbox pour les voyelles et les consonnes

On clique sur consonne ou voyelle => le textbox1 affiche une consonne ou une voyelle selon le bouton clique
On clique sur consonne ==>le textbox2 affiche une consonne ou une voyelle selon le bouton clique ... etc ... jusqu'au textbox8

Ah oui j'oubliais, je dois tout mettre en majuscules

cs_ShayW · Answer

Il faut savoir dans tes messages précédent
pour les lettres idem 
1er clic sur bouton consonne = une consonne dans une textbox1 
2ieme sur bouton consonne = une consonne dans une textbox2 
3ieme sur bouton consonne = une consonne dans une textbox3 
4ieme sur bouton consonne = une consonne dans une textbox4 
5ieme sur bouton consonne = une consonne dans une textbox5 
6ieme sur bouton consonne = une consonne dans une textbox6 

1er clic sur bouton voyelle = une voyelle dans une textbox7 
2ieme sur bouton voyelle = une voyelle dans une textbox7 

tu dis

On clique sur consonne ou voyelle => le textbox1 affiche une consonne ou une voyelle selon le bouton clique 
On clique sur consonne ==>le textbox2 affiche une consonne ou une voyelle selon le bouton clique ... etc ... jusqu'au textbox8 

et si tu obtiens que des consonnes ou que des
voyelle 
donc je te conseille de réflechir 
le problème ce n'est pas le code mais 
1 savoir ce que tu veux faire d'abord 
le code traduire en language informatique 1

cs_ShayW · Answer

Ah non j'ai compris 
Sorry je t'envoie prochainement autre chose

Attila54 · Answer

c'est une erreur syntaxique de ma part et je m'en excuse

la règle est bien 
On clique sur consonne ou voyelle => le textbox1 affiche une consonne ou une voyelle selon le bouton clique
 On clique sur consonne ==>le textbox2 affiche une consonne ou une voyelle selon le bouton clique ... etc ... jusqu'au textbox8 

Mais sur un tirage complet, donc 8 clics, on doit obligatoirement cliquer 6 fois sur consonne et 2 fois sur voyelle.
On peut faire : C,V,V,C,C,C,C,C ou C,V,C,C,V,C,C,C ou V,C,C,C,C,C,V,C par exemple, peu importe l'ordre du choix 

encore desole pour la bourde syntaxique

cs_ShayW · Answer

Salut

1 sur ta form tu places
  un control panel que tu nommes PanelJeu
  1 buttons nommé Buttonconsonne
  1 buttons nommé Buttonvoyelle
  1 buttons nommé ButtonEffacer
  1 picturebox nommé progresbar
  1 timer

c'est tout
Imports System.Drawing.Drawing2D
Public Class Form1
   
    Private flagstart As Boolean
    Dim lettre As String
    Dim counter As Integer
    Dim flagresult As Boolean
    Dim thetimespan As New TimeSpan
    Private lastmouselocation As New Point
    Dim starttime As New DateTime


    Private listlettre As New List(Of PictureBox)
    Private Sub InitPanelJeu()
        For iter = 0 To 7
            Dim thepic As New PictureBox
            thepic.Tag = String.Empty
            thepic.BackColor = Color.White
            thepic.Width = 80
            thepic.Height = 100
            thepic.BorderStyle = BorderStyle.Fixed3D
            PanelJeu.Controls.Add(thepic)
            listlettre.Add(thepic)
            AddHandler listlettre(iter).MouseDown, AddressOf thepicMouseDown
            AddHandler listlettre(iter).MouseMove, AddressOf thepicMouseMove
            AddHandler listlettre(iter).Paint, AddressOf thepicPaint
        Next
        ButtonEffacer.Enabled = False
        counter = 0
        
        Timer1.Interval = 6000
        Timer1.Stop()
        flagstart = False
        progresbar.Width = 0
        progresbar.Height = 12

    End Sub

    
    Private Sub DisposeLettre()
        Dim left As Integer
        left = 6
        For Each item In listlettre
            item.Location = New Point(left, 6)
            left += item.Width + 3
        Next
        PanelJeu.Height = 3 * listlettre(0).Height + 20
        PanelJeu.Width = listlettre(0).Width * 8 + 12 + 7 * 3
        PanelJeu.Left = Me.Width \ 2 - PanelJeu.Width \ 2
        PanelJeu.Top = Me.Height \ 2 - PanelJeu.Height \ 2
        Buttonconsonne.Location = New Point(PanelJeu.Right + 2, PanelJeu.Top)
        Buttonvoyelle.Location = New Point(PanelJeu.Right + 2, Buttonconsonne.Bottom + 2)
        ButtonEffacer.Location = New Point(PanelJeu.Right + 2, Buttonvoyelle.Bottom + 2)
        flagresult = False
PanelJeu.BackColor = Color.Linen
    End Sub

    
    Private Sub AfficheTouteLesLettres(ByVal gr As System.Drawing.Graphics, ByVal thepic As PictureBox)
        Dim myfont As New Font("arial", 34, FontStyle.Bold, GraphicsUnit.Pixel)
        Dim mesure As New SizeF
        mesure = gr.MeasureString(thepic.Tag.ToString, myfont)
        gr.DrawString(thepic.Tag, myfont, Brushes.Black, (thepic.Width - mesure.Width) \ 2, (thepic.Height - mesure.Height) \ 2)


    End Sub
    Private Sub Buttonconsonne_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttonconsonne.MouseClick
        Dim randomlettre As New Random
        Dim consonne As String = "bcdfghjklmnpqrstvwxz"


        Dim x As Integer

        flagstart = True
        x = randomlettre.Next(0, consonne.Length)
        lettre = consonne.Substring(x, 1)
        lettre = lettre.ToUpper
        listlettre(counter).Tag = lettre
        counter += 1
        If counter = 8 Then
            Buttonconsonne.Enabled = False
            Buttonvoyelle.Enabled = False
            Timer1.Start()
            starttime = Now
        End If
        listlettre(counter - 1).Invalidate()
    End Sub

    Private Sub Buttonvoyelle_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttonvoyelle.MouseClick
        Dim randomlettre As New Random

        Dim voyelle As String = "aeiouy"
        Dim x As Integer

        flagstart = True
        x = randomlettre.Next(0, voyelle.Length)
        lettre = voyelle.Substring(x, 1)
        lettre = lettre.ToUpper
        listlettre(counter).Tag = lettre
        counter += 1
        If counter = 8 Then
            Buttonvoyelle.Enabled = False
            Buttonconsonne.Enabled = False
            starttime = Now
            Timer1.Start()
        End If
        listlettre(counter - 1).Invalidate()

    End Sub
    Private Sub Drawprogresbar(ByRef gr As System.Drawing.Graphics)
        'Dessine le progresbar
        Dim face(3) As Point
        Dim margin As Integer
        Dim space As Integer
        Dim sizelength As Integer
        Dim sizeheight As Integer
        Dim edge_colors(3) As Color

        margin = 2
        space = 2
        sizelength = progresbar.Width + 2 * space
        sizeheight = progresbar.Height + 2 * space
        face(0).X = margin
        face(0).Y = 2 * margin
        face(1).X = face(0).X + margin
        face(1).Y = face(0).Y - margin
        face(2).X = face(1).X + sizelength
        face(2).Y = face(1).Y
        face(3).X = face(0).X + sizelength
        face(3).Y = face(0).Y

        Dim path_brush As New PathGradientBrush(face)
        path_brush = New PathGradientBrush(face)
        path_brush.CenterColor = Color.CornflowerBlue
        edge_colors(0) = Color.CornflowerBlue
        edge_colors(1) = Color.Black
        edge_colors(2) = Color.CornflowerBlue
        edge_colors(3) = Color.Black
        path_brush.SurroundColors = edge_colors
        gr.FillPolygon(path_brush, face)
        face(0).X = margin
        face(0).Y = 2 * margin
        face(1).X = face(0).X + sizelength
        face(1).Y = face(0).Y
        face(2).X = face(1).X
        face(2).Y = face(1).Y + sizeheight
        face(3).X = face(0).X
        face(3).Y = face(2).Y
        path_brush.Dispose()
        path_brush = New PathGradientBrush(face)
        path_brush.CenterColor = Color.CornflowerBlue
        edge_colors(0) = Color.CornflowerBlue
        edge_colors(1) = Color.Black
        edge_colors(2) = Color.CornflowerBlue
        edge_colors(3) = Color.Black
        path_brush.SurroundColors = edge_colors
        gr.FillPolygon(path_brush, face)
        face(0).X = sizelength + margin
        face(0).Y = 2 * margin
        face(1).X = face(0).X + margin
        face(1).Y = face(0).Y - margin
        face(2).X = face(1).X
        face(2).Y = face(1).Y + sizeheight
        face(3).X = face(0).X
        face(3).Y = face(2).Y + margin
        path_brush = New PathGradientBrush(face)
        path_brush.CenterColor = Color.CornflowerBlue
        edge_colors(0) = Color.CornflowerBlue
        edge_colors(1) = Color.Black
        edge_colors(2) = Color.CornflowerBlue
        edge_colors(3) = Color.Black
        path_brush.SurroundColors = edge_colors
        gr.FillPolygon(path_brush, face)
        gr.DrawLine(Pens.Black, face(1).X, face(1).Y, face(2).X, face(2).Y)
        ' progresbar.Width = sizelength * 1
        ' progresbar.Height = sizeheight
        progresbar.Left = PanelJeu.Left
        progresbar.Top = PanelJeu.Bottom + 3
        progresbar.BringToFront()
        progresbar.Visible = True

    End Sub
    Private Sub ButtonEffacer_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ButtonEffacer.MouseClick
        Dim picturelettre As New PictureBox
        lettre = String.Empty
        For Each picturelettre In listlettre
            picturelettre.Tag = String.Empty
            picturelettre.Invalidate()
        Next
        counter = 0
        progresbar.Width = 0
        DisposeLettre()
        Buttonvoyelle.Enabled = True
        Buttonconsonne.Enabled = True
        ButtonEffacer.Enabled = False
    End Sub

    

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        InitPanelJeu()
        DisposeLettre()


    End Sub

    Private Sub thepicMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        lastmouselocation = e.Location
    End Sub

    Private Sub thepicMouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Dim pt As New Point
        If Not flagresult Then
            Exit Sub
        End If
        pt = e.Location
        If e.Button = Windows.Forms.MouseButtons.Left Then
            pt.X = (pt.X + DirectCast(sender, PictureBox).Left) - lastmouselocation.X
            pt.Y = (pt.Y + DirectCast(sender, PictureBox).Top) - lastmouselocation.Y

            DirectCast(sender, PictureBox).Location = pt
            PanelJeu.Invalidate()
        End If
    End Sub
    
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        thetimespan = Now - starttime
        If thetimespan.TotalSeconds >= 96 Then
            Timer1.Stop()

            MessageBox.Show("VOS RESULTAT", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            ButtonEffacer.Enabled = True
            flagresult = True
            Exit Sub
        End If

        progresbar.Width += 1
        Timer1.Interval = 100
    End Sub

    
    Private Sub thepicPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
        
        If DirectCast(sender, PictureBox).Tag <> String.Empty Then
            AfficheTouteLesLettres(e.Graphics, DirectCast(sender, PictureBox))
        End If
        
    End Sub

    Private Sub progresbar_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles progresbar.Paint
        Drawprogresbar(e.Graphics)
    End Sub
End Class

pour former des mots tu peux glisser les lettres avec la souris dans le tableau de jeu
il manque le générique

Attila54 · Answer

arf c'est tout bonnement magique 
tu es fort, tellement fort que j'ai pas tout compris ..... control panel ? ca existe encore dans visual studio ?????
Je ne le trouve pas

Attila54 · Answer

Si tu parles d'un Panel, alors la je ne peux pas le nommer PanelJeu 

L'identificateur 'PanelJeu ' n'est pas valide. d'après Visual Studio

Attila54 · Answer

autant pour moi, j'avais fait une boulette ..... 

par contre, vu que j'ai l'option explicit sur on, il me dit

Erreur 1 Option Strict On interdit les conversions implicites de 'Single' en 'Long'. pour la ligne suivante : 

gr.DrawString(thepic.Tag, myfont, Brushes.Black, (thepic.Width - mesure.Width) \ 2, (thepic.Height - mesure.Height) \ 2) 

Je passe explicit sur off ou je corrige le bug ???????

cs_ShayW · Answer

Salut
remets à explicit on toujours 
le control panel se trouve dans le tool box
panel 
nommes le paneljeu 
et le reste
 1 buttons nommé Buttonconsonne 
1 buttons nommé Buttonvoyelle 
1 buttons nommé ButtonEffacer 
1 picturebox nommé progresbar 
1 timer 

voila le code corrigé
Imports System.Drawing.Drawing2D
Public Class Form1

    Private flagstart As Boolean
    Dim lettre As String
    Dim counter As Integer
    Dim flagresult As Boolean
    Dim thetimespan As New TimeSpan
    Private lastmouselocation As New Point
    Dim starttime As New DateTime


    Private listlettre As New List(Of PictureBox)
    Private Sub InitPanelJeu()
        For iter = 0 To 7
            Dim thepic As New PictureBox
            thepic.Tag = String.Empty
            thepic.BackColor = Color.White
            thepic.Width = 80
            thepic.Height = 100
            thepic.BorderStyle = BorderStyle.Fixed3D
            PanelJeu.Controls.Add(thepic)
            listlettre.Add(thepic)
            AddHandler listlettre(iter).MouseDown, AddressOf thepicMouseDown
            AddHandler listlettre(iter).MouseMove, AddressOf thepicMouseMove
            AddHandler listlettre(iter).Paint, AddressOf thepicPaint
        Next
        ButtonEffacer.Enabled = False
        counter = 0

        Timer1.Interval = 6000
        Timer1.Stop()
        flagstart = False
        progresbar.Width = 0
        progresbar.Height = 30

    End Sub


    Private Sub DisposeLettre()
        Dim left As Integer
        left = 6
        For Each item In listlettre
            item.Location = New Point(left, 6)
            left += item.Width + 3
        Next
        PanelJeu.Height = 3 * listlettre(0).Height + 20
        PanelJeu.Width = listlettre(0).Width * 8 + 12 + 7 * 3
        PanelJeu.Left = Me.Width \ 2 - PanelJeu.Width \ 2
        PanelJeu.Top = Me.Height \ 2 - PanelJeu.Height \ 2
        PanelJeu.BackColor = Color.Linen
        Buttonconsonne.Location = New Point(PanelJeu.Right + 2, PanelJeu.Top)
        Buttonvoyelle.Location = New Point(PanelJeu.Right + 2, Buttonconsonne.Bottom + 2)
        ButtonEffacer.Location = New Point(PanelJeu.Right + 2, Buttonvoyelle.Bottom + 2)
        flagresult = False
    End Sub


    Private Sub AfficheTouteLesLettres(ByVal gr As System.Drawing.Graphics, ByVal thepic As PictureBox)
        Dim myfont As New Font("arial", 34, FontStyle.Bold, GraphicsUnit.Pixel)
        Dim mesure As New SizeF
        Dim x ,y As Single 
        mesure = gr.MeasureString(thepic.Tag.ToString, myfont)
        gr.DrawString(thepic.Tag.ToString, myfont, Brushes.Black, (thepic.Width - mesure.Width) / 2, (thepic.Height - mesure.Height) / 2)


    End Sub
    Private Sub Buttonconsonne_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttonconsonne.MouseClick
        Dim randomlettre As New Random
        Dim consonne As String = "bcdfghjklmnpqrstvwxz"


        Dim x As Integer

        flagstart = True
        x = randomlettre.Next(0, consonne.Length)
        lettre = consonne.Substring(x, 1)
        lettre = lettre.ToUpper
        listlettre(counter).Tag = lettre
        counter += 1
        If counter = 8 Then
            Buttonconsonne.Enabled = False
            Buttonvoyelle.Enabled = False
            Timer1.Start()
            starttime = Now
        End If
        listlettre(counter - 1).Invalidate()
    End Sub

    Private Sub Buttonvoyelle_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttonvoyelle.MouseClick
        Dim randomlettre As New Random

        Dim voyelle As String = "aeiouy"
        Dim x As Integer

        flagstart = True
        x = randomlettre.Next(0, voyelle.Length)
        lettre = voyelle.Substring(x, 1)
        lettre = lettre.ToUpper
        listlettre(counter).Tag = lettre
        counter += 1
        If counter = 8 Then
            Buttonvoyelle.Enabled = False
            Buttonconsonne.Enabled = False
            starttime = Now
            Timer1.Start()
        End If
        listlettre(counter - 1).Invalidate()

    End Sub

    Private Sub Drawprogresbar(ByRef gr As System.Drawing.Graphics)
        'Dessine le progresbar
        Dim face(3) As Point
        Dim margin As Integer
        Dim space As Integer
        Dim sizelength As Integer
        Dim sizeheight As Integer
        Dim edge_colors(3) As Color

        margin = 2
        space = 2
        sizelength = progresbar.Width + 2 * space
        sizeheight = progresbar.Height + 2 * space
        face(0).X = margin
        face(0).Y = 2 * margin
        face(1).X = face(0).X + margin
        face(1).Y = face(0).Y - margin
        face(2).X = face(1).X + sizelength
        face(2).Y = face(1).Y
        face(3).X = face(0).X + sizelength
        face(3).Y = face(0).Y

        Dim path_brush As New PathGradientBrush(face)
        path_brush = New PathGradientBrush(face)
        path_brush.CenterColor = Color.CornflowerBlue
        edge_colors(0) = Color.CornflowerBlue
        edge_colors(1) = Color.Black
        edge_colors(2) = Color.CornflowerBlue
        edge_colors(3) = Color.Black
        path_brush.SurroundColors = edge_colors
        gr.FillPolygon(path_brush, face)
        face(0).X = margin
        face(0).Y = 2 * margin
        face(1).X = face(0).X + sizelength
        face(1).Y = face(0).Y
        face(2).X = face(1).X
        face(2).Y = face(1).Y + sizeheight
        face(3).X = face(0).X
        face(3).Y = face(2).Y
        path_brush.Dispose()
        path_brush = New PathGradientBrush(face)
        path_brush.CenterColor = Color.CornflowerBlue
        edge_colors(0) = Color.CornflowerBlue
        edge_colors(1) = Color.Black
        edge_colors(2) = Color.CornflowerBlue
        edge_colors(3) = Color.Black
        path_brush.SurroundColors = edge_colors
        gr.FillPolygon(path_brush, face)
        face(0).X = sizelength + margin
        face(0).Y = 2 * margin
        face(1).X = face(0).X + margin
        face(1).Y = face(0).Y - margin
        face(2).X = face(1).X
        face(2).Y = face(1).Y + sizeheight
        face(3).X = face(0).X
        face(3).Y = face(2).Y + margin
        path_brush = New PathGradientBrush(face)
        path_brush.CenterColor = Color.CornflowerBlue
        edge_colors(0) = Color.CornflowerBlue
        edge_colors(1) = Color.Black
        edge_colors(2) = Color.CornflowerBlue
        edge_colors(3) = Color.Black
        path_brush.SurroundColors = edge_colors
        gr.FillPolygon(path_brush, face)
        gr.DrawLine(Pens.Black, face(1).X, face(1).Y, face(2).X, face(2).Y)
        ' progresbar.Width = sizelength * 1
        ' progresbar.Height = sizeheight
        progresbar.Left = PanelJeu.Left
        progresbar.Top = PanelJeu.Bottom + 3
        progresbar.BringToFront()
        progresbar.Visible = True

    End Sub


    Private Sub ButtonEffacer_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ButtonEffacer.MouseClick
        Dim picturelettre As New PictureBox
        lettre = String.Empty
        For Each picturelettre In listlettre
            picturelettre.Tag = String.Empty
            picturelettre.Invalidate()
        Next
        counter = 0
        Timer1.Interval = 6000
        progresbar.Width = 0
        DisposeLettre()
        Buttonvoyelle.Enabled = True
        Buttonconsonne.Enabled = True
        ButtonEffacer.Enabled = False
    End Sub



    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        InitPanelJeu()
        DisposeLettre()


    End Sub

    Private Sub thepicMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        lastmouselocation = e.Location
    End Sub

    Private Sub thepicMouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Dim pt As New Point
        If Not flagresult Then
            Exit Sub
        End If
        pt = e.Location
        If e.Button = Windows.Forms.MouseButtons.Left Then
            pt.X = (pt.X + DirectCast(sender, PictureBox).Left) - lastmouselocation.X
            pt.Y = (pt.Y + DirectCast(sender, PictureBox).Top) - lastmouselocation.Y

            DirectCast(sender, PictureBox).Location = pt
            PanelJeu.Invalidate()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        thetimespan = Now - starttime
        If thetimespan.TotalSeconds >= 96 Then
            Timer1.Stop()

            MessageBox.Show("VOS RESULTAT", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            ButtonEffacer.Enabled = True
            flagresult = True
            Exit Sub
        End If

        progresbar.Width += 1
        Timer1.Interval = 100
    End Sub


    Private Sub thepicPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)

        If DirectCast(sender, PictureBox).Tag.ToString <> String.Empty Then
            AfficheTouteLesLettres(e.Graphics, DirectCast(sender, PictureBox))
        End If

    End Sub

    Private Sub progresbar_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles progresbar.Paint
        Drawprogresbar(e.Graphics)
    End Sub
End Class


si tout marche bien  après la distribution
des lettres après 6 secondes un indicateur
visuel se met en marche 

on verra le reste plus tard

Attila54 · Answer

Hello

Bon ben ca fonctionne correctement jusqu'a ou tu as dit, apres le temps ecoule, j'ai un textbox me demandant "vos resultats"

je n'arrive juste pas a modifier la taille de la progresbar ainsi que sa position dans le form

@ bientôt et encore merci

VB.NET et "Des chiffres et des lettres"

30 réponses

Votre réponse

Discussions similaires