

Funktionsweise des Beschleunigungssensors
Zur Messung der Beschleunigung und Schwerkraft gibt es unterschiedliche Ansätze. Im Inneren des von mir verwendeten Chips ist ein Kondensator mit einer zusätzlichen Platte in der Mitte, welche bewegli...
Zur Messung der Beschleunigung und Schwerkraft gibt es unterschiedliche Ansätze. Im Inneren des von mir verwendeten Chips ist ein Kondensator mit einer zusätzlichen Platte in der Mitte, welche bewegli...


Schaltplan
Zur Montage des Sensors habe ich zunächst kurze Leitungen an den jeweiligen Kontakten angelötet. Über die kurzen Drähte konnte ich später den Chip sowohl in die Maus integrieren als auch mit dem Adapt...
Zur Montage des Sensors habe ich zunächst kurze Leitungen an den jeweiligen Kontakten angelötet. Über die kurzen Drähte konnte ich später den Chip sowohl in die Maus integrieren als auch mit dem Adapt...
Schritt 3 / 4 - Treiber
Ich habe ein Visual Basic-Programm programmiert und auf dem PC als Treiber für die Maus installiert, weil ich ehrlich gesagt zu faul war, um den Mod zu einem Standard-COM-Port kompatibel zu machen. Das wäre aber sicherlich möglich, denke ich.
[SOURCE CODE]
program Mouse Dim aX as integer Dim aY as integer Dim sX as integer Dim sY as integer Dim But as byte main: TRISB = 0 PORTB = 0 TRISC = 255 Usart_Init(9600) ANSEL = %00000111 lop: aX = Adc_Read(0) aY = Adc_Read(1) sX = aX >> 2 sY = aY >> 2 But = %11111000 If TestBit(PORTC, 0) = 1 then But = But OR %00000001 end if If TestBit(PORTC, 1) = 1 then But = But OR %00000010 end if If TestBit(PORTC, 2) = 1 then But = But OR %00000100 end if Usart_Write(But) Usart_Write(sX) Usart_Write(sY) delay_ms(10) goto lop end.
[/SOURCE CODE]
weiter mit: Sensor einbauen ⇒
[SOURCE CODE]
program Mouse Dim aX as integer Dim aY as integer Dim sX as integer Dim sY as integer Dim But as byte main: TRISB = 0 PORTB = 0 TRISC = 255 Usart_Init(9600) ANSEL = %00000111 lop: aX = Adc_Read(0) aY = Adc_Read(1) sX = aX >> 2 sY = aY >> 2 But = %11111000 If TestBit(PORTC, 0) = 1 then But = But OR %00000001 end if If TestBit(PORTC, 1) = 1 then But = But OR %00000010 end if If TestBit(PORTC, 2) = 1 then But = But OR %00000100 end if Usart_Write(But) Usart_Write(sX) Usart_Write(sY) delay_ms(10) goto lop end.
[/SOURCE CODE]
weiter mit: Sensor einbauen ⇒
Schlagwörter:
PC-Maus, Modding, Beschleunigungssensor, Computersteuerung, 3D-Spiele, Mod, Gaming
Schwierigkeit:
mittel
Zeitbedarf:
1 Stunde
Bewertung:
Aufrufe:
7352
bewerten:
Empfehlen:
Link zur Anleitung:
Anzeige
Einkaufsliste
Werkzeug:
- Lötkolben
Material:
- MEMS Beschleunigungssensor
- PIC Mikrocontroller
- PC-Maus
- weitere Elektronikbauteile (siehe Schaltplan)
Kommentare