Quantum Data 801GF Specifikace stáhnout pdf (Strana 37)

Publication # 68-00155 (Rev: B 26-JULY-95) Page 37

Partial Listing of: EXAMPLE.FRM

Sub cmdFormat_Click ()

'Check to see if port connection is open

If Connected Then

cmd = "FMTL VGA_m3"

'Download the format VGM_m3 to the generator

Answer = port_command(comm_data, cmd, response)

'Analyze the error value if one occured

If Answer <> 0 Then

PortConnect_Error (Answer)

End If

'Send the command to the generator to use the format

cmd = "FMTU"

Answer = port_command(comm_data, cmd, response)

'Analyze the error value if one occured

If Answer <> 0 Then

PortConnect_Error (Answer)

Else

pnlStatus.Caption = "The generator is now using the format 'VGA_m3' that was downloaded to the

video generator. "

End If

Else

MsgBox "The ISA0 port connection is not open. Please try the 'Open Port - ISA0' button first.",

MB_ICONSTOP, "OPEN PORT"

End If

End Sub

Sub cmdImage_Click ()

'Check to see if port connection is open

If Connected Then

cmd = "IMGL Colorbar"

'Download the image Colorbar to the generator

Answer = port_command(comm_data, cmd, response)

'Analyze the error value if one occured

If Answer <> 0 Then

PortConnect_Error (Answer)

End If

'Send the command to the generator to use the image

cmd = "IMGU"

Answer = port_command(comm_data, cmd, response)

'Analyze the error value if one occured

If Answer <> 0 Then

PortConnect_Error (Answer)

Else

pnlStatus.Caption = "The generator is now using the image 'Colorbar' that was downloaded to the

video generator. "

End If

Else

MsgBox "The ISA0 port connection is not open. Please try the 'Open Port - ISA0' button first.",

MB_ICONSTOP, "OPEN PORT"

1 2 ... 32 33 34 35 36 37 38 39 40

Komentáře k této Příručce

Žádné komentáře

Quantum Data 801GF Specifikace Strana 37

Komentáře k této Příručce

Související produkty a manuály pro Generátory energie Quantum Data 801GF