Imports System.IO Imports System.Text Public Class 計算機 Dim MACKK As String 'MAC碼 Dim diskId As String '數字ID Dim diskSerialNumber As String '硬碟序列 Dim diskModel As String '磁盘型態 Dim IP公, IP測1, IP測2, 內網線路, 可登入 As Boolean Private ReadOnly 對話框(15) As String Private Sub 初始化系統語言() If File.Exists(Application.StartupPath + "\LANGUAGE_FILE.csv") Then Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Application.StartupPath + "\LANGUAGE_FILE.csv", System.Text.Encoding.Default) Dim line As String = filereader.ReadLine() While Not (line Is Nothing) line = filereader.ReadLine() If line <> Nothing Then line = line.Replace("""", "") : Dim separator As String = "-" : Dim result() As String = line.Split(separator) If result.Count > 4 Then Dim key As String = result(0).ToString() & "-" & result(1).ToString() & "-" & result(2).ToString() Dim value As String = result(3).ToString() For i As Integer = 4 To result.Count - 1 : value += "-" & result(i) : Next If value.EndsWith(",") Then : value = value.Substring(0, value.Length - 1) : End If : 系統語言字典.Add(key, value) Else Dim key As String = result(0).ToString() & "-" & result(1).ToString() & "-" & result(2).ToString() Dim value As String = result(3).ToString() If value.EndsWith(",") Then : value = value.Substring(0, value.Length - 1) : End If : 系統語言字典.Add(key, value) End If End If End While End If End Sub Private Sub 語言轉換讀取() End Sub Private Sub IP比對() If SQL_連線狀態模組3.ConnectTest3("192.168.1.6,2433") = True Then '---主伺服器導通------------------------------------------- IP公 = True : IP測1 = True : IP測2 = True : 伺服器區域_cb.Text = "公司內網" : 公司線路_rb.Checked = True : 測試線路_rb.Checked = False : 內網線路 = True 刷卡登入_ch.Checked = True Else Dim Str As String = Application.StartupPath If File.Exists(Str + "\HXLINE.txt") Then Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\HXLINE.txt", System.Text.Encoding.Default) Dim Text As String = "" : Dim line As String = filereader.ReadLine() While Not (line Is Nothing) : Text = Text & line & vbCrLf : line = filereader.ReadLine() : End While : filereader.Close() If Strings.Left(Text, 10) = "3MBPS-LINE" Then : PA49 = "36.64.59.26,2433" ElseIf Strings.Left(Text, 11) = "20MBPS-LINE" Then : PA49 = "36.64.59.26,2433" : End If Else : 線路選擇.ShowDialog() : End If If SQL_連線狀態模組1.ConnectTest1(PA49) = True Then '---主伺服器導通------------------------------------------- IP公 = True : IP測1 = True : IP測2 = True : 伺服器區域_cb.Text = "公司雲端" : 公司線路_rb.Checked = True : 測試線路_rb.Checked = False : 內網線路 = False 刷卡登入_ch.Checked = True Else 線路選擇.ShowDialog() If PA49 = "106.1.48.106,4567" Then IP公 = True : IP測1 = True : IP測2 = True : 伺服器區域_cb.Text = "測試雲端" : 公司線路_rb.Checked = True : 測試線路_rb.Checked = False : 內網線路 = False 刷卡登入_ch.Checked = True Else IP公 = True : IP測1 = True : IP測2 = True : 伺服器區域_cb.Text = "公司雲端" : 公司線路_rb.Checked = True : 測試線路_rb.Checked = False : 內網線路 = False 刷卡登入_ch.Checked = True End If End If End If End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 初始化系統語言() : 後數_tb.Enabled = False : 前數_tb.Enabled = False : 算式_tb.Enabled = False Me.KeyPreview = True : Panel1.SendToBack() '-----電腦預設值------------------------------------------------------------------------------------------------------------------------------------------------------------------ Dim Str As String = Application.StartupPath If File.Exists(Str + "\LANGUAGE.txt") Then Dim filereader = My.Computer.FileSystem.OpenTextFileReader(Str + "\LANGUAGE.txt", System.Text.Encoding.Default) Dim Text As String = "" : Dim line As String = filereader.ReadLine() While Not (line Is Nothing) : Text &= line : line = filereader.ReadLine() : End While : filereader.Close() If Strings.Left(Text, 4) = "CHER" Then 系統語言_cb.Text = "繁體中文" : 系統語言 = "繁體中文" ElseIf Strings.Left(Text, 4) = "Engl" Then 系統語言_cb.Text = "English" : 系統語言 = "English" ElseIf Strings.Left(Text, 4) = "Indo" Then 系統語言_cb.Text = "Indonesian" : 系統語言 = "Indonesian" End If Else Dim strDirName As String : Dim Strs As String = Application.StartupPath If File.Exists(Strs & "\LANGUAGE.txt") Then : File.Delete(Strs & "\LANGUAGE.txt") : End If strDirName = Strs & "\LANGUAGE.txt" Try Using fs As New IO.FileStream(strDirName, FileMode.Append) Using sw As New StreamWriter(fs, Encoding.Default) Dim stra As String = "CHER" sw.WriteLine(stra) '插入一整行 sw.Flush() End Using End Using Catch ex As Exception : End Try 系統語言_cb.Text = "繁體中文" : 系統語言 = "繁體中文" End If IP比對() '-----電腦綁定判斷------------------------------------------------------------------------------------------------------------------------------------------------------------- PA1 = MACKK : PA2 = diskId : PA3 = diskSerialNumber : PA4 = diskModel SQL_電腦綁定() If dr.Read() Then 可登入 = True : PA50 = dr("使用者").ToString : conn.Close() Else 可登入 = False : conn.Close() End If End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 伺服器區域_cb.SelectedIndexChanged '-----------------------確認登入伺服器位置----------------------------------------------------------------------------------------------------------------------------------------- If 伺服器區域_cb.Text = "公司內網" Then If IP公 = True Then : 登入人IP = "192.168.1.6,2433" : Line通訊IP = "192.168.1.6,2433" : Line伺服器名稱 = "HX-LINE-AUTO" 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If ElseIf 伺服器區域_cb.Text = "公司雲端" Then If IP公 = True Then : 登入人IP = PA49 : Line通訊IP = PA49 : Line伺服器名稱 = "HX-LINE-AUTO" 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If ElseIf 伺服器區域_cb.Text = "測試雲端" Then If IP測1 = True Then : 登入人IP = "106.1.48.106,4567" : Line通訊IP = "36.64.59.26,2433" : Line伺服器名稱 = "HX-LINE-AUTO" 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If ElseIf 伺服器區域_cb.Text = "印尼測試" Then If IP測2 = True Then : 登入人IP = "172.1.1.189,2433" : Line通訊IP = "192.168.1.6,2433" : Line伺服器名稱 = "HX-LINE-AUTO" If SQL_連線狀態模組2.ConnectTest2("172.1.1.189,2433") = True Then : 登入() : 刷卡登入_ch.Checked = True : Else : MGB(對話框(11), 1) : Me.Close() : End If Else : MGB(對話框(11), 1) : Me.Close() : End If End If End Sub Private Sub 登入() '-----------------------寫入連線字串----------------------------------------------------------------------------------------------------------------------------------------------- If Strings.Left(伺服器區域_cb.Text, 2) = "印尼" Or Strings.Left(伺服器區域_cb.Text, 2) = "公司" Then SQL_連線字串_正式() : SQL_連線字串_正式_工程SQL() : SQL_連線字串_正式_管理SQL() Else SQL_連線字串_測試() : SQL_連線字串_測試_工程SQL() : SQL_連線字串_測試_管理SQL() End If g_conn_type = 伺服器區域_cb.Text & "伺服器" '-----------------------系統版本號寫入----------------------------------------------------------------------------------------------------------------------------------------------- SQL_系統版本號驗證() If dr.Read() Then : 資料庫版本 = dr("內帳系統") : 版本號 = dr("內帳系統") : End If : conn.Close() 語言轉換讀取() 系統語言_cb.Items.Clear() : 系統語言_cb.Items.Add("繁體中文") : 系統語言_cb.Items.Add("Indonesian") : 系統語言_cb.Items.Add("English") '-----MAC碼與硬碟資料------------------------------------------------------------------------------------------------------------------------------------------------------------- Dim Wmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_NetworkAdapterConfiguration") For Each WmiObj As Management.ManagementObject In Wmi.Get If CBool(WmiObj("IPEnabled")) Then MACKK = WmiObj("MACAddress") End If Next Dim cmicWmi As New Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive") For Each cmicWmiObj As Management.ManagementObject In cmicWmi.Get diskId = cmicWmiObj("size") 'diskId = cmicWmiObj("signature") diskSerialNumber = cmicWmiObj("serialnumber") diskModel = cmicWmiObj("Model") Exit For Next End Sub Private verificationCode As String Private verificationStartTime As DateTime Dim currentTime As DateTime Dim elapsedTime As TimeSpan Private Sub GenerateVerificationCode() Dim random As New Random() : verificationCode = random.Next(10000000, 99999999).ToString() : verificationStartTime = DateTime.Now : LIN訊息通知("CC260", PA50, verificationCode) End Sub Private Sub Form_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown Select Case e.KeyCode Case Keys.NumPad1 : Me.ActiveControl = Button1 : Button1.PerformClick() : Me.ActiveControl = Button18 Case Keys.NumPad2 : Me.ActiveControl = Button2 : Button2.PerformClick() : Me.ActiveControl = Button18 Case Keys.NumPad3 : Me.ActiveControl = Button3 : Button3.PerformClick() : Me.ActiveControl = Button18 Case Keys.NumPad4 : Me.ActiveControl = Button4 : Button4.PerformClick() : Me.ActiveControl = Button18 Case Keys.NumPad5 : Me.ActiveControl = Button5 : Button5.PerformClick() : Me.ActiveControl = Button18 Case Keys.NumPad6 : Me.ActiveControl = Button6 : Button6.PerformClick() : Me.ActiveControl = Button18 Case Keys.NumPad7 : Me.ActiveControl = Button7 : Button7.PerformClick() : Me.ActiveControl = Button18 Case Keys.NumPad8 : Me.ActiveControl = Button8 : Button8.PerformClick() : Me.ActiveControl = Button18 Case Keys.NumPad9 : Me.ActiveControl = Button9 : Button9.PerformClick() : Me.ActiveControl = Button18 Case Keys.NumPad0 : Me.ActiveControl = Button10 : Button10.PerformClick() : Me.ActiveControl = Button18 Case Keys.Decimal : Me.ActiveControl = Button12 : Button12.PerformClick() : Me.ActiveControl = Button18 Case Keys.D1 : Me.ActiveControl = Button1 : Button1.PerformClick() : Me.ActiveControl = Button18 Case Keys.D2 : Me.ActiveControl = Button2 : Button2.PerformClick() : Me.ActiveControl = Button18 Case Keys.D3 : Me.ActiveControl = Button3 : Button3.PerformClick() : Me.ActiveControl = Button18 Case Keys.D4 : Me.ActiveControl = Button4 : Button4.PerformClick() : Me.ActiveControl = Button18 Case Keys.D5 : Me.ActiveControl = Button5 : Button5.PerformClick() : Me.ActiveControl = Button18 Case Keys.D6 : Me.ActiveControl = Button6 : Button6.PerformClick() : Me.ActiveControl = Button18 Case Keys.D7 : Me.ActiveControl = Button7 : Button7.PerformClick() : Me.ActiveControl = Button18 Case Keys.D8 : Me.ActiveControl = Button8 : Button8.PerformClick() : Me.ActiveControl = Button18 Case Keys.D9 : Me.ActiveControl = Button9 : Button9.PerformClick() : Me.ActiveControl = Button18 Case Keys.D0 : Me.ActiveControl = Button10 : Button10.PerformClick() : Me.ActiveControl = Button18 Case Keys.OemPeriod : Me.ActiveControl = Button12 : Button12.PerformClick() : Me.ActiveControl = Button18 Case Keys.Delete : Me.ActiveControl = Button11 : Button11.PerformClick() : Me.ActiveControl = Button18 Case Keys.Multiply : Me.ActiveControl = Button15 : Button15.PerformClick() : Me.ActiveControl = Button18 Case Keys.Subtract : Me.ActiveControl = Button14 : Button14.PerformClick() : Me.ActiveControl = Button18 Case Keys.OemMinus : Me.ActiveControl = Button14 : Button14.PerformClick() : Me.ActiveControl = Button18 Case Keys.Add : Me.ActiveControl = Button13 : Button13.PerformClick() : Me.ActiveControl = Button18 Case Keys.Oemplus : Me.ActiveControl = Button13 : Button13.PerformClick() : Me.ActiveControl = Button18 Case Keys.Oem2 : Me.ActiveControl = Button16 : Button16.PerformClick() : Me.ActiveControl = Button18 Case Keys.Divide : Me.ActiveControl = Button16 : Button16.PerformClick() : Me.ActiveControl = Button18 Case Keys.Back : Me.ActiveControl = Button11 : Button11.PerformClick() : Me.ActiveControl = Button18 Case Keys.Return : Me.ActiveControl = Button11 : Button11.PerformClick() : Me.ActiveControl = Button18 End Select End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If 後數_tb.Text <> "" Then : 後數_tb.Text = 後數_tb.Text & 1 : Else : 後數_tb.Text = 1 : End If : 計算呈現() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click If 後數_tb.Text <> "" Then : 後數_tb.Text = 後數_tb.Text & 2 : Else : 後數_tb.Text = 2 : End If : 計算呈現() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click If 後數_tb.Text <> "" Then : 後數_tb.Text = 後數_tb.Text & 3 : Else : 後數_tb.Text = 3 : End If : 計算呈現() End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click If 後數_tb.Text <> "" Then : 後數_tb.Text = 後數_tb.Text & 4 : Else : 後數_tb.Text = 4 : End If : 計算呈現() End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click If 後數_tb.Text <> "" Then : 後數_tb.Text = 後數_tb.Text & 5 : Else : 後數_tb.Text = 5 : End If : 計算呈現() End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click If 後數_tb.Text <> "" Then : 後數_tb.Text = 後數_tb.Text & 6 : Else : 後數_tb.Text = 6 : End If : 計算呈現() End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click If 後數_tb.Text <> "" Then : 後數_tb.Text = 後數_tb.Text & 7 : Else : 後數_tb.Text = 7 : End If : 計算呈現() End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click If 後數_tb.Text <> "" Then : 後數_tb.Text = 後數_tb.Text & 8 : Else : 後數_tb.Text = 8 : End If : 計算呈現() End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click If 後數_tb.Text <> "" Then : 後數_tb.Text = 後數_tb.Text & 9 : Else : 後數_tb.Text = 9 : End If : 計算呈現() End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click If 後數_tb.Text <> "" Then : 後數_tb.Text = 後數_tb.Text & 0 : Else : 後數_tb.Text = 0 : End If : 計算呈現() End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click If 後數_tb.Text <> "" Then : 後數_tb.Text = 後數_tb.Text & "." : Else : 後數_tb.Text = "0." : End If : 計算呈現() End Sub '----------------------------數字鍵盤--------------------------------------------------------------------------------------------------------------- Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click Dim SS As Integer If 後數_tb.Text <> "" Then : 後數_tb.Text = Int(Val(後數_tb.Text) / 10) ElseIf 後數_tb.Text = "" And 前數_tb.Text <> "" Then : SS = Len(前數_tb.Text) : 前數_tb.Text = Strings.Left(前數_tb.Text, SS - 1) Else : 後數_tb.Text = "" : End If : 計算呈現() End Sub Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click Button18.PerformClick() If 後數_tb.Text <> "" And 前數_tb.Text = "" Then : 前數_tb.Text = 後數_tb.Text : 後數_tb.Text = "" : End If If 後數_tb.Text <> "" And 前數_tb.Text <> "" Then : 前數_tb.Text = Val(前數_tb.Text) / Val(後數_tb.Text) : 後數_tb.Text = "" : End If 算式_tb.Text = "/" : 計算呈現() End Sub Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click Button18.PerformClick() If 後數_tb.Text <> "" And 前數_tb.Text = "" Then : 前數_tb.Text = 後數_tb.Text : 後數_tb.Text = "" : End If If 後數_tb.Text <> "" And 前數_tb.Text <> "" Then : 前數_tb.Text = Val(後數_tb.Text) * Val(前數_tb.Text) : 後數_tb.Text = "" : End If 算式_tb.Text = "X" : 計算呈現() End Sub Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click Button18.PerformClick() If 後數_tb.Text <> "" And 前數_tb.Text = "" Then : 前數_tb.Text = 後數_tb.Text : 後數_tb.Text = "" : End If If 後數_tb.Text <> "" And 前數_tb.Text <> "" Then : 前數_tb.Text = Val(後數_tb.Text) + Val(前數_tb.Text) : 後數_tb.Text = "" : End If 算式_tb.Text = "+" : 計算呈現() End Sub Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click Button18.PerformClick() If 後數_tb.Text <> "" And 前數_tb.Text = "" Then : 前數_tb.Text = 後數_tb.Text : 後數_tb.Text = "" : End If If 後數_tb.Text <> "" And 前數_tb.Text <> "" Then : 前數_tb.Text = Val(前數_tb.Text) - Val(後數_tb.Text) : 後數_tb.Text = "" : End If 算式_tb.Text = "-" : 計算呈現() End Sub Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click 後數_tb.Text = "" : 前數_tb.Text = "" : 算式_tb.Text = "" : 合計_tb.Text = "" : 計算呈現() End Sub Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles 前數_tb.TextChanged 合計_tb.Text = 前數_tb.Text If 前數_tb.Text = "" Then : Else If 前數_tb.Text - Int(前數_tb.Text) <> 0 Then : 合計_tb.Text = Format(Val(合計_tb.Text), "#,##0.0000") : Else : 合計_tb.Text = Format(Val(合計_tb.Text), "#,##0") : End If End If If Val(前數_tb.Text) > 9.99973000350998E+85 Then : MsgBox("EFFORT错误！结果过大请点击AC重新启动!!!") : End If End Sub Private Sub 計算() If 後數_tb.Text <> "" And 前數_tb.Text <> "" Then If 算式_tb.Text = "X" Then : 前數_tb.Text = Val(後數_tb.Text) * Val(前數_tb.Text) : 後數_tb.Text = "" : End If If 算式_tb.Text = "/" Then : 前數_tb.Text = Val(前數_tb.Text) / Val(後數_tb.Text) : 後數_tb.Text = "" : End If If 算式_tb.Text = "+" Then : 前數_tb.Text = Val(後數_tb.Text) + Val(前數_tb.Text) : 後數_tb.Text = "" : End If If 算式_tb.Text = "-" Then : 前數_tb.Text = Val(前數_tb.Text) - Val(後數_tb.Text) : 後數_tb.Text = "" : End If Else : End If : 計算呈現() End Sub Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click If 可登入 = False Then : 計算() : Else If verificationCode = "" Then : 計算() : Else currentTime = DateTime.Now elapsedTime = currentTime - verificationStartTime If elapsedTime.TotalMinutes <= 0.5 Then If 呈現_tb.Text = verificationCode Then : Me.Hide() : LoginForm1.Show() : verificationCode = "" : Else : 計算() : End If Else : 計算() : End If End If End If End Sub Private Sub 計算呈現() If 後數_tb.Text <> "" And 算式_tb.Text = "" And 前數_tb.Text = "" And 合計_tb.Text = "" Then : 呈現_tb.Text = 後數_tb.Text ElseIf 後數_tb.Text = "" And 算式_tb.Text <> "" And 前數_tb.Text <> "" And 合計_tb.Text = "" Then : 呈現_tb.Text = 前數_tb.Text ElseIf 後數_tb.Text = "" And 算式_tb.Text <> "" And 前數_tb.Text <> "" And 合計_tb.Text <> "" Then : 呈現_tb.Text = 合計_tb.Text ElseIf 後數_tb.Text = "" And 算式_tb.Text <> "" And 前數_tb.Text = "" And 合計_tb.Text = "" Then : 呈現_tb.Text = "0" ElseIf 後數_tb.Text = "" And 算式_tb.Text = "" And 前數_tb.Text = "" And 合計_tb.Text = "" Then : 呈現_tb.Text = "0" ElseIf 後數_tb.Text <> "" And 算式_tb.Text <> "" And 前數_tb.Text <> "" And 合計_tb.Text <> "" And CLng(前數_tb.Text) = CLng(合計_tb.Text) Then 呈現_tb.Text = Strings.Format(CDbl(前數_tb.Text), "#,##0.00") & " " & 算式_tb.Text & " " & Strings.Format(CDbl(後數_tb.Text), "#,##0.00") ElseIf 後數_tb.Text <> "" And 算式_tb.Text <> "" And 前數_tb.Text <> "" And 合計_tb.Text <> "" And CLng(前數_tb.Text) <> CLng(合計_tb.Text) Then 呈現_tb.Text = 合計_tb.Text End If End Sub Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click If 可登入 = False Then Dim result As Double = Math.Sqrt(CDbl(呈現_tb.Text)) 呈現_tb.Text = Strings.Format(result, "#,##0.0000") Else : GenerateVerificationCode() : 呈現_tb.Text = "0" : End If End Sub End Class