Hallo ihr netten Forummitglieder!
Tut mir leid für die Noob Frage aber ich komme im Moment nicht weiter.
Ich und ein paar Freunde sind dabei ein 3D Egoshooter Game zu endwickeln.
Es soll ähnlich wie Wolfstein 3d werden!
Also kommen wir zu meiner Frage:
Info:
Programmiersprache = Visual Basic 6 & OPENGL
Problem = Cursor
Zur Zeit siht der Code zum Maus einfangen und position ermitteln & auswerten so aus:
aber durch diesen Code siht dan der point in der mitte so schrumpelig und schlampig aus
kann mir jemand bitte eine andere möglichkeit zeigen?
ich währe euch sehr dankbar
übrigens ned wundern ich habe bisher nur nach links und rechts drehen eingebaut und vor/zurück laufen den restlichen überflüssigen code habe ich weggelassen!
Tut mir leid für die Noob Frage aber ich komme im Moment nicht weiter.
Ich und ein paar Freunde sind dabei ein 3D Egoshooter Game zu endwickeln.
Es soll ähnlich wie Wolfstein 3d werden!
Also kommen wir zu meiner Frage:
Info:
Programmiersprache = Visual Basic 6 & OPENGL
Problem = Cursor
Zur Zeit siht der Code zum Maus einfangen und position ermitteln & auswerten so aus:
Visual Basic-Quellcode
- Option Explicit
- Private Declare Function SetCursorPos Lib "user32" ( _
- ByVal x As Long, _
- ByVal y As Long) As Long
- Private Declare Function GetCursorPos Lib "user32" ( _
- lpPoint As POINTAPI) As Long
- Private Type POINTAPI
- x As Long
- y As Long
- End Type
- Private MausPos As POINTAPI
- Private Sub Form_Load()
- SetCursorPos 750, 500
- GetCursorPos MausPos
- MsgBox "Zum Beenden drücken sie ESC!", vbOKOnly, "Info"
- ShowCursor (0)
- End Sub
- Private Sub Form_Resize()
- ReSizeGLScene ScaleWidth, ScaleHeight
- End Sub
- Private Sub Form_Terminate()
- ShowCursor (1)
- End
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- ShowCursor (1)
- End
- End Sub
- Private Sub Timer1_Timer()
- 'Interval = 1000
- 'Enabled = true
- Private Sub TLenk_Timer()
- 'Interval = 1
- 'Enabled = true
- Dim Temp As POINTAPI
- GetCursorPos Temp
- If Temp.x < MausPos.x Then
- Kamera.DY = Kamera.DY + 1.5
- MausPos.x = Temp.x
- MausPos.y = Temp.y
- End If
- If Temp.x > MausPos.x Then
- Kamera.DY = Kamera.DY - 1.5
- MausPos.x = Temp.x
- MausPos.y = Temp.y
- End If
- End Sub
- SetCursorPos 750, 500
- End Sub
aber durch diesen Code siht dan der point in der mitte so schrumpelig und schlampig aus
kann mir jemand bitte eine andere möglichkeit zeigen?
ich währe euch sehr dankbar
übrigens ned wundern ich habe bisher nur nach links und rechts drehen eingebaut und vor/zurück laufen den restlichen überflüssigen code habe ich weggelassen!