Loading all files

code/adox/MSSCCPRJ.SCC

@@ -0,0 +1,12 @@
+[SCC]
+SCC=This is a source code control file
+[GENERI~1.VBP]
+SCC_Project_Name=this project is not under source code control
+SCC_Aux_Path=<This is an empty string for the mssccprj.scc file>
+[GenericApp.VBP]
+SCC_Project_Name=this project is not under source code control
+SCC_Aux_Path=<This is an empty string for the mssccprj.scc file>
+
+[newadox.VBP]
+SCC_Project_Name=this project is not under source code control
+SCC_Aux_Path=<This is an empty string for the mssccprj.scc file>

code/adox/comm/990603_file_from_luke/readme.txt

@@ -0,0 +1,11 @@
+
+
+
+This file (tis2.prj) plots improperly using the ^T command in
+the AdOx program.  Especially near time = zero.
+
+No other problems are associated with this file.
+
+1:57 PM 6/3/99
+
+

code/adox/comm/990603_file_from_luke/tis2.prj

@@ -0,0 +1,63 @@
+"1.0 (Beta)","Version"
+"Advanced Oxidation Process Software","App.Title"
+"6/3/99 1:56:05 PM","Save date/time"
+"1","proj.idreact"
+"70","proj.volume"
+"25","proj.tau"
+"300","proj.ssize"
+"75","proj.ttotal"
+"5","proj.opsize"
+"3","proj.xntimes"
+"8.4","proj.ph0"
+"0","proj.phosph"
+"0","proj.idcarbn"
+"250","proj.alk"
+"0.004","proj.ticarbn"
+"0.001","proj.inf_h2o2"
+"2","proj.TargetCompounds_Count"
+"NOM","tc.comname"
+"0","tc.concini"
+"0","tc.val"
+"200","tc.mw"
+"3","tc.ncarbn"
+"1","tc.nsubstt"
+"20000","tc.xk"
+"R1-","tc.dep_comname"
+"-1","tc.dep_val"
+"99","tc.dep_mw"
+"3000000000","tc.dep_xk"
+"11.6","tc.dep_xke"
+"0","tc.xk_co3XM"
+"0","tc.xk_hpo4XM"
+"0","tc.xk_o2XM"
+"0","tc.xk_ho2X"
+"DBCP","tc.comname"
+"0.00000183","tc.concini"
+"0","tc.val"
+"100","tc.mw"
+"3","tc.ncarbn"
+"3","tc.nsubstt"
+"150000000","tc.xk"
+"R1-","tc.dep_comname"
+"-1","tc.dep_val"
+"99","tc.dep_mw"
+"3000000000","tc.dep_xk"
+"14","tc.dep_xke"
+"0","tc.xk_co3XM"
+"0","tc.xk_hpo4XM"
+"0","tc.xk_o2XM"
+"0","tc.xk_ho2X"
+"1","proj.Wavelength_Count"
+"253.7","wl.lwave"
+"34.3","wl.uvi"
+"0.0867","proj.extcoef(1,1)"
+"14.7","proj.extcoef(2,1)"
+"0","proj.quatyd(1,1)"
+"0.47","proj.quatyd(2,1)"
+"19","proj.extcoef_h2o2(1)"
+"0.5","proj.quatyd_h2o2(1)"
+"15.8","proj.uvpathl"
+"Low Pressure UV Lamp","proj.lamp_name"
+"500","proj.lamp_power"
+"1","proj.iduvi"
+"2","proj.num_tanks"

code/adox/comm/990930_simple_plot_example/990930_simple_plot_example.vbp

@@ -0,0 +1,32 @@
+Type=Exe
+Form=Main.frm
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation
+Object={0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0; THREED32.OCX
+Class=GraphControl; graph.cls
+Startup="frmMain"
+HelpFile=""
+Command32=""
+Name="Simple_Plot_Example"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+VersionCompanyName="CenCITT"
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1

code/adox/comm/990930_simple_plot_example/990930_simple_plot_example.vbw

@@ -0,0 +1,2 @@
+frmMain = 5, 56, 554, 632, C, 0, 0, 0, 0, C
+GraphControl = 536, 57, 1013, 633, C

code/adox/comm/990930_simple_plot_example/MSSCCPRJ.SCC

@@ -0,0 +1,5 @@
+[SCC]
+SCC=This is a source code control file
+[990930_simple_plot_example.vbp]
+SCC_Project_Name=this project is not under source code control
+SCC_Aux_Path=<This is an empty string for the mssccprj.scc file>

code/adox/comm/990930_simple_plot_example/Main.frm

@@ -0,0 +1,124 @@
+VERSION 5.00
+Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
+Begin VB.Form frmMain 
+   Caption         =   "Plot Example"
+   ClientHeight    =   6735
+   ClientLeft      =   1530
+   ClientTop       =   1320
+   ClientWidth     =   9150
+   LinkTopic       =   "Form1"
+   LockControls    =   -1  'True
+   ScaleHeight     =   6735
+   ScaleWidth      =   9150
+   Begin VB.CommandButton Command1 
+      Caption         =   "Plot !"
+      Height          =   405
+      Left            =   120
+      TabIndex        =   2
+      Top             =   120
+      Width           =   2085
+   End
+   Begin Threed.SSPanel ssframe_GraphHolder 
+      Height          =   5985
+      Left            =   90
+      TabIndex        =   0
+      Top             =   600
+      Width           =   8835
+      _Version        =   65536
+      _ExtentX        =   15584
+      _ExtentY        =   10557
+      _StockProps     =   15
+      BackColor       =   12632256
+      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
+         Name            =   "MS Sans Serif"
+         Size            =   8.25
+         Charset         =   0
+         Weight          =   400
+         Underline       =   0   'False
+         Italic          =   0   'False
+         Strikethrough   =   0   'False
+      EndProperty
+      Begin VB.PictureBox picGraph 
+         Appearance      =   0  'Flat
+         AutoRedraw      =   -1  'True
+         BackColor       =   &H80000005&
+         BorderStyle     =   0  'None
+         ForeColor       =   &H80000008&
+         Height          =   5775
+         Left            =   90
+         ScaleHeight     =   5775
+         ScaleWidth      =   8595
+         TabIndex        =   1
+         Top             =   90
+         Width           =   8595
+      End
+   End
+End
+Attribute VB_Name = "frmMain"
+Attribute VB_GlobalNameSpace = False
+Attribute VB_Creatable = False
+Attribute VB_PredeclaredId = True
+Attribute VB_Exposed = False
+Option Explicit
+
+Dim ThisGraph As Object
+
+
+
+
+
+
+Private Sub Command1_Click()
+Dim data_x() As Double
+Dim data_y() As Double
+Dim num_rows As Integer
+  '
+  ' REMOVE ALL EXISTING GRAPH DATA.
+  '
+  Call ThisGraph.DeleteAllSeries
+  '
+  ' ADD THE FIRST SERIES.
+  '
+  num_rows = 4
+  ReDim data_x(1 To num_rows)
+  ReDim data_y(1 To num_rows)
+  data_x(1) = 1#: data_y(1) = 1#
+  data_x(2) = 2#: data_y(2) = 2#
+  data_x(3) = 3#: data_y(3) = 3#
+  data_x(4) = 4#: data_y(4) = 4#
+  Call ThisGraph.AddSeriesData( _
+      "Series Whatever", CLng(num_rows), data_x, data_y, _
+      0, 1#, QBColor(9))
+  '
+  ' ADD THE SECOND SERIES.
+  '
+  num_rows = 4
+  ReDim data_x(1 To num_rows)
+  ReDim data_y(1 To num_rows)
+  data_x(1) = 1#: data_y(1) = 1# + 0.1
+  data_x(2) = 2#: data_y(2) = 2# - 0.2
+  data_x(3) = 3#: data_y(3) = 3# + 0.3
+  data_x(4) = 4#: data_y(4) = 4# - 0.1
+  Call ThisGraph.AddSeriesData( _
+      "Series Whatever", CLng(num_rows), data_x, data_y, _
+      1, 1#, QBColor(12))
+  '
+  ' ACTUALLY MAKE THE DATA BE DISPLAYED.
+  '
+  Call ThisGraph.Refresh_Graph
+End Sub
+
+
+Private Sub Form_Load()
+  'CREATE GRAPH OBJECT.
+  Set ThisGraph = New GraphControl
+  Set ThisGraph.handle_ctlPicture = picGraph
+  'Call ThisGraph.CreateGraph("Title", "X", "Y")
+  Call ThisGraph.CreateGraph("", "", "")
+  'DRAW GRAPH FOR FIRST TIME.
+  'Call CenterOnForm(Me, frmMain)
+  'Me.WindowState = 2  'maximized
+  'READY_TO_PLOT = True
+  'Call Redraw_Graph
+End Sub
+