|
OUVRIR TIROIR CAISSE / USB |
Débuté par AMINE ( RAM ), 15 mai 2014 23:14 - 6 réponses |
| |
| | | |
|
| |
Membre enregistré 333 messages Popularité : +9 (13 votes) |
|
Posté le 15 mai 2014 - 23:14 |
Salut; J'ai une caisse de marque BIRCH connecté directement au PC avec cun cable USB. Je voudrais savoir la commande utilisée pour ouvrir son tiroir.
Je ne connais pas le numéro du port pour pouvoir utiliser la commande <sOuvre.> Merci d'avance. Amine. |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 962 messages Popularité : +183 (185 votes) |
|
Posté le 16 mai 2014 - 00:02 |
| |
| |
| | | |
|
| | |
| |
Posté le 17 mai 2014 - 02:31 |
Je relance ma demande une autre fois.
Je voudrais savoir est ce que c'est possible d'ouvrir le tiroir de la caisse qui relié directement au pc via un câble USB?
Merci d'avance. Amine |
| |
| |
| | | |
|
| | |
| |
Posté le 25 mai 2014 - 12:34 |
Bjr,
Amine a émis l'idée suivante :
Je relance ma demande une autre fois.
Je voudrais savoir est ce que c'est possible d'ouvrir le tiroir de la caisse qui relié directement au pc via un câble USB?
Merci d'avance. Amine
Il existe une dll qu permet de le faire, mais je n'ai jamais pu l afaire fonctionner. Je passe donc par le port serie. Pour info <sOuvre> n'ouvrira pas le tiroir.. (voir la doc) )
a plus
-- ------------------------------------------------------------- www.ctc-soft.com Gestion biblo-documentaire (free-share) Comptabilité shareware Logiciels de Gestion de saisie terrain Spécialisé Tournées de boulangers ------------------------------------------------------------- |
| |
| |
| | | |
|
| | |
| |
Membre enregistré 333 messages Popularité : +9 (13 votes) |
|
Posté le 26 mai 2014 - 02:29 |
Procedure G3_DETECTION_PORT()
PORT ,nNbreOctet,p1,p2,NBRE_tentative, NBRE_tentative_max,s est un entier mes , ch est une chaîne NBRE_tentative_max = 2 NBRE_tentative =1
Sablier(Vrai) DEBUT0: SI NBRE_tentative > NBRE_tentative_max ALORS
BOUCLE SI G3_DEBLOCAGE3() = Vrai ALORS SORTIR FIN FIN RENVOYER Faux FIN
SI G3_BLOCAGE1() = Faux ALORS RENVOYER Faux FIN s = 0 BOUCLE DEBUT: s++ PORT = TAB_PORT[s] SI s > TAB_PORT_NB ALORS NBRE_tentative++ GOTO DEBUT0 FIN
SI sOuvre(PORT, 5000, 5000,300) ALORS sFixeParamètre(PORT, 115200, 0, 8, 1, Vrai, Vrai, Faux) SI ErreurDétectée ALORS sFerme(PORT) GOTO DEBUT FIN Multitâche(-1) SINON GOTO DEBUT FIN
sEcrit(PORT, ChaîneVersUTF8("AT+CIMI"+RC )) nNbreOctet = sDansFileEntrée(PORT) Multitâche (100) mes = sLit(PORT, 5000 ) p1=Position(mes,"ERROR") p2=Position(mes,"OK") SI p1 <> 0 OU p2 = 0 ALORS sFerme(PORT) GOTO DEBUT SINON SI VG_ENVOIE_SMS_CLE3G_MULTIPLE = Vrai ET VG_ENVOIE_SMS_NUM_EIMI <> "" ALORS SI VG_ENVOIE_SMS_NUM_EIMI = Milieu(mes,11,15) ALORS SORTIR SINON sFerme(PORT) GOTO DEBUT FIN SINON SORTIR FIN FIN
FIN
NUMERO_PORT_CORRECTE = PORT
RENVOYER Vrai
Procedure G3_DETECTION_PORT_WINDOWS()
sListeClé, LIGNELUE est une chaîne ResExécute est un booléen n,nb est entier
TAB_PORT_NB= 0 sListeClé = RegistreListeValeur("HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM") LIGNELUE = LIT_CLE_BASE_REGISTRE(sListeClé,1) n= Taille(LIGNELUE) n+=3 SI LIGNELUE <>"" ALORS nb= Milieu(RegistreLit("HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM\", LIGNELUE, ResExécute),4) SI nb <> 0 ALORS TAB_PORT_NB++ TAB_PORT[TAB_PORT_NB] = nb FIN FIN TANTQUE LIGNELUE <> EOT ET LIGNELUE <> ""
LIGNELUE = LIT_CLE_BASE_REGISTRE(sListeClé,n) n+= Taille(LIGNELUE)+2
nb= Milieu(RegistreLit("HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM\", LIGNELUE, ResExécute),4) SI nb <> 0 ALORS TAB_PORT_NB++ TAB_PORT[TAB_PORT_NB] = nb FIN
FIN
Procedure G3_ENVOIE_SMS(NUM_PORTABLE est une chaîne)
SI NUM_PORTABLE ="" ALORS Sablier(Faux) G3_DEBLOCAGE1() RENVOYER Faux FIN
NUM_PORTABLE_CORRECTE , ch1 est une chaîne NBRE_tentative, NBRE_tentative_max est un entier NBRE_tentative=1; NBRE_tentative_max=2 SI VG_ENVOIE_SMS_TYPE = 1 ALORS
ch est une chaîne nNbreOctet,PORT ,p1,p2 est un entier mes est une chaîne
PORT = NUMERO_PORT_CORRECTE
NUM_PORTABLE_CORRECTE="" POUR j=1 A Taille(NUM_PORTABLE) ch1= Milieu(NUM_PORTABLE,j,1) SI ch1 <>" " ALORS NUM_PORTABLE_CORRECTE+= ch1 FIN FIN
SI Taille(NUM_PORTABLE_CORRECTE )>=8 ALORS DEBUT: SI NBRE_tentative > NBRE_tentative_max ALORS Sablier(Faux) G3_DEBLOCAGE1() RENVOYER Faux FIN
NBRE_tentative++
Multitâche(-1)
sEcrit(PORT, ChaîneVersUTF8("AT" + Caract(13))) Temporisation(100) nNbreOctet = sDansFileEntrée(PORT) mes = sLit(PORT, nNbreOctet) p1 = Position(mes,"OK") SI p1=0 ALORS GOTO DEBUT FIN
sEcrit(PORT, ChaîneVersUTF8("AT+CMGF=1" + Caract(13))) Temporisation(100) nNbreOctet = sDansFileEntrée(PORT) mes = sLit(PORT, 5000 ) p1 = Position(mes,"OK") SI p1=0 ALORS
GOTO DEBUT FIN
sEcrit(PORT, ChaîneVersUTF8("AT+COPS=0" + Caract(13))) Temporisation(100) nNbreOctet = sDansFileEntrée(PORT) mes = sLit(PORT, 5000 ) p1 = Position(mes,"OK") SI p1=0 ALORS
GOTO DEBUT FIN
sEcrit(PORT,ChaîneVersUTF8("AT+CMGS=" + Caract(34)+ NUM_PORTABLE_CORRECTE +Caract(34) + Caract(13)) ) Temporisation(100) nNbreOctet = sDansFileEntrée(PORT) mes = sLit(PORT, 5000 ) n est un entier n = Position (mes, ">", 1, DepuisDébut ) c est un caractère c = Milieu (mes ,n) SI c = ">" ALORS TEXTE_MESSAGE= SUPPRIMER_ACCENT_SMS(TEXTE_MESSAGE) ch =ChaîneVersUTF8(TEXTE_MESSAGE + Caract(26)) sEcrit(PORT, ch) Temporisation(600) nNbreOctet = sDansFileEntrée(PORT) mes = sLit(PORT, 5000 )
p1 = Position(mes,"ERROR") p2 = Position(mes,"OK") SI (p1<>0 OU p2 = 0 ) OU( p1=0 ET p2=0) ALORS Enregistrer_File_Attente() SINON ENREGISTRER_SMS_ENVOYE(TEXTE_MESSAGE,NUM_PORTABLE_CORRECTE,DateSys(),HeureSys(),"","FCAIS") CAISSE_CLOTURE.SMS_ENVOYE_FERMETURE = 1 HModifie(CAISSE_CLOTURE)
FIN SINON Enregistrer_File_Attente(NUM_PORTABLE) FIN
FIN sFerme(PORT) Sablier(Faux) G3_DEBLOCAGE1() RENVOYER Faux
FIN
VOUS DEVEZ AJOUTER LA DECLARATION DES VARIABLES ET SUUPRIMER LES PROCEDURES G3_DEBLOCAGE1()
BON DEV |
| |
| |
| | | |
|
| | |
| |
Posté le 16 juin 2014 - 23:12 |
C'est simple. il faut faire la programmation avec le fichier dll. si vous voulez je peux vous aider en donnant le code souce. Remarque : le code source permet d'ouvrir seulement une caisse de type BIRCH port usb. Bon dév. |
| |
| |
| | | |
|
| | |
| |
Posté le 16 juin 2014 - 23:18 |
Contacter moi sur aminebenhedi at hotmail.com
Dc a écrit :
Bjr, Amine a émis l'idée suivante : Je relance ma demande une autre fois.
Je voudrais savoir est ce que c'est possible d'ouvrir le tiroir de la caisse qui relié directement au pc via un câble USB?
Merci d'avance. Amine
Il existe une dll qu permet de le faire, mais je n'ai jamais pu l afaire fonctionner. Je passe donc par le port serie. Pour info <sOuvre> n'ouvrira pas le tiroir.. (voir la doc) ) a plus -- ------------------------------------------------------------- www.ctc-soft.comGestion biblo-documentaire (free-share) Comptabilité shareware Logiciels de Gestion de saisie terrain Spécialisé Tournées de boulangers ------------------------------------------------------------- |
| |
| |
| | | |
|
| | | | |
| | |
|