Endlich geschafft!

Ich glaubs nicht...  ;-)
Glückwunsch

hi,
interessiere mich an was du gemacht hast.
kannst du mal erklären was dein aufgabe war?
danke

SPAAAAAAAAAAM!!!!

Meinen herzlichen...
Und als nächstes machst du das mit dem InputCapture?

>Ich bin auf dem Gipfel des Großglockners (höchster Berg in Österreich). >Bin mit 
dem Hubschrauber raufgeflogen

Das ist aber unsportlich...

Hättest auch ein fertigen Drehzahlmesser kaufen können.
Weniger Probleme, mehr Freizeit...

>Eine Frequenz mittels F/U Wandler -> A/D Wandler -> µC
>zu messen ist auch unsportlich :-)

Mit 13 und 'ner Menge Ungeduld hättest du das vielleicht auch so 
gemacht...
Jetzt hatte Alex wenigstens ein Erfolgserlebnis, und verwendet den ADC 
bis er ihm zu den Ohren herauskommt. Dann probiert er es vielleicht noch 
mal mit dem Timer...


PS: hab wohl mal wieder den Smilie vergessen...

Oder gleich ein Auto mit Drehzahlmesser.

Was will ein 13 jähriger mit einem Drehzahlmesser, oder Auto????

>Was will ein 13 jähriger mit einem Drehzahlmesser, oder Auto????

Rumkugeln...*scnr*

Gibt ja meistens noch Leute, die etwas älter sind (Brüder, Eltern...).

> Jetzt hatte Alex wenigstens ein Erfolgserlebnis, und verwendet den ADC
bis er ihm zu den Ohren herauskommt. Dann probiert er es vielleicht noch
mal mit dem Timer...

Genau :))))
aber eine frage habe ich trotzdem noch! ;)
er zeigt ja bei mir sowas " UpM 01125,125485 " als Drehzahl an.
ich weiss schon dass ich das was mit dem Befehl "format" machen soll, 
aber wie, weiss ich nicht!
Kann mir dabei noch jemand helfen?
Ich will da sowas wie xxx0 stehen haben, als die Letzte zahl immer Null. 
z.B 01120
und am besten die erste 0 wegmachen.


 $regfile = "m16def.dat"
 $crystal = 1000000

 Config Lcd = 20 * 4
 Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , 
Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4

Config Adc = Single , Prescaler = Auto
Start Adc
Dim W As Word , Channel As Byte
Channel = 0
Cls
Locate 1 , 3
Lcd "Alex"
Locate 2 , 6
Lcd "Test"
Waitms 10000

Cls
Do
  W = Getadc(channel)
  Dim U As Single
U = 4.36 * W
U = U + 18.895
Locate 1 , 1
  Lcd "UpM " ; Channel ; U
  Waitms 2000
Loop


oder zumindestens einen Link, was hilfreich sein könnte! BItte!

Habe was gefunden, aber auf englisch.. verstehe nicht! :(

>Habe was gefunden, aber auf englisch..
Wo? (link)

>verstehe nicht! :(
kommt noch

> Wo? (link)

http://avrhelp.mcselec.com/bascom-avr.html?FORMAT

> Eine Frage hätte ich da auch.

ich habe es so gebaut:
frequenz in spannung umgewandelt.
beim kalten motor die Spannung am ausgang bei ca. 1000UpM - 0.7V 
gemessen!
Fg angeschlossen. frequenz hochgedreht, dass ich auch genau 0,7V habe. 
Dann ADC wert abgelesen.
dann frequenz 5x höher eingestellt. (Soll ja 5000 UpM dann entsprechen).
ADC augelesen.
Gleichung aufgestellt, ADC in UpM umgewandelt.
ans Auto angeschlossen. gas getreten. PASST!
aber Anzeige halt "UpM 03521,45684544 "
Und es möchte mir keiner sagen wie ich die auf 3520 bringe :(

>verstehe nicht! :(

was denn?

Hat Bascom nicht eigentlich einen Simulator?
Da könnte man die Beispiele aus dem Datenblatt ausprobieren.

Vorschlag:

dim S as string * 10

S = STR(U)
S = Format(S,"00000.00");
LCD "UPM: ";Channel;" ";S

Deine führende 0 ist dein ADC-Kanal, den du beim LCD noch mit 
ausgibst...

STR unterstützt allerdings nur integer.
Wenn du keine Nachkommastellen haben willst, benutzt du vor dem STR noch 
i=INT(U+.5).
Das +.5 ist eine einfache Aufrundung (siehe auch ROUND) ...
Irgendwie komme ich mit den Bascom-Datentypen (noch) nicht zurecht...