Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren INFO - FAQ - CC2-Forum - CCPro-Forum

Re: Frequenz Messung mit Freq, Freq1 bzw. Freq2 bis ca. 49 kHz Kategorie: C-Control I V1.1 (von Joe - 11.02.2009 18:55)

Als Antwort auf Frequenz Messung mit Freq, Freq1 bzw. Freq2 bis ca. 49 kHz von Joe - 11.02.2009 16:08

Joe nutzt:  CC1-M-Unit V1.1, CC1-Station V2.0, Micro, Open-Micro

Hallo, hier dazu noch ein Ausgabe Beispiel Programm; bei 46 kHz beträgt der Messfehler bezogen auf meinen Frequenzzaehler ca. 1%; d.h. ca. 500 Hz geringere Anzeige. Welches Gerät genauer weiß ich leider nicht. Viel Spaß damit   Joe ##### '**************DEMO ZUR C-CONTROL M_UNit Frequenz Messung '------ Programm: Freque01.bas -------------------------------------------------------- ' BEISPIELPROGRAMM: ' Dieses Beispiel liest die Systemvartiable FREQ oder Freq1, Freq2 und druckt die Werte in KHz aus ' bei Werten bis zu 32767 mit 3 Stellen hinter dem Komma und darueber mit 2 Stellen hinter dem Komma ' prinzipiell laesst sich das Prinzip auch auf die Micro und OMICRO, OMIDI Bausteine anwenden '  ----------------------------------------------------------------------------------- define Frequenz1  word[1] define Frequenz2  word[2] define Frequenz   word[3] define Frequenz_kHz word[4] define kHz_Nachkommawert word[5] '-------------------------------------------------- #START 'Frequenz1=Freq1 Frequenz2=Freq2 'Frequenz=Freq Print "Freq2=";Frequenz2 If Frequenz2>=0 Then Goto Weiter Print "Freq2=";Frequenz2 Frequenz2=32767+Frequenz2 Print "32767+Frequenz2=";Frequenz2 Frequenz2=abs (Frequenz2)/10 Print "Frequenz2/10=";Frequenz2 Frequenz_kHz=32767/10 Print "Frequenz_kHz=";Frequenz_kHz Frequenz_kHz=Frequenz_kHz+Frequenz2 Print "Frequenz_kHz=";Frequenz_kHz kHz_Nachkommawert=Frequenz_kHz Frequenz_kHz=(Frequenz_kHz)/100 '**Kilohertz Berechnung Print "Frequenz_kHz=";Frequenz_kHz kHz_Nachkommawert=kHz_Nachkommawert-Frequenz_kHz*100 Print "Nachkomma=";kHz_Nachkommawert If kHz_Nachkommawert>=10 Then Ausgabe Print "Freq2=";Frequenz2,"Freq_kHz=";Frequenz_kHz;",";0;kHz_Nachkommawert Pause 200 Goto Start #Weiter Frequenz_kHz=Frequenz2 Print "Frequenz_kHz=";Frequenz_kHz kHz_Nachkommawert=Frequenz_kHz Frequenz_kHz=(Frequenz_kHz)/1000 '**Kilohertz Berechnung Print "Frequenz_kHz=";Frequenz_kHz kHz_Nachkommawert=kHz_Nachkommawert-Frequenz_kHz*1000 If kHz_Nachkommawert>=10 Then  Ausg_100 Print "Freq2=";Frequenz2,"Freq_kHz=";Frequenz_kHz;",";0;0;kHz_Nachkommawert Pause 200 Goto Start #Ausg_100 '**Ausgabe fuer Nachkomma Werte < 100 If kHz_Nachkommawert>=100 Then Ausgabe Print "Freq2=";Frequenz2,"Freq_kHz=";Frequenz_kHz;",";0;kHz_Nachkommawert Pause 200 Goto Start #Ausgabe Print "Freq2=";Frequenz2,"Freq_kHz=";Frequenz_kHz;",";kHz_Nachkommawert Print Pause 200 goto START

Antwort schreiben

Bisherige Antworten: