[URGENT] Ouverture tiroir caisse

Tu voulais pas le faire en java ?

"Marc" <nospam-fgm.marc@wanadoo.fr> a écrit dans le message de news:
Ol9bHYyIFHA.3500@TK2MSFTNGP14.phx.gbl...

Bonjour à tous,

Je suis à la recherche d'un bout de code, permettant l'ouverture d'un
tiroir
caisse.

Merci pour votre aide.

--
A+
Marc


Attention adresse antispam
Pour répondre sur l'email retirer "nospam-"

Marc avait prétendu :

Bonjour à tous,

Je suis à la recherche d'un bout de code, permettant l'ouverture d'un tiroir
caisse.

Merci pour votre aide.

say "les mains en l'air"
Open "\tirroir_caisse1pognon.dat" for input as #1
do while not eof(1)
get #1,,monay
holdup=holdup + monay
loop
close #1
say "que personne ne bouge"
exit

Salut,

Si je lis bien là
http://www.favero.com/pdf/PC-interface-96-en.pdf

c'est comme le Port Salut.

"Marc" <nospam-fgm.marc@wanadoo.fr> a écrit dans le message de
news:Ol9bHYyIFHA.3500@TK2MSFTNGP14.phx.gbl...

Bonjour à tous,

Je suis à la recherche d'un bout de code, permettant l'ouverture d'un

tiroir

caisse.

Hello,

En attendant que tu nous donnes plus d'informations,
voici déjà de quoi s'amuser un peu:

Private Sub Form_Load()
Dim n As Integer, bang As Integer

While True
Randomize Timer
bang = Int(Rnd * 6) + 1
n = 0
Do
MsgBox "Appuyer sur la détente", vbOKOnly + vbExclamation, ""
n = n + 1
If n = bang Then
MsgBox "BANG !!!!", vbCritical, "R.I.P."
Exit Do
Else
MsgBox "CLIC ... " & n & " fois", vbInformation, "..."
End If
Loop Until False
Wend
End Sub


--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."

Bonjour Jean-Marc, dans le message
news://422cae2f$0$14973$ba620e4c@news.skynet.be
tu disais :

En attendant que tu nous donnes plus d'informations,
voici déjà de quoi s'amuser un peu:

Private Sub Form_Load()
Dim n As Integer, bang As Integer

While True
Randomize Timer
bang = Int(Rnd * 6) + 1
n = 0
Do
MsgBox "Appuyer sur la détente", vbOKOnly + vbExclamation,
"" n = n + 1
If n = bang Then
MsgBox "BANG !!!!", vbCritical, "R.I.P."
Exit Do
Else
MsgBox "CLIC ... " & n & " fois", vbInformation, "..."
End If
Loop Until False
Wend
End Sub

ben j'ai essayé, ça marche pô ? ;-)

:-)


--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper

Salut,

Ca dépend de ton matériel !
Il faut regarder quels caractères envoyer en rs232 (si ca marche en rs232...
l'usb c'est autre chose).

Pour cela on peut utiliser le controle MsComm, les APIs, ...

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Marc wrote:

Bonjour à tous,

Je suis à la recherche d'un bout de code, permettant l'ouverture d'un
tiroir caisse.

Merci pour votre aide.

Bonjour à tous,

Merci pour vos reponses,
Pour plus de precisions, le tiroir caisse proprement dite dispose d'une
connexion RJ11.
laquelle est raccorder à un TPV.
L'alimentation du tiroir caisse est fournie par le TPV par ce même cable.

Encore merci pour votre aide.

a+
Marc

"Jean-Marc" a écrit:
| While True
| (...)
| Do
| (....)
| Exit Do
| (...)
| Loop Until False
| Wend


Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...

;-)

et des GoSub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Pascal B. wrote:

"Jean-Marc" a écrit:

While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend

Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...

;-)

Moquez-vous, il a bien fallu se contenter de cela pendant des années.
Et puis en définitive, une fois compilé il n'y a plus que des "goto" et des
"gosub".

"ng" <ng@ngsoft-fr.com> a écrit dans le message de news:
%23f%23QwC9IFHA.588@TK2MSFTNGP15.phx.gbl...

et des GoSub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Pascal B. wrote:

"Jean-Marc" a écrit:

While True
(...)
Do
(....)
Exit Do
(...)
Loop Until False
Wend

Wouhaaaa! Ca, c'est de la programmation !!!
Manque plus que des Goto ...

;-)