ich habe gerade diesen code ( laut rn wissen ) probiert: wieder nix.
ich bin wohl zu blöde .......
Code:'====================================================== 'System-Einstellungen '====================================================== 'Definition für ATtiny 25 $regfile "attiny25.dat" $crystal = 8000000 '====================================================== 'Konfigurationen '====================================================== Dim X As Word Config Pinb.3 = Output Wait 2 'CONFIG Adc = Single , Prescaler = Auto ( 64 ) LDI r24,0x06 !Out Adcsr , R24 'START ADC SBI ADCSR,ADEN ' ADC-Kanal-Nummer & Ref.1,1V nach Register 24 LDI r24,0x81 ' in den ADC-Multiplexer !Out Admux , R24 ' Aufruf der getadc-funktion !Call L_0x00f6 ' laden der Ergebnisadresse (DIM X AS WORD) LDI XL,0x63 LDI XH,0x00 ' Speichern ergebnis (R24:r25) in "X" ST X+,r24 ST X,r25 If X < 100 Then Goto Akku_fail End '****************************************************** ' Akku Fail '****************************************************** Akku_fail: 'Rote LED blinken lassen in Schleife Led: Portb.3 = 0 Waitms 300 Portb.3 = 1 Waitms 300 Goto Led '****************************************************** L_0x00f6: SBI ADCSR,ADSC ' Starten der 1. Konversion L_0x00f8: SBIC ADCSR,ADSC ' Fertig ? RJMP L_0x00F8 ' nein, Loop1 SBI ADCSR,ADSC ' Starten der 2. Konversion L_0x00fe: SBIC ADCSR,ADSC ' Fertig ? RJMP L_0x00FE ' nein, Loop2 IN r24,ADCL ' Ergebnis auslesen r24:r25 IN r25,ADCH RET ' fertig







Zitieren

Lesezeichen