Programme de caisse

Fermé

bb - 23 janv. 2014 à 17:05
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 26 févr. 2014 à 01:22

Bonjour,

svp comment faire pour un programme de caisse

A voir également:

Programme de caisse
Programme demarrage windows 10 - Guide
Programme démarrage windows 10 - Guide
Ce message d'erreur apparaît sur l'ordinateur d'elena. que peut-on dire du programme gwxux ? - Forum logiciel systeme
38015 caisse d'epargne ✓ - Forum Mobile
Desinstaller un programme - Guide

4 réponses

Réponse 1 / 4

ElementW Messages postés 4816 Date d'inscription dimanche 12 juin 2011 Statut Contributeur Dernière intervention 5 octobre 2021 1 225
23 janv. 2014 à 18:35

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.

Réponse 2 / 4

hkaab Messages postés 6 Date d'inscription mardi 23 février 2010 Statut Membre Dernière intervention 24 janvier 2014
24 janv. 2014 à 11:38

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

Réponse 3 / 4

alessioflurrys Messages postés 19 Date d'inscription lundi 24 février 2014 Statut Membre Dernière intervention 29 septembre 2018 8
24 févr. 2014 à 11:08

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()

Réponse 4 / 4

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
Modifié par Kalissi le 26/02/2014 à 01:31

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

programme qui n'affiche pas le mot secret

Police d'ecriture ticket de caisse

Pourquoi Program files (x86) et Programmes?

"BONJOUR" : utilité de ce programme???

TV LG affiche le carré non programmé

Discussions similaires

Newsletters