27.12.2014 Views

Modélisation du processus de pilotage d'un atelier - Les thèses en ...

Modélisation du processus de pilotage d'un atelier - Les thèses en ...

Modélisation du processus de pilotage d'un atelier - Les thèses en ...

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Partie IV : Démonstration <strong>de</strong> la faisabilité technique<br />

'This sub is used to create a new pallet in the simulation at the position<br />

'corresponding to the last ev<strong>en</strong>t (Pallet #) <strong>de</strong>tected on the real system<br />

'The first parameter NumPal is giv<strong>en</strong> by the RFID tag on the pallet<br />

'The second parameter corresponds to the number of the workstation where the ev<strong>en</strong>t occurs<br />

Private Sub CreatePallet1(ByVal NumPal As Object, ByVal WorkStation As Object)<br />

Dim Action_Text As String<br />

Dim Intro_Article As Boolean<br />

nbpal = nbpal + 1<br />

If nbpal

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!