Programme de caisse

Fermé
bb -  
Bonjour,

svp comment faire pour un programme de caisse

4 réponses

  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.
    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. 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. 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

          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