  INFO - FAQ - CC2-Forum - CCPro-Forum |
|
Danke. Gruss Sascha > Hallo Sascha! > > Hier der Prog.-teil zur Ansage und Aufnahme > > mfg Gerd > > > #ans_1 > a=1: gosub playsong :return 'Therme Stoerung > #ans_2 > a=2: gosub playsong :return 'Untertemp > #ans_3 > a=3: gosub playsong :return 'U-Therme > #ans_4 > a=4: gosub playsong :return 'U-Comp. > #ans_5 > a=5: gosub playsong :return 'Stoerzaehler > #ans_6 > a=6: gosub playsong :return 'Giessen > #ans_7 > a=7: gosub playsong :return 'Alarm > #ans_8 > a=8: gosub playsong :return 'Test > #ans_9 > a=9: gosub playsong :return 'Tuere > #ans_10 > a=10: gosub playsong :return 'Stromausfall > > #playsong > Start_Ton=on > gosub playnext > pulse Start_Ton: pause 150 ' Song wird gespielt > deact TonR > deact TonFF: pause 50 > return > > #playnext ' Subroutine um zum richtigen song zu spulen > TonR=0: pause 2: TonR=on ' Reset zum Anfang der songs > if a=1 then return ' Falls der erste song gespiellt werden soll muss nicht gespult werden > TonFF=on: pause 2 > for T_R=2 to a ' Spult zum song > pulse Start_Ton :pause 3 > next T_R > TonFF=0 : pause 2 > return > > #TonRec > TonFF=0 > TonR=0: pause 1: TonR=1 ' Reset zum Anfang der songs > Start_Ton=on > for Schl=100 to 1 step -1 > print " Aufnahme ";Schl : pause 50 > next Schl > for Schl=1 to 10 > print " - - Test Ansage - - ";Schl > pulse Start_Ton :pause 200 ' Song wird gespielt > next Schl > deact TonR : deact TonFF > return > > > Hallo Gerd > > > > Das Prog. würde mich auch interessieren, kannst du das Programm nicht hier ins Forum stellen? > > > > Gruss Sascha > > > > > |
| Antwort schreiben |