Hardware Reference
In-Depth Information
IF CBMSG = %WM_COMMAND AND CBCTLMSG = %BN_CLICKED THEN
CONTROL GET TEXT CBHNDL, %IDTEXT TO gsUserInput
DIALOG END CBHNDL, 1
FUNCTION = 1
END IF
END FUNCTION
'-----------------------------------------------------------
CALLBACK FUNCTION CancelButton()
IF CBMSG = %WM_COMMAND AND CBCTLMSG = %BN_CLICKED THEN
DIALOG END CBHNDL, 0
FUNCTION = 1
END IF
END FUNCTION
'-----------------------------------------------------------
CALLBACK FUNCTION DlgProc()
IF CBMSG = %WM_COMMAND THEN
IF CBCTL = %ID_LPT1 THEN
MSGBOX "Port &H378 selected", &H00002000&
current_port = &H378
MENU SET STATE hMenu, BYCMD %ID_LPT1, %MF_CHECKED
MENU SET STATE hMenu, BYCMD %ID_LPT2, %MF_UNCHECKED
MENU SET STATE hMenu, BYCMD %ID_LPT3, %MF_UNCHECKED
FUNCTION = 1
END IF
IF CBCTL = %ID_LPT2 THEN
MSGBOX "Port &H278 selected", &H00002000&
current_port = &H278
MENU SET STATE hMenu, BYCMD %ID_LPT1, %MF_UNCHECKED
MENU SET STATE hMenu, BYCMD %ID_LPT2, %MF_CHECKED
MENU SET STATE hMenu, BYCMD %ID_LPT3, %MF_UNCHECKED
FUNCTION = 1
END IF
IF CBCTL = %ID_LPT3 THEN
MSGBOX "Port &H3BC selected", &H00002000&
current_port = &H3BC
MENU SET STATE hMenu, BYCMD %ID_LPT1, %MF_UNCHECKED
MENU SET STATE hMenu, BYCMD %ID_LPT2, %MF_UNCHECKED
MENU SET STATE hMenu, BYCMD %ID_LPT3, %MF_CHECKED
FUNCTION = 1
END IF
IF CBCTL = %ID_HELP THEN
MSGBOX "Click on Port from the menu bar to select the required port address" + _
$CRLF + "(if unselected the routine will default to &H378 - the conventional" + _
$CRLF + "address for LPT1)." + $CRLF + _
$CRLF + "Please note that port data must be entered in binary format and" + _
$CRLF + "all eight binary digits should be entered!", &H00002000&
FUNCTION = 1
END IF
IF CBCTL = %ID_ABOUT THEN
MSGBOX "Port Test Routine written in Power BASIC. For further information" + _
$CRLF + "please see 'PC-Based Instrumentation and Control' by Mike Tooley", _
&H00002000&
FUNCTION = 1
END IF
END IF
END FUNCTION
'-----------------------------------------------------------
FUNCTION PBMAIN () AS LONG
