Timer example thanks you for it. I am very interested. Regards Falko
--- In nsbasic-desk...@yahoogroups.com, "justinanning" <jus...@...> wrote: > > Have uploaded 2 files under the directory "timer samples". These will allow > you to test the timing accuracy if you are interested. 1000ms intervals seem > to work well but other intervals have a delay and poorer accuracies. > > Sucessfully scaled the VScrol bar to return unit intervals... > > MyTimer.Interval =Textbox1.Text > VScrollBar1.Value = MyTimer.Interval*12 > textBox1.text = Fix(VScrollBar1.Value/12) > > J > > --- In nsbasic-desk...@yahoogroups.com, "falko_pure" <falko_pure@> wrote: > > > > I've upload my Source Files and OCX from my Hardwaremodul for ADUSB with > > the UPDown-Controll. See my last two files of falko_pure. > > > > Sorry my little english :( > > > > > > --- In nsbasic-desk...@yahoogroups.com, "justinanning" <justin@> wrote: > > > > > > Improved Timer Message is #3100 - I cant find the message when I do a > > > search. Is this just me or are the messages not being indexed properly by > > > the search engine? > > > > > > > > > --- In nsbasic-desk...@yahoogroups.com, "justinanning" <justin@> wrote: > > > > > > > > Hi GruB, > > > > > > > > Its may not be an answer to your question of the up/down control, > > > > however see my recent findings on using the timer as it may be > > > > applicable to you. (Im also into datalogging). > > > > > > > > See message on "looking for an improved timer in NSBasic" > > > > > > > > I believe the timer you are using only has a resolution of ~10ms and an > > > > accuracy of +/- 10ms on the desktop but has 1ms resolution on CE with > > > > accuracy +/- 1ms on my CE device. This agrees with info I have found on > > > > the web. I found the accuracy only gets worse on the desktop during the > > > > instant you shrink a window (on XP anyway)! Loading up the processor by > > > > coppying files and opening programs had no effect! > > > > > > > > If you need to log the data accurately relative to time then use > > > > "timegettime" to give you a millisecond resolution and timestamp your > > > > data. > > > > > > > > Does the up/down control behave better on the CE device? > > > > > > > > Justin > > > > > > > > --- In nsbasic-desk...@yahoogroups.com, "George Henne" <gh@> wrote: > > > > > > > > > > Here's a translation: > > > > > > > > > > I'm sort of a beginner in NS Basic. I know Purebasic very well. I have > > > > > been looking for an equivalent to PureBasic's SpinGadget(), a textbox > > > > > with a scrollbar to set its value. Unfortunately, it doesn't do the > > > > > whole thing, as it can only go through the values one at a time in the > > > > > 12 intervals between 0 to 10000 ms that I need. I looked at the API > > > > > functions and found the UPDOWN control. (Up arrow - higher number, > > > > > down > > > > > arrow for lower values). > > > > > > > > > > <http://www.willemer.de/informatik/windows/winupdwn.htm> > > > > > > > > > > Here is a video of my program, operating a Voltcraft AD-USB 4 > > > > > measuring > > > > > device. The results shown are the actual values from the hardware and > > > > > I > > > > > can control the time in milliseconds at the bottom right, specifying > > > > > how > > > > > often the measure device should be queried. > > > > > > > > > > I have three different video formats: > > > > > > > > > > www.falko-pure.de\Video\ADUSB.MPG (20,6MB) Mediaplayer > > > > > www.falko-pure.de\Video\ADUSB.FLV (5,14MB) FireFox with Adobe > > > > > Flash, > > > > > or VLC. > > > > > www.falko-pure.de\Video\ADUSB.SWF (4,99MB) FireFox with Adobe > > > > > Flash, or VLC. > > > > > > > > > > You can get VLC Player for FLV and SWF here: > > > > > http://www.videolan.org/vlc/ > > > > > > > > > > Here is what part of the source looks like. When I set the value > > > > > initially to 500, it gets modified by the scrollbar. > > > > > > > > > > ... > > > > > '-------- > > > > > AddObject "TextBox", "Text1", 208, 264, 44, 20, ADUSB > > > > > Text1.BackColor = 16777215 > > > > > Text1.BorderStyle = 1 > > > > > Text1.FontSize = 8.25 > > > > > Text1.MaxLength = 4 > > > > > Text1.Text = "500" > > > > > '-------- > > > > > AddObject "VScrollBar", "VScrollBar1", 252, 264, 16, 20, ADUSB > > > > > VScrollBar1.Max = 10000 > > > > > VScrollBar1.Value = -1 ' This is set by the IDE > > > > > '-------- > > > > > .... > > > > > > > > > > I cahnge the value of 500 from the following Sub: > > > > > ... > > > > > Sub StartButton_Click > > > > > If Adr=>0 Then > > > > > MyTimer.Interval =CInt(Text1.Text) > > > > > VScrollBar1.Value=MyTimer.Interval > > > > > MyTimer.Start() > > > > > Else > > > > > MsgBox("Please check the port of your AD-USB-Device") > > > > > End If > > > > > End Sub > > > > > .... > > > > > > > > > > Gruß Falko > > > > > > > > > > > > > > > --~--~---------~--~----~------------~-------~--~----~ You received this message because you are subscribed to the Google Groups "nsb-ce" group. To post to this group, send email to nsb-ce@googlegroups.com To unsubscribe from this group, send email to nsb-ce+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/nsb-ce?hl=en -~----------~----~----~----~------~----~------~--~---