Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: ISD 1416 Sprachspeicher-Chip Kategorie: Hardware (von Gerd - 12.03.2004 19:12)
 Als Antwort auf Re: ISD 1416 Sprachspeicher-Chip von Sasmen - 12.03.2004 16:50
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

Bisherige Antworten:

Re: ISD 1416 Sprachspeicher-Chip (von Sasmen - 12.03.2004 21:04)