31
Feature Request / spinner- flow indicator
« on: September 01, 2019, 04:39:35 PM »
Has anyone created a flow indicator of any type ? Sorry if it's here ad I missed it.. , I did search but did not find anything..
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.
It seems that only series(0) ToolTip is set. All other series ToolTip property will have to be set as well.Hi Godra,, could you expand on that? not sure what I need to resolve it, looked at mainform.vb but don't see any code for it. Am I supposed to be looking for something starting with something like this?
// Set ToolTips for Data Point Series ....
chart1.Series[0].ToolTip =
I upvoted your post. Hopefully they won't dump it as quick as they did mine.
Attached is the project I used to reproduce the problem. Feel free to use it. It seems to be an intermittent problem. It seems to reproduce most of the times when I double click the .sln file to open. If I open VS first, then use it to open the solution, it doesn't have the problem.
EDIT : It seems that once I get the error, it no longer matters how I open the solution and it will always give the error until I close the design view.
Click the up vote as shown in the attached picture. If it gets enough up votes, maybe Microsoft will re-consider its priority.
This is the report to Microsoft. If anyone has an account there, please up vote so they will give it more priority.Archie I added a comment but I don't know if that helps and I don't know what you mean by "Up Vote" Sorry I am not familiar with MS reporting at all. Are you referring to the Thumbs Up or is there something else to help increase priority?
https://developercommunity.visualstudio.com/content/problem/540557/vs2019-winform-designer-code-error-on-opening-visu.html
If you already have a timer setup for interval, then double click that timer, it will bring you the tick event and enter something like below:Code: [Select]Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
' Time Interval Write DST occur write to PLC
PLC.Write("N16:0", DateTime.Now.Hour)
PLC.Write("N16:1", DateTime.Now.Minute)
PLC.Write("N16:2", DateTime.Now.Second)
PLC.Write("B3:0/0, 1) 'TimeChange Enable bit
End Sub
btw, do you not want to turn the PLC code off afterwards?
Private Sub PLC_TIME_Tick(sender As Object, e As EventArgs) Handles PLC_TIME.Tick ' Time Interval Write time to PLC
PLC.Write("N14:50", Date.Now.Hour)
PLC.Write("N14:51", Date.Now.Minute)
PLC.Write("N14:52", Date.Now.Second)
PLC.Write("B3:10/9, 1") 'Write Time Enable bit
End Sub
When I get it to write, I will reset the enable bit in the plc after the write to the RTCIf you already have a timer setup for interval, then double click that timer, it will bring you the tick event and enter something like below:
btw, do you not want to turn the PLC code off afterwards?
Not sure if this is the reason for your problem, but I think you have to write the data first, then enable the time change bit, you can use a one shot to avoid having to turn it of, as it can be too fast for the PLC, and use a timer in the PLC to turn that signal off after a while.My problem is the VB code part, I would say you are correct about that, I got the code from a referal by James from another post by bachphi you can see in this thread. I don't know VB and I don't have time to really dig into it to learn it well enough to stand on my own two feet so to speak. I don't mind plunking around and trying to figure out what I need for what I am doing but unfortunately I really don't have time to study it. So I sometimes come here and beg for help on the VB side of it from anyone that can at least help me help myself. I will keep playing with the code and try to get the HMI side to build without errors.
https://www.advancedhmi.com/forum/index.php?topic=2239.msg12934#msg12934
This may work:Code: [Select]Dim localZone As TimeZone = TimeZone.CurrentTimeZone
'
AddHandler SystemEvents.TimeChanged, AddressOf SystemEvents_TimeChanged
Private Sub SystemEvents_TimeChanged(ByVal sender As Object, ByVal e As EventArgs)
'Occurs when user manually changes the time or due to daylight saving time.
Dim daylight As DaylightTime = localZone.GetDaylightChanges(DateTime.Now.Year)
If localZone.IsDaylightSavingTime(DateTime.Now) Then
'If daylight.Start = DateTime.Now Or daylight.End = DateTime.Now Then
'DST occur write to PLC
PLC.Write("B3:0/14", 1) 'TimeChange Enable bit
PLC.Write("N9:3", DateTime.Now.Hour)
PLC.Write("N9:4", DateTime.Now.Minute)
PLC.Write("N9:5", DateTime.Now.Second)
PLC.Write("B3:0/14", 0)
'End If
End If
End Sub