Hallo erst mal danke aber wenn man das Programm nicht selber geschrieben hat ist es als neuling zimlich schwer da durch zusteigen also habe ich es doch lieber selbst versucht unter zuhilfe nahme von TomEdl seinen prog die auflösung ist zwar recht grob aber für den zweck ausreichent und leicht zu schreiben ich muss nur noch ne wert änderung über taster einfügen dann habe ich es

Code:
$regfile = "m8515.dat"
$framesize = 8
$swstack = 8
$hwstack = 8
$crystal = 1000000

Config Portc.0 = Output
Config Portc.1 = Output

Config Pina.7 = Input
Porta.7 = 1
Config Pina.5 = Input
Porta.5 = 1

Config Timer0 = Timer , Prescale = 8                        'Konfiguriere Timer1
Enable Timer0                                               'schalte den Timer1 ein
On Timer0 Isr_von_timer0                                    'verzweige bei Timer1 überlauf zu   Isr_von_Timer1
Enable Interrupts
Timer0 = 131                                                'Timer1 soll schon von 34285 wegzählen

Dim X As Byte
Dim Y As Bit


Portc.1 = 0


Do
If 131 <= Timer0 Then Portc.0 = 0 Else Portc.0 = 1
Loop
'30

Isr_von_timer0:                                             'ISR von Timer1
Timer0 = 131
Return
131 = 100% 255 =0% sehts euch bitte mal an und sagt mir ob es so i.o. ist