INFO - FAQ - CC2-Forum - CCPro-Forum |
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 |