Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
Mein kleiner Aprilscherz
Dreht die Maus um wenn man mit der Maus (physikalisch) nach links fährt, fahrt die Maus (virtuell) nach rechts und umgekehrt. Beendet wird mit Escape, Nur Windows.
; Title: MouseInverter.pb
; Demo: No
; GNU GPLv3orHigher
; PB 4.30
; Windows XP
; Description: Inverts mouse movement and swaps mousebuttons
; WinAPIs(): GetAsyncKeyState
; SwapMouseButton
; SetCursorPos
;Author(s): Tompazi,
GetAsyncKeyState_(0) ; Empty Buffer
;Examine Desktopsize
ExamineDesktops()
Width = DesktopWidth(0)
Height = DesktopHeight(0)
;Examine Mouse Position
X = DesktopMouseX()
Y = DesktopMouseY()
SwapMouseButton_(1) ;Swap Mousebuttons
Repeat
Delay(1) ;relieve CPU
;Check mouse movement
Repeat
Delay(1) ;relieve CPU
;Examine New Mouse Position
X_New = DesktopMouseX()
Y_New = DesktopMouseY()
;Calculate difference
X_DIFF = X - X_New
Y_DIFF = Y - Y_New
Until X_DIFF <> 0 Or Y_DIFF <> 0 ;Check if mouse was moved
SetCursorPos_(X + X_DIFF,Y+Y_DIFF) ;Set the mouse at the new position
;Examine New Mouse Position
X = DesktopMouseX()
Y = DesktopMouseY()
;Keep the mouse away from the borders.
If X =< 0
X = 1
ElseIf X => Width - 1
X = Width -2
EndIf
If Y =< 0
Y = 1
ElseIf Y => Height - 1
Y = Height -2
EndIf
Until GetAsyncKeyState_(#VK_ESCAPE) ;has Escape been pushed?
SwapMouseButton_(0) ;Reswap Mousebuttons
End ;END
;-----------------------------------
; ShortVersion (30 Lines):
;
; GetAsyncKeyState_(0)
; ExamineDesktops()
; Width = DesktopWidth(0)
; Height = DesktopHeight(0)
; X = DesktopMouseX()
; Y = DesktopMouseY()
; SwapMouseButton_(1)
; Repeat
; Delay(1)
; Repeat
; Delay(1)
; X_New = DesktopMouseX()
; Y_New = DesktopMouseY()
; X_DIFF = X - X_New
; Y_DIFF = Y - Y_New
; Until X_DIFF <> 0 Or Y_DIFF <> 0
; SetCursorPos_(X + X_DIFF,Y+Y_DIFF)
; X = DesktopMouseX()
; Y = DesktopMouseY()
; If X =< 0
; X = 1
; ElseIf X => Width - 1
; X = Width -2
; EndIf
; If Y =< 0
; Y = 1
; ElseIf Y => Height - 1
; Y = Height -2
; EndIf
; Until GetAsyncKeyState_(#VK_ESCAPE)
; SwapMouseButton_(0)
Sehr nützlich, nur mit den vertauschten Mausbuttons hab ich Probleme
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Angenommen es gäbe einen Algorithmus mit imaginärer Laufzeit O(i * n), dann gilt O((i * n)^2) = O(-1 * n^2) d.h. wenn man diesen Algorithmus verschachtelt ist er fertig, bevor er angefangen hat.
DarkDragon hat geschrieben:Ruckelt aber wie Oma unterm Arm.
Also bei mir gehts flüssig falls du das meinst..
MfG Tompazi
Bei mir zittert die Maus wenn ich sie bewege.
Angenommen es gäbe einen Algorithmus mit imaginärer Laufzeit O(i * n), dann gilt O((i * n)^2) = O(-1 * n^2) d.h. wenn man diesen Algorithmus verschachtelt ist er fertig, bevor er angefangen hat.
interessant ist vor allem, wie schnell sich das gehirn anpasst:
nach ca 1min mit diesem programm hab ich mich shcon halb daran gewhönt - nur die vertauschten mausbuttons - daran muss ich mich noch assimilieren
Sehr nützlich, nur mit den vertauschten Mausbuttons hab ich Probleme 
