Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
S:37 0 Clock Calendar Year
S:38 0 Clock Calendar Month
S:39 0 Clock Calendar Day
S:40 0 Clock Calendar Hours
S:41 0 Clock Calendar Minutes
S:42 0 Clock Calendar Seconds
S:43 0 STI Interrupt Time
S:44 0 I/O Event Interrupt Time
S:45 0 DII Interrupt Time
S:46 0 Discrete Input Interrupt-
Dim s As String = "0.5969675993919372, 2268826624, 1.391914329528809, 654071936" + vbCrLf
s = s.Replace(vbCrLf, String.Empty)
Dim sa() As String = s.Split(","c)
AnalogValueDisplay1.Value = Format(CDbl(sa(0)), "0.000")
AnalogValueDisplay2.Value = Format(CDbl(sa(1)) / 1000000, "0000")
AnalogValueDisplay3.Value = Format(CDbl(sa(2)), "0.000")
AnalogValueDisplay4.Value = Format(CDbl(sa(3)) / 1000000, "0000")
But, C# side have some cool way to convert it directly to float array, I tried to convert to vb format but keep getting error for it:double[] doubles = sarray.Split(',').Select(Double.Parse).ToArray();
Array.ConvertAll(sarray.Split(','), Double.Parse);
double[] doubles = Array.ConvertAll(sarray.split(','), new Converter<string, double>(Double.Parse));
Public Class Form1
Private WithEvents serialPort As New IO.Ports.SerialPort
Private tagID As String = String.Empty
Private timeRecorded As DateTime = Now
Const COM As String = "COM3"
Const FILE_NAME As String = "C:\Attendance.csv"
Const INTERVAL As Integer = 3
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = INTERVAL * 1000
If serialPort.IsOpen Then
serialPort.Close()
End If
Try
With serialPort
.PortName = COM
.BaudRate = 2400
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
.Handshake = IO.Ports.Handshake.None
End With
serialPort.Open()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
Private Sub DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles serialPort.DataReceived
txtTagID.BeginInvoke(New myDelegate(AddressOf updateTextBox), New Object() {})
End Sub
Public Delegate Sub myDelegate()
Public Sub updateTextBox()
' for receiving plain ASCII text
With txtTagID
.AppendText(serialPort.ReadExisting)
.ScrollToCaret()
End With
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
End Sub
Private Sub txtTagID_TextChanged(sender As Object, e As EventArgs) Handles txtTagID.TextChanged
If txtTagID.Lines(txtTagID.Lines.Length - 1) = String.Empty Then
Dim temptagID As String = txtTagID.Lines(txtTagID.Lines.Length - 2)
Dim tp As TimeSpan = Now.Subtract(timeRecorded)
Dim timeInterval As Double = tp.Ticks / TimeSpan.TicksPerSecond
If (temptagID = tagID) And timeInterval < INTERVAL Then
Exit Sub
End If
tagID = temptagID
timeRecorded = Now
End If
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
serialPort.Close()
End Sub
End Class
Dim s As String() = MessageDisplayByValue2.Text.Split("-"c)
Dim fail1 As String = s(0)
Dim fail2 As String = s(1)
ZPL_STRING = ZPL_FAIL 'copy fail label code to ZPL string
ZPL_STRING = ZPL_STRING.Replace("[FailReason1]", fail1)
ZPL_STRING = ZPL_STRING.Replace("[FailReason2]", fail2)
SendZplOverTcp(ZebraAddress)
Dim lines() As String = System.IO.File.ReadAllLines(".\FailCodes.txt")
Dim list As List(Of KeyValuePair(Of Integer, String)) = New List(Of KeyValuePair(Of Integer, String)
