hallöle
also, das modifizieren des files hat nix gebracht.
auch dieser code funktioniert nicht :
Code:'====================================================== 'System-Einstellungen '====================================================== 'Definition für ATtiny 25 $regfile "attiny25.dat" $crystal = 8000000 '====================================================== 'Konfigurationen '====================================================== Dim X As Word Config Pinb.3 = Output 'CONFIG Adc = Single , Prescaler = Auto ( 64 ) LDI r24,0x06 !Out Adcsr , R24 'START ADC SBI ADCSR,ADEN Wait 2 Do ' 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 'Ergebnis in X STS {X} , r24 STS {X+1} , r25 'LED an oder aus If X < 500 Then Portb.3 = 1 Else Portb.3 = 0 Loop End '****************************************************** ' Subroutine ADC 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
kann das so schwer sein einen ad-wandler zum laufen zu bringen ?
bin schon fast geneigt wieder einen mega8 zu nehmen, doch leider
ist das layout zu klein.
noch irgend eine idee ? soll ich dir einen tiny schicken ?![]()






Zitieren



Lesezeichen