Was brauche ich um Längen zu messen (Hardware/SW)
Verfasst: 21.04.2013 17:56
Hat da schon jemand Erfahrung damit?
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
Messweg: ca. 30 cm (oder etwas weniger)NicTheQuick hat geschrieben:Welche Längen? Meter? Sekunden?
Danke.ts-soft hat geschrieben:Gliedermaßstab
Es sollen Durchmesser von Holzstämme gemessen werden. Also beides erlaubt (Das günstigere bekommt den Zuschlag :-; )NicTheQuick hat geschrieben:Mit oder ohne Berührung?
Code: Alles auswählen
; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=2289&postdays=0&postorder=asc&start=10
; Author: Danilo (updated for PB4.00 by blbltheworm)
; Date: 14. September 2003
; OS: Windows
; Demo: Yes
#WM_MOUSEWHEEL = $20A
Procedure.w MouseWheelDelta()
x.w = ((EventwParam()>>16)&$FFFF)
ProcedureReturn -(x / 120)
EndProcedure
OpenWindow(0,0,0,400,150,"Mouse Wheel z00m",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
; CreateGadgetList(WindowID(0))
StringGadget(0,0,0,450,400,"0")
#zoomspeed = 1
Wheel = 0
SetGadgetFont(0,LoadFont(0,"Arial",100))
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow: End
Case #WM_MOUSEWHEEL
Wheel + MouseWheelDelta() * #zoomspeed
;If Wheel < 8:Wheel = 8:EndIf
SetGadgetFont(0,LoadFont(0,"Arial",100))
SetGadgetText(0,Str(Wheel))
EndSelect
ForEver