2013/5/3 亞泥走勢

突破下降趨勢線，但成交量未增加。

Turn on Monitor and Off scren saving by VB.NET

' ON/OFF screen saving
Private SPI_SETSCREENSAVERACTIVE As Integer = 17
    Private SPIF_SENDWININICHANGE As Integer = 2
    Dim hWnd As Long
    _
    Public Shared Function SystemParametersInfo(ByVal intAction As Integer, _
                                                ByVal intParam As Integer, _
                                                ByVal strParam As String, _
                                                ByVal intWinIniFlag As Integer) As Integer
    End Function

  ' Turn ON/OFF Monitor
    Const WM_SYSCOMMAND = &H112&
    Const SC_MONITORPOWER = &HF170&
    ' VB6 宣告之 Long 得改成 Int32 (Integer)
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Int32)


SendMessage(Me.Handle.ToInt32, WM_SYSCOMMAND, SC_MONITORPOWER, 2&) ' Turn off monitor

 SendMessage(Me.Handle.ToInt32, WM_SYSCOMMAND, SC_MONITORPOWER, -1&) ' 啟動螢幕
            SystemParametersInfo(SPI_SETSCREENSAVERACTIVE, 0, Nothing, SPIF_SENDWININICHANGE)  ' Off screen saving

Transfor file by COM Port

Sub TransforFiles(ByVal sendFile As String)
        Dim bys As Byte() = My.Computer.FileSystem.ReadAllBytes(sendFile)
        Dim cx = bys.Length
        Dim T1 As Integer = 0
        Dim Clength As Integer
        If cx > 4096 Then
            Dim count As Integer = cx \ 4096
            Do While T1 < count + 1
                Clength = cx - (T1 * 4096)
                If Clength > 4096 Then Clength = 4096
                SerialPort1.Write(bys, T1 * 4096, Clength)
                System.Threading.Thread.Sleep(500)
                TextBox1.AppendText(T1.ToString + "Send No." + Clength.ToString + vbNewLine)
                T1 = T1 + 1
            Loop
        Else
            SerialPort1.Write(bys, 0, cx)
            TextBox1.AppendText("Send " + cx.ToString)
        End If

    End Sub

Read text file by VB.net

Dim FileNum As Integer
Dim strTemp as String

FileNum = FreeFile()
FileOpen(FileNum, "C:\Test.txt", OpenMode.Input)

Do Until EOF(FileNum)
strTemp &= LineInput(FileNum) & vbNewLine
Loop

FileClose(FileNum)