Programme de caisse

Fermé
bb -  
Kalissi Messages postés 221 Statut Membre -
Bonjour,

svp comment faire pour un programme de caisse

4 réponses

  1.
    ElementW Messages postés 5690 Statut Contributeur 1 293
     
    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
  2. hkaab Messages postés 8 Statut Membre
     
    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...
    0
  3. alessioflurrys Messages postés 21 Statut Membre 8
     
    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()
    0
  4. Kalissi Messages postés 221 Statut Membre 20
     
    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
    0

Discussions similaires

Police d'ecriture ticket de caisse
Joan -
ghost187 -

14 réponses
TV LG "Non programmé"
Chantal Joubert -
Mancini -

5 réponses
SMS reçu du 38015
Jackot17 -
Jackot17 -

7 réponses
je recois un sms sur mon téléphone portable de 38015
reine150 -
reine150 -

4 réponses