HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/04、考勤管理/考勤打卡主機.vb

Public Class 考勤打卡主機
    ReadOnly QRCODE As DotNetBarcode = New DotNetBarcode
    Private Sub 考勤打卡主機_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        重讀_bt.PerformClick() : 讀秒.Enabled = True
    End Sub
    Private Sub 考勤打卡主機_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        讀秒.Enabled = False : LoginForm1.Close()
    End Sub
    Private Sub 讀秒_Tick(sender As Object, e As EventArgs) Handles 讀秒.Tick
        If Label2.Text = "5 S" Then : Label2.Text = "4 S" : 時間_DTP.Value = 時間_DTP.Value.AddSeconds(1)
        ElseIf Label2.Text = "4 S" Then : Label2.Text = "3 S" : 時間_DTP.Value = 時間_DTP.Value.AddSeconds(1)
        ElseIf Label2.Text = "3 S" Then : Label2.Text = "2 S" : 時間_DTP.Value = 時間_DTP.Value.AddSeconds(1)
        ElseIf Label2.Text = "2 S" Then : Label2.Text = "1 S" : 時間_DTP.Value = 時間_DTP.Value.AddSeconds(1)
        ElseIf Label2.Text = "1 S" Then : Label2.Text = "0 S" : 時間_DTP.Value = 時間_DTP.Value.AddSeconds(1)
        ElseIf Label2.Text = "0 S" Then : Label2.Text = "5 S" : 時間_DTP.Value = 時間_DTP.Value.AddSeconds(1) : 重讀_bt.PerformClick() : End If
    End Sub
    Private Sub 重讀_bt_Click(sender As Object, e As EventArgs) Handles 重讀_bt.Click
        QRCode_pb.Image = Nothing
        QRCode_pb.Image = New Bitmap(QRCode_pb.Width, QRCode_pb.Height)
        Dim GP As Graphics = Graphics.FromImage(QRCode_pb.Image)
        QRCODE.Type = DotNetBarcode.Types.QRCode : QRCODE.QRQuitZone = 0
        Dim 驗證 As String = Strings.Format(日期_DTP.Value, "yyyy/MM/dd") & "-" & Strings.Format(時間_DTP.Value, "HH:mm:ss") & ",gcmsmart"
        QRCODE.QRWriteBar(驗證, 5, 5, 17, GP)
        QRCode_pb.SizeMode = 4
    End Sub
End Class