Lorsque vous commencez avec une entreprise de vente au détail, vous avez besoin d`un POS (Point of Sale) périphérique à sonner vos clients. Vous pouvez sortir et acheter un programme de caisse enregistreuse, mais qui peut coûter des centaines de dollars. L`autre alternative, qui est gratuit si vous avez Visual Basic 6, est de taper le codage pour un registre de VB6. Les entiers nécessaires à une caisse enregistreuse est assez simple, même si VB6 est pas votre fort, vous aurez toujours un registre fonctionnel sans beaucoup de travail.
Ouvrir VB6 en sélectionnant "Visual Basic 6" de "Programme" dans le "Démarrer" menu du bouton.
Entrez le code à partir de la caisse enregistreuse comme celui-ci dans le panneau central de VB6:
déclarer des variables
Prix dim comme entier
subtotale dim en décimal
totale dim en décimal
Ceci est utilisé pour déclarer toutes les valeurs nécessaires pour le registre.
Tapez le codage pour le programme de registre comme ceci:
prix = val (pricetextbox.text)
subtotale = val (subtotallabel.text)
totale = total + prix
si pricegt; 0 alors
totale = val (subtotallabel.text) + prix
fin si
subtotallabel.text = string.format (total)
pricetextbox.text =""
Enregistrez le registre avec "CTRL + S" et appuyez sur "F5" pour exécuter le registre.
