Visual Basic

Private Sub frmMain_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        ToolStripTextBox1.Width = Me.Width - 325
    End Sub

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        ToolStripTextBox1.TextBox.Width = Me.Width - 325
        ToolStripTextBox1.Overflow = ToolStripItemOverflow.Never
    End Sub

Dim open As StreamReader
Dim word as String
Dim voice As New SpeechLib.SpVoice

Public Sub TTS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     open = New StreamReader(path)
     word = getword()
     voice.Voice = voice.GetVoices("Name=Cepstral David").Item(0)
     voice.Rate = -1
     voice.Speak(word)
End Sub

Public Function getword()
     Return open.ReadLine()
End Function

Public Sub btnrepeat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrepeat.Click
     voice.Speak(word)
End Sub

Private Sub Form_Load()
    Dim sDate As Date
    Dim eDate As Date    
               
    sDate = #6/15/2009 6:00:00 PM#
    eDate = #6/15/2009 8:00:00 PM#  
    createDummyBase sDate, eDate, 20, "P1--01"      
  
End Sub

Public Sub createDummyBase(ByVal sDate As Date, ByVal eDate As Date, ByVal period As Integer, ByVal nodeId As String)
    Dim cn As adodb.Connection 'opc
    Dim rs As adodb.Recordset
    Dim sqlstr As String
    Dim dbFilename As String
    Dim orig_path, new_path As String
    Dim RunDate As Date
    Dim delDate As Date
    Dim DataGrid As DataGrid
    Dim rs1 As adodb.Recordset
    dbFilename = "Report_" & Format(Now, "MM_YY") & ".mdb"
    If Dir(App.Path & "\data\Report_" & Format(Now, "MM_YY") & ".mdb") <> "" Then
       Else
        orig_path = App.Path & "\data\Report_mm_yy.mdb"
        new_path = App.Path & "\data\Report_" & Format(Now, "MM_YY") & ".mdb"
        FileCopy orig_path, new_path
    End If
    Set cn = New adodb.Connection
    cn.ConnectionString = BuildConnectionString(dbFilename)
    Set rs = New adodb.Recordset
    cn.Open
    rs.LockType = adLockOptimistic
    Set rs.ActiveConnection = cn
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    rs.Open "Report", cn
    RunDate = sDate
    Do
            rs.AddNew
            rs!RecDate = RunDate
            rs!nodeId = nodeId
            rs!BatteryVoltage = findLastValue(RunDate, "BatteryVoltage", nodeId)
            rs!i1 = findLastValue(RunDate, "I1", nodeId)
            rs!i2 = findLastValue(RunDate, "I2", nodeId)
            rs!I3 = findLastValue(RunDate, "I3", nodeId)
            rs!MotorRun = findLastValue(RunDate, "MotorRun", nodeId)
            rs!PowerFactor = findLastValue(RunDate, "PowerFactor", nodeId)
           
            rs!WaterLevelOK = findLastValue(RunDate, "WaterLevelOK", nodeId)
     
        RunDate = RunDate + TimeSerial(0, period, 0)       

    Loop Until RunDate > eDate + TimeSerial(0, 0, 1) 
    rs.Update          
    cn.Close
End Sub