WDR Computer Club Digital 1996 October

home *** CD-ROM | disk | FTP | other *** search

/ WDR Computer Club Digital 1996 October / CLUB10_96.BIN / fernuni / medlite3.app / tton.sbk (.txt) < prev next >

Wrap

Asymetrix ToolBook File | 1996-06-04 | 78KB | 1,416 lines

tonanfang tonanfang tonanfi tonende tonendge tonendei lautblau lautge lautinv stopbl stopge stopinv tonsync tonsyng tonsyninv tonweitbl tonweitge tonweiti t_anfabs t_anfags t_anfais """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """ """"""""""0 """""#"""""""""""3""""""""""# """"""""""1 """""""# """"" """""""" """"""""" """"""""""" """""""""""""""""""""""""""""" """"""""""A """""#"""""""""""3""""""""""#3""""""""""33#2"""""""#33"3""""" 3333##2"""" 3333#22"" 3333"22"" 3333"22"" 3333"22"" 3333"22"" 33#22"" """!33##2"" 3"3""""""""!3#2""""""""" """""""""""!"""""""""""""""""" """""""""" """""""""" " 332 33"" """""""""" """""""""" """""""""" "!332 33"" "!332 33"" "!332 33"" "!332 33"" "!332 33"" "!332 33"" "!332 33"" "!332 33"" "!332 33"" "!332 33"" "!332 33"" "!332 33"" "!332 33"" "!332 33"" "!332 33"" """""""""" 333330 33330 """" """" """" """" """" """" """" """" """3330 """ """" """""""" """"#333330 """"" 33330 DDD3BC3330 DDD3BC3330 DDD3BC3330 DDD4BC3330 DD4$C3330 D3D33330 331D4C33330 333DDD@ 33313333 33333333 33334DDDDD@ 333330 1DDDD@ DDDD@ DDDD@ DDDD@ DDDD@ DDDD@ DDDD@ """""" """""" 2""""" """"" 2"""" """" 2""" 2""" """" 2"""" """"" 2""""" """""" """""" """""" """""" 2""""" 3""""" 32"""" 33"""" 332""" 333""" 3332"" 3333"" 3332"" 333""" 332""" 33"""" 32"""" 3""""" 2""""" """""" """""" TonStartAn TonStartAus TonPauseAus TonAn AniAn TonPauseAn AniAus TonAus TonPauseAus wwwwwwwwwwwwx wwwwwwwx wwwwwwx wwwwwwx wwwwwx wwwwwx wwwwx wwwwx wwwx wwwwx wwwwx wwwwwx wwwwwx wwwwwwx wwwwwwx wwwwwwwx wwwwwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwww wwwwwx wwwwww wwwwx wwwwww wwwwx wwwwww wwwwww wwwwww wwwwww wwwwww wwwwww wwwwww wwwwww wwwwww wwwwww wwwwww wwwwx wwwwww wwwwx wwwwww wwwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwp wwwwp pwwwp wwwwp wwwwp wwwwp wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwx wwwwx wwwwx wwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx """, ,,,, ,,,, ,,,", ,""" ,,,, ,,,", +""" wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwx wwwwx wwwwx wwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx wwwwwwwwwwwwx CDBSE&File &Open... Ctrl+O &Save Ctrl+S Save &As... saveas &Import... import &Export... export Print Set&up... printsetup &Print Pages... Ctrl+P printpages Prin&t Report... printreport Send &Mail... sendmail &Run... E&xit Alt+F4 &Edit &Undo Ctrl+Z Cu&t Ctrl+X &Copy Ctrl+C &Paste Ctrl+V paste C&lear Del clear Select &All Shift+F9 selectall Select Pa&ge Shift+F12 selectpage &Size to Page F11 sizetopage F&ind... F5 Re&place... replace Aut&hor F3 author &Text &Character... F6 character &Paragraph... F7 paragraph &Regular Ctrl+Space regular &Bold Ctrl+B &Italic Ctrl+I italic &Underline Ctrl+U underline Stri&keout Ctrl+K strikeout Superscrip&t/Subscript superscriptSubscript &Normal Script normalscript Su&bscript Ctrl+L subscript Su&perscript Ctrl+Shift+L superscript &Show Hotwords F9 showhotwords &Page &Next Alt+Right &Previous Alt+Left previous &First Alt+Up first &Last Alt+Down &Back Shift+F2 &History... Ctrl+F2 history N&ew Page Ctrl+N newpage &Help &Contents F1 contents Status &Bar F12 statusbar p~cvcvc w, "V =1NochUnterSeq PauseTon false stop wfile b#Endbild SeqEndFarbe StartTon USeqStack buttonup w, "V =1NochUnterSeq ZSeqFarbe PauseTon false AutoSequenz akseq SetzeTonUndTimer StartTon successful play UseqStack MCINotify w, "V USeqStack Sequenz @MehrSeq SeqEndFarbe w, "V w, "V USeqStack ^USeqTempStack Sequenz @MehrSeq SeqFarbe w, "V HSeqMarke PauseTon @<spielen false @MehrSeq AutoSequenz akPos WeiterTimer stopped UseqTim paused Sequenzen Sequenz1 akseq TonDa SetzeTonUndTimer tonan button "EndBild" of this background status wFile mode USeqMarke Tsyncron play wfile UseqStack buttonup J5y)K svDLGDLL false fileExists OpenDlg False svMMDLL wplaying GetCurrentTime #Unterbrochen tbkMMTranslate svDOSDLL capability waveaudio can play Ihr System besitzt keine Soundkarte ! TonDa enterBook svDLGDLL svMMDLL svDOSDLL leaveapplication .&, " .&, " .&, ; w, "D .&, " .&, " =1NochUnterSeq send Ton Die Tondatei wird schon von einer anderen Anwendung benutzt !! TimeStack AutoSequenz akseq globalStack tbkMMTranslate TonPfad "Wiederholung timeStack ^USeqTempStack angehalten R,VideoDa Sequenzen @MehrSeq cmemakseq #Unterbrochen to this page TonDa SetzeTonUndTimer status wFile length Anfang PauseTon Endbild TonSeiten fileExists false fertig b#EndBild AutoSequenz Fortsetzung alias wFile NurdenTon akseq USeqStack Sequenz1 Tsyncron TonDa Sequenz globalStack StartTon set wFile time format ms RUnterbrechung @Mehrseq (dBewegung tempStack USeqStack ,llocalTimeStack Die angeforderte Tondatei wurde nicht gefunden ! TonAnfang .&+ +E ,%H.% .&+ +E status wFile length Stelle USeqMarke @MehrSeq ^USeqTempStack _AniStack false #unterbrochen NurdenTon USeqStack fertig 'TempLocalTimeStack close wfile status wFile position Sequenz globalStack HSeqMarke TonHandler (dBewegung cmemakseq tempStack AniTempStack USeqTempStackLoc TonEinsatz =1NochUnterSeq ,llocalTimeStack TimeStack TonDa TonEnde ,llocalTimeStack PauseTon seek wFile to (dBewegung C\anhalten b#EndBild TonHandler +llocalTimeStack GlobalStack fertig false TempStack StartTon TempStack tempStack Sequenzen stop wFile seek wFile to 0 tempStack anhalten w, "V w, "V ^USeqTempStack ,llocalTimeStack PauseTon false nummer false @MehrSeq ^USeqTempStack TonHandler Globalstack timeStack Sequenz StartTon TonHandler (dBewegung TempStack Tempstack iniAnimate TempStack USeqStack nummer EndBild SetzeTonUndTimer PauseTon tonan @<spielen false button akseq StartTon Sequenzen akseq TonDa Sequenz Tsyncron @MehrSeq buttonup Synchron false TonDa Sequenz tonan Tsyncron rightButtonup play wfile Stelle USeqTempStackLoc NurdenTon seek wFile to TonEinsatz USeqTempStackLoc TimeStack angehalten akseq button "EndBild" of this background USeqStack spielen KoSeqAnAus NurdenTon Abspielen w, "V w, "V V, #> status wFile mode StartTon Stelle USeqTempStackLoc TonEinsatz akseq PauseTon stopped TonEinsatz TimeStack @MehrSeq status wFile position Sequenz SeqEndFarbe Stelle EndBild USeqStack USeqTempStackLoc SeqAnAus w, "V w, "V V, #> ^USeqTempStack ,lLocalTimeStack false USeqStack ^USeqTempStack akseq +llocalTimeStack HSeqMarke +lLocalTimeStack 'TempLocalTimeStack akseq 'TempLocalTimeStack Sequenz StartTon cmemakseq PauseTon @MehrSeq fertig StarteDenTimer =1NochUnterSeq SetzeTonUndTimer w, "V .&, " .&, ; ,llocalTimeStack TonSeiten TonSeiten Synchron False fertig EStarteDenUseqTimer NurdenTon +llocalTimeStack play wFile from #Unterbrochen button "EndBild" of this background Tsyncron tempStack tempStack <1NochUnterSeq Anfang False StarteDenTimer =1NochUnterSeq PauseTon false 'TempLocalTimeStack single 'TempLocalTimeStack USeqMarke USeqMarke StarteDenUseqTimer w, #? PauseTon single HSeqMarke button "EndBild" of this background play wFile to <1NochUnterSeq WeiterTimer false wPlaying tonan VideoEnde close wFile unload .&+ +E .&+ +E Anifaktor false Anifaktor AniFaktor 'dBewegung bewegen .&+ +E , /EX , /EX 1,"!" .&+ +E RestXStack RXStack RYStack SchrittStack false EndeStack YSSTack XStack Anifaktor SchrittWeiteYStack drehen ObjStack SStack RestYStack Anifaktor SchrittWeiteXStack 'dBewegung XSStack YStack MultiBewegen .&+ +E .&+ +E maxZahl Objekte false SchritteX t = Kurve Objekte false SchritteX Felder maxZahl Schritte Berechnung Schritte QDieReihe Berechnung 'dBewegung drehen Kurve drehen Berechnung DieReihe TempStack drehen .&, " _AniStack _AniStack oeffneKlang AniTempStack to this page send Ani AniAnfang .&, " _AniStack kschliesseKlang AniTempStack AniEnde Das waren alle Schritte ! Nochmal AniTempStack _AniStack AniTempStack naechsterSchritt 1, #> 1, #> 1, #> KlangFile alias k1File KlangFile alias k3File Tonpfad alias k2File oeffneKlang .&, " .&, " .&, " play k2File from 0 play k1File from 0 tonan play k3File from 0 spieleKlang Klangfile close k2File close k1File close k3File schliesseKlang GetCurrentTime s_testTime startTime AniFaktor GetCurrentTime s_testTime showElapsedTime Bitmap Warten showElapsedTime startTime warten AniZeitTest TestTime note.tbk send SeiteSuchen otherbook false mKSeitenzaehler 2kDiastart stopped 1kDiastart StartTon counter status wfile mode false 'dBewegung PauseStop callMCI("stop wfile","") timerStop(TI ) -- Timer f r die HauptSequenzen ?UnterSequenzen NochUnterSeq B"StartTon" B"PauseTon" seq = (USeqStack ) + 1 SeqEndFarbe Endbild der Seite wird aufgerufen timerNotify timerID = TI ","") -- normalGraphic /= icon "TonStartAus" %PauseAn" SeqFarbe automatischen Aufruf chsten (AutoSequenz (akseq -- (UseqStack PauseAus" ) + 1 SetzeTonUndTimer -- MCINotify status, operation, device pos = ! wFile ","") 6 && 4 = "successful play" ) + 1 MehrSeq nummer = LS = " " & kk (USeqTempStack LS = " " & kk TonDa 8<> 1 tonan() p = callMCI("status wFile mode","") "beendet" "stopped" syncron Aufruf der n chsten Sequenz durch Button "Start" (AutoSequenz (akseq (UseqStack B"PauseTon" Sequenzen ( ) + 1 SetzeTonUndTimer Wenn fertig, wieder die 1. MehrSeq B"Sequenz1" spielen -- synchron -- p "angehalten" "paused" SeqTim = (HSeqMarke ) - (akPos UseqTim = (USeqMarke ) - ( (USeqTim < 0) WeiterTimer play wfile"," B""EndBild"" -- p <3-- Copyright 1995,1996 FernUniversit t - Gesamthochschule Hagen 4svDOSDLL,svDLGDLL,svMMDLL 4wplaying,Tonpfad XsysToolBookDirectory & INT fileExists(STRING) 4ry & OpenDlg( ]ry & -- Translation functions tbkMMTranslate( linkDLL "User" DWORD GetCurrentTime() callMCI("capability waveaudio can ","") wPlaying = " "Ihr System besitzt keine Soundkarte !" TonDa 8= 99 Unterbrochen = False leaveapplication unlinkDLL TonAnfang Tondatei,Sequenz,UnterSequenz,AutoStart Name der 5; z.B.: "Test.wav" -- Sequenzen: Liste die Tonmarken aus AWavedatei enth lt - Millisekunden; z.B.: 0,987,3440,12367,15660, 4TonPfad NochUnterSeq VideoDa UTI 8<> 1 "Die angeforderte wurde nicht gefunden !" Anzahl = AutoSequenz B"StartTon" B"PauseTon" enabled n" & i) " & i) MehrSeq Mehrseq -- akseq "TonAni" angehalten fertig NurdenTon Bewegung syncron " && && "alias wFile","") wird schon von einer anderen Anwendung benutzt !!" 8= 99 ms","") =3 neu lang = status length","") alleSeq= globalStack u = 1 By -1 t = " & i & "_" & k && " USeqStack USeqTempStack tempStack TimeStack localTimeStack = timeStack memakseq Seite bestimmen b-- 1 b-- 2 Unterbrechung "Endbild" EndBild "Fortsetzung" SetzeTonUndTimer = "Sequenz1" b-- 2 TonSeiten b-- 3 Wiederholung b-- 3 oben gesetzt b-- 1 TonEnde ZvAkPos ","") " <> , > 0 unterbrochen lose wfile","") " & i) timerStop(TI [uti [USeqTempStackLoc [TempLocalTimeStack [TonHandler 8= 99 [TonEinsatz [Stelle [HSeqMarke [USeqMarke [AniStack [AniTempStack anhalten = GlobalStack st = seek " && st) stop 0","") -- Berechnet Stand des anzuzeigenden Bildes iniAnimate -- Aufbau bis zur gew hlten -- Einblenden Button f nummer = LS = " Globalstack cTempstack -- Raiser 16.5.96 n chste Zeile unplausibel, daher auskommentiert Steuerung SequenzButtons -- 8<> 1 tonan() n = LS = " " & s s = LS = " " & s spielen rightButtonup loc 8<> 1 objectFromPoint( B"Synchron" pos = " && &,"") yieldApp() -- Regelt nur das Gelb/SchwarzSchalten Sequenzbuttons, wenn die -- Animation ausgeschaltet ist. Variablen werden Abspielen SeqAnAus ","") POS > T = T + ( T +1 LS = " LS = " " & kk p = mode","") "stopped" "beendet" SeqEndFarbe E N D E > 1 -- Bei mehreren UnterSequenzen L = markieren LS = " e > 1 LS = " " & kk -- _________________________________________________ StarteDenTimer L, Aufruf Tons " && " && -- TI = timerStart("single",L,100, -- Wenn letzte Breakpoint vom geholt , ist abgespielt. folgende kann EProgramm . Wird hier f -- Sitzung gespeichert, um Bedingung f wiederholte Betreten -- festzulegen ( oder - pageproperty) -- Hier dazugeh rige TonXXX") aufgerufen. StarteDenUseqTimer L = ,L,100, WeiterTimer LHT,LUT " && -- TI C100, m,100, unload VideoEnde "Tonsteuerung" Bewegen Objekten bewegen d,Schritt Anifaktor T * AniFaktor WeiteX = WeiteY = SchrittWeiteX = RestX = SchrittWeiteY = RestY = -- Mehrere nnen bewegt . Es Endpunkte Schrittweiten bergeben MultiBewegen Obj, ObjStack = EndeStack = O = x = y = O = x,y SchrittWeiteXStack = SchrittWeiteYStack = RestXStack = RestYStack = SStack = SchrittStack = g = Sdrehen( RXStack = RYStack = XSStack = YSSTack = wYSStack K = 1 auf beleibigen Kurven -- Es !Kurvennummer als String- Informationen Kurvenpunkte sind Property Objekts ierstes 1"Schrittzahl, dann Koordinaten ZFelder [] [] [] fill feld = SchritteX = OKu = s = Wert = "t = " & s && " " && x = y = s = " & s && " " && OKu maxZahl = 0 s = " & s && " " && i = ) - 1 k = i s = Berechnung = DieReihe(k, i = x = y = z] [p] [1] = x z] [p] [2] = y = Obj z = 0 Ob = x = z] [p] [1] y = z] [p] [2] k - 1 posx = posy = Sumx = Sumy = - ENDE r Einzelschritt AniAnfang 5',Klang t = " @&& i && " oeffneKlang AniEnde dummy schliesseKlang naechsterSchritt "Das waren "Nochmal" ngen KlangFile " && b, & ( K) && " 6'k1File","") " && , & ( K) && " o'k2File","") " && , & (Item 3 K) && " 'k3File","") spieleKlang num 0","") 0","") 0","") [Klangfile Geschwindigkeit f r Animationen eistellen -- "Informationtechnik" (Halang/Schormann) ben tigt : errechnet , damit unterschiedlichen Rechnern gleich schnell -- laufen. Man i)INI-Datei !Programms abspeichern. startTime 4s_testTime showElapsedTime thisTestTime = ( A) / 1000 %"#.0" 8= 10 / prompt "Der W dauerte" && j&& "Sekunden." "AniZeitTest" "Bitmap" "warten" -- Run ; Mit dieser Einstellung einem 486er 33 MHz xStart = xstart 15000 H30,0 home "Warten" en -- Notizblock aufrufen -- otherbook 1," .tbk" SeiteSuchen" && & n & n -- -- Diashow -- 4Seitenzahl,counter Diastart Seitenzaehler PAUSE == r Autoscr.tbk PauseStop P <BookPath> :HDMEDIAPATH System TonDa False Unterbrechung System False Unterbrochen PauseTon Anfangsbild Synchron Die Objekte sind jetzt in der Zwischenablage ! TonAnAus StartTon Endbild buttonup B"TonAnAus", B"Synchron", B"Anfangsbild", B"Endbild", B"StartTon", B"PauseTon" "Die Objekte sind jetzt der Zwischenablage !" Kopieren Die Objekte sind jetzt in der Zwischenablage ! SeqButs buttonup "SeqButs", "Bar" "Die Objekte sind jetzt der Zwischenablage !" Kopieren Anfangsbild false Sequenzen TonDa SetzeTonUndTimer tonan buttonClick buttonClick TonDa 8<> 1 tonan() Sequenzen 1 SetzeTonUndTimer Endbild TonAnAus .&, " PauseTon tbkMCIchk false stop wFile seek wFile to 0 wPlaying TonDa StartTon Endbild tempStack Weiter Es kann im Moment kein Einsprungspunkt f r den Ton gefunden werden. Gehen Sie ber 'Endbild' oder machen Sie so weiter. buttonup 4wPlaying B"StartTon" B"PauseTon" TonDa tbkMCIchk("stop wFile","",0,0) 0","",0,0) tempStack "Es kann im Moment kein Einsprungspunkt f r den gefunden werden. Gehen Sie ber 'Endbild' oder machen so weiter." "Weiter" PauseTon =1NochUnterSeq false EStarteDenUseqTimer 'TempLocalTimeStack false timerID tempStack USeqMarke tempStack timerNotify akPos false StartTon status wFile position TonDa pause wfile tonan button "EndBild" of this background ButtonUp timerNotify timerID = UTI Timer f r die UnterSequenzen TempLocalTimeStack StarteDenUseqTimer USeqMarke NochUnterSeq tempStack ButtonUp TonDa 8<> 1 (tonan() akPos = callMCI("status wFile ","") wfile"," B""EndBild"" timerStop(TI HauptSequenzen ) -- B"StartTon" Synchron PauseTon @<spielen false akseq akseq Tsyncron StartTon cmemakseq cmemakseq tempstack Tsyncron @Mehrseq buttonup syncron Mehrseq tempstack memakseq B"StartTon" B"PauseTon" spielen StartTon SeqButs Sequenz1 Sequenz3 Sequenz2 Sequenz4 Sequenz5 Sequenz6 Sequenz7 Sequenz8 Sequenz9 False A) / 1000 %"#.0" 8= 10 / prompt "Der