PureBoard

Code: Alles auswählen

CLS
LOCATE 1, 1
DIM cmd$(100), resp$(1000)
’ Set up serial port for 9600 baud, even parity, 7 bits;
’ Ignore Request to Send and Carrier Detect; Send line feed,
’ enable parity check, reserve 1000 bytes for input buffer
’
OPEN "com1:9600,e,7,2,rs,cd,lf,pe" FOR RANDOM AS #1 LEN = 1000
’
’ Put the multimeter into the remote operation mode
PRINT #1, ":SYST:REM"
’
’ Query the multimeter’s id string
’
PRINT #1, "*IDN?"
LINE INPUT #1, resp$
PRINT "*IDN? returned: ", resp$
’
’ Ask what revision of SCPI the multimeter conforms to
PRINT #1, ":SYST:VERS?"
LINE INPUT #1, resp$
PRINT ":SYST:VERS? returned: ", resp$
’
’ Send a message to the multimeter’s display, and generate a beep
PRINT #1, ":SYST:BEEP;:DISP:TEXT ’HP 34401A’"
’
’ Configure the multimeter for dc voltage readings,
’ 10 V range, 0.1 V resolution, 4 readings
PRINT #1, ":CONF:VOLT:DC 10,0.1;:SAMP:COUN 4"
’ Trigger the readings, and fetch the results
PRINT #1, ":READ?"
LINE INPUT #1, resp$
PRINT ":READ? returned: ", resp$
END

Code: Alles auswählen

;OPEN "com1:9600,e,7,2,rs,cd,lf,pe" For RANDOM As #1 LEN = 1000

;Baurate:		9600
;Parity:		even
;Bits per Byte:	7
;Stopbits:		2
;Options
;	rs		->	Suppresses detection of Request To Send (RTS).
;	cd		->	CD[m] Specifies the timeout period on the Data Carrier Detect Line (DCD)
;	lf		->	Effective only with the ASC option.
;	pe		->	
:
;Other things:
;If the RB option is not used or n is omitted, the Default is 512 bytes.
;If the TB option is not used or n is omitted, the Default is 512 bytes.
;If the RS option is not specified, the Request To Send line (RTS) is set high.


OpenSerialPort(#PB_Any, "COM1", 9600, #PB_SerialPort_EvenParity, 7, 2, #PB_SerialPort_NoHandshake, 512, 512)

Code: Alles auswählen

Ergebnis = WriteSerialPortString(0, ":SYST:REM", #PB_Ascii)

Code: Alles auswählen

;CLS
;LOCATE 1, 1
;Dim cmd$(100), resp$(1000)
;’ Set up serial port For 9600 baud, even parity, 7 bits;
;’ Ignore Request To Send And Carrier Detect; Send line feed,
;’ enable parity check, reserve 1000 bytes For input buffer
;OPEN "com1:9600,e,7,2,rs,cd,lf,pe" For RANDOM As #1 LEN = 1000
If OpenSerialPort(0, "COM1", 9600, #PB_SerialPort_EvenParity, 7, 2,#PB_SerialPort_NoHandshake,512,512)
    Debug "Success ..weiter im Text"
  Else
    Debug "Failed"
    End
  EndIf

;’ Put the multimeter into the remote operation mode
;PRINT #1, ":SYST:REM"
WriteSerialPortString(0,":SYST:REM")
;’ Query the multimeter’s id string
;PRINT #1, "*IDN?"
WriteSerialPortString(0,"*IDN?")
;LINE INPUT #1, resp$
resp.s=Space(512) ;512 wie Buffer
If AvailableSerialPortInput(0)
  ReadSerialPortData(0,@resp,Len(resp))
EndIf

;PRINT "*IDN? returned: ", resp$
Debug "*IDN? returned: "+ resp$
;’ Ask what revision of SCPI the multimeter conforms To
;PRINT #1, ":SYST:VERS?"
WriteSerialPortString(0,":SYST:VERS?")
;LINE INPUT #1, resp$
resp.s=Space(512) 
If AvailableSerialPortInput(0)
  ReadSerialPortData(0,@resp,Len(resp))
EndIf
;PRINT ":SYST:VERS? returned: ", resp$
Debug ":SYST:VERS? returned: "+ resp
; Send a message To the multimeter’s display, And generate a beep
;PRINT #1, ":SYST:BEEP;:DISP:TEXT ’HP 34401A’"
WriteSerialPortString(0,":SYST:BEEP;:DISP:TEXT ’HP 34401A’")
;’ Configure the multimeter For dc voltage readings,
;’ 10 V range, 0.1 V resolution, 4 readings
;PRINT #1, ":CONF:VOLT:DC 10,0.1;:SAMP:COUN 4"
WriteSerialPortString(0,":CONF:VOLT:DC 10,0.1;:SAMP:COUN 4")
;’ Trigger the readings, And fetch the results
;PRINT #1, ":Read?"
WriteSerialPortString(0,":Read?")

;LINE INPUT #1, resp$
resp.s=Space(512) 
If AvailableSerialPortInput(0)
  ReadSerialPortData(0,@resp,Len(resp))
EndIf
;PRINT ":READ? returned: ", resp$
Debug ":READ? returned: "+ resp$
CloseSerialPort(#SerialPort)
Debug "Zu .. Feierabend"
End

Code: Alles auswählen

OpenSerialPort(#PB_Any, "COM1", 9600, #PB_SerialPort_EvenParity, 7, 2, #PB_SerialPort_NoHandshake, 512, 512)
Ergebnis = WriteSerialPortString(0, ":SYST:REM", #PB_Ascii)

Code: Alles auswählen

OpenConsole("Ausgabe Multimeter")
  ClearConsole() ;CLS
  ConsoleLocate(1,1);LOCATE 1, 1
  cmd$=Space(100)
  resp$=Space(10000);Dim cmd$(100), resp$(1000)
  ; Set up serial port For 9600 baud, even parity, 7 bits;
  ; Ignore Request To Send And Carrier Detect; Send line feed,
  ; enable parity check, reserve 1000 bytes For input buffer
  ;
  ;OPEN "com1:9600,e,7,2,rs,cd,lf,pe" For RANDOM As #1 LEN = 1000
  OpenSerialPort(1,"COM1",9600,#PB_SerialPort_EvenParity,7,2, #PB_SerialPort_NoHandshake, 1000, 1000)
  
  ;
  ; Put the multimeter into the remote operation mode
  WriteSerialPortString(1, ":SYST:REM");PRINT #1, ":SYST:REM"  ; Format hier ist #PB_Ascii (auch im Unicode-Modus) standard
  ;
  ; Query the multimeter’s id string
  ;
  WriteSerialPortString(1, "*IDN?");PRINT #1, "*IDN?"
  Laenge.l=AvailableSerialPortInput(1)
  If ReadPuffer 
    ReadSerialPortData(1, @resp$, Laenge); LINE INPUT #1, resp$
    PrintN("*IDN? returned: "+resp$) ; PRINT "*IDN? returned: ", resp$
  EndIf
    ;
    ; Ask what revision of SCPI the multimeter conforms To
    WriteSerialPortString(1, ":SYST:VERS?");PRINT #1, ":SYST:VERS?"
    Laenge=AvailableSerialPortInput(1)
  If ReadPuffer 
    ReadSerialPortData(1, @resp$, Laenge);LINE INPUT #1, resp$
    PrintN(":SYST:VERS? returned: "+ resp$) ;PRINT ":SYST:VERS? returned: ", resp$
  EndIf  
  ;
    ; Send a message To the multimeter’s display, And generate a beep
  WriteSerialPortString(1, ":SYST:BEEP;:DISP:TEXT ’HP 34401A’");PRINT #1, ":SYST:BEEP;:DISP:TEXT ’HP 34401A’"
  ;
  ; Configure the multimeter For dc voltage readings,
  ; 10 V range, 0.1 V resolution, 4 readings
  WriteSerialPortString(1, ":CONF:VOLT:DC 10,0.1;:SAMP:COUN 4");PRINT #1, ":CONF:VOLT:DC 10,0.1;:SAMP:COUN 4"
  ; Trigger the readings, And fetch the results
  WriteSerialPortString(1, ":READ?");PRINT #1, ":READ?"
  If ReadPuffer 
    ReadSerialPortData(1, @resp$, Laenge);LINE INPUT #1, resp$
    PrintN(":READ? returned: "+ resp$) ;PRINT ":READ? returned: ", resp$
  EndIf 
  PrintN("Druecken Sie Return zum Schliessen der Konsole.")
  Input()
  CloseSerialPort(1)
CloseConsole()   
End