MouseZ() festhalten

Übersicht

BlitzBasic

Allgemein

	rctuner Betreff: MouseZ() festhalten	Mi, Nov 22, 2006 23:28 Antworten mit Zitat
Hallo hab folgendes Problem: Wenn ich das Mausrad über 5 schritte drehe, bleibt mausz=5. Wie es auch sein soll. Die richtige MouseZ() Position erhöht sich aber trotzdem wenn ich weiterdrehe. Dann muss ich wieder soviel zurückdrehen, wie ich hochgedreht habe, damit ich wieder unter 5 komme. Kann man dagegen was machen? Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,0,1 SetBuffer BackBuffer() While Not KeyHit(1) Cls mausz=MouseZ() If mausz>5 Then mausz=5 Text 0,0,mausz Flip Wend
[Y[our Film, Game ]M[akers and more [F]un! www.Master-Entertainment.de.vu [AMD 6000+ X2 @ 6400+][2GB RAM][NVidia 8800GT 512 MB]

rctuner

Betreff: MouseZ() festhalten

Mi, Nov 22, 2006 23:28
Antworten mit Zitat

Hallo
hab folgendes Problem:
Wenn ich das Mausrad über 5 schritte drehe, bleibt mausz=5. Wie es auch sein soll.
Die richtige MouseZ() Position erhöht sich aber trotzdem wenn ich weiterdrehe. Dann muss ich wieder soviel zurückdrehen, wie ich hochgedreht habe, damit ich wieder unter 5 komme.
Kann man dagegen was machen?

Code: [AUSKLAPPEN]

Graphics 640,480,0,1
SetBuffer BackBuffer()
While Not KeyHit(1)
Cls

mausz=MouseZ()
If mausz>5 Then mausz=5

Text 0,0,mausz

Flip
Wend

[Y[our Film, Game ]M[akers and more [F]un!
www.Master-Entertainment.de.vu

[AMD 6000+ X2 @ 6400+][2GB RAM][NVidia 8800GT 512 MB]

	StepTiger	Mi, Nov 22, 2006 23:29 Antworten mit Zitat
mouseZSpeed() ?
Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter. Computer: AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t Gewinner: BP Code Compo #2 Π=3.141592653589793238...<--- und das aus dem kopf Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

StepTiger

Mi, Nov 22, 2006 23:29
Antworten mit Zitat

mouseZSpeed() ?

Noch gestern standen wir am Abgrund, doch heute sind wir schon einen Schritt weiter.
Computer:
AMD Sempron 3000+; ATI Radeon 9800 Pro; 512 MB DDR RAM 400Mhz; Asus E7N8X-E Deluxe; Samsung 200GB HD 5.4ns acces t
Gewinner: BP Code Compo #2
Π=3.141592653589793238...<--- und das aus dem kopf Laughing

Seit der Earthlings-Diskussion überzeugter Fleisch(fr)esser.

	Bob	Fr, Nov 24, 2006 14:19 Antworten mit Zitat
Hi, kann es sein das du im falschen Forum bist und du mit BlitzMax arbeitest? Wenn ja hilft dir vielleicht das. (Hatte nämlich auch schon das Problem) Code: [AUSKLAPPEN] [EINKLAPPEN] Strict Graphics 800,600 Local MyZMouse:tMouseZ = New tMouseZ While Not KeyHit(Key_Escape) DrawText "MouseZ Relativ: " + myZMouse.GetBol(),0,0 DrawText "MouseZ Absolut: " + myZMouse.GetAbs(),0,20 Flip Cls Wend '******************************************************************************** Type tMouseZ Field CZ:Int 'Current Z Value Field OZ:Int 'Old Z Value Field NZ:Int 'New Z Value (-1 or 0 or 1) Method GetBol:Int() CZ = MouseZ() 'CurrentZ If CZ <> OZ Then NZ = CZ - OZ OZ = CZ Else NZ = 0 EndIf Return NZ End Method Method GetAbs:Int() Return MouseZ() End Method End Type EDIT: Sorry vergiss es. Ist ja doch BlitzBasic wie ich jetzt erst am Setbuffer gemerkt habe.

Bob

Fr, Nov 24, 2006 14:19
Antworten mit Zitat

Hi,

kann es sein das du im falschen Forum bist und du mit BlitzMax arbeitest?
Wenn ja hilft dir vielleicht das.

(Hatte nämlich auch schon das Problem)

Code: [AUSKLAPPEN]

Strict
Graphics 800,600
Local MyZMouse:tMouseZ = New tMouseZ

While Not KeyHit(Key_Escape)
DrawText "MouseZ Relativ: " + myZMouse.GetBol(),0,0
DrawText "MouseZ Absolut: " + myZMouse.GetAbs(),0,20
Flip
Cls
Wend

'********************************************************************************
Type tMouseZ
Field CZ:Int 'Current Z Value
Field OZ:Int 'Old Z Value
Field NZ:Int 'New Z Value (-1 or 0 or 1)

Method GetBol:Int()
   CZ = MouseZ() 'CurrentZ
   If CZ <> OZ Then
      NZ = CZ - OZ
      OZ = CZ
   Else
      NZ = 0
   EndIf
   Return NZ
End Method

Method GetAbs:Int()
   Return MouseZ()
End Method
End Type

EDIT:

Sorry vergiss es.
Ist ja doch BlitzBasic wie ich jetzt erst am Setbuffer gemerkt habe.

	FireballFlame	Mo, Dez 04, 2006 1:08 Antworten mit Zitat
Öhm ... gibt's gegen StepTigers Vorschlag was einzuwenden? Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,0,1 SetBuffer BackBuffer() Global mausz=0 While Not KeyHit(1) Cls mausz=mausz+MouseZSpeed() If mausz>5 Then mausz=5 Text 0,0,mausz Flip Wend
PC: Intel Core i7 @ 4x2.93GHz \| 6 GB RAM \| Nvidia GeForce GT 440 \| Desktop 2x1280x1024px \| Windows 7 Professional 64bit Laptop: Intel Core i7 @ 4x2.00GHz \| 8 GB RAM \| Nvidia GeForce GT 540M \| Desktop 1366x768px \| Windows 7 Home Premium 64bit

FireballFlame

Mo, Dez 04, 2006 1:08
Antworten mit Zitat

Öhm ... gibt's gegen StepTigers Vorschlag was einzuwenden?
Code: [AUSKLAPPEN]

Graphics 640,480,0,1
SetBuffer BackBuffer()

Global mausz=0

While Not KeyHit(1)
Cls

mausz=mausz+MouseZSpeed()
If mausz>5 Then mausz=5

Text 0,0,mausz

Flip
Wend