need help .. tut was es will !!
Hi !!
Ich bin gerade dabei mein erstes projekt mit einem avr controler zu verwirklichen, und hab zu dem zweck in bascom mein programm geschrieben ...
Es handelt sich um eine fersteuerung mittels modifiziertem pc joystick, und um quasi eine kalibrierung zu verwirklichen hab ich mal folgendes kleines programm geschrieben:
$regfile = "m8def.dat"
$crystal = 11059200
$baud = 9600
Dim Adcx As Integer
Dim Adcy As Integer
Dim Wertx As Integer
Dim Werty As Integer
Config Adc = Single , Prescaler = Auto
Start Adc
Do
Waitms 100
Printbin 27 ; 91 ; 50 ; 74
Adcx = Getadc(0)
Adcy = Getadc(1)
Adcx = Adcx / 4
Adcx = Adcx - 127
Adcy = Adcy / 4
Adcy = Adcy - 127
Select Case Adcx
Case Is > 15 : Wertx = Adcx - 15
Case Is < -5 : Wertx = Adcx + 5
Case Else : Wertx = 0
End Select
Select Case Adcy
Case Is > 17 : Werty = Adcy - 17
Case Is < -5 : Werty = Adcy + 5
Case Else : Werty = 0
End Select
If Wertx > 100 Then Wertx = 100
If Wertx < -100 Then Wertx = -100
If Werty > 100 Then Werty = 100
If Werty < -100 Then Werty = -100
Print "Y-Achse" ; Werty
Print "X-Achse" ; Wertx
Loop
End
im simulator funktioniert es einwandfrei, und ich weiß auch sonst keinen grund warum es in der hardware nicht klappen sollte, aber (sont würd ich ja nicht um hilfe bitten *ggg*) sobald ich die If bedinnungen bezüglich -100 am ende des programms einbaue spinnt die software ohne ende ... und zwar funktioniert dann die ausgabe am terminal nicht mehr richtig .. je nach dem ob man die print befehle wonaders hinsetzt, oder die if bedinnungen kommt unterschiedlicher schwachsinn daher ! .. ohne die besagten if bedinnungen klappt es wunderbar !
habe bis jetzt immer mit CC1m oder CC2 gearbeitet .. mit großem erfolg .. hat immer prima geklappt !!
vielen dank im vorraus für die hilfe .. also ist das nicht mein erster kontakt mit µc's und elektronik !
mfg Julian
ps. Proggen tu ich mit ponny prog, und ich hab auch schon die neueste bascom demo aus dem web
