M_Open - Mitsubishi Electric MELFA CR750 Bedienungs- Und Programmieranleitung

Roboterstatusvariablen
7.2.40

M_Open

Funktion: Dateistatus lesen
Die Variable zeigt an, ob eine Datei geöffnet ist oder nicht.
Eingabeformat
Bsp.: <Numerische Variable> = M_Open [<Dateinummer>]
<Numerische Variable>
<Dateinummer>
Programmbeispiel
1 Open "COM2:" AS #1
2 *LBL:If M_Open(1) <> 1 Then GoTo *LBL 'Wartestatus, bis die Datei Nummer 1 geöffnet wird
<Bei Verwendung der Ethernet-Schnittstelle>
1 ' Client-Programm ----------------
2 M1 = 0
3 M_Timer(1) = 0
4 *O1
5 Open "COM2:" As #1
6 If M_Timer(1) > 10000.0 Then *E1
7 If M_Open(1) <> 1 Then Goto *O1
8 Def Act 1,M_Open(1) = 0 GoSub *E2
9 Act 1 = 1
10 *M1
11 M1 = M1 + 1
12 If M1 < 10 Then C1$ = "MELFA" Else C1$="END"'
13 Print #1,C1$
14 Input #1,C2$
15 If C1$="END" Then *C1
16 GoTo *M1
17 *C1
18 Close #1
19 Hlt
20 End
21 *E1
22 Error 9100
23 Close #1
24 Hlt
25 End
26 *E2
27 Error 9101
28 Close #1
29 Hlt
30 End
CR750/CR751
Legt eine numerische Variable fest
Gibt die Nummer eines mit dem Open-Befehl geöffneten Kom-
munikationskanals als Konstante im Bereich zwischen 1 und 8 an
(Standardwert: 1)
Bei Angabe einer Dateinummer ≥ 9 erfolgt eine Fehlermeldung.
'Öffnet den Kommunikationskanal COM 2 als
Datei Nr. 1
'Zähler zurücksetzen
'Sprungmarke O1 festgelegt
'Öffnet den Kommunikationskanal COM 2 als
Datei Nr. 1
'Nach Ablauf von 10 Sek. Sprung zur Marke E1
'Wartestatus, bis die Datei Nummer 1 geöffnet wird
'Definiert einen Unterprogrammsprung zur Marke
E2, wenn der Server außer Betrieb ist
'Interrupt 1 freigeben
'Nach neunmaliger Übertragung der Zeichen-
kette „MELFA" wird „END" übertragen.
'Sendet die Zeichenkette C1$
'Liest die Zeichenkette C2$.
'Springt zur Marke C1 nach Senden von „END"
'Schleifensprung zu Marke M1
'Schließt den Kommunikationskanal
'Programmablauf unterbrechen
'Programmende
'Fehler 9100 ausgeben, wenn Server außer Betrieb
'Sprungmarke E2 festgelegt
'Fehler 9101ausgeben, wenn Server während des
Ablaufs außer Betrieb geht
Detaillierte Variablenbeschreibung
7 - 43