--- In [email protected], "George Henne" <g...@...> 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 > Danke George (Thank You for translate it)
Ich habe hierzu ein Beispiel ins Verzeichnis File zu dieser Gruppe hinzugefügt: "UPDownControll.nsd". Damit habe ich schon mal ein SpinGadget bzw. UPDownControll. Soweit ich weiß, nennt bezeichnet man dieses vielleicht eher als SpinControll. Die VSrollbar wird automatisch an der Textbox angefügt. Man braucht diese Controlls nicht speziell ausrichten. Auf-, und Abzählen in positiver sowie in negativer Richtung funktioniert soweit ganz gut. Was noch fehlt, eine manuelle Änderung in der Textbox, die dann beim verändern mit dem VSrollbar übernommen wird. Wie gesagt, ich muss mich in nsbasic noch etwas einarbeiten. Ich hoffe ihr könnt damit was anfangen. PS.: In der nsbasic/Desktop Gruppe wurde auf das Thema AD-USB schon geantwortet. Es ging nicht darum um einen Timer zu erstellen, sondern dieses UPDWON-Control um einen Wert in Millisekunden für den Timer, den ich mittels Api nutze bereitzustellen. Wenn von euch jemand auch so ein Voltcraft AD-USB 4 oder 3 Messmodul hat, kann ich den kompletten Source inklusive der dazugehörigen ADUSB2XX.OCX ins Filearchiv hochladen. Das Messen klappt soweit prima. Falls jemand interessiert ist, kann mir gerne schreiben. Entschuldigt bitte, das ich hier in deutsch (german language) schreibe. Für mich ist das einfacher zu schreiben. Hi George, please can you translate this in english? Thank you. 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 -~----------~----~----~----~------~----~------~--~---
