Lernpaket Microcontroller von Franzis

[Peter C. (spiroboy)]

Ich habe mir das Lernpaket Microcontroller von Franzis besorgt. Jetzt 
habe ich ein Problem mit dem Beispiel Programm Plotter bzw. Oszilloskop. 
Im Beispiel Plotter lassen sich Signale mit 100ms, 500ms und 1000ms 
anzeigen.
Ich möchte 8ms anzeigen bzw. ploitten. Wenn ich den Timer.Interval im 
VB.NET Programm auf 8 stelle, läuft der Plotter zwar schneller aber ich 
habe an verschiedenen Stellen Ausreißer in der Kurve. Ich möchte das 
Plotterprogramm so umbauen, das in 1 Sekunde 125 Messpunkte erfasst 
werden.
Das sollte mit dem ATmega88  mölglich sein, aber ich krieg es nicht ganz 
hin.

Für eine Lösung wäre ich dankbar.

Hier die Bascom Configuartion für den ADC:

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc


Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , 
Databits = 8 , Clockpol = 0
Open "com1:" For Binary As #1


Dim Startbyte As Byte
Dim Highbyte As Word
Dim Lowbyte As Word
Dim Adc0 As Word
Dim Crc As Byte


Do

   Get #1 , Startbyte

   If Startbyte = 55 Then

      Adc0 = Getadc(1)

      Highbyte = Adc0 And &HFF00 : Highbyte = Highbyte / 256
      Lowbyte = Adc0 And &HFF
      Crc = 170 Xor Highbyte : Crc = Crc Xor Lowbyte

      Put #1 , Highbyte
      Put #1 , Lowbyte
      Put #1 , Crc


   End If

Loop
End