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 @ 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 :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 @