Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C Quellcode formatieren: <code>Quellcode</code> BASIC Quellcode formatieren: <basic>Quellcode</basic> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I > <basic> > ' nach --> > 'Benötigte Libs´s: IntFunc_lib.cc > 'Routinen: BEEP.cbas > 'Autor: Ulli Sommer > 'Datum: 21.12.2007 > 'Funktion: Tonausgabe mit der C-Control Pro > 'Benötigt wird: Piezzo Schallwandler an Portd.5 gegen GND > 'ACHTUNG: Tonhöhe besitzt eine Tolleranz von ~ +/-1% > '--------------------------- > ' Idee von -- > DL1ASL > ' Projektname : RTTY-Baudot-Signal erzeugen > ' Bemerkung : Änderungen von DL1ASL , Klaus > ' Nutzung von BEEP zur Aussendung von RTTY-Signalen > ' : ohne Piezo ! dafür von Portd.5 ein Widerstand > ' : mit ca 50kOhm(Pegel) an LINE-IN des PC > ' Decoder-SW : MixWin: RTTY , 50 baud, shift, 170 , Lowercase > ' Beginn : 12.1.2017 > ' Version : V1 > ' Anmerkung : der Baudot-Code benutzt 5 Bit , > ' Buchstaben und Ziffern/Zeichen benutzen selben Code > ' Unterscheidung erfolgt durch einen Umschalt code > ' > ' -------------------------------------------------------- > 'Shift 170 > #define Tone_mark 145 '784Hz > #define Tone_shift 185 '622Hz > #define delay 20 ' 50 baud > '--------- Start Main--------------------\ > Sub main() > Dim i As Integer > Do While True > AbsDelay(1000) ' ok am 19.01.2017 > For i = 0 To 9 > bit_Buchstaben() > bit_TonR() > bit_TonY() > Next > Zeilenvorschub() > End While > End Sub ' -- Ende Main ---------------- > '==========================================/ > ' die folgende Codierung für einen Buchstaben > ' ist zu aufwendig , also erstmal als Demo > ' gedacht > ' Ausgabe von RY dient zur Abstimmung > ' bei der Funkübertragung > > Sub bit_TonR() '01010 R 4 > BEEP(Tone_shift , delay ) ' Startbit > BEEP(Tone_shift , delay ) > BEEP(Tone_mark , delay ) > BEEP(Tone_shift , delay ) > BEEP(Tone_mark , delay ) > BEEP(Tone_shift , delay ) > BEEP(Tone_mark , delay ) ' Stopbit > End Sub > Sub bit_TonY() '10101 Y 6 > BEEP(Tone_shift , delay ) ' Startbit > BEEP(Tone_mark , delay ) > BEEP(Tone_shift , delay ) > BEEP(Tone_mark , delay ) > BEEP(Tone_shift , delay ) > BEEP(Tone_mark , delay ) > BEEP(Tone_mark , delay ) ' Stopbit > End Sub > Sub bit_Buchstaben() 'Buchstaben 11111 > BEEP(Tone_shift , delay )' Startbit > BEEP(Tone_mark , delay ) > BEEP(Tone_mark , delay ) > BEEP(Tone_mark , delay ) > BEEP(Tone_mark , delay ) > BEEP(Tone_mark , delay ) > BEEP(Tone_mark , delay) 'Stopbit > End Sub > Sub Zeilenvorschub() '00010 > BEEP(Tone_shift , delay ) ' Startbit > BEEP(Tone_shift , delay ) ' 1.Bit > BEEP(Tone_mark , delay ) ' 2.Bit > BEEP(Tone_shift , delay ) ' 3.Bit > BEEP(Tone_shift , delay ) ' 4.Bit > BEEP(Tone_shift , delay ) ' 5.Bit > BEEP(Tone_mark , delay) ' 2 Stopbits > End Sub > 'Ton erzeugen von Ulli Sommer > Sub BEEP(Tone As Word, Periode As Word) > Timer_T1FRQ(Tone,PS_64) > AbsDelay(Periode) > End Sub > </basic>
