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 [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/nsb-ce?hl=en -~----------~----~----~----~------~----~------~--~---
