BBC BASIC for Windows
Programming >> BBC BASIC language >> Dialog box question
http://bb4w.conforums.com/index.cgi?board=language&action=display&num=1428968628

Dialog box question
Post by CharlesB on Apr 13th, 2015, 11:43pm

Sorry if I inundate this message board with questions, but I am stumped on this dialog box. I have been studying how to make these boxes, and I don't see why the one below does not work.

The user is supposed to inter an OD, and either an ID or a wall. (I would like to limit the user to either an ID or a wall, but that would be for a later time when I learn more).

I seem to be able to get a value for the OD, and the wall, but I cannot get a value for the ID.

Can someone please give me some advise as to what I am doing wrong.
Many thanks,
Charles
Code:
      INSTALL @lib$+"WINLIB2"

      BS_DEFPUSHBUTTON = &1
      CB_ADDSTRING = &143
      CB_SETCURSEL = &14E
      CBS_DROPDOWNLIST = &3
      ES_AUTOHSCROLL = &80
      ES_NUMBER = &2000
      LB_ADDSTRING = &180
      LB_GETCURSEL = &188
      UDM_SETRANGE = &465
      UDS_ALIGNRIGHT = &4
      UDS_AUTOBUDDY = &10
      UDS_SETBUDDYINT = &2
      WS_CHILD = &40000000
      WS_GROUP = &20000
      WS_VISIBLE = &10000000

      dlg%=FN_newdialog("NonStock Tubing", 20, 20, 160, 128, 8, 560)
      PROC_groupbox(dlg%, "Group box", 0, 4, 4, 152, 96, WS_GROUP)

      PROC_editbox(dlg%, "Enter OD", 101, 12, 20, 64, 12, ES_AUTOHSCROLL)
      PROC_editbox(dlg%, "Enter ID", 102, 82, 20, 64, 12, ES_AUTOHSCROLL)
      PROC_editbox(dlg%, "Enter Wall", 103, 82, 40, 64, 12, ES_AUTOHSCROLL)

      PROC_pushbutton(dlg%, "OK", 1, 12, 108, 56, 14, WS_GROUP OR BS_DEFPUSHBUTTON)
      PROC_pushbutton(dlg%, "Cancel", 2, 92, 108, 56, 14, 0)

      PROC_showdialog(dlg%)
      ON CLOSE PROC_closedialog(dlg%):QUIT
      ON ERROR PROC_closedialog(dlg%):PRINT'REPORT$:END

      Click%=0
      ON SYS Click% = @wparam% : RETURN
      REPEAT
        WAIT 1
        click%=0
        SWAP Click%, click%
      UNTIL click%=1 OR click%=2 OR !dlg%=0

      IF click%=1 THEN
        PRINT "OK pressed, settings were:"'
  
        DIM text% 255
        SYS "GetDlgItemText", !dlg%, 101, text%, 255
        PRINT " OD Text box contained """$$text%""""
        od=VAL($$text%)
  
  
        SYS "GetDlgItemInt", !dlg%, 102, text%,255
        PRINT " ID Text box contained """$$text%""""
  
        id = VAL($$text%)
  
        REM print "Number box contained ";Val%
  
        SYS "GetDlgItemText", !dlg%, 103, text%, 255
  
        PRINT " WALL Text box contained """$$text%""""
  
        wall=VAL($$text%)
  
  
  
        SYS "IsDlgButtonChecked", !dlg%, 107 TO cb%
        IF cb% PRINT "Checkbox was checked" ELSE PRINT "Checkbox was not checked"
      ELSE
        PRINT "Cancel pressed"
      ENDIF

      PROC_closedialog(dlg%) 



Re: Dialog box question
Post by Ian Kings on Apr 14th, 2015, 07:20am

Hi Charles,

It is because you are using GetDlgItemInt for the ID whereas you use GetDlgItemText for the OD and Wall.

If you intended to use number only editboxes then somthing like this should work.
Code:
SYS "GetDlgItemInt", !dlg%, 102, 0 ,FALSE TO id% 


Ian

Re: Dialog box question
Post by CharlesB on Apr 14th, 2015, 4:57pm

O yes! So obvious now.
Thank you Ian.