Programme de caisse

Fermé
bb -  
Bonjour,

svp comment faire pour un programme de caisse

4 réponses

  1. Kalissi
    Bonjour,

    dans un premier temps, il te faut faire de la récupération de code, ne pas
    dupliquer tes instructions. 


    Private Sub ActiverTextBox(ByVal Flag As Boolean)

        TextBox1.Enabled = Flag
        TextBox2.Visible = Flag
        TextBox4.Visible = Flag

    End Sub

    Private Sub ActiverBouton(ByVal Flag As Boolean)

        Button1.Enabled = Flag
        Button2.Enabled = Flag
        Button3.Enabled = Flag
        Button4.Enabled = Flag
        Button5.Enabled = Flag
        Button6.Enabled = Flag
        Button7.Enabled = Flag
        Button8.Enabled = Flag
        Button9.Enabled = Flag
        Button10.Enabled = Flag
        Button11.Enabled = Flag
        Button12.Enabled = Flag
        Button13.Enabled = Flag
        Button14.Enabled = Flag
        Button15.Enabled = Flag 
        Button19.Visible = Flag
        Button20.Visible = Flag
        Button21.Visible = Flag
        Button22.Visible = Flag
        Button23.Visible = Flag
        Button24.Visible = Flag
        Button25.Visible = Flag 

    End Sub

    Private Sub ActiverLabelBox(ByVal Flag As Boolean)

        Label5.Visible = False 
        Label6.Visible = Flag
        Label7.Visible = False
        Label8.Visible = Flag
        Label9.Visible = Flag
        Label10.Visible = Flag

    End Sub

    Private Sub ActiverShape(ByVal Flag As Boolean)

        RectangleShape3.Visible = Flag
        RectangleShape4.Visible = Flag
        RectangleShape5.Visible = Flag

    End sub

    Private Sub ActiverElements(ByVal Flag As Boolean)

        ProgressBar1.Visible = Flag

        RichTextBox1.Visible = Flag

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ActiverTextBox(False)
        ActiverBouton(False)
        ActiverLabelBox(False)
        ActiverShape(False)
        ActiverElements(False)

    End Sub

    Tu peux ainsi éviter de reproduire de code de façon inutile.
    Et tu peux aussi découper tes blocs s'ils se gère séparément. 


    Private Sub ActiverBouton1_5(ByVal Flag As Boolean)

        Button1.Enabled = Flag
        Button2.Enabled = Flag
        Button3.Enabled = Flag
        Button4.Enabled = Flag
        Button5.Enabled = Flag

    End Sub

    Private Sub ActiverBouton1_10(ByVal Flag As Boolean)

        Button6.Enabled = Flag
        Button7.Enabled = Flag
        Button8.Enabled = Flag
        Button9.Enabled = Flag
        Button10.Enabled = Flag

    End Sub

    ' Etc...


    tu peux aussi spécialiser : 


    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        TextBox4.Text = ("" + TextBox1.Text)
        ActiverBloc1(True)
    End Sub 

    Private Sub ActiverBloc1(ByVal Flag As Boolean)

        RectangleShape5.Visible = Flag
        Button21.Visible = Flag
        Label10.Visible = Flag
        TextBox4.Visible = Flag

    End Sub

    n'oublie pas, diviser pour régner :-)

    K
    1. alessioflurrys
      Salut , Tien Le Codage De Ma Caisse (VB 2010 EXPRESS) :

      Public Class Form1
      Dim ope As New Double
      Dim lol As String

      Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
      TextBox1.Text = TextBox1.Text + "7"
      End Sub

      Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
      TextBox1.Text = TextBox1.Text + "8"
      End Sub

      Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
      TextBox1.Text = TextBox1.Text + "9"
      End Sub

      Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
      TextBox1.Text = TextBox1.Text + "4"
      End Sub

      Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
      TextBox1.Text = TextBox1.Text + "5"
      End Sub

      Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
      TextBox1.Text = TextBox1.Text + "6"
      End Sub

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      TextBox1.Text = TextBox1.Text + "1"
      End Sub

      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      TextBox1.Text = TextBox1.Text + "2"
      End Sub

      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      TextBox1.Text = TextBox1.Text + "3"
      End Sub

      Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
      TextBox1.Text = TextBox1.Text + "0"
      End Sub

      Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
      TextBox1.Text = TextBox1.Text + ","
      End Sub

      Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
      ope = TextBox1.Text
      TextBox1.Clear()
      lol = "+"
      End Sub

      Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
      ope = TextBox1.Text
      TextBox1.Clear()
      lol = "*"
      End Sub

      Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
      ope = TextBox1.Text
      TextBox1.Clear()
      lol = "-"
      End Sub

      Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
      ope = TextBox1.Text
      TextBox1.Clear()
      lol = "/"
      End Sub

      Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
      If lol = "+" Then
      ope = TextBox1.Text + ope
      ElseIf lol = "-" Then
      ope = ope - TextBox1.Text
      ElseIf lol = "*" Then
      ope = ope * TextBox1.Text
      ElseIf lol = "/" Then
      ope = ope / TextBox1.Text
      End If
      TextBox1.Text = ope

      RectangleShape3.Visible = True
      Label6.Visible = True
      Button19.Visible = True
      Button20.Visible = True
      Button22.Visible = True
      RichTextBox1.Text = RichTextBox1.Text + "," + TextBox1.Text
      End Sub

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

      Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
      If ComboBox1.Text = "PSEUDO2" And
      TextBox3.Text = "MDP2" Then
      TextBox1.Enabled = True
      Button1.Enabled = True
      Button2.Enabled = True
      Button3.Enabled = True
      Button4.Enabled = True
      Button5.Enabled = True
      Button6.Enabled = True
      Button7.Enabled = True
      Button8.Enabled = True
      Button9.Enabled = True
      Button10.Enabled = True
      Button11.Enabled = True
      Button12.Enabled = True
      Button13.Enabled = True
      Button14.Enabled = True
      Button15.Enabled = True
      Label5.Visible = True
      RectangleShape2.Visible = False
      Label1.Visible = False
      Label3.Visible = False
      Label4.Visible = False
      ComboBox1.Visible = False
      TextBox3.Visible = False
      Button18.Visible = False
      Button24.Visible = True
      RichTextBox1.Visible = True
      Button25.Visible = True
      End If

      If ComboBox1.Text = "Pseudo1" And
      TextBox3.Text = "MDP1" Then
      TextBox1.Enabled = True
      Button1.Enabled = True
      Button2.Enabled = True
      Button3.Enabled = True
      Button4.Enabled = True
      Button5.Enabled = True
      Button6.Enabled = True
      Button7.Enabled = True
      Button8.Enabled = True
      Button9.Enabled = True
      Button10.Enabled = True
      Button11.Enabled = True
      Button12.Enabled = True
      Button13.Enabled = True
      Button14.Enabled = True
      Button15.Enabled = True
      Label7.Visible = True
      RectangleShape2.Visible = False
      Label1.Visible = False
      Label3.Visible = False
      Label4.Visible = False
      ComboBox1.Visible = False
      TextBox3.Visible = False
      Button18.Visible = False
      Button24.Visible = True
      RichTextBox1.Visible = True
      Button25.Visible = True
      End If

      End Sub

      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Label7.Visible = False
      Label5.Visible = False
      TextBox1.Enabled = False
      Button1.Enabled = False
      Button2.Enabled = False
      Button3.Enabled = False
      Button4.Enabled = False
      Button5.Enabled = False
      Button6.Enabled = False
      Button7.Enabled = False
      Button8.Enabled = False
      Button9.Enabled = False
      Button10.Enabled = False
      Button11.Enabled = False
      Button12.Enabled = False
      Button13.Enabled = False
      Button14.Enabled = False
      Button15.Enabled = False
      Button16.Enabled = False
      RectangleShape3.Visible = False
      Label6.Visible = False
      Button19.Visible = False
      Button20.Visible = False
      Button22.Visible = False
      RectangleShape4.Visible = False
      Label9.Visible = False
      ProgressBar1.Visible = False
      TextBox2.Visible = False
      Button23.Visible = False
      Label8.Visible = False
      Button24.Visible = False
      RectangleShape5.Visible = False
      Button21.Visible = False
      Label10.Visible = False
      TextBox4.Visible = False
      RichTextBox1.Visible = False
      Button25.Visible = False
      End Sub

      Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
      Form2.Show()
      RectangleShape4.Visible = True
      Label9.Visible = True
      ProgressBar1.Visible = True
      TextBox2.Visible = True
      Label8.Visible = True
      End Sub

      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      ProgressBar1.Increment(1)
      If ProgressBar1.Value = 100 Then
      TextBox2.Clear()
      ProgressBar1.Value = 0
      Timer1.Stop()
      RectangleShape4.Visible = False
      Label8.Visible = False
      ProgressBar1.Visible = False
      Button23.Visible = False
      TextBox2.Visible = False
      Label9.Visible = False
      End If
      Label9.Text = ProgressBar1.Value & ("%")
      End Sub

      Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
      TextBox2.Text = "PAIEMENT ACCEPTE"
      Timer1.Start()
      End Sub

      Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
      RectangleShape3.Visible = False
      Label6.Visible = False
      Button19.Visible = False
      Button20.Visible = False
      Button22.Visible = False
      RectangleShape4.Visible = False
      Label9.Visible = False
      ProgressBar1.Visible = False
      TextBox2.Visible = False
      Button23.Visible = False
      Label8.Visible = False
      Button24.Visible = False
      TextBox1.Clear()
      End Sub

      Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
      TextBox1.Clear()
      End Sub

      Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
      TextBox4.Text = ("" + TextBox1.Text)
      RectangleShape5.Visible = True
      Button21.Visible = True
      Label10.Visible = True
      TextBox4.Visible = True
      End Sub

      Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
      TextBox1.Clear()
      TextBox4.Clear()
      RectangleShape5.Visible = False
      Button21.Visible = False
      Label10.Visible = False
      TextBox4.Visible = False
      End Sub

      Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
      RichTextBox1.Clear()
      1. hkaab
        Bonjour ;

        essaies de donner plus de précision pour pouvoir vous aider .

        est-ce une saisie et édition ?

        est-ce une validation de données ? etc...
        1. ElementW Contributeur
          Salut, comme ça: 
          #include <stdio.h>
int main() {
    printf("Bonjour je suis la caisse!");
    return 0;
}

          Nan je plaisante. Mais ta question ne veut rien dire et/ou manque de précision; reformules s'il te plait.

          Discussions similaires

          Police d'ecriture ticket de caisse
          Joan

          14 réponses
          Mail suspect Caisse d'Epargne
          Le Ber

          10 réponses
          TV LG "Non programmé"
          Chantal Joubert

          7 réponses
          ma tv lg affiche "non programmé"
          sacado

          3 réponses