home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TEST.PRG < prev    next >
Text File  |  1994-06-03  |  3KB  |  96 lines
  1. #include "FIVEWIN.CH"
  2. #define CRLF   chr(13) + chr(10)
  3.  
  4. STATIC oWnd, oDlg, cActualTemp, cNormTemp, Dvalue, cResult, oResult
  5.  
  6. FUNCTION Main()
  7. LOCAL          ;
  8.       oBrush,  ;
  9.       oBar,    ;
  10.       hBorland
  11.  
  12.    hBorland := loadlibrary("BWCC.DLL")
  13.  
  14.    SET DELETED ON
  15.    SET 3DLOOK ON
  16.  
  17.    SET RESOURCES TO "DEVTIME.DLL"
  18.  
  19.    DEFINE BRUSH oBrush STYLE BRICKS
  20.  
  21.    DEFINE WINDOW oWnd FROM 1, 5 TO 20, 75 ;
  22.       TITLE "Development Time/Temperature Compensator"   ;
  23.       BRUSH oBrush                        ;
  24.       MENU DevMenu()
  25.       SET MESSAGE OF oWnd TO "Version 1.1"
  26.       ACTIVATE WINDOW oWnd MAXIMIZED
  27.    //─────────────────────────── Close the resources ─────────────────────────//
  28.    SET RESOURCES TO
  29.    SET 3DLOOK OFF
  30.    freelibrary(hBorland)
  31. RETURN nil
  32. *
  33. FUNCTION ComputeIt()
  34.       cActualTemp := 0
  35.       cNormDev := space(5)
  36.       cResult := space(10)
  37.    DEFINE DIALOG oDlg RESOURCE "DEVTIME"
  38.  
  39.    //────────────────── Handle the gets (Edit) controls ──────────────────────//
  40.    REDEFINE SAY oResult     VAR cResult     ID 134 of oDlg
  41.    REDEFINE GET oActualTemp VAR cActualTemp ID 101 OF oDlg
  42.    REDEFINE GET oNormDev    VAR cNormDev    ID 103 OF oDlg valid mathit()
  43.  
  44.    //────────────────────── Handle the Chart Button ───────────────────────────//
  45.    REDEFINE BUTTON ID 107 OF oDlg ACTION chart()
  46.  
  47.    //────────────────────── Handle the Quit Button ───────────────────────────//
  48.    REDEFINE BUTTON ID 108 OF oDlg ACTION oDlg:End()
  49.    //─────────────────────────────── Display Everything ──────────────────────//
  50.    ACTIVATE DIALOG oDlg CENTERED
  51.  
  52. RETURN NIL
  53. *
  54. Procedure Chart()
  55. return
  56. *
  57. STATIC FUNCTION DevMenu()
  58.    LOCAL oMenu
  59.    MENU oMenu
  60.       MENUITEM "&Devtime"   ACTION computeit()
  61.       MENUITEM "&Quit"      ACTION ;
  62.          If( MsgYesNo( OemToAnsi( "Do you wish to quit?" ),;
  63.                        OemToAnsi( "Attention" ) ), oWnd:End(),)
  64.    ENDMENU
  65. RETURN oMenu
  66. *
  67. Function MathIt()
  68.    Cl = .434294
  69.    Dvalue = (25*(log(cvt2time(cnormdev))*Cl)+15)
  70.    stdtemp=68
  71.    dt=cactualtemp-stdtemp
  72.    antilog=(Dvalue-(15+dt/2))/25
  73.    t = 10.01^antilog
  74.    t1 = (t-int(t))*60
  75.  
  76.    cResult = alltrim(str(t,5))+":"+alltrim(str(t1,5))
  77.    oResult:Refresh()
  78.  
  79.  
  80. *  nMsgBox("Adjusted development time = "+alltrim(str(int(t)))+" minutes "+ ;
  81. *           alltrim(str(int(t1)))+" seconds @ "+alltrim(str(cactualtemp))+"F")
  82.  
  83.    cActualTemp := 0
  84.    cNormDev := space(5)
  85. return .t.
  86. *
  87. function cvt2time(tm)
  88.    private x,z,l,p,s
  89.    s=alltrim(tm)
  90.    x=at(":",s)
  91.    z=len(s)
  92.    l=60*val(left(s,x-1))
  93.    p=val(right(s,z-x))
  94.    xtimespnt=l+p
  95. return xtimespnt/60
  96.