VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "mswinsck.ocx"
Begin VB.Form Form1 
   BorderStyle     =   0  'None
   Caption         =   "LCD"
   ClientHeight    =   495
   ClientLeft      =   45
   ClientTop       =   345
   ClientWidth     =   2115
   DrawMode        =   7  'Invert
   DrawStyle       =   5  'Transparent
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   495
   ScaleWidth      =   2115
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer clock 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   2640
      Top             =   600
   End
   Begin VB.CommandButton Command3 
      Caption         =   "About"
      Height          =   495
      Left            =   1080
      TabIndex        =   1
      Top             =   0
      Width           =   1035
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Start"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   1095
   End
   Begin MSWinsockLib.Winsock winsock 
      Left            =   3240
      Top             =   600
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
      Protocol        =   1
      RemoteHost      =   "127.0.0.1"
      RemotePort      =   9835
   End
   Begin VB.Menu mnuSystray 
      Caption         =   "Systray"
      Visible         =   0   'False
      Begin VB.Menu mnuexit 
         Caption         =   "Exit"
      End
      Begin VB.Menu dfsfd 
         Caption         =   "-"
      End
      Begin VB.Menu mnuRestore 
         Caption         =   "Open"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub clock_Timer()
On Error Resume Next
Dim line1 As String
Dim line2 As String


line1 = "test1"
line2 = "test2"

lcdwrite (64)
lcdwritedata (0)
lcdwritedata (0)
lcdwritedata (0)
lcdwritedata (1)
lcdwritedata (3)
lcdwritedata (7)
lcdwritedata (15)
lcdwritedata (31)
lcdwrite (72)
lcdwritedata (0)
lcdwritedata (0)
lcdwritedata (0)
lcdwritedata (16)
lcdwritedata (24)
lcdwritedata (28)
lcdwritedata (30)
lcdwritedata (31)
lcdwrite (80)
lcdwritedata (31)
lcdwritedata (30)
lcdwritedata (28)
lcdwritedata (24)
lcdwritedata (16)
lcdwritedata (0)
lcdwritedata (0)
lcdwritedata (0)
lcdwrite (88)
lcdwritedata (31)
lcdwritedata (15)
lcdwritedata (7)
lcdwritedata (3)
lcdwritedata (1)
lcdwritedata (0)
lcdwritedata (0)
lcdwritedata (0)
lcdwrite (96)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (0)
lcdwritedata (0)
lcdwritedata (0)
lcdwritedata (0)
lcdwrite (104)
lcdwritedata (0)
lcdwritedata (0)
lcdwritedata (0)
lcdwritedata (0)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (31)
lcdwrite (112)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (31)
lcdwrite (120)
lcdwritedata (31)
lcdwritedata (30)
lcdwritedata (28)
lcdwritedata (24)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (31)
lcdwritedata (31)

Call displaytext(1, 1, line1)
Call displaytext(2, 1, line2)

End Sub

Private Sub Command2_Click()
If clock.Enabled = True Then
    clock.Enabled = False
    Command2.Caption = "Start"
    winsock.SendData "lcdoutput on" & (Chr$(13) & Chr$(10))
Else
    clock.Enabled = True
    Command2.Caption = "Stop"
    winsock.SendData "lcdoutput off" & (Chr$(13) & Chr$(10))
End If
End Sub

Private Sub Command3_Click()
Form2.Show
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Sys As Long
Sys = x / Screen.TwipsPerPixelX
Select Case Sys
Case WM_RBUTTONDOWN:
Me.PopupMenu mnuSystray
End Select
End Sub

Private Sub Form_Resize()
If WindowState = vbMinimized Then
Me.Hide
Me.Refresh
With nid
.cbSize = Len(nid)
.hwnd = Me.hwnd
.uId = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallBackMessage = WM_MOUSEMOVE
.hIcon = Me.Icon
.szTip = Me.Caption & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
Else
Shell_NotifyIcon NIM_DELETE, nid
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
End
End Sub

Private Sub mnuexit_Click()
Unload Me
End Sub

Private Sub mnuRestore_Click()
WindowState = vbNormal
Me.Show
End Sub

Private Sub Form_Load()
ErcL = QueryPerformanceFrequency(frequency)
Port = "&H378"

Dataport = Port
controlport = Port + 2
Call initialize

char(0, 1) = Chr(0) + Chr(4) + Chr(4) + Chr(1)
char(0, 2) = Chr(6) + Chr(32) + Chr(32) + Chr(6)
char(0, 3) = Chr(6) + Chr(32) + Chr(32) + Chr(6)
char(0, 4) = Chr(3) + Chr(5) + Chr(5) + Chr(2)

char(1, 1) = Chr(32) + Chr(0) + Chr(6) + Chr(32)
char(1, 2) = Chr(32) + Chr(32) + Chr(6) + Chr(32)
char(1, 3) = Chr(32) + Chr(32) + Chr(6) + Chr(32)
char(1, 4) = Chr(32) + Chr(5) + Chr(6) + Chr(5)

char(2, 1) = Chr(0) + Chr(4) + Chr(4) + Chr(1)
char(2, 2) = Chr(32) + Chr(32) + Chr(0) + Chr(2)
char(2, 3) = Chr(32) + Chr(0) + Chr(2) + Chr(32)
char(2, 4) = Chr(0) + Chr(7) + Chr(5) + Chr(5)

char(3, 1) = Chr(0) + Chr(4) + Chr(4) + Chr(1)
char(3, 2) = Chr(32) + Chr(32) + Chr(5) + Chr(2)
char(3, 3) = Chr(32) + Chr(32) + Chr(4) + Chr(1)
char(3, 4) = Chr(3) + Chr(5) + Chr(5) + Chr(2)

char(4, 1) = Chr(6) + Chr(32) + Chr(32) + Chr(6)
char(4, 2) = Chr(6) + Chr(32) + Chr(32) + Chr(6)
char(4, 3) = Chr(3) + Chr(4) + Chr(4) + Chr(6)
char(4, 4) = Chr(32) + Chr(32) + Chr(32) + Chr(6)

char(5, 1) = Chr(6) + Chr(4) + Chr(4) + Chr(4)
char(5, 2) = Chr(3) + Chr(5) + Chr(5) + Chr(1)
char(5, 3) = Chr(32) + Chr(32) + Chr(32) + Chr(6)
char(5, 4) = Chr(3) + Chr(5) + Chr(5) + Chr(2)

char(6, 1) = Chr(0) + Chr(4) + Chr(4) + Chr(32)
char(6, 2) = Chr(6) + Chr(0) + Chr(5) + Chr(1)
char(6, 3) = Chr(6) + Chr(32) + Chr(32) + Chr(6)
char(6, 4) = Chr(3) + Chr(5) + Chr(5) + Chr(2)

char(7, 1) = Chr(4) + Chr(4) + Chr(4) + Chr(6)
char(7, 2) = Chr(32) + Chr(32) + Chr(0) + Chr(2)
char(7, 3) = Chr(32) + Chr(0) + Chr(2) + Chr(32)
char(7, 4) = Chr(32) + Chr(6) + Chr(32) + Chr(32)

char(8, 1) = Chr(0) + Chr(4) + Chr(4) + Chr(1)
char(8, 2) = Chr(3) + Chr(5) + Chr(5) + Chr(2)
char(8, 3) = Chr(0) + Chr(4) + Chr(4) + Chr(1)
char(8, 4) = Chr(3) + Chr(5) + Chr(5) + Chr(2)

char(9, 1) = Chr(0) + Chr(4) + Chr(4) + Chr(1)
char(9, 2) = Chr(6) + Chr(32) + Chr(32) + Chr(6)
char(9, 3) = Chr(3) + Chr(4) + Chr(2) + Chr(6)
char(9, 4) = Chr(32) + Chr(5) + Chr(5) + Chr(2)

char(10, 1) = Chr(32) + Chr(0) + Chr(1) + Chr(32)
char(10, 2) = Chr(32) + Chr(3) + Chr(2) + Chr(32)
char(10, 3) = Chr(32) + Chr(0) + Chr(1) + Chr(32)
char(10, 4) = Chr(32) + Chr(3) + Chr(2) + Chr(32)

If InStr(Command, "start") <> 0 Then
    clock.Enabled = True
    Command2.Caption = "Stop"
    winsock.SendData "lcdoutput off" & (Chr$(13) & Chr$(10))
End If
End Sub