'============================================================================== ' ' Simple Dialog Example for PB/DLL 6.0 ' Written by KT Lai, 27 April 2000 ' ' Simple example of an application that has a dialog and ' do some calculation requires absolutely no API calls ' '============================================================================== ' Set ID for all the dialog control items #COMPILE EXE %IDCalculate = 1 %IDExit = 2 %IDBORE = 3 %IDBAR = 4 %IDFORCE = 5 %BS_DEFAULT = 1 'Set the button appearance '------------------------------------------------------------------------------ ' Global variable to recieve the user input and variable GLOBAL BoreSize AS STRING GLOBAL Presure AS STRING GLOBAL D AS SINGLE GLOBAL P AS SINGLE GLOBAL F AS SINGLE '------------------------------------------------------------------------------ CALLBACK FUNCTION Calculate() CONTROL GET TEXT CBHNDL, %IDBORE TO BoreSize CONTROL GET TEXT CBHNDL, %IDBAR TO Presure D=VAL(BoreSize) P=VAL(Presure) F=(D/20)*(D/20)*3.1416*9.8*P ' Put the calculated answer at text box CONTROL SET TEXT CBHNDL,%IDFORCE, STR$(F!) END FUNCTION '-------------------------------------------------------- CALLBACK FUNCTION Exit_prog() DIALOG END CBHNDL, 0 END FUNCTION '------------------------------------------------------------------------------ FUNCTION PBMAIN () AS LONG $REGISTER NONE LOCAL hDlg AS LONG ' ** Create a new dialog template DIALOG NEW 0, "Calculation of Cylinder Thrust", ,, 200, 100, 0, 0 TO hDlg ' ** Add controls to it '-------------------------------------------------------------------------- CONTROL ADD LABEL, _ hDlg, _ -1, _ "Bore Size (mm) ", _ 30, _ 10, _ 70, _ 8, _ '-------------------------------------------------------------------------- CONTROL ADD LABEL, _ hDlg, _ -1, _ "Presure in Bar ", _ 30, _ 30, _ 90, _ 10, _ '-------------------------------------------------------------------------- CONTROL ADD LABEL, _ hDlg, _ -1, _ "Thrust Force in Newton =", _ 30, _ 50, _ 90, _ 10, _ '-------------------------------------------------------------------------- CONTROL ADD TEXTBOX, _ hDlg, _ %IDBORE, _ "", _ 120, _ 10, _ 50, _ 12, _ '-------------------------------------------------------------------------- CONTROL ADD TEXTBOX, _ hDlg, _ %IDBAR, _ "", _ 120, _ 30, _ 50, _ 12, _ '-------------------------------------------------------------------------- CONTROL ADD TEXTBOX, _ hDlg, _ %IDFORCE, _ "", _ 120, _ 50, _ 50, _ 12, _ '-------------------------------------------------------------------------- CONTROL ADD BUTTON, hDlg, %IDCalculate, "Calculate", 50, 75, 40, 14, %BS_DEFAULT CALL Calculate CONTROL ADD BUTTON, hDlg, %IDEXIT, "Exit", 110, 75, 40, 14, 0 CALL exit_prog '-------------------------------------------------------------------------- ' ** Display the dialog DIALOG SHOW MODAL hDlg END FUNCTION
FirstName = "John" LastName = "Doe"
Tweet
TYPE MyRecord
FirstName AS STRING * 16
LastName AS STRING * 32
(etc)
END TYPE
MyRecord.FirstName= "Jane"
MyRecord.LastName = "Doh!"
#COMPILE EXE
#DIM ALL
#INCLUDE "ddt.inc"
%ID_TEXT1 = 101
%ID_TEXT2 = 102
%ID_BUTTON1 = %IDOK
%ID_BUTTON2 = %IDCANCEL
FUNCTION DoTheCalculation AS STRING
FUNCTION = FORMAT$((SIN(1) + COS(1)) / TAN(.3333#))
END FUNCTION
CALLBACK FUNCTION DialogCallback
DIM a$
SELECT CASE CBMSG
CASE %WM_COMMAND
IF CBCTL = %ID_BUTTON1 THEN
a$ = DoTheCalculation()
CONTROL SET TEXT CBHNDL, %ID_TEXT1, "The result is: " & a$
CONTROL SET TEXT CBHNDL, %ID_TEXT2, a$ & $CRLF & a$
ELSE
DIALOG END CBHNDL, 0
END IF
CASE ELSE
END SELECT
END FUNCTION
FUNCTION PBMAIN
DIM hDlg AS LONG
DIALOG NEW %HWND_DESKTOP, "Calculate your heart out!",,, 200, 110, _
%DS_CENTER OR %WS_CAPTION OR %WS_SYSMENU OR %WS_MINIMIZEBOX TO hDlg
CONTROL ADD TEXTBOX, hDlg, %ID_TEXT1, "Result #1", 5, 5, 190, 35, %ES_AUTOVSCROLL OR _
%WS_CHILD OR %ES_MULTILINE OR %ES_READONLY, %WS_EX_CLIENTEDGE
CONTROL ADD LABEL, hDlg, %ID_TEXT2, "Result #2", 5, 45, 190, 35, %SS_LEFT, %WS_EX_CLIENTEDGE
CONTROL ADD BUTTON, hDlg, %ID_BUTTON1, "&Calculate", 110, 85, 40, 20, %BS_DEFAULT OR %WS_TABSTOP
CONTROL ADD BUTTON, hDlg, %ID_BUTTON2, "&Quit", 155, 85, 40, 20
DIALOG SHOW MODAL hDlg CALL DialogCallback
END FUNCTION
FOR I = 1 TO UBOUND(FieldLen)
FIELD FileHandle, FieldLen(I) AS SomeData$(I)
NEXT I
)
Comment