Publicité
M a n u e l d e p r o g r a m ma ti o n
CYCLE 1
; Affiche la page 11 et définit 2 fenêtres de données
N10
(PAGE 11)
(ODW 1,10,60)
(ODW 2,15,60)
;Edition
(WBUF "( PCALL 1,")
(IB 1=INPUT "X:",-6.5)
(DW 1=IB1)
(WBUF "X",IB1)
(WBUF ",")
(IB 2=INPUT "Y:",-6.5)
(DW 2=IB2)
(WBUF "Y",IB2)
(WBUF ")")
(WBUF )
(GOTO N0)
CYCLE 2
; Affiche la page 12 et définit 3 fenêtres de données
N20
(PAGE 12)
(ODW 1,10,60)
(ODW 2,13,60)
(ODW 3,16,60)
; Edition
(WBUF "( PCALL 2,")
(IB 1=INPUT "A:",-6.5)
(DW 1=IB1)
(WBUF "A",IB1)
(WBUF ",")
(IB 2=INPUT "B:",-6.5)
(DW 2=IB2)
(WBUF "B",IB2)
(WBUF ",")
(IB 3=INPUT "C:",-6.5)
(DW 3=IB3)
(WBUF "C",IB3)
(WBUF ")")
(WBUF )
(GOTO N0)
; Ajoute au bloc en cours d'édition "(PCALL 1,",
; Demande de la valeur de X.
; Affiche sur la fenêtre 1, la valeur introduite.
; Ajoute au bloc en cours d'édition X (valeur
introduite).
; Ajoute au bloc en cours d'édition ",".
; Demande de la valeur de Y.
; Affiche sur la fenêtre 2, la valeur introduite.
; Ajoute au bloc en cours d'édition Y (valeur
introduite).
; Ajoute au bloc en cours d'édition ")".
; Introduit en mémoire le bloc édité.
; Par exemple: (PCALL 1, X2, Y3)
; Ajoute au bloc en cours d'édition "(PCALL 2,",
; Demande de la valeur de A.
; Affiche sur la fenêtre 1, la valeur introduite.
; Ajoute au bloc en cours d'édition A (valeur
introduite).
; Ajoute au bloc en cours d'édition ",".
; Demande de la valeur de B.
; Affiche sur la fenêtre 2, la valeur introduite.
; Ajoute au bloc en cours d'édition B (valeur
introduite).
; Ajoute au bloc en cours d'édition ",".
; Demande de la valeur de C.
; Affiche sur la fenêtre 3, la valeur introduite.
; Ajoute au bloc en cours d'édition C (valeur
introduite).
; Ajoute au bloc en cours d'édition ")".
; Introduit en mémoire le bloc édité.
Par exemple: (PCALL 2, A3, B1, C3).
14.
CNC 8055
CNC 8055i
M
·M· & ·EN·
ODÈLES
S
: V02.2
OFT
X
·417·
Publicité
