Pic 18f550

Anexo C

CODIGO FUENTE DE PROGRAMAS FRAME SECUNDARIOS DE LA APLICACIÓN MDC Y TABLAS SQL.

| |
|C.1 Código fuente en Visual Basic del archivo secundario “FrmCalcManual.frm”. |
|Dim stDateTime As Date, etDateTime As Date|
|Dim msglabel As String |
| |
|Dim rsGetValues_m As New Recordset, rsGetConstants_m AsNew Recordset, rsGetValuesTPL_m As New Recordset |
|Dim TonSegValue_m() As Double, TonSegValueWIQ_m() As Double |
|Dim TimeSegValue_m() As Double |
|Dim TotalTimeValue_m As Double|
|Dim NumberSubSeg_m() As Integer |
|Dim VelMpS_m As Double |
|Dim NumIndice_m As Integer|
|Dim CountSubSeg_m As Integer |
|Dim Intervalo_m As Integer |
|Dim SubSegValue_m() As Double|
|Dim TimeServer_m As Date |
|Dim FechaDato_m As Date |
|Dim VelSQL_m As Double|
|Dim F2SQL_m As Double |
|Dim F1SQL_m As Double |
|Dim CWSQL_m As Double|
|Dim DSQL_m As Double |
|Dim WSQL_m As Double |
|Dim valsInsert_m As String |
|DimSegTenRealValue_m() As Double |
|Dim TeXTotal_m As Double |
|Dim TeZTotal_m As Double |
|Dim TeResult_m AsDouble |
|Dim TsResult_m As Double |
|Dim ToResult_m As Double |
|Dim PendToResult_m As Double...