Home

Diplomarbeit

1. 73 4 1 Benutze Windows Funktionen ccccccccccccessesssseceeeeeceeeesesseseeeeeeeeeeees 74 4 2 Kommunikation Basic Pascal ea 79 Inhaltsverzeichnis 5 Benutzerhandbuch RT 81 5 1 Einleitung deer 82 5 2 ROC TMS ROMS UE BON 83 5 3 Installation 84 5 4 Benutzung durch usen Anbieter 86 5 4 1 Vorbereitung ind Befehle nen en ee 86 KEE ee a une 86 e Vorbereitung und Befehle una 86 E E 88 Animationsopt onei nee 89 Bildopton een 89 Texte im RTF TXT BMP oder WMF Format 90 gt irri ee 90 Si EE ol BetellsbIerarehile iii lavo pases o abad san 9 Verzeichniswechsel m 91 Indexerstel dE EE ere 93 5 4 2 Form tierte Textus palio suscriba 95 Das MS Rich Text Formal usa a 95 Nicht im enthaltene Steuerbefehle ecc 97 KIOSKDRV DLL riada 98 5 4 3 Ende tun tt ee 99 Dateuverzeichnis weche n ee ee 99 Infolextschrift wechseln au 100 Buttonschriftart wechseln ee en aenea 101 Buttonfarbe SED een 101 Hintergrunddarstellung ndern u a 102 Dr cKoptionen u 102 Wechseln der au 103 Tonausgabe ein ausschalten een dida 104 Mauszeiger eins ausschalten siii 104 Pa wort ndern 104 Imtialisierung beenden ea 105 speichert nee 105 Programm beenden use 105 5 5 Benutzung durch den Kunden ei 106 5 5 1 Dem Asibreter vorbehalten ns en 106 Kiosk System been
2. Laufwerke gelesen v 3 Laufwerkbutton erzeugen butLaufwerk_Load 4 frmStartVerz anzeigen frmStartVerz_Paint v 5 Verzeichnisse lesen Verzeichnisse gelesen y 6 Verzeichnisse in IstVerz auflisten Laufwerk Change IsiVerz Change 7 Aktuelles bzw 1 Verz in IstVerz markieren Verzeichnis markiert 8 gt butScroll Click 10 9 frmStartVerz Z m Mau Fay sichtbar arkierung in IstVerz Laufwerk wechseln putLaufwerk_Click versetzen Markierung Change IsiVerz Scroll butOk Click 11 butAbbruch Click markiertes Verzeichnis an frminit bergeben v neue Daten 12 gt frmStartVerz schlie en frmStartVerz_Unload 1 frmStartVerz nicht geladen Startverz wechseln Ebene 163 __ Standvom 23 0kt 1994 Projekt Kiosk Bearbeiter Wyk Kapitel 3 4 Buttonschrift wechseln frmButtonFont Load v 2 Schriften ermitteln und in IstFont auflisten IstFont Change v 3 Aktuelle bzw 1 Schrift in IstFont markieren Schrift markiert v Schriftgr e Change 4 B gt Schriftgr e in txtFontSize anzeigen txtFontSize_Change v 7 8 5 Schriftgr e um 1 Pkt Schriftgr e um 1 Pkt Schriftattribute in ed verkleinern vergr Bern txtFontDemo setzen
3. datDruckKopf_Change butButtonSchrift_Click 8 An Aus Druckkopf pe Textdruck modDruck Change Bilderdruck neue Daten butMaus Click butTon Click 9 An Aus Mauszeiger be Tonausgabe modMaus Change modTon Change butHGFarbe Click 5 gt Farbe wechseln HG colHintergrund Change butHintergrund Click 10 Hintergrundbild Modus wechseln modHintergrund Change 11 11 Eingabe 12 1 i unterschiedlich Password d Passwort Passwort Request ye eingabe eingabe Kontrolle Fehler 1 Eingaben gleich Password frmKeyboard Tag frmKeyboard Tag Password 13 2 frmKiosk Maske setzen frmKiosk_Paint Button_Click 2 Button Click 3 butAbbruch Click 14 16 i Button Click 2 Request 15 equest 18 2 rminit Un Ende 1 gt nderungen pr fen Speichern 1 p frminit schlie en frminit nicht geladen Abbruch 2 Button Click 1 Anderungen Nicht speichern 2 vorgenommen Abbruch 3 Button Click 1 17 datKiosklni Write gt nderungen speichern keine nderungen vorgenommen Initialisierung Ebene RENE Projekt Kiosk Vi Bearbeiter wyk Entwurf Startverz wechseln 1 frmStartVerz nicht geladen frmStartVerz_Load v 2 Laufwerke ermitteln
4. Bedeutung Formatkennung mu RIFF sein Dateigr e in Bytes Dateityp mu AVI LIST sein Breite der Animation in Pixeln H he der Animation in Pixeln Aufbau des Video For Windows Headers 47 Kapitel 3 2 3 2 6 Wave Dateien Die Identifikation einer Klangdatei kann aus den ersten 16 Byte gelesen werden Formatkennung mu RIFF sein Dateigr e in Bytes 08H 7 type Dateityp mu WAVEfmt sein Aufbau des Wave Headers 3 2 7 INI Dateien Initialisierungsdateien sind im ANSI Format gespei chert Sie werden f r die Makro und Indexerstellung verwendet Eine Initialisierungsdatei kann mit der Window s Funktion GetPrivateProfileString gelesen werden Hierbei mu die INI Datei folgenden Konventionen entsprechen Jede Bereichsbezeichnung ist von eckige Klammern eingeschlossen Nachfolge Zuweisungen bestehen aus Schl sselwort Gleichheitszeichen und Zuweisung In einer INI Datei kann eine Bereichsbezeichnung wie derholt vorkommen es ist aber immer nur die erste Zuweisung g ltig 48 ZA Elemente Name N Ausl ser Ergebnis Name Das Formular Entwurf Objekte und Bezeichner des Zustands Aktions Modells Elemente der methodischen Darstellung nach ZA sind Einstieg Modulname Zustand bergang Aktion Zust nde und Aktionen werden mit Eins beginnend durchnummeriert und entsprechen den im Formular an gegebenen Ebenennummerierungen Gleiche
5. Pa wort in frmKeyboard tag 3 Pa wort falsch Kein PaBwort initialisiert Button Click 1 5 Pa wort richtig Request Initialisierung 1 Kiosk 2 Abbruch 3 Button Click 3 Button Click 1 Button Click 2 6 7 butStart Click Kunden Initialisierung schnittstelle butAbbruch_Click Endcode Ok Y Kiosk System Ebene 1 250kj994 Projekt Kiosk V1 0 Bearbeiter Lk Entwurf Passwort abfragen rmKeyboard Load 4 butBackSpace Click 2 butChar Click 3 letzten Buchstaben in Buchstabe in txtAnzeige sichtbar ERE txtAnzeige l schen als erg nzen txtAnzeige_Change txtAnzeige_Change butSchliessen_Click y 5 frmKeyboard Tag txtAnzeige frmKeyboard schlie en frmKeyboard_Unload frmKeyboard nicht geladen Pa wort abfragen Ebene 21 06 7884 Projekt Kiosk V1 0 Bearbeiter Let Kapitel 3 4 Initialisierung 3 Startverz wechseln StartDir_Change butStartverz_Click Buttonschrift wechseln fntButton_Change fntButtonSize Change fntButtonBold Change fntButtonltalic Change butButtonSchrift Click qu Farbe wechseln butButtonFarbe Click Button colButton Change 6 Infotextschrift wechseln but InfoSchrift Click fntinfoText_Change butDruckkopf_Click 7 Druckkopf wechseln
6. Im 3 Fall darf der Klang nicht abgespielt werden Im 4 Fall muf der Klang genau 1 mal gespielt werden im 5 Fall muf der Klang genau 10 mal gespielt werden ohne Verz gerung Der 5 Fall wird 3 mal mit den Zuweisungen sounddelay 0 5 60 ausgef hrt Im 1 Fall spielt der Klang 10 mal ohne Verz gerung Im 2 Fall spielt der Klang 10 mal mit jeweils 5 Sekunden Pause Im 3 Fall spielt der Klang 10 mal mit jeweils 60 Sekunden Pause Das erste Abspielen mu unmittelbar ohne Verz gerung ausgef hrt werden Sounds und Animationen m ssen einzeln und parallel mit allen Optionen laufen Es ist eine g ltige Animation 30 mal abzuspielen Zus tzlich ist ein g ltige Klangdatei end los mit 5 Sekunden Verz gerung zu spielen und der Option sound while 0 1 2 mit jeweils sound after 0 1 zuzuordnen 6 F lle Im 1 Fall wird der Klang alle 5 Sekunden wiederholt unabh ngig von der Animation Im 2 Fall startet der Klang synchron mit jedem Animationsbeginn neu 114 Tests Im 3 Fall wird der Klang mit Verz gerung sooft wiederholt wie die Animation l uft Im 4 6 Fall spielt der Klang endlos mit 5 Sek Verz gerung beginnend mit dem Ende der Animation Eine g ltige Animation und ein g ltiges Bild sind zusammen zu initialisieren die Wiederholungsrate der Animation ist auf 10 zu setzen Das Bild darf erst nach Ablauf der 10 Animationen dargestellt werden Ein g ltiger Klang und ein g ltiges Bild sind zu ini
7. Markierung Change IstFont Scroll txtFontDemo Change butPlus Cli 9 Markierung in IstFont versetzen butMinus Click butScroll Click butFett_Click 12 10 markierte Schrift und Fettschrift setzen fntButtonBold Change Schriftgr e an frminit bergeben 11 butAbbruch Click Kursicschrift setzen ntButtonitalic Change neue Daten 13 P fimButtonFon schlieBen rmButtonFont Unload 1 onFon Buttonschrift wechseln Ebene i64 Tstandvom 3 Projekt Kiosk V1 0 Bearbeiter Wyk Entwurf Standarddialog ChooseColor icht geladen ChooseColor Load 2 StdDialog anzeigen ChooseColor Paint 4 StdDialog Click 5 gt gew hlte Farbe an StdDialog Funktionen frminit bergeben butOK Click Farbselektion ndern butAbbruch Click neue Daten v 6 StdDialog schlie en ChooseColor Unload 1 StdDialog nicht geladen Farbe wechseln Ebene 165 osmium 230Kj994 Projekt Kiosk V1 0 Bearbeiter Wyk Kapitel 3 4 Infotextschrift wechseln frminfoFont_Load v 2 Schriften ermitteln und auflisten IstFon 3 frminfoFont anzeigen frminfoFont_Paint 4 Aktuelle bzw 1 Schrift in IstFont markieren Verzeichnis markiert 7 5
8. 0 Height 600 Index 1 Left ZO Outline 0 False PictureDisabled FRMINIT FRX 0C08 PictureDn FRMINIT FRX 1682 PictureDnChange 1 PictureUp FRMINIT FRX 20FC RoundedCorners 0 False Top 360 Width 600 End Begin SSRibbon butTon BevelWidh 0 Height 600 Index 0 Left 960 Outline 0 False PictureDisabled FRMINIT FRX 2B76 PictureDn FRMINIT FRX 35F0 PictureDnChange 1 PictureUp FRMINIT FRX 406A RoundedCorners 0 False Top 360 150 FRMINIT FRM Width 600 End Begin Label txtTon Alignment 2 Mitte BackColor 8H0080FF808 BackStyle 0 Transparent Caption FontBold al True FontName MS Sans Serif FontSize 18 5 Height Index 1 Left E20 Top 1080 Width ls End Begin Label txtTon Alignment 2 Mitte BackColor 8H0080FF808 BackStyle 0 Transparent Caption Aus FontBold xd ne FontName MS Sans Serif FontSize 185 Height ens Index 0 Left 960 Top 1080 Width 6 End End Begin SSFrame frameMaus Caption Mauszeiger Font3D 3 Inset w light shading ForeColor 8H000000008 Height 1545 Left 5880 Top 150 Width 930 Begin SSRibbon butMaus BevelWidth 0 Height 600 Index 0 Left 1080 Outline 0 False PictureDisabled FRMINIT FRX 4AE4 PictureDn FRMINIT FRX 555E PictureDnChange 1 PictureUp FRMINIT FRX 5FD8 RoundedCorners 0 False Top 360 Width 600 End Begin SSRibbon butMaus BevelWid
9. 14 y Request 2 Drucken 1 Drucker Spooler pr fen Sp ter ausgeben 2 Drucker Spooler nicht lee Daten gespoolt Drucker Spooler leer Drucken Ebene 1720 28 Nov 1984 Projekt Kiosk V7 0 Bearbeiter Wyk Kapitel 3 4 Animation Spielen UN frmUser e 2 3 4 Wiederholungen pr fen 71 Wiederholungsz hler m Animation starten Wiederholungen gt 0 dekrementieren Zahler Zahler 1 Y 5 Sound While Anim 2 6 7 Sound While Anim pr fen gt Klangzustand pr fen Klang starten Verfeinerung 1 7 25 mciAVI Play Klang spielt nicht Wiederholungen 0 Sound_While_Anim 1 Y Klang spielt noch Y Sound While 0 8 9 Sound While Anim pr fen Klang stoppen D Sound After lt 3 Sound While Anim 0 mciWAV Play 10 mciWAV Change Bild darstellen Verfeinerung 1 7 16 11 picAusgabe Paint 11 Y Sound After Anim pr fen Klang starten Sound After Anim gt 0 Verfeinerung 1 7 25 Sound After Anim 0 mciWAV Play 12 Text darstellen frmUser aktiviert Verfeinerung 1 7 16 14 bxAusgabe Paint Animation spielen Ebene 1724 26 Nov 1994 Projekt Kiosk VIO Bearbeiter Eet Entwurf frmUser deaktviert 2 3 4 Wiederholungen pr fen
10. Kapitel 5 4 1 Initialisierung ber Makros 88 Button definieren EN Makrobefehle In jedem von Ihnen eingerichteten Datenverzeichnis m ssen die enthaltenen Dateien ber eine ebenfalls von Ihnen zu erstellende Textdatei beschrieben werden ber dieses sog Makro wird KIOSK V1 0 w hrend der Laufzeit initialisiert Der Name eines Makros mu immer INFO INI lauten Diese Datei mu genau ein mal in jedem Verzeichnis vorkommen Sie muf im ANSI bzw ASCII Format vorliegen und kann z B mit dem Windows Editor bearbeitet und gespeichert werden Definierte Themen und somit darzustellende Schaltfl chen engl Buttons werden durch eckige Klammern begrenzt und beginnen immer mit dem Wort Button gefolgt von einem beliebigen aber eindeutigen Namen Beispiel ButtonName Name ist f r die Indexerstellung notwendig auf die noch eingegangen wird In verschiedenen NFO INI k nnen Namen wiederholt werden Die Grof und Kleinschreibung wird hierbei nicht unterschieden Dieser Themenidentifizierung folgen nun die Makro befehle Diese definieren das Aussehen einer Schalt fl che und steuern den Ablauf der darzustellenden Da teien title beliebiger Text beschreibt den Text der in den Schaltfl chen wie dergegeben werden soll Beliebiger Text ist die berschrift des Themas thumbnail Pfad Grafikdateiname weist der Schaltfl che ein kleines Bild zu Das Bild kann als BMP oder WMF vorliegen und wird in die Schaltfl che eing
11. Wiederholungsz hler p Klang starten Wiederholungen lt gt 0 dekrementieren Z hler Z hler 1 mciWAV P 5 Wiederholungen 0 Sounddelay pr fen SoundDelay 0 oundDelay lt gt 0 8 6 7 mciWAV Timer stoppen meiWAV Timer stoppen mciWAV Timer Interval setzen und starten mciWAC Timer Change 9 10 mciWAV Timer Change Picture While Sound pr fen picAusgabe schlie en Picture While Anim lt gt 0 picAusgabe Paint 11 Picture While_Anim 0 Text darstellen frmUser aktiviert Verfeinerung 1 7 16 14 ixtAusgabe Paint Klang spielen Ebene 1725 28 Nov 1991 Projekt Kiosk V10 Bearbeiter Let Kapitel 3 4 Kunden w nsche frmKeyboard Load 4 butBackSpace Click 2 butChar Click 3 letzten Buchstaben in frmKeyboard Buchstabe in txtAnzeige S sichtbar txtAnzeige l schen erg nzen txtAnzeige_Change txtAnzeige_Change butSchliessen Click 5 frmKeyboard Tag txtAnzeige frmKeyboard schlie en frmKeyboard_Unload Kundenw nsche Ebene 1727 210611994 Projekt Kiosk VTO Bearbeiter Wyk Entwurf Artikel Suchen 1 frmKeyboard und frmindex nicht geladen frmKeyboard_Load 2 frmindex laden i rmindex Load 3 Istindex Click datIndex lesen und Rubriken p 8 auflisten Themen zur markierten Rubri
12. teil eines solchen Systems liegt in der Pr sentations m glichkeit von Multimedia und der M glichkeit ei ner Interaktion Wechselbeziehungen besonders die Kommunikation zwischen Individuen innerhalb einer Gruppe Die Kommunikation findet zwischen einer Person und dem Computer ber Eingabeperipherien statt die in verschiedensten Formen vorliegen k nnen F r das entwickelte Kiosk System das den Namen KIOSK V1 0 erhalten hat wird die Interaktion ber einen Touchscreen gew hrleistet Die Person bet tigt auf dem Bildschirm sichtbare Felder in der Hoffnung die von ihm gew nschte Information zu erhalten Der Vorteil dieser Technik liegt in der direkten Funktions visualisierung eines Tasters Buttons Die Einsatzm glichkeiten der Multimedia Applikatio nen sind vielf ltig vor allem in der Arbeitswelt Fir meninterne Kommunikation Ergebnispr sentation in teraktive Nachschlagewerke Werbung Kataloge Produktdemonstrationen Ausbildungswesen etc betriebliche Nutzung Einleitung Die gesch ftliche Nutzung eines Kiosk System in ei nem Dienstleistungs und Handelsbetrieb entlastet den Berater oder Verk ufer bei der Kundenabfertigung Die Verfassung und die Art der Fragestellung des Kunden hat keinen Einfluf auf die Kommunikation Das Kom pensieren pers nlicher Ber hrungs ngste erleichtern dem Kunden den Erhalt von Informationen Die Wirkungsweise von Multimedia und Interaktion steht dem handels blichen Informati
13. 0 False Width 38 End Begin SSPanel butGoto Alignment 4 BackColor amp H0000C0C0O amp Bevellnner 2 Raised BorderWidh 4 Caption ec E ForeColor amp H00000000 amp RoundedCorners 0 False End Begin PictureBox ScrollBar BackColor amp H00008000 amp BorderStyle 0 keine Index 1 Width ils End Begin PictureBox ScrollBar BackColor amp H00008000 amp BorderStyle 0 Keine Index 0 Width ls End 158 FRMINDEX FRM Begin ListBox IstTheme FontBold 1 True Fontltalc 1 True FontName MS Sans Serif FontSize 12 Sorted 1 True End Begin ListBox Istindex FontBold 1 True Fontitalic 0 False FontName MS Sans Serif FontSize END Sorted 1 True End Begin Label txtFeld AutoSize 1 True BackStyle 0 Transparent Caption Themen FontBold 0 False FontName MS Sans Serif FontSize Sa Height 240 Index 1 Left 0 End Begin Label txtFeld AutoSize 1 True BackStyle 0 Transparent Caption Bereiche FontBold 0 False FontName MS Sans Serif FontSize gs Height 240 Index 0 Left 0 End End frmindex Deklarationen frmindex Ereignisse Anhang C FRMINDEX FRM Sub butScrollTheme MouseDown Index As Integer Button As Integer Shift As Integer X As Single Y As Single If Not TouchDown Then TouchDown True On Error GoTo fehlerScrTheme While TouchDown If Index 0 Then If IstT
14. 0 txtAusgabe 0 Width HeightOfText 3 txt Else If MedGetWMFProp txt prop 0 Then Text Datei im WMF Format Ausgabeh he an Bildh he anpassen HeightOfText txtAusgabe 0 Width prop txtAusgabe 0 Height HeightOfText WMF laden txtAusgabe 0 Picture LoadPicture txt Else Text Datei im ANSI Format Standartformat setzen ctrlFormat FontSize 12 ctrlFormat FontBold False ctrlFormat Fontltalic False ctrlFormat FontStrikethru False ctrlFormat FontUnderline False ReDim ColorTable 1 ColorTable 0 txtAusgabe 1 BackColor Listing 171 FRMUSER FRM Listing verz CurDir Else verz CurDir End If Backgr bmp in vorangehenden Verzeichnissen suchen If Dir verz datBckBMP Then While Dir verz datBckBMP And Len verz gt 3 And UCase verz lt gt StartDir verz Left verz Len verz 1 While Len verz gt 2 And Right verz 1 lt gt verz Left verz Len verz 1 Wend Wend Es gibt keinen Hintergrund If Dir verz datBckBMP Then actBackgr frmUser Cls Exit Sub End If End If Hintergrund wird nicht ver ndert IfactBackgr verz datBckBMP Then Exit Sub Hintergrund wird ver ndert actBackgr verz datBckBMP frmUser Cls If MedGetBMPSize verz datBckBMP w h bits lt gt 0 Then Exit Sub Select Case modHintergrund Case 0 MedSetBMP frmUser hDC O O frmUser ScaleWidth frmUser ScaleHeight 1 verz datBck
15. 1 Trenn InStr TrennPos Buttons If ButtonAnz Then Load frmRequest Button ButtonAnz If Trenn 2 0 Then Exit Do fertig frmRequest Button ButtonAnz Caption Mid Buttons TrennPos Trenn TrennPos TrennPos Trenn 1 Loop frmRequest Button ButtonAnz Caption Mid Buttons TrennPos ButtonAnz ButtonAnz 1 Anzahl Buttons ButtonWidth 0 For i 0 To ButtonAnz 1 max Button Breite ermitteln Wi frmRequest TextWidth frmRequest Button i Caption If Wi gt ButtonWidth Then ButtonWidth Wi Next i ButtonWidth ButtonWidth 5 abstand frmRequest ScaleWidth ButtonWidth ButtonAnz ButtonAnz 1 FormWidth ButtonAnz 1 abstand ButtonAnz ButtonWidth frmRequest Width Y frmRequest ScaleWidth If frmRequest Width lt FormWidth Then frmRequest Width FormWidth frmRequest txtAnzeige Width frmRequest ScaleWidth 2 frmRequest txtAnzeige Left frmRequest txtAnzeige Caption txtAnzeige frmRequest Height frmRequest txtAnzeige Height 130 frmRequest Height frmRequest ScaleHeight ButtonLeft abstand For i 0 To ButtonAnz 1 frmRequest Button i Visible 1 frmRequest Button i Top frmRequest ScaleHeight 65 frmRequest Button i Width ButtonWidth frmRequest Button i Left i ButtonWidth abstand ButtonLeft Next i frmRequest txtTitel Width frmRequest ScaleWidth frmRequest txtTitel titel CenterForm frmRequest
16. 24 KeyPreview 1 True MaxButton 0 False MinButton 0 False Begin PictureBox palette Picture FRMKEYB FRX 0000 Visible 0 False End Begin CommandButton butDummy Caption u Height 195 Left 15000 Top 2400 Width 235 End Begin SSCommand butSpace AutoSize 2 BevelWidh 0 Picture FRMKEYB FRX 0AA2 End Begin SSCommand butSchliessen AutoSize BevelWidth 0 Outline 0 False Picture FRMKEYB FRX 3DBC End Begin SSCommand butBackSpace AutoSize 2 BevelWidth 0 Outline 0 False Picture FRMKEYB FRX 50F6 End Begin SSCommand butChar AutoSize 2 BevelWidth 0 Font3D 3 Inset w light shading FontBold 1 True FontName MS Sans Serif FontSize 185 ForeColor 8H000000008 Height 645 Index 0 Outline 0 False Picture FRMKEYB FRX 5B70 Visible 0 False Width 1630 End Begin Label txtAnzeige BackColor 8H004040408 BorderStyle 1 nicht nderbar einfach FontBold 0 False FontName Courier FontSize 24 ForeColor 8H0080FF808 Height 540 Left 0 Tablndex 4 Top zu Width 12000 End End 131 frmKeyboard Ereignisse Listing Anhang C End Select butChar i Top Top 2 h abstand butChar i Left Ift w 9 i96 22 w abstand butChar i Caption c butChar i Visible True Next i96 For i 33 To 41 Load butChar i96 Select Case i Case 33 c Y Case 34 c X Case 35 c C Case 36 c V Case
17. 4 RoundedCorners 0 False End Begin SSPanel butControl BackColor amp H0000C0C0 amp Bevellnner 2 Raised BorderWidth 4 Caption Suchen FontBold 0 False FontName MS Sans Serif FontSize EON Index gt 9 RoundedCorners 0 False End Begin SSPanel butControl BackColor amp H0000C0C0 amp Bevellnner 2 Haised BorderWidh 4 Caption bersicht FontBold 0 False FontName MS Sans Serif FontSize Ea Index ez RoundedCorners 0 False End Begin SSPanel butControl BackColor amp H0000C0C0 amp Bevellnner 2 Raised BorderWidh 4 Caption Mehr FontBold 0 False FontName MS Sans Serif FontSize 075 Index RoundedCorners 0 False End Begin SSPanel butControl BackColor amp H0000C0C0 amp Bevellnner 2 Raised BorderWidth 4 Caption Zur ck FontBold 0 False 162 FRMUSER FRM FontName MS Sans Serif FontSize y Index 0 RoundedCorners 0 False End Begin PictureBox animAusgabe AutoRedraw 1 True BackColor amp H00CO0COCO amp BorderStyle 0 Keine Visible 0 False End Begin Timer ResetTimer End Begin Timer mciWAV_Timer Enabled 0 False End Begin SSCommand butScroll BevelWidth 0 Height Als Index 1 Outline 0 False Picture FRMUSER FRX 0000 RoundedCorners 0 False Visible 0 False End Begin SSCommand butScroll BevelWidth 0 Height 615 Index 0 Outline 0 False Picture FRMUSER FRX 0A7A Rounded
18. BackStyle 1 Undurchsichtig Height ES Index 0 Left 3840 Top 960 Width 1545 End Begin Label txtDruckoption BackColor 8H0080FF808 BackStyle 0 Transparent Caption Kopfzeile FontBold 1 True FontName MS Sans Serif FontSize 13 5 151 Anhang C Height STO Index 0 Left 20 Top 1080 Width 2895 End Begin Label txtDruckoption BackColor 8H0080FF808 BackStyle 0 Transparent Caption Bilder FontBold 1 True FontName MS Sans Serif FontSize 1185 Height e Index 1 Left 720 Top 1800 Width 2895 End Begin Label txtDruckoption BackColor 8H0080FF808 BackStyle 0 Transparent Caption FontBold 1 True FontName MS Sans Serif FontSize 195 Height 509 Index 2 Left 720 Top 2520 Width 2895 End Begin Label txtWMFDatei BorderStyle 1 FontBold 0 False FontName MS Sans Serif FontSize 12 Height oro Left 2040 Top 360 Width 239575 End Begin Shape box BackColor amp H00000000 amp BackStyle 1 Undurchsichtig Height pia Index 1 Left 3900 Top 1020 Width 1545 End End Begin SSFrame frameHintergrund Caption Hintergrund Font3D 3 Inset w light shading Height 2213255 Left 5880 Top 2640 Width Sails Begin SSRibbon butHintergrund BevelWidth 0 Height 600 Index 2 Left 2820 Outline 0 False PictureDisabled FRMINIT FRX 12FFA PictureDn FRMINIT FRX 13A74 PictureDnChange 1 P
19. actFormat FontUnderline False End If strike schaltet Durchstreichen ein If comm STRIKE Then IsComm True actFormat FontStrikethru True End If strikeO schaltet Durchstreichen ein If comm STRIKEO Then IsComm True actFormat FontStrikethru False End If CFn setzt die Vordergrundfarbe If Left comm 2 CF Then IsComm True param Mid comm 3 Len comm 2 actFormat ForeColor Val param End If beschreibt Sonderzeichen durch Hexcode If Left comm 1 Then IsComm True param Mid comm 2 1 obere Tetrade paramres Asc param 48 param gt 9 7 param Mid comm 3 1 untere Tetrade paramres paramres amp H10 Asc param 48 param gt 9 7 Rest anf gen outp outp Chr paramres Mid commline 4 Len commline If nChar Then outp outp End If nicht verwendeter Steuerbefehl If Not IsComm And BackSlash 1 Then KlammerAuf 1 KlammerZu 0 Do Get Filenr FilePos nChar If nChar Then KlammerAuf KlammerAuf 1 If nChar Then KlammerZu KlammerZu 1 If KlammerAuf lt gt KlammerZu Then FilePos FilePos 1 Loop Until KiammerAuf KlammerZu End If Case Case commie ua StartOfExtraComm FilePos Do FilePos FilePos 1 Char nChar Get Filenr FilePos nChar If Char lt gt Chr 10 And Char lt gt Chr 13 Then comm comm Char Befehlermittlung Loop Until nChar Or nChar O
20. der Fall ist wird eine Konfiguration mit 80486 DX2 66 Mhz Prozessor und 16 MByte RAM gew hlt Die Festplatte soll so gro sein da eine komplette CD berspielt werden kann Die Wahl trifft auf ein 1 GByte HDD Das CD ROM wird f r einen schnellen Transfer als Doublespeed Laufwerk gew hlt Das technische Verfahren des Touchscreens beruht auf kapazitiver Positionsermittlung da es als am wenigsten anf llig gilt Die Daten bertragung erfolgt ber die se rielle Schnittstelle Jede Ber hrung simuliert ber einen speziellen Treiber die Mausfunktionen als Drag And Drop 2 2 L sungsans tze Entwicklungstools Zur Realisierung des Systems k nnen verschiedene Werkzeuge zum Einsatz kommen Zum einen ber die Benutzung von CAP Programmen Computer Aided Presentation CAP entwickelte sich im Laufe der letz ten Jahre aus dem was man einfach Pr sentations software oder Shows nannte Ihre Rolle besteht darin verschiedene Bildschirmansichten oder verschiedene vorher erstellte Bilder aneinander zu reihen wobei berg nge mit bestimmten Spezialeffekten erm glicht werden Der Weg von CAP Programmen hin zu Multi media Applikationen wird zwar angegangen ist aber derzeit immer noch eine Tendenz Der zweite Nachteil ist die Integration der Daten vor einer Pr sentation Somit l t sich eine individuelle Anpassung nur m h sam und bei nderung der gesamten Pr sentation reali sieren Als zweite M glichkeit steht dem die Ent
21. meter vorangehendes ByVal anzugeben GetPrivateProfileString ByVal ApplicationName ByVal KeyName ByVal Default ByVal ReturnedString ByVal Size 6 ByVal Filename as Integer 74 Parameterbeschreibung R ckgabewert Die Funktion GetPrivateProfileString LIB KERNEL ermittelt eine Zeichenkette aus dem angegebenen Be reich innerhalb der angegebenen Initialisierungsdatei ApplicationNamezeigt auf einen Null terminierten String der den Bereich angibt in welcher sich der Eintrag befindet KeyName zeigt auf den Null terminierten String der den Eintrag enth lt dessen zugeh riger String ermittelt werden soll Default zeigt auf einen Null terminierten String der den Standardwert des gew nschten Eintrags bestimmt falls dieser Eintrag in der Initialisierungsdatei nicht ge funden werden kann Dieser Parameter darf nicht sein ReturnedString zeigt auf den Puffer in dem die Zeichenkette abgelegt werden soll Size gibt die Gr e in Bytes des im Parameter ReturnedString angegebenen Puffers an Filename zeigt auf einen Null terminierten String der die Initialisierungsdatei benennt Enth lt dieser Para meter keine vollst ndige Pfadangabe sucht Windows danach im Windows Verzeichnis Der R ckgabewert gibt die Anzahl der in den angege benen Puffer kopierten Bytes an Die abschlie enden Nullzeichen werden dabei nicht ber cksichtigt Software function PrivateProfileString ByVal ApplicationName ByVal KeyNam
22. r den Kunden 3 Kommunikation Der Anbieter entspricht dem Informationsgeber der Kunde dem Informationsempf nger Beiden Oberfl chen stehen zwei allgemein zug ngliche Fenster zur Verf gung Das R ckfragefenster Request dient der Information und Programmsteuerung durch den Anwender Es ent h lt mindestens einen Button einen Titel und einen Informations bzw Fragetext Angezeigte Buttons sind mit gleichen Abstand zentriert ausgerichtet Titel Fragetext Elemente des Requestfensters Jedem Request kann ein Icon je nach Sinn zugeordnet werden Dazu stehen folgende zur Auswahl Se ES za v Achtung Eingabe Speichern Bet tigen Drucken Ein Request ist ebenfalls ein berlagerndes Fenster und legt andere KIOSK Funktionen lahm Die Bet tigung eines Buttons schlie t den Request und aktiviert wieder das berlagerte Fenster Die Nummer des bet tigten Buttons wird ber ein window tag zu r ckgegeben 31 Kapitel 32 Texteingaben 3 1 2 1 F r Texteingaben wird ein Fenster als Tastaturersatz geladen welches die Eingabe von Ziffern Versalien den Umlauten A O U Leerzeichen Punkten und Bin destrichen gestattet Jeweils das letzte Zeichen l Dt sich l schen Das Fenster wird ber einen Schlie button vom Bildschirm genommen und das Eingabeergebnis ber ein window tag zur ckgegeben Das Ergebnis der Eingabe ist in einer Ausgabezeile sichtbar Die Position an der das n chste eing
23. txtAusgabe 1 Width butScroll 0 Width butScroll 1 Left butScroll 0 Left Scrollbar Left butScroll 0 Left If vis 3 Then w animAusgabe Width h animAusgabe Height i SetPicSize animAusgabe w h Else w picAusgabe Width h picAusgabe Height i SetPicSize picAusgabe w h End If w frmUser ScaleWidth 5 8 butHand links Left frmUser ScaleWidth distance w distance 1 2 butHand links Width butHand rechts Left butHand links Left butHand links Width distance End Select Scrollbar Visible vis 0 frameAusgabe Visible vis 1 picAusgabe Visible vis 2 animAusgabe Visible vis 3 txtAusgabe 1 Visible vis 4 txtinfo Visible True For i 0 To 1 butScroll i Visible vis O butHand i Visible True Next i96 PrintInfo strSelect End Sub Sub butScroll MouseDown index As Integer button As Integer Shift As Integer x As Single y As Single Static ScrollHeight As Single ScrollHeight 6 ButtonPressed If Not TouchDown Then TouchDown True On Error GoTo fehler While TouchDown Select Case index Case 0 If StartCopyY gt ScrollHeight Then StartCopyY StartCopyY ScrollHeight Else StartCopyY 0 End If Case 1 If StartCopyY lt HeightOfText txtAusgabe 1 Height ScrollHeight Then StartCopyY StartCopyY ScrollHeight Else StartCopyY HeightOfText txtAusgabe 1 Height End If End Select MedCopylmg txtAusgabe 0 hDC 0 StartCopyY txtAusgabe 1 Width txtAusga
24. 0 False Width 2201520 End Begin PictureBox picDruckDemo AutoSize 1 True BorderStyle 0 Keine Height 405 Index 1 Left 4440 Picture FRMINIT FRX B534 Top 1800 Visible 0 False Width Begin PictureBox picDruckDemo BorderStyle 0 Keine Height 615 Listing Index 0 Left 3850 Top 970 Visible 0 false Width 1520 End Begin SSRibbon butDruck BevelWidh 0 Height 600 Index 0 Left 240 Outline 0 False PictureDisabled FRMINIT FRX BBF6 PictureDn FRMINIT FRX C670 PictureDnChange 1 PictureUp FRMINIT FRX DOEA RoundedCorners 0 False Top 960 Width 600 End Begin SSRibbon butDruck BackColor amp HO00COCOCO amp BevelWidth 0 GroupNumber 2 Height 600 Index Left 240 Outline 0 False PictureDisabled FRMINIT FRX DB64 PictureDn FRMINIT FRX E5DE PictureDnChange 0 PictureUp FRMINIT FRX F058 RoundedCorners 0 False Top 1680 Width 600 End Begin SSRibbon butDruck BackColor amp H00COCOCO amp BevelWidth 0 GroupNumber 3 Height 600 Index 2 Left 240 Outline 0 False PictureDisabled FRMINIT FRX FAD2 PictureDn FRMINIT FRX 1054C PictureDnChange 1 PictureUp FRMINIT FRX 10FC6 RoundedCorners 0 False Top 2400 Width 600 End Begin SSCommand butDruckKopf AutoSize 2 BevelWidth 0 Height 630 Left 240 Outline 0 False Picture FRMINIT FRX 11A40 Top 240 Width 1665 End Begin Shape box
25. 7 0 Hilfe PC Bibliothek Meyers Lexikon Mannheim Brockhaus 1993 Tests Anhang B F r einen Systemtest sind folgende F lle zu pr fen Eine INFO INI mit mehr 30 Button Zuweisungen Der Button Mehr muf sichtbar werden ber Mehr und Zur ck muf zwischen den Dekaden gewechselt werden k nnen Die Buttons erhalten BMP DIB RLE WMF TIF PCX und eine TXT Datei als thumbnail Die Dateien BMP DIB RLE WMF m ssen im Button eingepa t sichbar werden Die an deren Dateien finden keine Ber cksichtigung ohne Systemfehler Es sind eine passende und eine zu gro e Animation zuzuweisen Im 1 Fall wird die Animation gespielt im 2 nicht Eine g ltige Animation ist ein Mal ohne eine Zuweisung zu animreplay und ein Mal mit den Zuweisungen animreplay 1 0 1 und 10 abzuspielen Im 1 Fall muf die Animation genau 1 mal gespielt werden Im 2 Fall muf spielt die Animation endlos spielen Im 3 Fall darf die Animation nicht abgespielt werden Im 4 Fall muf die Animation genau 1 mal gespielt werden im 5 Fall mu die Animation genau 10 mal gespielt werden sound wird eine ung ltige Datei namens error wav zugewiesen Es darf kein Klang gespielt werden ohne Systemfehler Eine g ltiger Klang ist ein Mal ohne eine Zuweisung zu soundreplay und ein Mal mit den Zuweisungen soundreplay 1 0 1 und 10 abzuspielen Im 1 Fall muf der Klang genau 1 mal gespielt werden Im 2 Fall muf spielt der Klang endlos spielen
26. Abgrenzung Die Eingabe Gestaltung und Aufarbeitung der wieder zugebenden Informationen sind mit Ausnahme von Testdateien nicht Inhalt dieser Arbeit Weitere inte grierbare Elemente wie Netzwerk Kommunikation zwischen verschiedenen Filialen Kundenspezifizierung durch Magnetstreifenleser Bestellautomation Sprach steuerung Tools zur Datenaufbereitung u sind eben falls in dieser Ausf hrung nicht ber cksichtigt L sungs Ans tze Kapitel 2 1 2 1 Die MPC Norm Faszination Multimedia 1993 S 10 11 16 Hardwarevoraussetzung Mit der MPC Norm Multimedia Personal Computer die auf eine Initiative von Microsoft zur ckgeht wurde 1993 im Level eine minimale Konfiguration definiert die ein Computersystem ben tigt um sich Multimedia nennen zu d rfen Diese besteht aus Computer IBM PC oder kompatibel e 80486SX 25 MHz Prozessor e VGA Grafikkarte und passendem Monitor f r 65 535 64K Farben 4MByte RAM 160 MByte HDD 2 5 Laufwerk 1 44 MByte Kapazit t Maus mit zwei Tasten Eineserielle und eine parallele Schnittstelle e 16 Bit Soundkarte e CD ROM Laufwerk mit 300 KByte s Datentransfer und einer durchschnittlichen Zugriffszeit von maxi mal 400 ms bei Auslastung der CPU von weniger als 6096 Windows 3 1 oder neuer Da diese Minimalausstattung f r den hohen Daten transfer bei Bildern und Videos nicht die m gliche Ge schwindigkeit liefert wie es bei anderen Computern
27. Das Kiosk System kann folgende Dateiformate erken nen und umsetzen ANSI Format Entspricht dem genutzten Zeichensatz von Windows Keine weiteren Deklarationen enthalten MS Rich Text Format Eine RTF Textdatei Liegt im ANSI Format vor Die Kennung erfolgt ber die ersten sechs Byte die iden tisch mit rtf1 sein m ssen Jeder Formatbefehl wird immer durch einen Backslash eingeleitet Alle Formatierungsabschnitte eines Textes sind durch ge schweifte Klammern begrenzt Eine RTF Datei beginnt immer mit und endet immer mit Folgende Formatierungsbefehle kommen f r die Textausgabe zur Wirkung rtf identifiziert die Datei als RTF Datei und gibt die Versionsnummer n des benutzten RTF Standards an colorttbl Wedrgreengblueb pem erzeugt eine Farbtabelle f r die Textaus gabe Sie besteht aus mindestens einer Farbdefinition Jede Farbdefinition be steht aus je einer red green und blue Anweisung mit abschlie endem Semikolon 5 F r r g und b sind Intensit tswerte im Bereich 0 bis 255 zul ssig NOH EE setzt die Textausgabefarbe auf den Tabellenwert n Der erste Eintrag einer definierten Farbtabelle hat den Index Eins Ist f r n Null angegeben wird die Untergrundfarbe gew hlt 43 Kapitel 3 2 2 Absatzattribute is rods setzt den linken Einzug f r alle Zeilen auf n Twips n 1440 Zoll MIN PU setzt den linken Einzug f r die erste Zeile eines Absatzes auf
28. Klang direkt nach dem Laden Ist Picture_While_Sound ein Wert ungleich Null zuge wiesen wird ein Bild mit dem Beenden des Klanges vom Bildschirm genommen 27 Kapitel 3 1 1 28 Textdatei Format Bild statt Text Druckoption Makrobefehle 2 Teil F r Sound While Anim k nnen die Werte 1 oder 2 zugewiesen werden Bei einer Zuweisung von Eins be ginnt ein Klang mit jeder Animationswiederholung von vorne Die Klangwiederholungen sind durch sound replay begrenzt Der aktuelle Abspielstatus und eine Verz gerung haben keinen Einflu Eine Zuweisung von Zwei l t einen Klang nach seinen gesetzten Optionen solange abspielen bis die Animati on beendet wurde oder alle Klangwiederholungen aus gef hrt wurden Texte k nnen im ANSI Format als unformatierter Text bzw im MS Rich Text Format als formatierter Text ausgegeben werden F r die Textausgabe steht ein Bereich zur Verf gung der halb so breit wie der Bild schirm ist Die H he des sichtbaren Bereiches ist ab h ngig von der H he eines dargestellten Bildes bzw ei ner Animation Der Textausgabebereich kann maximal die gesamte Bildschirmh he abz glich einer Informationszeile einnehmen Ist der gesamte Text nicht gleichzeitig sichtbar l t sich dieser ber eine Scroll Funktion verschieben Anstatt einer Textdatei k nnen auch Bilder in diesem Ausgabebereich dargestellt werden Bilder m ssen als BMP bzw WMF Datei inkl Header vorliegen Die B
29. ListBox IstFont FontBold 1 True FontName MS Sans Serif FontSize 12 Height 2430 Left 240 Sorted 1 True Top 480 Width 215 Begin SSPanel txtFontDemo Alignment 6 Center TOP BackColor amp H00CO0COCO amp BevelWidh 2 BorderWidh 4 Caption Funktion Font3D 0 None Height 495 Left 4920 Outline 1 True RoundedCorners 0 False Top 1680 Width es End Listing frmButtonFont Deklarationen frmButtonFont Ereignisse 143 FRMBFONT FRM Listing 145 Anhang C frmDruckKopf Objekte Begin Form frmDruckKopf BackColor amp HOOEOFFFF amp BorderStyle 1 Nicht nderbar einfach ControlBox 0 False Height 5880 Left 2760 MaxButton 0 False MinButton 0 False Top 1425 Width 35025 Begin Frame groop BackColor amp HOOEOFFFF amp Caption Druckkopf Datei WMF FontBold 1 True FontName MS Sans Serif FontSize eu Height 4215 Left 120 Top 1200 Width 4695 Begin SSCommand butScroll BevelWidth 0 Height 620 Index 1 Left 3960 Outline 0 False Picture FRMPRNHD FRX 0000 Top 25020 Width 630 End Begin SSCommand butScroll BevelWidth 0 Height 620 Index 0 Left 3960 Outline 0 False Picture FRMPRNHD FRX 35EE Top 705 Width 630 End Begin PictureBox box BackColor amp H00008000 amp BorderStyle 0 Keine Height ee Left 3960 Top 1305 Width Gils End Begin SSC
30. LoadPicture datDruckkopf Else datDruckkopf picDruckDemo 0 Height 0 End If Druckmodus laden For i 0 To 2 If modDruck And 2 i lt gt 0 Then butDruck i Value True butDruck Click i True End If Next i txtWMFDatei datDruckkopf Mausmodus laden butMaus Click modMaus True Tonmodus laden Button Click modTon True oldPW Password oldSV StartDir oldBF fntButton oldBFS fntButtonSize oldBFB fntButtonBold oldBFI fntButtonltalic oldBC amp colButton oldTF fntInfoText oldHGF amp colHintergrund oldHGM modHintergrund oldDD datDruckkopf oldDM modDruck oldMM modMaus oldTM modTon Width Width 640 ScaleWidth Height Height 480 Scaleheight CenterForm frmlnit End Sub Listing Sub picDruckDemo Paint Index As Integer If Index 2 Then picDruckDemo Index Cls picDruckDemo Index Print Dieses Kiosk System wurde picDruckDemo Index Print von Percy Wippler im picDruckDemo Index Print November 1994 als Diplom picDruckDemo Index Print arbeit f r ein gemein picDruckDemo Index Print sames Projekt der TFH picDruckDemo Index Print Berlin und Vobis ent picDruckDemo Index Print wickelt Es unterst tzt picDruckDemo Index Print Multimedia Formate wie picDruckDemo Index Print AVI WAV WMF BMP und picDruckDemo Index Print RTF Das System wird ber picDruckDemo Index Print INI Dateien konfiguriert picDruckDemo Index Pri
31. Metafile einge setzt Diesen Druckkopf k nnen Sie nachdem der But ton Druckkopf bet tigt wurde mit dem folgenden Dia log ausw hlen VAWMRTITEL WMF Der Dialog zum Wechseln der Druckkopfdatei Es werden nur die Dateien aufgelistet die im WMF Format inkl Header auf dem von Ihnen gew hlten Laufwerk vorhanden sind W hlen Sie die gew nschte Datei mit den Pfeiltasten und best tigen Sie Ihre Wahl mit OK oder verwerfen Sie die Angaben mit Abbreuch Beachten Sie da der Druckkopf immer auf die gesam te Papierbreite gestreckt und in der H he angepa t wird Daher sollten Sie die WMF Druckkopfdatei schon in der Druckpapierbreite entwerfen Wenn Sie eine Soundkarte installiert haben aber den 103 Kapitel 5 4 3 Tonausgabe ein ausschalten Tonausgabe Die Buttons f r die Klang An Aus aktivierung Mauszeiger ein ausschalten Mauszeiger Die Buttons f r die Mauszeiger darstellung Pa wort ndern 104 noch eine Tonausgabe vermeiden m chten k nnen Sie ber den Button Tonausgabe Aus daf r sorgen da zugewiesene Kl nge nicht wiedergegeben werden M chten Sie die Effekte der Ausgabe von Musik und Sprache nutzen aktivieren Sie Kl nge ber Tonaus gabe An Wenn Sie KIOSK V1 0 ber einen Touchscreen betrei ben ist die Darstellung des Mauszeigers berfl ssig Aus diesem Grund k nnen Sie ber die Buttons An und Aus unter Mauszeiger w hlen ob die Maus sich
32. Module in einem Diagramm enthalten identische Bezeichner Zust nde sowie Aktionen k nnen verfeinert werden Verfeinerte Module werden schattiert dargestellt Pro Diagramm existiert genau ein Einstieg Der Ein stiegsname einer unteren Ebene entspricht dem verfei nerten Modulnamen aus der h heren Ebene Module sind immer durch einen bergang verbunden Das Formular enth lt einen Rahmen und eine Fu zeile in der der Name Kontext des Moduls die Ebenen tiefe der Projektname sowie das Datum der letzten Bearbeitung und der Bearbeiter einzuf gen sind Kontext Ebene Standvom Projekt Projektname Die Ebenennummerierung ergibt sich aus der Numme rierung der n chst h heren Ebene gefolgt von einem Punkt und der Nummer des verfeinerten Moduls Glo bale Module die von allen Programmodulen verwen det werden k nnen befinden sich auf der Ebene 0 Die Ebene des Systemmodells ist mit 1 gekennzeichnet Von hier gehen weitere Funktionsmodelle aus 49 Kapitel 3 3 Namensgebung Objektidentifizierung Ereignisidentifizierung 3 4 50 Ereignis Zustands und Aktionsnamen sind zur Identifizierung mit bestimmten Kennungen verse hen Diese gehen dem Objektnamen voran Je nach Objekt sind folgende Kennungen vorgese hen Objekt Kennung Fenster Form frmName Schaltfl che Button butName Textbereich txtName Grafikbereich picName Animationsbereich animName Rahmen frameName Listen IstNa
33. Or oldBFI lt gt fntButtonltalic Or oldBFB lt gt fntButtonBold Or oldBC amp lt gt colButton Or oldTF lt gt fntInfoText Or oldHGF amp lt gt colHintergrund Or oldHGM lt gt modHintergrund Or oldDD lt gt datDruckkopf Or oldDM lt gt modDruck Or oldMM lt gt modMaus Or oldTM lt gt modTon Then Select Case Request 3 KIOSK von Percy Wippler Sollen die nderungen der Chr 10 Initialisierung gespeichert werden Ja Nein Abbruch Case 1 SavelNI Case 3 Exit Sub End Select End If Unload frminit End End If End Sub Sub butButFarbe Click stdDialog Flags 1 stdDialog Color picButFarbe BackColor frminit stdDialog Action colButton stdDialog Color picButFarbe BackColor colButton End Sub Sub butButtonSchrift_Click frmButtonFont Show 1 End Sub 154 Listing FRMINIT FRM Sub butTon Click Index As Integer Value As Integer Dim i96 For i 0 To 1 butTon i Enabled i lt gt Index txtTon i BackStyle i Index Next i modTon Index End Sub Sub Form Load Dim prop As Single Dim 1 code txtStartVerz StartDir txtButtonSchrift fntButton Str fntButtonSize Pkt txtInfoSchrift fntInfoText picButFarbe BackColor colButton picHGFarbe BackColor colHintergrund butHintergrund_Click modHintergrund True If MedGetWMFProp datDruckkopf prop 0 Then picDruckDemo 0 Height picDruckDemo 0 Width prop picDruckDemo 0 Picture
34. RightMargin ctrl TextWidth txtUmbr NeuerAbsatz RTF FirstLeftMargin 2 End Select ctrl Print txtUmbr ctrl CurrentX RTF LeftMargin txt Mid txt i 1 Len txt i InStr txt Chr 10 Wend Select Case RTF Align Case 1 ctrl CurrentX ctrl ScaleWidth RTF RightMargin ctrl TextWidth txt 10 Case 2 ctrl CurrentX ctrl ScaleWidth RTF LeftMargin RTF RightMargin ctrl TextWidth txt NeuerAbsatz RTF FirstLeftMargin 2 End Select ctrl Print txt HeightOfText ctrl CurrentY ctrl Height ctrl ScaleHeight NeuerAbsatz False NeueZeile False Exit Sub IgnoreOutpErr Resume Next End Sub Sub Format Print txt As String RTF As HIE Format Dim i x Dim txtRest As String Dim txtUmbr As String Dim SpcPos As Integer Dim CurX As Integer On Error GoTo IgnorePrintErr If printer FontSize lt gt RTF FontSize Then printer FontSize RTF FontSize RTF FontSize printer FontSize End If printer FontBold RTF FontBold printer Fontltalic RTF Fontltalic printer FontUnderline RTF FontUnderline printer FontStrikethru RTF FontStrikethru printer FontTransparent False If NeuerAbsatz Then printer CurrentX RTF LeftMargin RTF FirstLeftMargin If NeueZeile Then printer CurrentX RTF LeftMargin txtRest txt txtUmbr Gesamte Ausgabe ggf umbrechen CurX printer CurrentX While CurX printer TextWidth txt gt printer ScaleWidth RTF RightMargin txtRest txt Zeilen k
35. Samples zu dumpf so da eine 16 Bit Soundkarte empfehlenswert ist Die Software ist so ausgelegt dab die Tastatur ber fl ssig wird Alle Eingaben erfolgen ber die Maus besser einem Trackball oder am besten ber einen Touchscreen der mittels Windows Treiber die Maus ersetzt Alle Schaltfl chen sind ausreichend gro so da die Bedienung ber einen 15 Monitor ohne Um st nde erfolgen kann Der Mauszeiger kann individuell ein bzw ausgeschaltet werden Da Daten ggf ge druckt werden k nnen sollte in diesem Fall ein Ihren Anspr chen angepa ter Drucker angeschlossen und der entsprechende Treiber installiert sein 83 Kapitel 5 3 84 5 3 Der Installationsdialog Neue Dateien im Windows Verzeichnis Installation Um Ihr System als Kiosk System benutzen zu k nnen m ssen Sie dieses Programm zun chst unter Windows installieren Rufen Sie Windows auf und bleiben Sie im Programm Manager W hlen Sie aus dem Men Datei den Eintrag Ausf hren Kurz darauf erscheint ein Dialogfeld in dem Sie unter Befehlszeile je nach Laufwerkskonfiguration A Setup bzw BASetup ein geben und mit OK best tigen Der Hinweis Das Installationsprogramm wird initialisiert teilt Ihnen mit da die Installation gestartet wurde und sich gleich auf Ihrem Bildschirm pr sentieren wird KIOSK V1 0 Installation Wenn Sie die Anwendung in einem anderen Verzeichnis und oder Laufwerk installieren m chten geben Sie den Namen de
36. animreplay 3 buttonTime title Zeit sparen thumbnail gt picture uhr bmp sound tick wav soundreplay 1 sounddelay 1 buttonMMedia title Multimedia animation mmedia avi animreplay 1 buttonAugen title Sehen thumbnail gt picture augen bmp text Augen rtf sound sprache wav buttonMusik title H ren und Sehen thumbnail gt picture musik bmp sound hiphop wav soundreplay 1 sounddelay 10 animation mmedia avi animreplay 3 ButtonNext title Anderes Thema thumbnail gt erde bmp dir planeten 92 Beispiel Ein Verzeichnis enth lt folgende Dateien INFO INI COMPUTER AVI MMEDIA AVI AUGEN BMP MUSIK BMP UHR BMP SPRACHE WAV MUSIK WAV TICK WAV AUGEN RTF und das Unterverzeichnis PLANETEN mit der Da tei ERDE BMP Die links dargestellte INFO INI erzeugt nach dem ff nen des Verzeichnisses folgende Buttons und spielt die Animation COMPUTER AVI dreimal ab Bei Bet tigung von Zeit sparen wird das Bild der Uhr gro dargestellt und jede Sekunde erfolgt ein Tik ken Bild und Ton sind so lange wahrnehmbar bis ein weiterer Button bet tigt wird Der Button Multimedia l dt die Animation MMEDIA AVI und spielt sie so lange bis ein weiterer Button bet tigt wird Sehen l dt das Bild der im Button sichtbaren Augen zeigt den Text AUGEN RTF und spricht ber SPRACHE WAV ber H ren und Sehen wird die Animation MMEDIA AVI zusammen mit dem sich alle zehn Se kunden wiederholenden Klang HIPH
37. ausw hlen Bei dem Laden eines Dialogfensters wird der Eintrag markiert welcher der aktuelle Einstellung entspricht F r den Datenverzeichniswechsel erh lt der Anbieter ein Dialogfenster welches eines der installierten Lauf werke per Button zur Auswahl zul t und ein Listen 33 Kapitel 34 Infotextschrift wechseln feld enth lt das den gesamten Verzeichnisbaum des ge w hlten Laufwerkes anzeigt Ist ein Laufwerk nicht an sprechbar wird der entsprechende Button mit Feh ler gekennzeichnet und das n chste ansprechbare Laufwerk ausgew hlt 7 Laten varzaemhnis NK Web Lors FAM FIT nr Wes Dk Abbruch Dialog zum Datenverzeichniswechsel Die im Textausgabebereich des Kiosks verwendete Schrift wird ber den Dialog Infotextschrift angepaBt Alle unter Windows verfiigbaren Druckerschriften werden in einem Listenfeld dargestellt Intataxt Schrift Tainted Tier 72344 ET Tan lar Tizuniniil Thurid Times Hire em Dialog zum Infotextschriftwechsel Buttonfarbe ndern Dialog zur Farbauswahl Buttonschriftartwechsel Hintergrunddarstellung ndern Bild zentriert Bild einpassen Bild kacheln Die Auswahlbuttons des Hintergrundmodus Entwurf Die im Kiosk dargestellten Buttons erhalten eine indivi duelle Grundfarbe die ber den Windows Standard dialog Ch
38. bedie nende Initialisierungsmaske zur Verf gung 5 2 Benutzerhandbuch Rechnerkonfiguration Das Programm KIOSK V1 0 l uft auf jedem AT mit 4 MByte RAM auf dem Windows 3 1 oder h her in stalliert ist Jedoch empfiehlt sich wegen der Gr e von Animationen Bildern und Kl ngen eine Konfigu ration mit mindestens 8 MByte Da in vielen F llen Grafiken und Animationen den Vorrang bei Pr senta tionen haben sollte eine Grafikkarte installiert sein die Echtfarbengrafiken mindestens aber 64K Farbgrafi ken darstellen kann Echtfarbenbilder werden bei einer niedrigeren Farbanzahl von Windows in den meisten F llen sehr unansehnlich Die Bildschirmaufl sung ist beliebig sollte jedoch so gew hlt werden da Schrif ten gut lesbar bleiben Hierzu reicht oft eine Aufl sung von 640x480 Pixeln nicht aus Als Kompromi zwi schen Darstellungsvielfalt Geschwindigkeit und Preis wird ein 80486 DX2 Prozessor 16 MByte Ram und eine Bildschirmaufl sung von 800x600 Pixeln 64K Farben empfohlen Die Gr e der Festplatte h ngt vom Umfang der Pr sentationsdateien ab Um in mehreren Stationen gleiche Daten zu integrieren wird h ufig das Medium CD ROM genutzt so da ein entsprechendes Lauf werk und ggf eine mindestens 640 MByte gro e Fest platte zur Aufnahme der Daten vorhanden sein sollte F r das Abspielen von Kl ngen mu eine Soundkarte je nach Anspr chen der Klangqualit t installiert sein Im allgemeinen klingen 8 Bit
39. ber Windows und DOS Funktionen Hierarchie ber Verzeichnisse Makroabarbeitung ber Windows INI Dateien Es kommt lediglich beim Eintreten eines Er eignisses u U zur Aufbereitung von Daten und somit wieder zu Zustands nderungen SADT beschreibt eine Prozessorganisation in Abh n gigkeit von Steuerungen Mechanismen und Daten inhalten Grunds tzlich wirkt auf ein Objekt zu einem Zeitpunkt immer nur ein Ereignis ein Es ergibt sich 2 3 1 ZA Elemente Ausl ser Ergebnis Name L sungsans tze zwar eine m gliche Abh ngigkeit vom Datenzustand aber mehrere Mechanismen und Steuerungen wie es unter SADT beschreibbar ist finden nicht gleichzeitig statt Zustands Aktions Modelle werden den Anforderun gen sofern keine Parallelprozesse Meta Zust nde modelliert werden m ssen gerecht Im System kommt es zwar zur Abarbeitung von multi tasking hnlichen Prozessen jedoch bernimmt deren Kontrolle Windows selbst Resultate der Animations und Klang verwaltung werden von Windows als Ereignis gemel det Bsp Klang beendet Auf die umfangreichere Mo dellierung mittels Petri Netze kann verzichtet werden da die einfachere Form dieser als ZA den Bedingun gen gen gt und Petri Netze w hrend des Studiums nicht ausreichend vertieft wurden Elemente des ZA Elemente der methodischen Darstellung nach ZA sind Einstieg Modulname Zustand bergang Aktion 19 Kapitel 2 4 20 2 4 Tex
40. butScroll Click 6 frminfoFont markierte Schrift an d sichtbar Markierung in IstFont frminit bergeben butOK_Click J4 Markierung Change versetzen IstFont Scroll butAbbruch Click ntinfotext Change v 8 frminfoFont schlie en frminfoFont_Unload 1 frminfoFont ee Infotextschrift wechseln Ebene 166 Tstandvom 230994 Projekt Kiosk VIO Bearbeiter Lk Entwurf Druckkopf wechseln Le 2 Laufwerke ermitteln Laufwerke gelesen 3 Laufwerkbutton erzeugen butLaufwerk_Load v 4 frmDruckKopf anzeigen frmDruckKopf_ Paint 5 Verzeichnisse und deren WMF lesen Verzeichnisse und Dateien gelesen 6 Verzeichnisse und Dateien in IsFile auflisten Laufwerk_Change ll IstFile_Change 7 Aktuellen bzw 1 Eintrag in IstFile Verzeichnis markiert 9 butScroll Click 10 gt Laufwerk wechseln Markierung in IstFile butLaufwerk Click versetzen Markierung Change IstFile Scroll butOk Click 11 butAbbruch Click markiertes Verzeichnis an frminit bergeben datDruckKopf_Change Ip frmDruckKopf schlie en rmDruckKopf Unload frmDruckKopf Ebene 167 28 06 7884 Projekt Kiosk V7 0 Bearbeiter Let Kapitel 3 4 Pass
41. der Nachteil daran ist Der Vorteil ist die einfa che technische Umsetzung f r Entwickler und Anwen der da sich diese Makros nach dem Prinzip der Windows INI Dateien erstellen und abfragen lassen und dies somit keine Fehleranf lligkeit zur Folge hat Bei der Planung wurde f r die zweite Variante entschie den Da das Kiosk System mit anderen Systemen kommuni zieren k nnen soll aber nicht bekannt ist wie diese Kommunikation aussieht ist eine Schnittstelle zu defi nieren die ber die Entwicklung eines speziellen Trei bers erfolgen kann Da in Windows alle Programmteile aus Dynamic Link Librarys bestehen DLL DRV EXE VBX liegt die Nutzung dieses Prinzips nahe In einer DLL k nnen beliebige Funktionen die auch Hardware Steuerungen bernehmen k nnen integriert sein Entwurf Entwurf 25 Kapitel 3 1 26 3 1 3 1 1 INFO INI Makrobefehle 1 Teil Benutzerschnittstellen Die Schnittstellen f r den Benutzer sind in zwei Berei che zu gliedern 1 Schnittstelle Makros 2 Schnittstelle Benutzeroberfl chen Makros Makros der entwickelten Software sind im ANSI For mat gespeicherte Textdateien die den Namen INFO INI bzw INDEX INI erhalten Eine INFO INI weist dem Kiosk System Aktionen zu die einer Buttonbet tigung oder einem Verzeichniswechsel fol gen sollen Aktionen werden je nach Ursache ber Action bzw ButtonName eingeleitet Action ist die Reaktion auf einen Verzeichniswec
42. durch geschweifte Klammern P begrenzt Eine RTF Datei beginnt immer mit und endet immer mit Somit l t sich diese Datei ber die ersten sechs Zeichen identifi zieren die immer rtf plus Versionsziffer lauten m s sen Von den im RTF definierten Formatierungsbefehlen er kennt KIOSK V1 0 die folgenden rtfn identifiziert die Datei als RTF Datei und gibt die Versionsnummer n des benutzten RTF Standards an colorttbl redr greeng blueb ee erzeugt eine Farbtabelle f r die Textaus gabe Sie besteht aus mindestens einer Farbdefinition Jede Farbdefinition be steht aus je einer red green und blue Anweisung mit abschlie endem Semikolon 5 F r r g und b sind Intensit tswerte im Bereich 0 bis 255 zul ssig e A setzt die Textausgabefarbe auf den Tabellenwert n Der erste Eintrag einer definierten Farbtabelle hat den Index Eins Ist f r n Null angegeben wird die 95 Kapitel 5 4 2 Absatzattribute Zeichenattribute Ausgabeattribute 96 Untergrundfarbe gew hlt Setzt den linken Einzug f r alle Zeilen auf n Twips n 1440 Zoll setzt den linken Einzug f r die erste Zeile eines Absatzes auf n Twips setzt den rechten Einzug f r alle Zeilen auf n Twips n 1440 Zoll richtet Text linksb ndig aus richtet Text rechtsb ndig aus zentriert Text mittig setzt alle Absatzattribute auf Standard werte Ausrichtung linksbi
43. eine BMP Datei dw w dh h If SetPicSize picAusgabe dw dh Then Bild pa t so wie es ist If bits lt 8 And BitsPixel lt 8 Then picAusgabe Picture LoadPicture bmp Else If BitsPixel lt 8 Then picAusgabe Picture LoadPicture MedSetBMP picAusgabe hDC 0 0 w h 0 bmp Bild normal ausgeben End If Else If w dw gt h dh Then dh dw h w Bild einpassen H he anpassen Else dw dh w h96 Bild einpassen Breite anpassen End If dummy SetPicSize picAusgabe dw dh If BitsPixel lt 8 Then If bits lt 8 Then picAusgabe Picture LoadPicture omp Else picAusgabe Picture LoadPicture End If End If MedSetBMP picAusgabe hDC 0 0 dw dh 3 bmp End If frameAusgabe Visible True frameAusgabe Refresh picAusgabe Visible True picAusgabe Refresh Else If MedGetWMFProp bmp WMFprop 0 Then 174 FRMUSER FRM Listing FRMUSER FRM frmUser Ereignisse Listing Anhang C FRMUSER FRM For 1 0 To LoadedButtons 1 butTheme i Left distance i And 1 distance butTheme i Width Nexti For i 6 0 To 5 butControl i Left distance And 1 distance butControl i Width Nexti txtInfo Left frmUser ScaleWidth distance txtInfo Width txtAusgabe 1 Left frmUser ScaleWidth distance Not butScroll 0 Visible butScroll 0 Width 2 txtAusgabe 1 Width butScroll 0 Left frmUser ScaleWidth distance
44. fragt ob jetzt oder sp ter gedruckt werden soll 2 Fall Drucker Spooler nicht leer Ein Request fragt ob gedruckt oder neue Daten gespoolt werden sollen Zum Spoolen wird der 1 Fall ausgef hrt lt Kommentar gt Kommentar gestattet dem Kunden ber das Tastaturfenster einen beliebigen Kommentar zu ge ben der in einer Textdatei VORSCHLG TXT im ANSI Format gespeichert wird Je nach Arbeitsvorgang oder Zustand des Kiosks wer den in der Infozeile folgende Texte ausgegeben Warten Sie bitte einen Moment Mehr zeigt Ihnen weitere Themen Zur ck zeigt Ihnen vorherige Themen Zur ck zeigt Ihnen Ihr letztes Thema W hlen Sie bitte ein Thema Verschieben Sie den Text mit den Pfeiltasten Lade Daten zum Thema Themenbuttontitel Derzeitige Auswahl Themenbuttontitel Ordnen Sie die Schaltfl chen gem Ihrer Gew h nung an Bitte machen Sie Ihre Eingabe und beenden Sie mit lt SchlieBen gt R ckfrage W hlen Sie bitte eine der Antworten Die Daten werden gedruckt Die Druckdaten werden erstellt Nach f nf vergangenen Minuten ohne Bet tigung eines Buttons schaltet der Kiosk automatisch in die ber sicht zur ck 41 Kapitel 3 1 2 2 112 383 4 5 06 7 8 e0 e0 ZU o P AS DFGHJKCLOA Y X C BN M Schilehen Der Dialog zur Index Suche 3 1 2 3 42 Fiir die Suche eines bestimmten Themas besteht die M glichkeit ber die Tastatur einen Bereich ei
45. gew hlten Modus dargestellt Befindet sich in im aktuellen Verzeichnis keine aber in einem Oberverzeichnis diese Datei wird diese Bild im Hintergrund dargestellt Beim Weg des Vorgehens mu ber lt Zur ck gt nachvollziehbar sein Es ist in verschiedene Verzeichnisse mittels Suchen zu gehen Beim Weg ber Zur ck m ssen ebenfalls alle gegangenen Wege abgehbar sein 115 Listing Listing 117 Anhang C GLOBAL BAS Globale Deklarationen Declare Sub GetltemPrice Lib KIOSKDRV DLL ByVal Intemnr ByVal price Declare Sub GetltemInvent Lib KIOSKDRV DLL ByVal Intemnr ByVal item Declare Function MedGetDCColors Lib MEDIA DLL ByVal hDC As Integer Declare Function MedProofAVI Lib MEDIA DLL ByVal filename As Integer Declare Function MedProofBMP Lib MEDIA DLL ByVal filename As Integer Declare Function MedProofWAV Lib MEDIA DLL ByVal filename As Integer Declare Function MedProofWMF Lib MEDIA DLL ByVal filename As Integer Declare Function MedGetAVISize Lib MEDIA DLL ByVal filename w h As Integer Declare Function MedGetBMPSize Lib MEDIA DLL ByVal filename w96 h bits As Integer Declare Function MedGetWMFProp Lib MEDIA DLL ByVal filename Height To Width As Single As Integer Declare Function MedGetDC Lib MEDIA DLL ByVal hwnd As Integer Declare Sub MedSetBMP Lib MEDIA DLL ByVal hDC ByVal 1 ByVal t ByVal w ByVal h ByVal prop ByVal filename Decla
46. r Windows oder Visual C und ent sprechende Programmierkenntnisse Die zu erzeugende DLL mu zwingend den Namen KIOSKDRV DLL erhalten in der mindestens zwei Prozeduren oder Funktionen mit den Namen GetltemPrice und GetltemInvent als exportierbar deklariert sind Beiden Routinen werden beim Aufruf zwei Pointer auf Null terminierte Strings bergeben Der erste zeigt auf einen String der die Artikelnummer enth lt der zweite zeigt auf einen 255 Zeichen gro en Puffer der das Ergebnis der Ermittlung aufnimmt Die ser zur ckgegebene String wird in den ausgegebenen Text eingef gt Nachfolgend sehen Sie ein unter Bor land Pascal 7 0 entwickeltes Beispiel einer KIOSKDRV DLL Der Quellcode der installierten KIOSKDRV DLL Entwickelt von Percy Wippler Programmiersprache Borland Pascal 7 0 library KIOSKDRV uses Strings procedure GetltemPrice ItemNr PChar price PChar export begin StrLCopy price Bitte erfragen 14 end procedure GetltemInvent ItemNr PChar invent PChar export begin StrLCopy invent Bitte erfragen 14 end exports GetltemPrice exports GetltemInvent begin end 98 Ein Beispielprogramm f r eine KIOSKDRV DLL Speichern Sie die compilierte Datei unter dem Namen KIOSKDRV DLL in Ihrem Windows Verzeichnis 5 4 3 Die Initialisierungsmaske Datenverzeichnis wechseln Benutzerhandbuch Initialisierung Nachdem Sie KIOSK V 1 0 gestartet haben k nnen Sie w hlen ob das S
47. red red mod 256 Green Green 32 if Green gt 255 then begin Green green mod 256 Blue Blue 64 mod 256 end end if end for end procedure MedSetBMP DC hDG left top width height integer prop integer filename PChar export var hFile Integer File Handle f r Windows File Funktionen hBmp THandle Handle f r Bitmap Speicher BmpSize ClrOnt Longint Gr Be der Bitmap Anzahl der Farben PBitmaplnfo Windows Bitmap Format Infoheader Header TBitmapFileHeader Bitmap Fileheader relation real Proportionalfaktor w h x y integer i byte begin hFile _LOpen FileName of Read Datei f r Lesezugriff ffnen if hFile 1 then Exit Datei konnte nicht ge ffnet werden if LRead hFile Header SizeOf Header lt gt SizeOf Header Bitmap Fileheader lesen or Header bfType BMType then begin _LClose hFile Fehler beim Lesen des Headers Exit end BmpSize LFileSize hFile SizeOf TBitmapFileHeader Rest der Datei lesen hBmp GlobalAlloc GMEM MOVEABLE BmpSize Speicher reservieren if hBmp 0 then begin _LClose hFile Nicht genug Speicher frei Exit end pIH GlobalLock hBmp Pointer auf gesperrten Speicher setzen if HugelO Lead hFile plH BmpSize lt gt 0 InfoHeader Palette Daten lesen and plH bmiHeader biSize SizeOf TBitmapInfoHeader then begin gelesener Header Var Gr e CIrCnt Header bfOffBits Si
48. x Ausdehnung des Zielrechtecks DestHeight bestimmt die virtuelle y Ausdehnung des Zielrechtecks SrcX bestimmt die x Koordinate in Pixel des Quell Rechtecks SrcY bestimmt die Koordinaten in Pixel des Quell Rechtecks im DIB SrcWidth bestimmt die Breite in Pixel des Quell rechtecks im DIB SrcHeight bestimmt die H he in Pixel des Quell rechtecks im DIB Bits zeigt auf die Bits des DIB die in einem Array von Bytes abgelegt sind BitsInfo zeigt auf eine TBITMAPINFO Datenstruktur die Information ber das DIB enth lt Usage gibt an ob die Elemente bmiColors des Para meters BitsInfo ausdr ckliche RGB Werte oder Indi zes auf die gegenw rtig verwendete virtuelle Palette enthalten Der Parameter Usage kann einer der folgen den Werte sein DIB Pal Colors wenn die Farbtabelle aus einem Array von 16 Bit Indizes auf die aktuell verwendete virtuelle 77 Kapitel 4 1 Wertbedeutung R ckgabewert Palette besteht oder DIB RGB Colors wenn die Farbtabelle RGB Werte enth lt DIB_Pal_Colors Die Farbtabelle besteht aus einem Array von 16 Bit Indizes auf die aktuell verwendete virtuelle Platte DIB_RGB_Colors Die Farbtabelle enth lt literale RGB Werte Rop legt die vom GDI durchzuf hrende Raster operation fest Die Codes der Rasteroperationen be stimmen wie das GDI Farben bei Ausgabeoperationen kombiniert die einen aktiven Pinsel ein m gliches Quell Bitmap und ein Zielbitmap einschlie en Die Li
49. 37 c B Case 38 c N Case 39 c M Case 40 c Case 41 c End Select butChar i Top Top 3 h abstand butChar i Left Ift w 1 5 1 33 w abstand butChar i Caption c butChar i Visible True Next i butBackSpace Left butChar 32 Left butBackSpace Top butChar 1 Top butSpace Top Top 4 h abstand butSchliessen Top butSpace Top butSchliessen Left butChar 32 Left w butSchliessen Width 2 butSpace Left butSchliessen Left butSpace Width 20 h frmKeyboard Width frmKeyboard ScaleWidth frmKeyboard Width h butChar 32 Left w abstand 5 h frmKeyboard Height 1 frmKeyboard ScaleHeight frmKeyboard Height h butSpace Top w abstand 5 frmKeyboard Top Screen Height frmKeyboard Height frmKeyboard Left Screen Width frmKeyboard Width 2 txtAnzeige Width frmKeyboard ScaleWidth frmKeyboard FontName txtAnzeige FontName frmKeyboard FontSize txtAnzeige FontSize Showchar txtAnzeige Width frmKeyboard TextWidth A If KeyboardMode 0 Then txtAnzeige Password bitte End Sub Sub Form Paint KeyboardText fr mKeyboard Tag If KeyboardMode lt gt 0 Then ShowText KeyboardText End Sub Function GetINISTring KeyName Default Dim anz RetString RetString Space 50 anz GetPrivateProfileString Initialisierung KeyName Default RetString 50 datKiosklni GetINISTring Left RetString an
50. Absatz False NeueZeile False Exit Sub IgnorePrintErr Resume Next End Sub Sub GetRTFPart ctrl As Control Filenr As Integer FilePos As Integer OldFormat As RTF_Format SendToPrinter As Integer Dim KlammerAuf KlammerZu Vergleicht ge ffnete und geschlossene Abschnitte Dim BackSlash Z hlt die Befehlsposition in einem Abschnitt Dim comm As String Befehlsbezeichner Dim commline As String Befehl Parameter Dim param As String Parameter Dim paramres As Long Parameter als Zahl Dim outp As String Ausgabestring Dim Char As String 1 Zu bearbeitendes Zeichen Dim nChar As String 1 N chstes zeichen Dim IsComm As Integer Befehl bekannt oder nicht TRUE FALSE Dim actFormat As HIE Format Aktuelle Ausgabe Formatierung Dim StartOfExtraComm As Integer Position eines Dim NewTabs As Integer Anzahl der im Abschnitt neu erzeugten Tab Stops Dim i96 On Error GoTo Ermittlungsfehler actFormat OldFormat Format in diesem Bereich bernimmt die vorherige BackSlash 0 Get Filenr FilePos nChar While nChar lt gt And Not EOF Filenr Char nChar FilePos FilePos 1 Get Filenr FilePos nChar Select Case Char Case Neuer Bereich If outp lt gt Then If SendToPrinter Then Format Print outp actFormat Else Format Output ctrl outp actFormat End If 124 Listing RTFGLOB BAS Listing Anhang C RTFGLOB BAS ulO schaltet Unterstreichen aus If comm ULO Then IsComm True
51. As Integer animCounter As Integer datPic As String datSound As String soundreplay As Integer soundCounter As Integer datText As String dir As String ItemNr As String printable As Integer End Type Type PathRec path As String Button As Integer End Type Global ProgramDir As String Verzeichnis dem datPropose gespeichert wird KIOSK EXE Verz Global ExitDelay As Integer Global ScreenFonts As String Global KeyboardMode As Integer Global StartDir As String Global fntButton As String Global fntButtonSize As Integer Global fntButtonBold As Integer Global fntButtonltalic As Integer Global colButton As Long 118 Globale Prozeduren Funktionen GLOBAL BAS Listing Sub mouseVisible Visible If Visible Then While ShowCursor 1 lt 1 Wend Else While ShowCursor 0 gt 1 Wend End If End Sub Function request IconNr titel txtAnzeige Buttons As Integer Dim ButtonAnz TrennPos Trenn ButtonWidth 1 Wi abstand FormWidth ButtonLeft flexible Message Box Parameter IconNr kein Icon1 1 3 Vorgabe Icon1 d txtAnzeige Request Text Y Button Texte der Buttons getrennt durch Ergebnis Nummer des angew hlten Buttons If IconNr 0 Then frmRequest Icon1 0 Visible False frmRequest txtAnzeige Left 8 Else frmRequest Icon1 0 Picture frmRequest Icon1 IconNr 1 Picture End If ButtonAnz 1 TrennPos 1 Do Buttons erstellen ButtonAnz ButtonAnz
52. BMP Case 1 MedSetBMP frmUser hDC O O frmUser ScaleWidth frmUser ScaleHeight 2 verz datBckBMP Case 2 MedSetBMP frmUser hDC 0 0 frmUser ScaleWidth frmUser ScaleHeight 0 verz datBckBMP y E X W Do While x lt frmUser ScaleWidth MedMovelmg frmUser hDC 0 0 w h x96 y X X W Wend y y h x 0 Loop Until y gt frmUser ScaleHeight End Select frmUser Refresh End Sub Sub SetbutTheme Dim File As Integer Dim butCount As Integer Dim zeile bmp i butCount 0 Pr fen ob INFO INI vorhanden If Dir datInfoIni Then Exit Sub Alle Button Themenamen lesen File FreeFile Open datInfolni For Input As File While Not EOF File Line Input File zeile If UCase Left zeile 7 BUTTON Then ReDim Preserve Theme butCount zeile Mid zeile 2 Len zeile 2 wegschneiden Theme butCount InitName zeile butCount butCount 1 End If Wend Close File Keine Buttons zu erzeugen If butCount 0 Then Exit Sub PrintInfo strWait txtInfo Refresh Lese Info Daten For i 0 To butCount 1 Theme i datPic GetINFOString Theme i InitName picture Theme i datAnim GetINFOString Theme i InitName animatioin Theme i datSound GetINFOString Theme i InitName sound Theme i datText GetINFOString Theme i InitName text 173 Anhang C zeile GetINFOString Theme i InitName dir ggf Backslash am Ende l s
53. Corners 0 False Visible 0 False End Begin PictureBox picAusgabe AutoRedraw 1 True BackColor amp H00CO0COCO amp BorderStyle 0 Keine Visible 0 False End Begin SSPanel frameAusgabe Alignment 8 Center BOTTOM BackColor amp H00COCOCO amp Bevellnner 1 Inset BevelWidh 2 Visible 0 False End Begin MMControl mciAVI AutoEnable 0 alse BackVisible 0 False DeviceType AVIVideo EjectVisible 0 False Enabled 0 False NextVisible 0 False PauseVisible 0 False PrevVisible 0 False RecordVisible 0 False Silent 1 True StepVisible 0 False StopVisible 0 False Updatelnterval 0 Visible 0 False End Begin MMControl mciWAV AutoEnable 0 alse BackVisible 0 False DeviceType WaveAudio EjectVisible 0 False Enabled 0 False NextVisible 0 False PauseVisible 0 False PrevVisible 0 False RecordVisible 0 False StepVisible 0 False StopVisible 0 False Updatelnterval 0 Visible 0 False Listing 163 Anhang C FRMUSER FRM frmUser Deklarationen Konstante f r butControl Const Zurueck 0 Const mehr 1 Const uebersicht 2 Const Suchen 3 Const drucken 4 Const kommentar 5 Konstante f r butHand Const rechts 0 Const links 1 String Konstante Const strWait Warten Sie bitte einen Moment Const strMore lt Mehr gt zeigt Ihnen weitere Themen Const strBack2 l
54. Er kl rung deren Hintergrundes Wenn Sie den Film Roger Rabbit kennen entspricht es der Schlagkombination welcher der Hase nicht widerstehen kann und die ihm sogar fast zum Verh ngnis wird Aber sicherlich ist das nicht der eindeutigste Hinweis Daher wird hier noch eine bekannte Melodie gezeigt die dahintersteckt ESA NG EEE HERE Y CA da 7 l Y 2 107 Jam ta ta ta tam ta taaaa oder B H H BH B B Das Kommentarergebnis 5 5 2 Benutzerhandbuch Hierbei steht B f r Button und H f r den Hintergrund Wenn Sie zwischendurch einen anderen Button ber h ren oder diese Reihenfolge verlassen m ssen Sie von vorn anfangen Somit ist gew hrleistet da der Kunde das Programm nicht beenden kann weil man in aller Regel nicht willk rlich geordnet auf dem Bildschirm rumtippt zumal noch nicht einmal ausschlie lich Schaltfl chen betroffen sind Der Button Kommentar bietet dem Kunden die M g lichkeit einen Einzeiler einzugeben der stichpunktartig beschreibt was ihm an Informationen oder Artikeln bzw Dienstleistungen Ihres Betriebes fehlt Diese Ein gaben werden mit vorangehendem Datum in einer Da tei namens VORSCHLG TXT im ANSI Format ge speichert Diese Textdatei die Sie in dem Verzeichnis von KIOSK EXE wiederfinden k nnen Sie als Anbie ter jederzeit z B mit dem Windows Editor lesen und bearbeiten Abschlie end ist noch zu sagen da das Programm in die bersicht als
55. Grafik mit Text Funktionsbutton ohne Grafik mit Funktionssymbol Funktionssymbole f r Buttons Themenbutton mit Grafik und Textfeld Scroll Leiste mit 2 Funktionsbutton Buchstabenbutton f r Tastatur Text und Listenfeld mit Scroll Leiste Infoleiste mit einer zentrierten Textzeile Schaltfl chen sind so anzuordnen da bei einer Bet ti gung der Arm nicht den gesamten Bildschirm ber deckt Somit ist ebenso eine Funktion zu berdenken die eine Umgestaltung des Bildschirms zur Folge hat F r Rechtsh nder auf der rechten Seite des Bildschirms Funktionstasten und links die Ausgabe f r Linksh n der entgegengesetzt Das System soll sich dem Benutzer anpassen nicht der Benutzer dem System fi p Linksh nder Bechtshander Buttons f r die Rechts Linksanordnung 21 Kapitel 2 5 22 2 5 Benutzerschnittstellen Die Einbindung von Medien soll im System flexibel ge staltbar sein Eine aufwendige Programmierung soll umgangen werden aber eine Steuerung ber Makros m glich sein Zwei M glichkeiten stehen zur Diskussi on Erstens kann ein Makro sequentiell ausgelesen und abgearbeitet werden Hierbei kann eine beliebige Folge von Bildern Animationen Kl ngen Texten Pausen und Wiederholungen ausgegeben werden Zum zwei ten steht ein hierarchiefreies Abarbeiten eines Makros zur Auswahl Dieses Prinzip l t jede Zuweisung und somit jede Art von Medium pro Thema genau einmal zu was
56. Icon1 Height 510 Index eg Left 7200 Picture FRMREQU FRX 3BOBC Top 1800 Visible 0 False Width 15110 End Begin PictureBox Icon1 Height 510 Index 1 Left 6600 Picture FRMREQU FRX 3B3BE Top 1800 Visible 0 False Width S10 End Begin PictureBox Icon1 AutoSize 1 True BackColor amp H00404080 amp BorderStyle 0 Keine Height 480 Index 10 Left 120 Picture FRMREQU FRX 3B6C0 Top 360 Width 480 End 130 FRMREQU FRM Begin Label txtTitel Alignment 2 Mitte BackStyle 0 Transparent Caption Titel FontBold 1 True FontName MS Sans Serif FontSize 9 75 ForeColor amp HOOEOFFFF amp Height 25 Left 0 20 Width 227095 End Begin Label txtAnzeige Alignment 2 Mitte AutoSize 1 True BackColor amp HOOEOFFFF amp Caption Fragetext FontBold 1 True FontName MS Sans Serif FontSize 12 ForeColor amp H00000080 amp Height 300 Left S Top 360 Width 2955 WordWrap nme End End frmRequest Ereignisse Sub Button_Click Index As Integer frmRequest Tag Str Index frmRequest Hide End Sub Listing frmKeyboard Objekte frmKeyboard Deklarationen Begin Form frmKeyboard Dim KeyboardText As String BackColor amp HOOA2BFBE amp Dim Showchar As Integer BorderStyle 1 Nicht nderbar einfach Dim touchdown As Integer ControlBox 0 False Dim wait As Integer FontBold 2 0 False FontName Courier FontSize
57. Integer Dud l schen nach Sound Dim AnimReplay As Integer Anzahl der noch abzuspielenden Animationen Dim FullPicSize As Integer Keine Textdatei erzeugt groBe Ausgabe Dim picResize As Integer Scrollbar nur ver ndern bei Resize Dim bitmap As String Darzustellendes Bild nach Ablauf der Animationen Dim TextFile As String Dargestellter Text Dim Thema Aktuell gew hltes Thema Dim Theme As ThemeRec Informationen der geladenen Buttons Dim way As PathRec Speichert die gegangenen Pfade Dim Goback As Integer Auswahl ber Zur ck Button Dim c amp 3 Schattierungen f r Buttons Sub ButtonPressed EndCode 0 minuten 0 ResetTimer Enabled False ResetTimer Enabled True ResetTimer Interval 60000 End Sub Sub ChangeDir directory As String Dim avi wav bmp arep wrep wdel waanim txt Dim i96 printable Part Part Action If Dir directory 16 Then Pr ft ob Verzeichnis existiert directory Exit Sub End If 164 ChDir directory Verzeichnis wechseln directory CurDir Verzerzeichnis um gesamten PFadnamen erg nzen i directory StartDir butHana rechts Visible i butHand links Visible 1 butControl uebersicht Visible Not i96 HideMedia MM stoppen und Ausgabebereiche unsichtbar HideButTheme Alte Buttons l schen SetBackgrPic Hintergrunabild laden SetbutTheme Neue Buttons laden If Not Goback And way UBound way button lt gt 1 Then MM Dat
58. Komma ge trennt der Name des Buttons der in INFO INI des gew hlten Verzeichnisses hinter der Zuordnung ButtonName steht Die Gro Kleinschreibung bleibt unbeachtet Entf llt Pfad wird in das Datenverzeichnis gewechselt Entf llt die Angabe eines Buttonnames wird nur das angegebene Verzeichnis ge ffnet Benutzeroberfl chen Die in Kapitel 2 definierten Objekte der grafischen Be nutzeroberfl che sind immer Teil eines Fensters Fen ster k nnen sich berlagern Ein Fenster welches durch berlagerung in den Hintergrund ger t wird automa tisch inaktiv und h lt diesen Zustand bis das ber lagernde Fenster geschlossen wird Jedes Fenster ent h lt mindestens ein Objekt zum Schlie en desselben Alle Fenster sind nicht in der Gr e und Position durch den Benutzer ver nderbar Sie enthalten weder Titel leiste System Button Min Max Button noch Windows spezifische Men s Die Bedienung der Be nutzeroberfl chen erfolgt ber Windows Maus Bot schaften die je nach installiertem Treiber von einer Maus einem Trackball einem Touchscreen oder weite ren Eingabeperipherien generiert werden Alle Objekte sind ausreichend gro um bei einer Bildschirm aufl sung von 640x480 Pixeln Windows Minimum und einem 15 Touchscreen eine fehlerfreie Bedienung zu gew hrleisten System Riickfragen Entwurf Die Benutzeroberfl chen sind in drei Bereiche unter teilt 1 Initialisierung nur f r den Anbieter 2 Kiosk f
59. MOD 3 Original Zeichen Die R ckrechnung eines codierten Zeichens erfolgt ber ASCH DIV 4 Pos VERSCHL SSELUNG Zeichen MOD 3 32 Ist ein Pa wort vorgegeben mu dieses zum Pro grammstart eingegeben werden Bei einer Fehleingabe erfolgt ein Request der die Auswahl zum Programm abbruch oder zu einem Neuversuch vorgibt 37 Kapitel 38 Beim Beenden der Initialisierung k nnen nderungen wahlweise gespeichert oder ignoriert werden Dies ge schieht ber einen entsprechenden Request KIOSK von Percy Wippicr Fr Sollen die nderungen der Initialisierung gespeichert werden e Request bei vorgenommen Initialisierungs nderungen Bei einer Bet tigung von Abbruch wird das Initiali sierungsfenster nicht geschlossen Ge nderte Initiali sierungen sind auch ohne Speichern f r einen folgenden Start des Kiosks g ltig Der Kiosk wird direkt aus der Initialisierung gestartet wenn der Button Start des Initialisierungsfensters be t tigt wird Wird Abbruch bet tigt wird dies ber einen Request abgefangen KIOSK von Percy Wippler O Sie beenden das KIOSK Programm Request bei Programmende Nach dem Laden der Software und einer ggf korrekten Pa worteingabe l t ein Request die Initialisierung den direkten Kiosk Start oder einen Programmabbruch zu Ophon welcher l rogrammiteil soll geladen werden Initalisierung MES Abbruch Request bei Programmstart 3 1 2 2 Links
60. OP WAV dreimal Indexerstellung INDEX INI Gruppendefinition nu Benutzerhandbuch abgespielt Anschlie end wird das Bild MUSIK BMP gezeigt Der Klang wird weiterhin alle zehn Sekunden wiederholt Anderes Thema erh lt sein kleines Bild aus dem Ver zeichnis PLANETEN in der die Datei ERDE BMP enthalten ist Bei Bet tigung wird in dieses Verzeichnis gewechselt und neue Buttons ggf nach der dort gespei cherten INFO INI gesetzt Dem Kunden kann die M glichkeit geboten werden ber direkte Eingabe eines Bereiches und eines dazuge h renden Themas sofort zum gew nschten Punkt zu kommen ohne den m igen Weg des Durchschaltens gehen zu m ssen Dazu muf von Ihnen eine Datei mit Namen INDEX INI im ANSI Format in Ihrem KI OSK Verzeichnis gespeichert werden Das KIOSK Verzeichnis ist das Verzeichnis in dem KIOSK EXE installiert wurde Dies entspricht nicht unbedingt dem Datenverzeichnis Der Aufbau der NDEX INI sieht wie folgt aus Alle Themen werden durch eine Gruppenbezeichnung zusammengefa t Dieser Gruppen oder Bereichsname wird in eckigen Klammern ber die zugeh rigen The men geschrieben Beispiel Beispiele Darunter werden die Themen deren Verzeichnis und die darin beschriebenen Schaltfl chen in folgender Wei se notiert Thema Verzeichnis Button Thema ist die Bezeichnung unter der in einer Aus wahlliste dasselbe wiederzufinden ist Verzeichnis gibt den Pfad ausgehend vom Daten verzeichnis an
61. Rubrik Button frmKeyboard Tag in Dekade anzeigen datPropose speichern butControl Mehr sichtbar datPropose_Write 6 butControl Click Suchen vorherige Rubrik Dekade vorhand Button Paint 7 LL Wee frmUser sichtbar Suchen abgebrochen Endcode Ok 30 ZC nicht geladen Funktionspr fung butControl Click SC frmUser schlie en frmUser_Unload H k butControl Click Suchindex eingegeben Uebersicht butTheme Click 18 Verzeichnis muf nicht 13 gewechselt werden Verzeichniswechsel pr fen vorherige Rubrik Y nicht vorhanden o heme Click v simulieren 9 11 P Verzeichnis muB Letzten Eintrag mit Pfad und von butTheme l schen gewechselt werde Verzeichnis Change 5 Verzeichniswechsel dir Verzeichnis Chan butControl Zurueck sichtbar way Write butControl Paint Zurueck 17 10 12 dir StartDir letzten Pfad und Neues Element Pfad und butTheme anw hlen von butTheme speichern 13 Verzeichniswechsel pr fen Multimedia_Play dir_Change way Write way Read 5 Verzeichniswechsel dir dir enthalt Zuweisung dir enthalt keine Zuweisung 16 15 Multimedia Ausgabe p Buttoninitailisierungen lesen Multimedia_Done 14 Multimedia Ausgabe stoppen datln
62. Technische Fachhochschule Berlin Fachbereich 13 ENTWICKLUNG EINES KIOSK SYSTEMS UNTER WINDOWS Diplomarbeit von Percy Wippler Matrikelnummer 521615 Betreung durch Prof Dr K H Sturm Wintersemester 1994 95 Ich best tige da ich diese Arbeit selbst ndig und nur mit den angegebenen Quellen angefertigt habe Vorwort Ich h tte noch eine ganz andere Diplomarbeit f r Sie lautete ungef hr der Satz meines betreuenden Profes sors der diese Arbeit zur Folge haben sollte Die Idee ein Kiosk System zu entwickeln h rte sich durchaus interessant an auch wenn ich damals noch nicht wu te was ein Kiosk System berhaupt ist Die kurze Einf h rung in Touchscreens Multimedia und graphische Benutzerf hrung erweckte in mir gro es Interesse an dieser Arbeit W hrend meiner gesamte Computerzeit angefangen mit einem Commodore C16 lag meine Hauptneigung in der Grafikprogrammierung Der An reiz dab das Produkt eventuell von der Firma Vobis genutzt werden w rde lie mich sehr schnell zu dem Entschluf kommen ein Kiosk System zu entwickeln Dank sagen m chte ich Herrn Prof Dr Sturm f r seine sehr intensive Betreuung und Motivation die nicht aus Vorsagen sondern in erster Linie aus eindringlichen Anregungen bestand Durch die freie Hand da ge samte Projekt vom Geh use bis zur Software zu planen und zu organisieren war der Lerneffekt bez glich Projekt Management und Software Engineering sehr hoch Die nachfolg
63. Theme Height butScrolllndex 0 Top ScrollBar 0 Top butScrolllndex 0 Left ScrollBar 0 Left butScrolllndex 1 Top ScrollBar 0 butScrolllndex 1 Left ScrollBar 0 Left butScrollTheme butScrollTheme butScrollTheme butScrollTheme 0 Top ScrollBar 0 Left ScrollBar 1 Top ScrollBar 1 Left ScrollBar 1 Top 1 Left 1 Left butGoto Top IstTheme Top butGoto Height butScrollTheme 1 Top butScrollTheme 1 Height butGoto Top Filenr FreeFile Open ProgramDir datIndexINI For Input As Filenr ReDim IndexThemes 0 m While Not EOF Filenr 160 Top ScrollBar 0 Height butScrolllndex 1 Height 1 Top ScrollBar 0 Height butScrolllndex 1 Height Listing 161 Anhang C frmUser Objekte Begin Form frmUser AutoRedraw 1 True BorderStyle 0 keine ControlBox 0 False MaxButton 0 False MinButton 0 False WindowState 2 Begin SSPanel txtInfo BackColor amp HOOCOCOCO amp Bevellnner 1 Inset BorderWidth 1 ForeColor amp H00000000 amp End Begin SSPanel butControl BackColor amp H0000C0C0 amp Bevellnner 2 Haised BorderWidth 4 Caption Kommentar FontBold 0 False FontName MS Sans Serif FontSize 275 Index D RoundedCorners 0 False End Begin SSPanel butControl BackColor amp H0000C0C0 amp Bevellnner 2 Raised BorderWidth 4 Caption Drucken FontBold 0 False FontName MS Sans Serif FontSize 075 Index
64. Zahl und gibt an wie oft eine Animation abgespielt werden soll F r eine Endloswiederholung geben Sie f r Anzahl eine ne gative Zahl ein picturez Pfad Grafikdateiname Entspricht der zugewiesene Name einer BMP bzw WMF Datei wird diese in Original bzw gestauch ter Gr e dargestellt Voraussetzung hierf r ist da alle Animationswiederholungen beendet sind L uft eine Animation erfolgt die Bilddarstellung erst im Anschlu Mit Ausnahme der unter Picture While Sound 1 beschriebenen Zuweisung bleibt das Bild bis zum n chsten Themenwechsel sichtbar 89 Kapitel 5 4 1 text Pfad Textdateiname Die hier zugewiesene Datei kann grunds tzlich ein beliebiges Format haben Jedoch gibt z B eine Gra fikdatei im TIF Format nicht sehr viele Information wieder Die Ausgabe von Bildern ist aber nicht un m glich Wenn Textdateiname eine Grafik im BMP bzw WMF Format ist wird diese in das Textfenster Texte im RTF TXT BMP eingepa t Textdateien k nnen ebenso im ANSI oder WMF Format Format oder MS Rich Text Format ausgegeben wer den Der Aufbau von RTF Dateien wird sp ter be schrieben Bei RTF Texten werden eingeschr nkt Formatierungen f r die Ausgabe umgesetzt Bei der Textausgabe findet ein automatischer Zeilenum bruch statt Texte werden zeitgleich mit Animatio nen bzw Bildern und Kl ngen ausgegeben Sollte ein Text oder Bild l nger als der zur Verf gung ste hende Platz sein kann die Ausgabe ber zwei Pfe
65. alse Picture FRMSTDIR FRX 2034 Top 3345 Width 1665 End Begin SSCommand butScroll BevelWidth 0 Height 620 Index 0 Left 3960 Outline 0 False Picture FRMSTDIR FRX 35bEE Top 705 Width 630 End Begin PictureBox box BackColor amp H00008000 amp BorderStyle 0 keine Height 1385 Left 3960 Top 1305 Width GS End Begin Outline IstVerz FontBold 1 True FontName MS Sans Serif FontSize 2 Height 2415 Left 120 PictureClosed FRMSTDIR FRX 4068 PictureLeaf FRMSTDIR FRX 42AA 136 FRMSTDIR FRM PictureMinus FRMSTDIR FRX 44EC PictureOpen FRMSTDIR FRX 472bE PicturePlus FRMSTDIR FRX 4970 Style 5 720 Width 4215 End Begin Label txtVerz BackStyle 0 Transparent BorderStyle 1 nicht nderbar einfach FontBold 0 False FontName MS Sans Serif FontSize 826 Height 1205 Left 120 Top 360 Width 4455 End End Begin SSCommand butLaufwerk AutoSize 2 Adjust Button Size To Picture BevelWidth 0 Caption A Font3D 3 Inset w light shading FontBold 1 True FontName MS Sans Serif FontSize 18 ForeColor 8H000070008 Height 620 Index 0 Left 1440 Picture FRMSTDIR FRX 4BB2 RoundedCorners 0 False Top 120 Width 1630 End Begin DriveListBox IstDrive Visible 0 False End Begin Label txtFehler Alignment 2 Mitte BackStyle 0 Transparent Caption Fehler FontBold 0 False FontName MS Sans Serif FontSiz
66. b Sub Form Load Dim dw As Single Dim dh As Single Dim 1 w r 0 b fs mouseVisible modMaus KeyboardMode 2 BitsPixel MedGetDCColors picAusgabe hDC ChDrive Left StartDir 2 ChDir StartDir ReDim way 0 way 0 path StartDir way 0 button 1 frmUser Width Screen Width frmUser Height Screen Height frmUser FontSize fntButtonSize frmUser FontName fntButton frmUser FontBold fntButtonBold frmUser Fontltalic fntButtonltalic distance frmUser ScaleWidth 011 frmUser BackColor colHintergrund SetBackgrPic txtAusgabe 0 FontName fntInfoText Steuer Buttons einpassen und anordnen dw 3 20 dh 1 15 c amp 1 colButton b colButton amp H10000 And amp HFF g colButton amp H100 And amp HFF r colButton And amp HFF c amp 0 RGB r 1 33 9 1 33 b 1 33 c amp 2 RGB r 67 1 9 67 1 b 67 1 c amp 3 RGB r 8 1 g 8 1 D 8 1 For 0 To 5 butControl i Width frmUser ScaleWidth dw butControl i Height frmUser ScaleHeight dh butControl i Left frmUser ScaleWidth 2 i Mod 2 butControl i 6 Width distance Next i fs 0 While frmUser TextWidth butControl kommentar Caption gt butControl kommentar Width 8 And fs lt gt frmUser FontSize fs frmUser FontSize frmUser FontSize frmUser FontSize 1 Wend butControl kommentar FontName frmUser FontName butControl kommentar FontSi
67. be 1 Height txtAusgabe 1 hDC 0 O txtAusgabe 1 Refresh DoEvents ScrollHeight ScrollHeight 3 Wend End If Exit Sub fehler Resume Next Exit Sub End Sub Sub butScroll MouseUp index As Integer button As Integer Shift As Integer x As Single y As Single If TouchDown Then TouchDown False End If 178 Listing exitDelay True wait 0 End Sub Sub butTheme_Click index As Integer Dim r As ThemeRec Dim wav avi bmp txt Dim wrep wdel arep waanim Dim n i printable ButtonPressed If Not Goback And way UBound way button lt gt index Or way UBound way path lt gt CurDir Then n UBound way If n 30 Then For i 1 To n 1 way i way i 1 Next i way 0 path StartDir way 0 button 1 Else ReDim Preserve way n 1 End If butControl Zurueck Visible True End If Theme index Thema r title PrintInfo strLoad Thema If r dir lt gt Then ChangeDir r dir If Not Goback Then way UBound way path CurDir way UBound way button 1 End If Else If Not Goback Then way UBound way path CurDir way UBound way button index End If MM Ausgabe l schen HideMedia MM Dateien lesen und abspielen wav GetINFOString r InitName sound avi GetlNFOString r InitName animation bmp GetINFOString r InitName picture txt GetINFOString r InitName text arep Val GetINFOString r InitName animreplay 1 wr
68. ber Verzeichnis in ein Verzeichnis gewech selt werden soll das kein Unterverzeichnis des Daten verzeichnisses ist haben Sie zwar eine verworrene Verzeichnisstruktur zu verzeichnen k nnen aber durch Angabe des gesamten Pfades in dieses Verzeichnis wechseln Kurz Sie m ssen Ihre Angaben mit der Laufwerkskennung oder einfach einem Backslash beginnen wenn das Thema nicht im Datenverzeichnis untergebracht ist Die Vorbereitung ist hiermit abgeschlossen Sie m ssen bis hier KIOSK V 1 0 installiert und ein Datenverzeich nis erstellt haben in dem sich Unterverzeichnisse mit diversen BMP WAV AVI RTF WMF und TXT Dateien und einer NFO INI befinden Ggf enth lt das KIOSK Verzeichnis eine NDEX INI Alle weiteren Eingaben k nnen ber einen Touchscreen erfolgen 5 4 2 Das MS Rich Text Format L4 xx RTF Datei Identifizierung RTF Formatierungsbefehle Farbattribute Benutzerhandbuch Formatierte Textausgabe Wie bereits erw hnt besteht die M glichkeit forma tierte Texte ausgeben zu lassen sofern sie als RTF Da tei vorliegen Solch eine Datei ist grunds tzlich mit je dem Editor bearbeitbar da sie ausschlie lich den ANSI Zeichensatz verwendet Die Formatierungen werden ber im Text vorkommende Steuersequenzen gesetzt Jeder Formatbefehl wird immer durch einen Backslash V eingeleitet Beispiel wtf identifiziert eine RTF Datei der Version 1 Alle Formatierungsabschnitte eines Textes sind
69. ch Aufbau des Windows BMP Headers 4 L nge des info Headers in Byte 4 breite der Bitmap in Pixeln 4 eneen H he der Bitmap in Pixeln 2 biPlanes Zahl der Farbebenen muf 1 sein 2 biBitCount Zahl der Bits pro Pixel Farbtiefe 4 bicompr Typ der Komprimierung 4 BiSizelm Bildgr Be in Byte bixPixevinch horizontale Aufl sung bivPixevinch vertikale Aufl sung biColorused Zahl der benutzten Farben 4 biGolorimp Zahl der wichtigen Farben 26H nx4 Ffarbdefinition f r n Farben mit rgbBlue 1 Byte Intensit t Blau rgbGreen 1 Byte Intensit t Gr n rgbRed 1 Byte Intensit t Rot rgbRes 1 Byte reserviert Aufbau des Windows BMP Info Blocks Entwurf 3 2 4 Windows Metafile Windows Metafiles k nnen mit und ohne Header ver sehen sein WMF Dateien ohne Header werden nicht umgesetzt da keine Informationen ber die Proportio nen der Grafik bez glich Breite und H he bestehen Der Header besteht aus 22 Byte und enth lt folgende Informationen Bedeutung Kennung mu 9AC6CDD7h sein reserviert mu 0 sein kleinstes umschlieBendes Rechteck x1 y1 x2 y2 in 4 Word Einheiten f r bbox reserviert mu 0 sein 20H 2 Checksum XOR Ergebnis der ersten 10 Words Aufbau des Windows Metafile Headers 3 2 5 Video For Windows Die Ausma e und die Identifikation einer Animation k nnen aus den ersten 24 Byte gelesen werden
70. chen If Left zeile 1 Then zeile Right zeile Len zeile 1 Theme i dir zeile Theme i ltemNr GetINFOString Theme i InitName ItemNr Theme i AnimReplay Val GetINFOString Theme i InitName animreplay 1 Theme i SoundReplay Val GetINFOString Theme i InitName soundreplay 1 Theme i printable Val GetINFOString Theme i InitName print 0 lt gt 0 Theme i title GetINFOString Theme i InitName title bmp GetINFOString Theme i InitName thumbnail If bmp gt Then bmp Theme i datPic ggf gt durch unter DIR ang Verzeichnis ersetzen If Left bmp 2 gt Then bmp Right bmp Len bmp 2 gt l schen If Left bmp 1 Then bmp Theme i dir bmp Verzeichnis einsetzen Else bmp Theme i dir bmp ggf Backslash hinzuf gen End If End If If MedProofBMP bmp lt gt 0 And MedProofWMF bmp lt gt 0 Then bmp CreateTouch Theme i title bmp Next i LoadedButtons LoadedButtons 1 If butCount gt 10 Then PrintInfo strMore Else PrintInfo strSelect End If If butCount 10 Then butCount 10 butControl mehr Visible True Else butControl mehr Visible False End If actDecade 0 For i 0 To butCount 1 butTheme i Visible True Next i End Sub Sub SetPic bmp Dim w h bits dw dh dummy Dim WMFprop As Single If MedGetBMPSize bmp w h bits 0 Then Bild ist
71. den Lese ocean dia UO ee 106 Der Abbruch C de ee 106 Das Kommentarergebnis aaa 107 32 2 Kurzanleitung cs as icc asa pte nba get abd text ee 107 Anhang A Literaturhinwene ni rad 111 Anhang Milo ana 113 Anbau LISO AAA 117 Einleitung Einleitung Einleitung Multimedia 1 s a PC Bibliothek Meyers Lexikon 1993 vgl Faszination Multimedia 1993 S 8 9 Einleitung Multimedia Heute ein sehr popul res Modewort wird im Zusammenhang einer immer mehr in den Vor dergrund dringenden Computertechnik verwendet Multi lat steht f r mehrere oder viel Media lat ist die Mehrzahl eines Mediums lat das in der Mitte Befindliche bildungssprachlich vermitteln des Element Mittel zur Weitergabe oder Verbreitung von Information durch Sprache Gestik Mimik Schrift Bild Musik Meyers Lexikon Da erscheint die Wortkombination von Multi und Me dia eigentlich berfl ssig weil Media schon mehrere beinhaltet Und doch ist dies nicht ganz sinnlos da ber Computer auch im Heimbereich diese Medien gleich zeitig ber einen Bildschirm und Lautsprecher ausge geben werden k nnen Das Fernsehen benutzt in die sem Sinne schon seit je her diese Technik mit dem Nachteil da der Informationsempf nger keine Ein griffsm glichkeit in das Pr sentierte hat Nachrichten m ssen in der Reihenfolge und dem Tempo aufgenom men werden wie es die Redaktion vorsieht In einem Kiosk System sieht dies anders aus Der Vor
72. den Tabel lenwert n Der erste Eintrag einer definier ten Farbtabelle hat den Index Eins Ist f r n Null angegeben wird die Unter grundfarbe auf den Standardwert gesetzt cbn setzt f r die Textausgabe die Hintergrund farbe auf den Tabellenwert n Der erste Eintrag einer definierten Farbtabelle hat den Index Eins Ist f r n Null angegeben wird die Untergrundfarbe gew hlt Preisartnr ermittelt ber eine Treiber DLL Dynamic Link Library die von Ihnen erstellt werden kann den aktuellen Preis eines Artikels Dieser wird ber seine Kennung artnr identifiziert Die Konven tionen der DLL sind nachfolgend beschrieben Bestandartnr ermittelt ber die oben erw hnte DLL den aktuellen Bestand eines Artikels der ber artnr identifi ziert wird Die nachfolgenden Informationen betreffen die Konventionsbeschreibungen f r eine Kommunikation mit anderen Programmen oder Systemen mittels Trei ber DLL Diese Ausf hrungen brauchen Sie nur dann zu lesen wenn Sie der Windows Programmierung m chtig sind und eine Anpassung an Ihre Anforderun gen w nschen Standardm ig antwortet das Pro gramm ber Preisartnr und Bestandartnr mit der Bemerkung Bitte erfragen 97 Kapitel 5 4 2 KIOSKDRV DLL Aufrufkonventionen Wenn Sie in Ihren Texten eine automatische Aktualisie rung von Artikelpreisen und Best nden w nschen be n tigen Sie eine DLL f hige Programmiersprache wie Borland Pascal f
73. die Schaltfl che Farbe im Rahmen von Button bet ti gen erhalten Sie den Windows Standarddialog zum ndern von Farben W hlen Sie durch einfaches Antip pen oder Anklicken eine der vorgegebenen Windows Grundfarben links oder eine aus der gesamten Palette Diese erscheint wenn Sie Farben definieren bet tigen Die Intensit t der Farbe k nnen Sie ber die daf r vor gesehene Leiste an der rechten Seite ver ndern Best tigen Sie Ihre Wahl mit OK oder verwerfen Sie Ihre Eingaben mit Abbruch 101 Kapitel 5 4 3 Hintergrunddarstellung ndern Bild zentriert Bild eingepa t Bild gekachelt Druckoptionen 102 Neben der Manipulation der Buttons l t sich der Hin tergrund der Darstellungen Ihren W nschen anpassen Dazu geh rt die Hintergrundfarbe die genauso ausge w hlt wird wie es unter Buttonfarbe ndern beschrie ben wurde Zus tzlich k nnen Bilder die den Namen BACKGR BMP tragen und im Windows Bitmap For mat vorliegen in den Hintergrund geladen werden Die Bilddarstellung kann in drei verschiedenen Einstellun gen erfolgen Bild zentriert Bild einpassen Bild kacheln Die Darstellungsm glichkeiten der BACKGR BMP Wie diese drei Modi das Bild darstellen k nnen Sie den linken Abbildungen entnehmen Das Hintergrundbild kann bei jedem Verzeichnis neu gesetzt werden sofern dort eine Datei namens BACKGR BMP existiert Ist dies nicht der Fall bleibt das Bild des ber
74. e Vel Das gro e Buch zu VisualBasic 3 0 1993 5 598 79 Benutzerhandbuch Benutzer handbuch Kapitel 5 1 82 5 1 Einleitung Mit dem KIOSK V1 0 f r Windows steht Ihnen ein umfangreiches Programm f r die Pr sentation und Wiedergabe verschiedenster Informationen zur Verf gung Von Ihnen erstellte Grafiken Animationen Texte und T ne Musik Klang Sprache werden vom System ber leicht zu erstellende Textdateien Makros integriert und bei einer Auswahl durch eine zweite Per son wiedergegeben Die Darstellung dieser Multi Me dia kann einzeln sowie gleichzeitig erfolgen so daf der Informationsgehalt im Vergleich zum herk mmlichen Lesen von Prospekten erheblich verst rkt wird Die Bedienung des Kiosk Systems durch den Informations empf nger erfolgt auf sehr leichte Weise Die Software ist so ausgelegt da eine Steuerung ber einen Touchs creen m glich ist Schaltfl chen werden nach Ihren An gaben in Makros vom Programm selbst erzeugt so da die Handhabung auch f r den Anbieter sehr schnell zu erlernen ist Die Makros beschr nken sich auf ein not wendiges Minimum von Befehlen Sie lassen sich mit jedem beliebigen Editor der im ANSI Format spei chern kann wie z B dem Windows Editor erstellen Ein aufwendiges Erlernen des Umgangs mit Befehlen und einer umfangreichen Entwicklungsumgebung ent f llt F r die Anpassung der Software an Ihre Anspr che und Ihre Hardware steht Ihnen eine leicht zu
75. e 18 25 Height LOS Index 0 Visible 0 False Width 630 End Begin Label txtLaufwerk Alignment 2 Mitte BorderStyle 1 nicht nderbar einfach FontBold 1 True FontName MS Sans Serif FontSize 12 Height 375 Left 120 Top 480 Width 135 End Begin Label Bezeichnung BackStyle 0 Transparent Caption Laufwerk FontBold 1 True FontName MS Sans Serif FontSize 12 Height 3 5 Left ZO Top 120 Width 1935 End End frmStartDir Deklarationen frmStartDir Ereignisse FRMSTDIR FRM Listing Anhang C FRMIFONT FRM frminfoFont Objekte 140 Listing frminfoFont Deklarationen frminfoFont Ereignisse 141 Anhang C frmButtonFont Objekte Begin Form frmButtonFont BackColor amp HOOEOFFFF amp BorderStyle 1 ControlBox 0 False Height 4245 Left 1920 MaxButton 0 False MinButton 0 alse Top 2205 Width 6960 Begin SSRibbon butFett BackColor amp HOOCOCOCO amp BevelWidth 0 GroupNumber 2 Height 600 Left 4920 Outline 0 False PictureDn FRMBFONT FRX 0000 PictureDnChange 0 Use PictureUp Bitmap Unchanged PictureUp FRMBFONT FRX 0A7A RoundedCorners 0 False Top 3000 Width 600 End Begin SSRibbon butKursiv BackColor amp HOOCOCOCO amp BevelWidth 0 Height 600 Left 5120 Outline 0 False PictureDisabled FRMBFONT FRX 14F4 PictureDn FRMBFONT FRX 1F6E PictureDnChange 1 Dither Pict
76. e ByVal Str ByVal FileName as Integer Parameterbeschreibung R ckgabewert Die Funktion WritePrivateProfileString LIB KER NEL kopiert einen Zeichen String in den angegebenen Bereich einer Initialisierungsdatei ApplicationName zeigt auf den Null terminierten String der den Bereich angibt in den der String kopiert werden soll Existiert dieser Bereich nicht wird er neu angelegt Der Name des Bereichs kann aus einer belie bigen Kombination von Grof und Kleinbuchstaben bestehen Die Schreibweise wird ignoriert KeyName zeigt auf einen Null terminierten String der den Namen des Eintrags enth lt der unter dem Programmkopf der Anwendung in der Initialisierungs datei erscheint Der Parameter KeyName ist wenn der gesamte Bereich der im Parameter ApplicationName angegeben wurde zusammen mit al len Eintr gen gel scht werden soll Str zeigt auf den Null terminierten String der den neu en Wert des Eintrags enth lt oder ist 7 wenn der Ein trag der im Parameter KeyName angegeben wurde ge l scht werden soll Filename zeigt auf einen Null terminiertenString der die Initialisierungsdatei bezeichnet Der R ckgabewert ist ungleich 0 wenn die Funktion erfolgreich ausgef hrt wurde Andernfalls ist er 0 function ShowCursor ByVal Show as Integer Parameterbeschreibung R ckgabewert D Die Funktion ShowCursor LIB USER zeigt oder ver steckt den Mauszeiger Show bestimmt ob der Anzeigez hler
77. efragt ob Sie die neuen Daten speichern m chten KIOSK vos Percy Ww pp er Sollen die Anderungen der espeichert werden Riickfrage zum Speichern der neuen Vorgaben W hlen Sie Ja um die neuen Vorgaben zu speichern W hlen Sie Nein gelten die Daten f r den folgenden Start des KIOSK Programms werden aber nicht ge speichert Abbruch beendet die Initialisierung nicht Wenn Sie das Programm abbrechen werden Sie zuvor noch gefragt ob dies wirklich in Ihrer Absicht liegt KIOSK vos Percy Wppler O Sie beenden das KIOSK Programm Abbruch R ckfrage beim Beenden des Programmes OK beendet das Programm Abbruch kehrt zum aktu ellen Status zur ck Diese R ckfrage erhalten Sie auch wenn Sie das Kiosk System verlassen Damit ist die Initialisierung abgeschlossen Wenn Sie den Abstand der Tasten bei der nebenan ge zeigten Tastatur als zu eng empfinden k nnen Sie durch direkte Manipulation der KIOSK INI diesen an passen KIOSK INI wurde in Ihrem Windows Ver zeichnis angelegt und l t sich mit dem Windows Edi tor laden und ver ndern Geben Sie zur Anpassung die Zeile KeyDistancezPixel ein Pixel entspricht einer ganzen Zahl die die L cke zwischen den einzelnen Schaltfl chen in Pixeln angibt Von dieser M glichkeit sollten Sie aber nur Gebrauch machen wenn Sie einen Touchmonitor und eine h here Aufl sung als 640x480 Pixeln eingestellt haben 105 Kapitel 5 5 106 5 5 5 5 1 Kiosk Sy
78. egebene Zeichen ausgegeben wird ist durch einen mittig stehenden Punkt gekenn zeichnet Schlie en Die Tastatur Die Anordnung der Buttons innerhalb des Fensters er folgt nach der Norm der deutschen Schreibmaschinen Tastatur Das Fenster ist immer kleiner als 640x480 Pi xel Initialisierung Dem Anbieter steht ein Fenster zur Anpassung grund legender Einstellungen zur Verf gung Dieses erm g licht ber die Bet tigung von entsprechend gekenn zeichneten Buttons eine Initialisierung folgender Op tionen Datenverzeichnis Infotextschrift Buttonschrift Buttonfarbe Hintergrundeinstellung Farbe Bild zentriert Bild einpassen Bild gekachelt Druckkopf Datei Druck Einstellungen Kopfzeile CAKIOSK Mauszeiger Tonausgabe 4 nis mum MS Sans Serif E a Sen SE ar Hate Entwurf Bilder Texte Mauszeigereinstellung An Aus Tonausgabeeinstellung An Aus Pa wort Drucken Drucker SR Kopfzeile Bilder Text Hintergrund Allgemeines zu Dialogen Datenverzeichnis wechseln Das Initialisierungsfenster mit seinen Standardeinstellungen Zur Initialisierung stehen Dialogfenster zur Verf gung die einen OK Button zur Eingabebest tigung und einen Abbruch Button zum Verwerfen der Eingaben enthal ten Eine Bet tigung dieser Buttons schlieft in jedem Fall den Dialog Sind im Dialog Listen enthalten so l t sich ein Eintrag mittels Scrollbuttons
79. eichnet Vorbereitung und Befehle Richten Sie sich f r die Pr sentationsdateien ein Daten verzeichnis mit jeweiligen Unterverzeichnissen ein Kopieren Sie dort die verschiedenen Pr sentations dateien hinein Folgende Dateiformate k nnen pr sentiert werden Windows Bitmaps Bilder m ssen im BMP Format vorliegen und d r fen nur dann komprimiert sein RLEA oder RLE8 wenn die Bildschirmeinstellung mehr als 256 Farben zul t Die Anzahl der Farben ist beliebig w hlbar Die Anzahl der Pixel ist ebenfalls beliebig da ein zu groDes Bild gestaucht wird Ber cksichtigen Sie daf ein Bild nie breiter als 5 8 der Bildschirmbreite dargestellt wird bei 800x600 Pixeln also 500 Pixel maximale Bildbreite Gr Dere Bilder kosten nur unn tige Umrechnungszeit Jedes unter Windows lauff hige Bildbearbeitungsprogramm kann in der Regel in diesem Format speichern Andere Formate werden von KIOSK V 1 0 ignoriert und nicht darge stellt Windows Metafiles Vektorgrafiken m ssen als WMF Datei vorliegen und einen Header enthalten Manche Programme wie z B CorelDraw k nnen beim Exportieren als Windows Metafile diesen Header benutzerabh ngig hinzuf gen oder weglassen Dateien ohne Header werden von KIOSK V 1 0 ignoriert und nicht darge stellt Benutzerhandbuch Video For Windows Animationen m ssen im AVI Format gespeichert werden Die Komprimierungsart sowie die Farbanzahl ist beliebig Jedoch sind sie in den Aus mafen eingesch
80. eien lesen und abspielen wav GetINFOString Part sound avi GetlNFOString Part animation bmp GetINFOString Part picture txt GetINFOString Part text arep Val GetINFOString Part animreplay 1 wrep Val GetINFOString Part soundreplay 1 wdel Val GetINFOString Part sounddelay 0 waanim Val GetINFOString Part sound after anim 0 lt gt 0 picWhileWAV Val GetINFOString Part Picture While Sound 0 lt gt 0 WAVWhileAnim Val GetINFOString Part Sound While Anim 0 printable Val GetINFOString Part Print 0 lt gt 0 PlayMedia wav wrep wdel waanim avi arep bmp txt printable End If If i Then PrintInfo strHand End Sub Sub ClickDrucken Static puffer Static PaperT Dim WMFprop As Single Dim w h bits i Dim paperw paperh paperl Dim File As Integer zeile Dim ctrlFormat As RTF_Format Dim t 1 txtInfo Caption If puffer Then Printlnfo strRequest 1 request 1 Str printer Page Seite n drucken Es liegen noch zu druckende Daten vor Chr 10 Wollen Sie diese jetzt drucken oder neue hinzuf gen Drucken Hinzuf gen If i 1 Then PrintInfo strPrint01 If modDruck 0 Then printer EndDoc PaperT 0 Else puffer False End If End If If puffer False Then PrintInfo strprint02 printer ScaleMode 3 If modDruck And 2 lt gt 0 Then printer Print pri
81. ende Dokumentation meiner Arbeit be schr nkt sich jedoch auf die Entwicklung der Software und deren Hardwarevoraussetzungen da dies den Hauptteil der Arbeit ausmachte und es sich in meinem Studiengang um technische Informatik handelt verzeichnis Inhaltsverzeichnis Kapitel 1 1 1 2 22 2 3 2 3 1 2 4 2 3 3 1 21 1 3 1 2 3 1 2 1 3 1 2 2 3 123 Inhaltsverzeichnis EEN Seite A 8 Anforderungsdefinition und Abgrenzung see 11 PROTEST US SOB HNO ae 12 PUD PMC ZUNE m datas 12 Los ngsansatZe e 9m 15 Hardwarevorausselzuns eu ee 16 Die einen 16 lege iru es ee egene 17 Methodische E 18 ElementedeS ZA el ai 19 Ansatz zur Benutzeroberfl che ri ida 20 Benuzerschnilisiellen seen 22 IX rur eC RE MH 25 BECAS 26 Oda DN NIMMT MIR Nn dM an UG UE 26 een 26 Makrobefehle Dateiformate ssn 26 2 1 1 8 nase 29 INDEX INT ee 29 Eet MASA 30 Allgemeines T HO 30 Systemm R ckfrasen emn 31 sz Ete er 32 A ee 32 Datenverzeichnis Wechseln aite tenias 33 Infotextschrifl wechseln corsa 34 Bullen abe Anden Sousse tic qni on RR Do decim cde RR n eli dde 33 Buttonschritt rtWechsel rss 35 Hintergrunddarstellung ndern sisi 35 Wechseln der Druckkopfdatei urna 36 s Druckop
82. ep Val GetINFOString r InitName soundreplay 1 wdel Val GetINFOString r InitName sounddelay 0 waanim Val GetINFOString r InitName sound after anim 0 lt gt 0 WAVWhileAnim Val GetINFOString r InitName Sound While Anim 0 picWhileWAV Val GetINFOString r InitName Picture While Sound 0 lt gt 0 printable Val GetINFOString r InitName Print 0 lt gt 0 PlayMedia wav wrep wdel waanim avi arep bmp txt printable End If If r dir And Not butScroll 0 Visible Then If Trim r title lt gt Then Printinfo strShow Thema Else PrintInfo strSelect End If End If End Sub Sub butTheme MouseDown index As Integer button As Integer Shift As Integer x As Single y As Single If Not TouchDown Then butTheme index Move butTheme index Left 5 butTheme index Top 5 TouchDown True End If End Sub Sub butTheme MouseUp index As Integer button As Integer Shift As Integer x As Single y As Single If TouchDown Then butTheme index Move butTheme index Left 5 butTheme index Top 5 TouchDown False End If End Sub 179 Anhang C FRMUSER FRM Sub Form Click Ende Tastkombination erg nzen Prinzip but bersicht Form Form but bersicht Form but bersicht but bersicht Select Case EndCode Case 1 EndCode 3 Case 3 EndCode 7 Case amp HF EndCode amp H1F Case Else EndCode 0 End Select End Sub Sub Form DblClick Form Click End Su
83. epabt Die Zuweisung enth lt den Pfad und den kompletten Namen der Bilddatei Wird Pfad weggelassen setzt KIOSK das aktuelle Ver zeichnis voraus Ist f r Pfad gt Minus gr er als angegeben wird das unter dirz beschriebene Ver zeichnis eingesetzt Soll in der Schaltfl che dasselbe wie unter picturez zugewiesene Bild dargestellt werden reicht die Zuweisung thumbnail gt aus Erzeugte Schaltfl che Animationsoptionen Bildoption Benutzerhandbuch Beispiel Die dargestellte Schaltfl che wird erzeugt ber ButtonBeispiel title Sehen thumbnail augen bmp Wird eine Schaltfl che bet tigt kommen folgende Zu weisungen zur Wirkung dirz Verzeichnisname Das System wechselt in das dem dir zugewiesene Verzeichnis In diesem beschreibt eine weitere INFO INI neue Schaltfl chen mit anderen Eigen schaften F r Verzeichnisname gelten die DOS Be stimmungen Es sind Angaben wie name C usw gestattet dir hat vor allen nachfolgenden Zuweisun gen Vorrang Es werden keine der Schaltfl che zu gewiesenen Dateien dargestellt Aktionen die nach dem ffnen eines Verzeichnisses ausgef hrt werden sind unter Action beschrieben animation Pfad AVI Dateiname Ist eine g ltige AVI Datei zugewiesen wird diese geladen einmal abgespielt und wieder vom Bild schirm genommen Um eine Animation mehrmals abspielen zu lassen dient der n chste Befehl animreplay Anzahl Anzahl entspricht einer ganzen
84. folni Read Kundenschnittstelle Ebene i17 Stndvom 28 Nov 1994 Projekt Kiosk V1 0 Bearbeiter Wyk Kapitel 3 4 Verzeichnis wechsel dir 1 frmUser dekativiert 2 17 Verzeichnisexistenz pr fen frmUser Verzeichnis existiert nicht aktiviert Verzeichnis existiert 3 Multimedia Ausgabe stoppen Verfeinerung 1 7 14 6 Multimedia Done butHand butControl Uebersicht sichtbar 4 Verzeichnis wechseln Verzeichnis StartDir 7 Verzeichnis Change BB putHand butControl Y Verzeichnis StartDir Uebersicht unsichtbar 5 Verzeichnis auf StartDir pr fen Button Paint 9 s Hintergrundbild nach Y dalBckBMP g ltig modHintergrund setzen 8 Hintergrundbild pr fen datBckBMP ung ltig 10 Hintergrund l schen 11 butTheme setzen Hintergrund Paint 13 butTheme Pain BP butControl Mehr sichtbar Anzahl 10 12 butTheme Anzahl pr fen Anzahl 10 14 butControl Mehr unsichtbar 15 Aktionsinitailisierungen lesen mig butControl Paint Mehr datinfolni Read 16 Multimedia Ausgabe SE Verfeinerung 1 7 16 MultiMedia Play Verzeichniswechsel dir Ebene i75 Tstandvom 28 N0W 1994 Pr
85. frmRequest Show 1 request Val frmRequest Tag 1 Ergebnis setzen End Function Sub SetlNIString KeyName ByVal text Dim Ret Ret WritePrivateProfileString Initialisierung KeyName text datKiosklni End Sub 121 Anhang C RTFGLOB BAS Globale Deklarationen f r RTF Operationen Declare Sub SetBKColor Lib GDI ByVal hDC ByVal tcolorref amp Type RTF Format FontSize As Single FontBold As Integer Fontltalic As Integer FontUnderline As Integer FontStrikethru As Integer ForeColor As Integer BackColor As Integer Align As Integer O links 1 rechts 2 mitte FirstLeftMargin As Integer LeftMargin As Integer RightMargin As Integer End Type Global colortable As Long Global Tabs As Integer Positionen in Twips Align Global TabAlign As Integer O links 1 rechts 2 mitte Global NeuerAbsatz As Integer Global NeueZeile As Integer Global HeightOfText As Long Global StartCopyY As Long Globale Prozeduren f r RTF Operationen Sub Format Output ctrl As Control txt As String RTF As DIE Format Dim i96 x96 y Dim txtRest As String Dim txtUmbr As String Dim SpcPos As Integer Dim CurX As Integer On Error GoTo IgnoreOutpErr If ctrl FontSize lt gt RTF FontSize Then ctrl FontSize RTF FontSize RTF FontSize ctrl FontSize End If ctrl FontBold RTF FontBold ctrl Fontltalic RTF Fontltalic ctrl FontUnderline RTF FontUnderline ctrl FontStrikethru RTF FontStrikethru If RTF ForeCol
86. geordneten Verzeichnisses bestehen Bei einer Hintergrundbildausgabe wird immer die Farb palette benutzt die das System zur Verf gung stellt Diese reserviert bei einer Videoeinstellung von 256 Farben immer nur 20 Farben f r sich Bilder werden immer nur durch die Systemfarben dargestellt damit pr sentierte Bilder die volle Palette von 256 Farben nutzen k nnen Es kommt zur Farbreduzierung Haben Sie allerdings eine Videoeinstellung von mindestens 64K Farben kommt es zu keiner Farbreduzierung im Hintergrundbild Die Daten die auf dem Bildschirm dargestellt sind k nnen sofern es Bilder und oder Texte sind auf ei nem Drucker ausgegeben werden Voraussetzung daf r ist da ein Drucker angeschlossen und installiert ist dem aktuellen Thema durch den Befehl print 1 eine Druckerlaubnis erteilt wurde und mindestens eine der unter Drucker stehenden Optionen ausgew hlt ist aN Dieses Kiosk System wurde won Percy wippler im November 1334 als Diplom arbeit f r ein gemein sames Projekt der TFH Berlin und Yobis ent Die ausgew hlten Optionen werden auf der Beispielseite angezeigt Wechseln der Druckkopfdatei Benutzerhandbuch Die Auswahl der Druckoptionen Ist der Button Text aktiviert k nnen Textdateien eines Themas gedruckt werden Ist Bilder aktiviert k nnen ebenso Grafiken gedruckt werden Ist Kopfzeile ausge w hlt wird in den Kopf eines gedruckten Blattes ein von Ihnen festzulegendes Windows
87. gramm wird ausschlie lich die Konstante SWP_NOACTIVATE 40h verwendet Das Fenster wird an die oberste Stelle gesetzt und aktiviert Die Funktion wird ben tigt um die Tastatur in den Vordergrund zu laden und gleichzietig das Index Such Fenster zur Benutzung freizugeben Die Funktion GetTickCount LIB USER ermittelt die Anzahl von Millisekunden die vergangen sind seit Windows gestartet wurde Der R ckgabewert gibt die Anzahl von Millisekunden an die vergangen sind seit Windows gestartet wurde Diese Funktion wird f r Verz gerungsroutine Delay ben tigt Software Die nachfolgenden Routinen wurden im Pascal Quellcode verwandt und sind nach den Konventionen von Borland Pascal 7 0 dargestellt function StretchDIBits DC HDC DestX DestY DestWidth DestHeight SrcX SrcY SrcWidth SrcHeight Word Bits Pointer var BitsInfo TBitmapInfo Usage Word Rop Longlnt Integer Parameterbeschreibung Die Funktion StretchDIBits Unit WinProcs bewegt ein ger teunbh ngiges Bitmap device independent bitmap DIB aus einem Quellrechteck in ein Ziel rechteck und streckt oder staucht das Bitmap falls er forderlich um es den Abmessungen des Zielrechtecks anzupassen DC legt den Zielger tekontext f r eine Bildschirm oberfl che oder ein Speicher Bitmap fest DestX bestimmt die virtuelle x Koordinate des Ziel rechtecks DestY bestimmt die virtuelle y Koordinate des Ziel rechtecks DestWidth bestimmt die virtuelle
88. h nder Pechtsh nder Die H nderbuttons f r eine Anordnung gem Links Rechtsh nder Entwurf Kiosk Nach dem Start des Kiosks erh lt der Kunde ein auf Vollbild vergr ertes Fenster Dieses ist mit Objekten versehen die wie folgt angeordnet sind Bildfeld max Breite x H he 5 8 x 1 2 der Fenstergr e Ausrichtung oben Animationsfeld max Breite x H he 5 8 x 1 2 der Fenstergr e Ausrichtung oben Rahmen umrahmt Bild und Animationsfeld Infozeile Breite 5 8 der Fensterbreite H he Buttonschrifth he Ausrichtung unten Textfeld Breite 5 8 der Fensterbreite H he Fensterh he Rahmenh he Infoz h he Ausrichtung zwischen Rahmen und Infozeile Scroll Leiste Breite 40 Pixel H he Textfeldh he Ausrichtung links bzw rechts des Textfeldes Themenbuttons Breite x H he 3 20 x 2 15 der Fenstergr e Ausrichtung in jeweils einer in zwei Spalten geteilten Dekade am oberen Fensterrand Steuerbuttons Breite x H he 3 20 x 1 15 der Fenstergr e Ausrichtung sechs in zwei Spalten am unteren Fensterrand mit den Bezeichnungen Zur ck Mehr bersicht Suchen Drucken Kommentar H nderbuttons Breite x H he 140 x 140 Pixel Ausrichtung Zwei in der Mitte des Textfeldes Diese Buttons sind ausschlie lich in der bersicht Datenverzeichnis sichtbar Die Ausgabeobjekte befinden sich auf der einen Bildschirmseite die Buttons auf der anderen ber die 39 Kapitel H nderbutto
89. heme ListIndex gt 0 Then IstTheme ListIndex IstTheme ListIndex 1 Else If IstTheme ListIndex lt IstTheme ListCount 1 Then IstTheme Listindex IstTheme ListIndex 1 End If If wait 0 Then wait 1 delay 600 End If delay 10 Wend End If Exit Sub fehlerScrTheme Resume Next Exit Sub End Sub Sub butScrollTheme MouseUp Index As Integer Button As Integer Shift As Integer X As Single Y As Single If TouchDown Then TouchDown False ExitDelay True wait 0 End Sub Sub Form Load Dim Filenr As Integer t i frmindex Width frmKeyboard Width frmIndex Top 0 frmIndex Height screen Height frmKeyboard Height frmindex Left frmKeyboard Left butGoto Width butScrolllndex 0 Width butGoto Left 5 txtFeld 0 Top 0 txtFeld 0 Left butGoto Left butGoto Width 5 stindex Top txtFeld 0 Height stIndex Left txtFeld 0 Left stindex Height frmIndex ScaleHeight 20 2 stindex Width frmIndex ScaleWidth 80 txtFeld 1 Top Istindex Top Istindex Height txtFeld 1 Left txtFeld 0 Left stTheme Height Istindex Height stTheme Width Istindex Width stTheme Left Istindex Left stTheme Top txtFeld 1 Top txtFeld 1 Height ScrollBar 0 Left frmIndex ScaleWidth 10 butScrolllndex 0 Width ScrollBar 1 Left ScrollBar 0 Left ScrollBar 0 Top Istindex Top ScrollBar 0 Height Istlndex Height ScrollBar 1 Top IstTheme Top ScrollBar 1 Height Ist
90. hne Bildnamen erfolgt Ist dem Befehl dir ein g ltiges Verzeichnis zugeordnet Ausgangspunkt ist das aktuelle Verzeichnis wird bei einer Buttonbet tigung in dieses gewechselt Es wer den keine zugewiesene Media ausgegeben Bei jedem Verzeichniswechsel wird die dort befindliche INFO INI gelesen und umgesetzt In der INFO INI darf jeder in eckigen Klammern ste hende Bezeichner nur genau einmal vorkommen Eine Reaktion auf das ffnen eines Verzeichnisses ist somit ber Action nur einmal deklarierbar ber die INDEX INI wird angegeben welche Themen einem bestimmten Bereich zugeordnet sind in wel chem Verzeichnis das Thema steht und welcher Button die Themendaten beschreibt Der Aufbau der INDEX INI sieht wie folgt aus Bereich 1 Schl sselwort1zpfad Buttonname1 Schl sselwort2 pfad Buttonname2 Schl sselwort3 pfad Buttonname3 Bereich2 Schl sselwort1zpfad Buttonname1 Schl sselwort2 pfad Buttonname2 Schl sselwort3 pfad Buttonname3 F r kann ein beliebiger Name angegeben werden der in einem Bereichslistenfeld ohne eckige Klammern wiedergegeben wird Bei der Auswahl des 29 Kapitel 3 1 1 30 3 1 1 Bereiches werden in einem Themenlistenfeld die Schl sselw rter aufgelistet Bei der Auswahl eines Schl sselwortes wird in das unter Pfad angegebene Verzeichnis gewechselt Ausgangspunkt f r Pfad ist das Datenverzeichnis F r weitere Angaben gelten die DOS Konventionen Pfad folgt durch ein
91. hsel ButtonName beschreibt die Optionen einer Schaltfl che und die Re aktionen auf eine Bet tigung dieser Name entspricht einer beliebigen aber eindeutigen Zuordnung Jeder vergebene Name darf pro INFO INI genau ein Mal vor kommen ber Name werden die Reaktionen auf einen Themenbutton Mausklick im Makro lokalisiert Den in eckigen Klammern stehenden Einleitungen fol gen Steuerbefehle und Zuweisungen von auszugeben den Medien Diese k nnen sowohl bei Action als auch bei ButtonName sein picturezPfad Bilddatei animation Pfad Videodatei animreplay Anzahl text Pfad Textdatei sound Pfad Klangdatei soundreplay Anzahl sounddelay Sekunden Sound While AnimzOption Sound After AnimzOption Picture While SoundzOption printzOption Kursiv dargestellte Abschnitte entsprechen variablen Angaben Normal dargestellte stehen in ihrer Zeichen folge fest Die Gro Kleinschreibung kann variieren Alle Angaben f r Pfad gen gen den DOS Konventio nen Videodatei Format Animationsoption Bilddatei Format Klangdatei Format Klangoptionen Entwurf Animationen m ssen als Video for Windows Datei AVI vorliegen Die Abspielorganisation wird vom Windows MCI Treiber vorgenommen Eine Animation wird nur dann abgespielt wenn ihre Gr e den zur Ausgabe vorgesehen Platz nicht berschreitet Dieser umfa t maximal 5 8 der Bildschirmbreite und 1 2 der Bildschirmh he Sind alle Wiederholungen einer Ani mation abgespielt wi
92. ictureUp FRMINIT FRX 144EE RoundedCorners 0 False Top 2400 Width 600 End Begin SSRibbon butHintergrund BevelWidth 0 Height 600 Index 1 152 FRMINIT FRM Left asp Outline 0 False PictureDisabled FRMINIT FRX 14F68 PictureDn FRMINIT FRX 159E2 PictureDnChange 0 PictureUp FRMINIT FRX 1645C RoundedCorners 0 False Top 1680 Width 600 End Begin SSRibbon butHintergrund BevelWidth 0 Height 600 Index 0 2820 Outline 0 False PictureDisabled FRMINIT FRX 16ED6 PictureDn FRMINIT FRX 17950 PictureDnChange 1 PictureUp FRMINIT FRX 183CA RoundedCorners 0 False Top 960 Width 600 Begin SSCommand butHGFarbe AutoSize 2 BevelWidth 0 Height 1630 Left 1800 Outline 0 False Picture FRMINIT FRX 18E44 Top 240 Width ds End Begin PictureBox picHGFarbe BackColor amp H00000000 amp Height 960 Left 120 TabIndex 2 Top 360 Width 1455 End Begin Label txtHintergrund BackColor 8H0080FF808 BackStyle 0 Transparent Caption Bild kacheln y FontBold zou une FontName MS Sans Serif FontSize 16 9 Height JG Index 2 Left 360 Top 2520 Width 235 End Begin Label txtHintergrund BackColor 8H0080FF808 BackStyle 0 Transparent Caption Bild einpassen FontBold zc e FontName MS Sans Serif FontSize 195 Height 3 5 Index Left 360 Top 1800 Width 2305 End Begin Label txtHin
93. ikeldaten Entwurf Alle weiteren Steuerbefehle werden vom Programm ignoriert Spalten Tabellen und Grafiken sind nicht darstellbar Soll im Text ein Backslash oder eine ge schweifte Klammer ausgegeben werden so muf die sem Zeichen ein weiterer Backslash vorangehen W oder KIOSK spezifische Steuerbefehle werden durch ein eingeleitet Dazu geh ren Ocpn setzt die Untergrundfarbe auf den Tabel lenwert n Der erste Eintrag einer definier ten Farbtabelle hat den Index Eins Ist f r n Null angegeben wird die Unter grundfarbe auf den Standardwert gesetzt cbn setzt fiir die Textausgabe die Hintergrund farbe auf den Tabellenwert n Der erste Eintrag einer definierten Farbtabelle hat den Index Eins Ist fiir n Null angegeben wird die Untergrundfarbe gew hlt Preisartnr ermittelt ber die Link Library KIOSKDRV DLL den aktuellen Preis eines Artikels Dieser wird ber seine Kennung artnr identi fiziert Q Bestandartnr ermittelt ber die Link Library KIOSKDRV DLL den aktuellen Bestand eines Artikels der ber artnr identifiziert wird Windows Bitmap Eine BMP Datei enth lt einen File Header 14 Byte einen Bitmap Info Header 40 Byte eine Farbtabelle beliebiges Vielfaches von 4 Byte und einen Daten bereich 45 Kapitel 3 2 3 46 Bedeutung File ID Filel nge in Byte reserviert muf 0 sein reserviert muf 0 sein Offset Datenberei
94. il tasten im Sichtfenster verschoben werden Ausgabe einer TIFF Datei Klangoptionen sound Pfad Klangdateiname Ist hier eine im WAVE Format gespeicherte Datei zugewiesen wird diese mit der Darstellung einer Animation bzw eines Bildes zeitgleich abgespielt Dies geschieht genau einmal Um einen Klang mehr mals abspielen zu lassen dient der n chste Befehl soundreplay Anzahl Anzahl entspricht einer ganzen Zahl und gibt an wie oft ein Klang abgespielt werden soll F r eine Endloswiederholung geben Sie f r Anzahl eine ne gative Zahl ein sounddelay Pause Pause gibt an wieviel Sekunden auf eine Klang wiederholung gewartet werden soll Maximal sind 60 Sekunden m glich Sound_After_Anim Option Mit Option 0 hat diese Zuweisung keine Wirkung Mit Option 1 wird die initialisierte Klangdatei erst nach dem Abspielen einer Animation inkl allen Wie derholungen wiedergegeben Picture_While_Sound Option Mit Option 0 hat diese Zuweisung keine Wirkung 9 Druckoption Befehlshierarchie Verzeichniswechsel Benutzerhandbuch Mit Option 1 wird ein geladenes Bild nur so lange gezeigt bis ein Klang inkl allen Wiederholungen abgespielt ist Sound While AnimzOption Mit Option 0 hat diese Zuweisung keine Wirkung Mit Option 1 beginnt der Klang unabh ngig von seiner L nge und der Verz gerung bei jeder Animationswiederholung von vorn Der Klang wird so oft wiedergegeben wie es unter soundreplay zu ge
95. ildgr e wird bei Erhaltung der Bildproportionen in das Ausgabefenster eingepa t Bilder lassen sich eben falls ber die Scrollfunktion verschieben Andere Formate werden als ANSI angesehen und ent sprechend ausgegeben Alle Medien k nnen gleichzeitig mit Ausnahme der Darstellung von Bildern und Animationen wiederge geben werden print 1 gestattet das Ausdrucken der aktuell dargestell ten Medien Ist print 0 oder wird print weggelassen erh lt der Anwender nicht diese M glichkeit Einem Button k nnen au erdem noch folgende Zuwei sungen folgen title beliebiger Text thumbnail Pfad Bilddatei dir Verzeichnisname Aussehen eines Buttons Verzeichniswechsel INDEX INI Entwurf Ein beliebiger Text der title zugewiesen ist wird bei der Erzeugung eines Buttons als Titel einzeilig einge setzt Die Schriftattribute des Titels entsprechen den unter KIOSK initialisierten PaDt ein Titel von der L n ge nicht in den Button wird die Schriftart verkleinert Pa t der Titel bei kleinstem Schriftma nicht ist der Titel rechts beschnitten Ist thumbnail eine g ltige Bilddatei BMP oder WMF zugewiesen wird diese bei Erhaltung der Bild proportionen in die daf r vorgesehene Fl che bei der Erzeugung eingepa t Anstelle von Pfad setzt ein gt Minus gr er als das unter dir zugewiesene Ver zeichnis ein Die unter picture angegebene Bilddatei wird als Buttonbild verwandt wenn die Zuweisung thumbnail gt o
96. in dem das Thema ber die dort enthal tene INFO INI beschrieben ist Button gibt den Namen der Schaltfl che an der vom Programm bet tigt werden soll sobald das entspre chende Verzeichnis ge ffnet wurde Dieser Name mu dem unter nitialisierung ber Makros beschriebenen Anhang der Bezeichnung ButtonAnhang entspre chen F r die vorangehend beschriebene JNFO INI ist die nachfolgende NDEX INI gespeichert worden 93 Kapitel 5 4 1 INDEX INI EOS Inhalt der INDEX INI Vorteile Zeit sparenz Time Technik Multi Media MMedia Sinne Sehenz Augen H renz Musik H ren und Sehen Musik Planeten Die Erdezplaneten next 94 Beispiel Im KIOSK Verzeichnis ist die links beschriebene INDEX INI enthalten Die in eckigen Klammern stehenden Bezeichnungen sind Themenbereiche oder auch Gruppennamen Sie erscheinen f r den Kunden in einer Bereichsliste aus der er w hlen kann Jeweils einem Bereich werden The men zugeordnet Wird unter Sinne das Thema H ren gew hlt wechselt KIOSK nicht das Verzeichnis leere Eingabe f r Pfad und f hrt die in der NFO INI unter buttonMusik stehenden Befehle aus Wurde Planeten Die Erde gew hlt wechselt KIOSK in das Verzeichnis Planeten und bet tigt den ButtonNext Technik Vorteile H ren und Sehen Senen momo SN Listen fiir die Themensuche iiber einen Index Pfade und Buttons die nicht existieren werden igno riert Wenn ti
97. indig Erstzeileneinzug Null Linker Einzug Null Rechter Einzug Null Schaltet Fettdruck ein schaltet Fettdruck aus Schaltet Kursivdruck ein schaltet Kursivdruck aus schaltet Unterstreichen ein schaltet Unterstreichen aus schaltet Durchstreichen ein Schaltet Durchstreichen aus setzt die Gr e einer Schrift in n halben Punkten setzt alle Zeichenattribute auf Standard werte Fettdruck aus Kursivdruck aus Unterstreichen aus Durchstreichen aus Schriftgr e 10 Pkt markiert das Ende eines Absatzes und f hrt einen Zeilenumbruch aus bricht die aktuelle Zeile um ohne den Ab satz zu beenden wandelt die gegebene Hexadezimalzahl hh in ein Zeichen und f gt es in den Text ein Das Aussehen des Zeichens h ngt vom ge setzten Zeichensatz ab D Nicht im RTF enthaltene Steuerbefehle Farbattribute Artikeldaten Benutzerhandbuch tab f gt einen Tabulator ein Alle weiteren Steuerbefehle werden vom Programm ignoriert Spalten Tabellen und Grafiken sind nicht darstellbar Soll im Text ein Backslash oder eine ge schweifte Klammer ausgegeben werden so mu die sem Zeichen ein weiterer Backslash vorangehen W oder KIOSK V1 0 beherrscht zudem noch weitere KIOSK spezifische Steuerbefehle die durch ein einzulei ten sind Dazu geh ren Ocpn setzt die Untergrundfarbe auf
98. k in IstTheme auflisten lstindex Change IstTheme Change 5 butChar Click butGoTo Click Ue Buchstabe in txtAnzeige 2 Verzeichnis und Buttonnr an erg nzen frmUser bergeben frmKeyboard und frmindex sichtbar Y butBackSpace Click butScrollTheme Click 10 Markierung in IstTheme 6 versetzen letzten Buchstaben in Markierung Change txtAnzeige l schen IstTheme Scroll butScrollindex Click Ap 11 txtAnzeige Change v 7 Markierung in Istindex butSchliessen Click versetzen m gliche Rubrik in Suchen abgebrochen Markierung Change ndex IstIndex markieren IstIndex_Scroll v 12 frmindex schlie en Suchindex eingegeben frmindex Un 13 frmKeyboard schlie en frmKeyboard frmKeyboard und frmindex nicht geladen Artikel suchen Ebene 1729 30 001398 Projekt Kiosk VIO Bearbeiter Wyk Software Kapitel 4 1 4 1 Benutze Windows Funktionen Vom Programm werden einige nicht in Visual Basic 3 0 integrierte Windows Funktionen verwendet Eine Inte gration dieser Funktionen und Prozeduren erfolgen ber den Befehl Declare Sub bzw Declare Function gefolgt vom Funktionsnamen der Bibliothek und den bergabeparametern Ein Parameter wird ohne weitere Angaben als Call by Referenz bergeben Soll ein Call by Value erfolgen ist dies durch ein dem Para
99. lbuttons sichtbar Text Datei txtAusgabe_Paint Text pa t nicht g ltig in txtAusgabe 6 Scrollbuttons nicht sichtbar Text pa t in txtAusgabe Text Datei ung ltig 1 8 7 txtAusgabe nicht txtAusgabe i virtuelle Ausgabe in a sichtbar ixtAusgabe Paint txtAusgabe kopieren Text darstellen Ebene 17 16 14 26 Now 1994 Projekt Kiosk V1 0 Bearbeiter wyk Entwurf 1 3 frmUser 2 Request dekativiert Drucker Spooler pr fen Ausdrucken 1 unbedingt Spooler nicht leer Hinzuf gen 2 Spooler leer Button Click 2 4 5 Le Pr fe Druckkopf Optionen Le Spoole Druckkopf WMF WMF Datei g ltig Button Click 1 15 Spoolerdaten frmUser aktiviert werden an 6 7 Pr fe Bild Optionen 4 Spoole Bild BMP BMP Datei g ltig Kopfzeiledruck nicht erlaubi Daten gespoolt 8 Bilddruck nicht erlaubt p Spoole Bild WMF WMF Datei g ltig Daten gespoolt Y Y 9 Pr fe Text Optionen Spoole Text ANSI Datei weder als RTF BMP oder WMF g ltig 10 Button Click 2 Button Click 1 11 p Spoole Text RTF RTF Datei g ltig Textdruck nicht erlaubt 12 p Spoole Bild BMP BMP Datei g ltig 13 Spoole Bild WMF WMF Datei g ltig
100. lisien ea 36 a Ala WOU A 37 Einstellung des Mauszeigers zn as ae 37 Einstellung der Tonausgabe euer 37 4n AP 39 Objektanordnung esmeraldas 39 Ehe Funktionen der Buttons sar 40 Kommunikation etinis n a a a a EES 42 Inhaltsverzeichnis 3 2 BIO A A 43 3 2 1 ANS E Ee clit reri ie seeders en pe 43 3 22 MS Rich Text Formal anne 43 Nicht im RTF enthaltene Steuerbefehle 45 3 2 3 Wi dows Bitmap inicial 45 3 2 4 Mandows Metaflle siii adds 47 3 2 5 Vid o Fort MENT TT 47 3 2 6 Wave Dateie iae os ee ODE 48 3 2 7 A e 48 3 3 Objekte und Bezeichner des Zustand Aktions Modells 49 SEENEN 49 z Das o LE EMI 49 is curii PM ie 50 3 4 System und F nktionsmodelle mida ta 50 nme PP 51 Kiosk System M 32 A A 53 duda AA een 54 uS EdbbVerz WeChseli ee 55 Buttonschrrft wechseln use Ert ER OSEE Ed 56 SP are Wechsel E 57 Infotextschrift wechseln 58 Druckkopf wechselt 2 59 SE 60 Kundens hnittstelle M rS 61 Verzeichniswechsel dur 62 Multimedia Ausgabe stoppen cn 63 Multimedia Auspabe cs 64 e EE E 65 Text darstelle is 66 A A AA 67 Animation spielen 68 SITE spielen use ei 69 Kundenw nsche een namen 70 Antike Leichen EEN 71 4
101. me Dateien datName Modi modName Multimedia Steuerung mciName Ereignisse werden je nach Typ mit einem Unter strich und folgenden Kennungen erweitert Ereignis Kennung Objekt laden Name Load Objekt entfernen Name Unload Objektdarstellung ndern Name Paint Mausklick Touch Name Click Scrollen Name Scroll Daten speichern Name Write Daten lesen Name Read Abspielen von Kl ngen und Animationen Name_Play Abspielen beendet Name_Done Inhalte ndern Name_Change Objektfelder mehrere Objekte eines Typs wer den durch nachfolgende Klammern gekennzeich net Einem unbestimmten Feldelement wird ein Doppelkreuz hinzugef gt Ein bestimm tes erh lt eine eindeutige Identifizierung z B eine Ziffer 1 System und Funktionsmodelle Entwurf Request frmRequest nicht geladen rmRequest Load 2 Buttons erzeugen und positionieren Button Paint 3 Infotext ausgeben frmReques 4 frmRequest sichtbar Button Click 5 Buttonnr zur ckgeben frmRequest Tag Change v 6 frmRequest schlie en frmRequest_Unload frmRequest nicht geladen Request Ebene o Smdvom ae Projekt Kiosk VIO Bearbeiter Wyk Kapitel 3 4 Kiosk System Button Click 2 y 1 2 4 Pa wort initialisiert Initialisierungen laden Passwort Request datKioskini_ Read abfragen Pa wor Abbruch 1 Wiederholung 2
102. miHeader biheight Ptr PtrRec pIH Hi CIrCnt pIH DIB_RGB_COLORS SRCCOPY Bildgr e anpassen end end end GlobalUnlock hBmp Speicher entsichern GlobalFree hBmp Speicher freigeben _LClose hFile Datei schlie en end procedure MedStretchimg sourceHDC hDG sl st sw sh integer destHDC hDc dl dt dw dh integer wnd hWnd export var URgn HRgn begin URgn CreateRectRgn 0 10 10 20 StretchBlt destHDC dl dt dw dh SourceHDC sl st sw sh SRCCopy RedrawWindow Wnd nil URgn RDW UpdateNow end procedure MedCopyImg sourceHDC hDC sl st sw sh integer destHDC hDC dx dy integer export begin BitBlt destHDC dx dy sw sh sourceHDC sl st SRCCopy end procedure MedMovelmg sourceHDC hDC sl st sw sh x y integer export begin BitBlt sourceHDO x y sw sh sourceHDO sl st SRCCopy end procedure MedScrollWnd Wnd hWnd dy integer export var Rect ClipRect PRect begin Rect Nil ClipRect Nil ScrollWindow Wnd 0 dy Rect ClipRect end procedure MedSetWMF de hDC filename PChar export var hMF THandle begin hMF GetMetaFile filename PlayMetaFile DC hMF end 189 Anhang C MEDIA PAS KIOSKDRV PAS Borland Pascal 7 0 Sourcecode f r KIOSKDRV DLL 190
103. n Twips setzt den rechten Einzug f r alle Zeilen auf n Twips lotes richtet Text linksb ndig aus jo ee richtet Text rechtsb ndig aus zentriert Text mittig Ward setzt alle Absatzattribute auf Standard werte Ausrichtung linksb ndig Erstzeileneinzug Null Linker Einzug Null Rechter Einzug Null Zeichenattribute schaltet Fettdruck ein bO schaltet Fettdruck aus p schaltet Kursivdruck ein roe schaltet Kursivdruck aus Wl schaltet Unterstreichen ein WO schaltet Unterstreichen aus strike schaltet Durchstreichen ein WtrikeO schaltet Durchstreichen aus P setzt die Gr e einer Schrift in n halben Punkten plain setzt alle Zeichenattribute auf Standard werte Fettdruck aus Kursivdruck aus Unterstreichen aus Durchstreichen aus Schriftgr e 10 Pkt Ausgabeattribute par markiert das Ende eines Absatzes und f hrt einen Zeilenumbruch aus Vine bricht die aktuelle Zeile um ohne den Ab satz zu beenden y AAA wandelt die gegebene Hexadezimalzahl hh in ein Zeichen und f gt es in den Text ein Das Aussehen des Zeichens h ngt vom ge setzten Zeichensatz ab f gt einen Tabulator ein 44 D Nicht im RTF enthaltene Steuerbefehle Farbattribute 3 2 3 Art
104. nd Open If mciWAV Mode lt gt 526 Then mciWAV Command Play End If SetPic bitmap 181 Anhang C FRMUSER FRM 182 MEDIA PAS Listing Borland Pascal 7 0 Sourcecode f r MEDIA DLL Anhang C MEDIA PAS function LFileSize F integer longint var CurPos longint begin CurPos llseek F 0 1 _LFileSize llseek F 0 2 _llseek F CurPos 0 end function MedGetDCColors dc hDC integer export begin MedGetDCColors GetDeviceCaps DC BITSPIXEL end function MedGetBMPSize filename PChar var width height BitCount integer integer export var hFile Integer File Handle fir Windows File Funktionen IH TBitmapInfoHeader Windows Bitmap Format Infoheader Header TBitmapFileHeader Bitmap Fileheader begin hFile _LOpen FileName of Read Datei f r Lesezugriff ffnen if hFile 1 then begin MedGetBMPSize 1 Exit Datei konnte nicht ge ffnet werden end if LRead hFile Header SizeOf Header lt gt SizeOf Header Bitmap Fileheader lesen or Header bfType BMType then begin _LClose hFile Fehler beim Lesen des Headers MedGetBMPSize 2 Exit end if LRead hFile IH SizeOf IH lt gt SizeOf IH then begin Bitmap Infoheader lesen _LClose hFile Fehler beim Lesen des Headers MedGetBMPSize 2 Exit end MedGetBMPSize 0 width IH biWidth height IH biHeight BitCount IH biBitCount LClose hFile end function MedProofBMP filename PChar i
105. nen Sie die Schriftart f r die Textausgabe Ihren W nschen anpassen Bet tigen Sie dazu den Button Infotext schrift Im erscheinenden Dialog k nnen Sie ber die Pfeiltasten eine Ihrer unter Windows installierten Schriften ausw hlen Best tigen Sie Ihre Wahl mit OK oder verwerfen Sie eine nderung mit Abbruch Infotext Schrift Symbol Set SWA SymbolProp BT System Tango BT Technical Terminal Thunderbird BT Times New Roman Der Dialog zum Schriftwechsel f r Textausgaben Buttonschriftart wechseln Buttonfarbe ndern Der Dialog zur Farbauswahl Benutzerhandbuch Die Schrift der Schaltfl chen l t sich ebenfalls der Wirkungsweise Ihrer Pr sentationen anpassen W hlen Sie mit dem Button Buttonschrift den entsprechenden Dialog Buttonschrift Der Dialog zum Wechseln der Button und Infozeilenschrift Sie k nnen ber die Pfeiltasten eine Ihrer unter Windows installierten Schriften w hlen und deren maximale Schriftgr e ber die Plus Minus Buttons bestimmen Zus tzlich k nnen Sie vorgeben ob die Schaltfl chentitel fett oder kursiv ausgegeben werden sollen Sollte ein Titel breiter als der im Button zur Ver f gung stehende Platz sein wird die Schrift automa tisch verkleinert Ist der Text bei kleinstem Schriftma immer noch zu lang wird er rechts beschnitten Nicht nur die Schrift auch die Farbe der Schaltfl chen kann Ihren Anforderungen angepabt werden Wenn Sie
106. ns kann der Kunde die Seiten dieser Berei che vertauschen Alle Objekte passen sich der Bildschirmaufl sung an Sie haben zueinander einen Abstand von 1 196 der Fensterbreite ji d Bild und Animationsfeld Textfeld Informafionszelle Objekte des Kiosks Die Schriftart der Informationszeile und Kontroll buttons ist mit der Schrift der Themenbuttons iden tisch Objekte sind nur dann sichtbar wenn Ihnen eine Funk tion zugeordnet ist Die Funktionen der Buttons Die Bet tigung eines Themenbuttons hat die Ausf h rung der in der INFO INI zugewiesenen Befehle zur Folge Zur ck 1 Fall Erste Themenbuttondekade sichtbar Zur ck geht den gesamten Weg des Kunden ber die von ihm gew hlten Themen mit einem Schritt pro Bet tigung zur ck Es werden maximal 30 Positio nen gespeichert 2 Fall Nicht erste Themenbuttondekade sichtbar Zur ck zeigt die vorherige Dekade an 40 Entwurf lt Mehr gt Sind mehr als zehn Themenbuttons vorhanden zeigt Mehr die jeweils folgende Dekade an lt Ubersicht gt bersicht wechselt in das Ausgangs Daten Ver zeichnis Der Button ist nur dann sichtbar wenn eine anderes als das Datenverzeichnis aktuell ist lt Suchen gt Suchen ffnet einen Dialog der ein Thema aus einer Liste ausw hlen l ft und diesen direkt angehen kann Siehe n chste Seite lt Drucken gt 1 Fall Drucker Spooler leer Akt Grafik und Text werden gespoolt Ein Request
107. nt die die Ausgaben und Re picDruckDemo Index Print aktionen steuern Alle picDruckDemo Index Print darzustellenden Dateien picDruckDemo Index Print liegen in entsprechenden picDruckDemo Index Print Verzeichnissen End If End Sub Sub txt WMFDatei Change Dim prop As Single If MedGetWMFProp datDruckkopf prop 0 Then picDruckDemo 0 Height picDruckDemo 0 Width prop picDruckDemo 0 Picture LoadPicture datDruckkopf Else datDruckkopf picDruckDemo 0 Height 0 End If butDruck Click 0 butDruck 0 Value End Sub 157 Anhang C frmindex Objekte Begin Form frmIndex AutoRedraw 1 True BackColor amp HOOA2BFBE amp BorderStyle 1 ControlBox 0 False MaxButton 0 False MinButton 0 False Begin PictureBox palette Picture FRMINDEX FRX 0000 Visible 0 False End Begin SSCommand butScrollTheme BevelWidth 0 Height Gils Index 1 Outline 0 False Picture FRMINDEX FRX 0AA2 RoundedCorners 0 False Width 38 End Begin SSCommand butScrollTheme BevelWidth 0 Height In Index 0 Outline 0 False Picture FRMINDEX FRX 151C RoundedCorners 0 False Width ex Ss End Begin SSCommand butScrolllndex BevelWidh 0 Height 19 Index 0 Outline 0 False Picture FRMINDEX FRX 1F96 RoundedCorners 0 False Width 65 End Begin SSCommand butScrolllndex BevelWidth 0 Height Gils Index ei Outline 0 False Picture FRMINDEX FRX 2A10 RoundedCorners
108. nteger export var hFile Integer File Handle f r Windows File Funktionen IH TBitmapinfoHeader Windows Bitmap Format Infoheader Header TBitmapFileHeader Bitmap Fileheader begin hFile _LOpen FileName of Read Datei f r Lesezugriff ffnen if hFile 2 1 then begin MedProofBMP 1 Exit Datei konnte nicht ge ffnet werden end if LRead hFile Header SizeOf Header lt gt SizeOf Header Bitmap Fileheader lesen or Header bfType lt gt BMType then begin _LClose hFile Fehler beim Lesen des Headers MedProofBMP 2 Exit end if LRead hFile IH SizeOf IH lt gt SizeOf IH then begin Bitmap Infoheader lesen _LClose hFile Fehler beim Lesen des Headers MedProofBMP 2 Exit end MedProofBMP 0 _LClose hFile end 184 Listing MEDIA PAS Listing Anhang C procedure CopyPalette var DCPal TDCPalTable BMPPal TBMPPalTable var iiinteger begin for i 0 to 255 do begin DCPal i peRed BMPPalfil rgbRed DCPal i peGreen BMPPal i rgbgreen DCPal i peBlue BMPPal i rgbblue DCPalli peFlags PC RESERVED end for end procedure FillPalette var PalTable TDCPalTable var iiinteger red green blue integer begin red 0 green 0 blue 0 for i 0 to 255 do begin PalTable i peRed red PalTable i peGreen green PalTable i peBlue blue PalTable i peFlags PC RESERVED Red Red 32 if Red 255 then begin
109. nter CurrentY PaperT If PaperT gt printer ScaleHeight Then PaperT 0 If MedGetBMPSize bitmap w h bits 0 Then paperw printer ScaleWidth 5 8 w 5 8 frmUser ScaleWidth paperh paperw h w paperl printer ScaleWidth paperw 2 MedSetBMP printer hDC Int paperl Int PaperT Int paperw Int paperh 3 bitmap PaperT PaperT paperh 100 Else If MedProofWMF bitmap 0 Then w picAusgabe Width h picAusgabe Height paperw w printer ScaleWidth frmUser ScaleWidth paperh paperw h w paperl printer ScaleWidth paperw 2 MedStretchlmg picAusgabe hDC 0 0 w h printer hDC Int paperl Int PaperT Int paperw Int paperh Listing 165 FRMUSER FRM Listing FRMUSER FRM Listing End If If way i button lt gt 1 Then butTheme Click way i button If i 0 Then butControl Zurueck Visible False Goback False End If End Sub Sub CreateTouch Caption As String bmp As String Dim 1 1 w h 1 10 Dim col As Long r g b Dim TitleHeight As Integer Dim OldBKColor As Long Dim fs As Single WMFprop As Single 16 LoadedButtons 1 If Ib gt 0 Then Load butTheme lb End If butTheme lb FontSize fntButtonSize butTheme lb Left butControl lb And 1 Left butTheme lb Top distance lb Mod 10 2 distance butTheme 0 Height LoadedButtons LoadedButtons 1 TitleHeight butTheme lb TextHeight Ca
110. nzuge ben oder einen Bereich aus einer Liste zu w hlen Zu jedem gew hlten Bereich werden in einer zweiten Liste die entsprechenden Themen dargestellt Mit dem But ton Gehezu wird das gew hlte Thema im Kiosk pr sentiert Schlie en bricht die Suche ohne nderun gen der aktuellen Information ab Eine Texteingabe w hlt bei jedem eingegebenen Zeichen in der Bereich liste den wahrscheinlichsten Eintrag aus Kommunikation Im Kiosk System besteht die M glichkeit zur Kommu nikation mit anderen Systemen z B einem Kassen programm ber die Schnittstelle einer Dynamic Link Library DLL Diese kann vom Anbieter selbst erstellt werden und muf folgenden Konventionen entsprechen 1 Sie mu den Namen KIOSKDRV DLL erhalten 2 Es m ssen mindestens zwei Funktionen oder Proze duren namens GetItemPrice und GetlItemInvent als exportierbar deklariert sein Beiden Routinen wer den zwei Pointer auf Null terminierte Strings berge ben Der erste zeigt auf einen String der die Artikel kennung enth lt der zweite zeigt auf einen 255 Zeichen groDen Puffer der das Ergebnis der Kommunikation aufnimmt Die Kommunikationsbefehle sind als Sonderkomman dos in MS Rich Text Dateien zu integrieren Im Fall eines Kommunikationsfehlers soll Fehler im Text an gezeigt werden Als Standard liegt KIOSKDRV DLL dem Kiosk System bei die den Text Bitte erfragen ausgibt 3 2 3 2 1 3 2 2 Farbattribute Entwurf Datenformate
111. o Ihr Datenverzeichnis zur ckschal tet wenn f nf Minuten keine Eingabe erfolgt Kurzanleitung Auf der folgenden Seite finden Sie einen Text der in dieser oder hnlicher Form am Kiosk Geh use ange bracht werden sollte Wenn Sie eine eigene Anleitung erstellen m chten finden Sie die notwendigen Bilder der Buttons im TIF Format auf Ihrer Installations diskette 107 Kapitel 5 5 2 Herzlich willkommen an unserem Kiosk Informations System Alle Funktionen erfolgen durch einfaches Ber hren des Bildschirmes an den entsprechenden Schaltfl chen b ers ht W hlen Sie zuerst die bersicht Sie haben in der bersicht die M glichkeit alle Ele mente so anzuordnen da Sie Ihre bevorzugte Hand f r die Auswahl besser einsetzen k nnen Tippen Sie dazu auf eine der beiden daf r vorgesehenen Schalt fl chen Linksh nder Bechtsh nder W hlen Sie anschlie end bitte eines der dargestellten Themen durch Ber hrung der entsprechenden Schalt fl chen aus Wenn die Schaltfl che Mehr sichtbar ist enth lt ein Mehr Bereich weitere Themen Ber hren Sie Mehr werden diese angezeigt Durch Ber hrung von Zur ck sehen Sie vorangehende Zu ruc k Schaltfl chen oder Sie wechseln zu Ihrem zuvor ausge w hlten Thema Wenn Sie ein bestimmtes Thema suchen ber hren Sie bitte zuerst die Schaltfl che Suchen Anschlie end er halten Sie die M glichkeit einen Bereich per Textein gabe zu suchen oder ein Thema d
112. ojekt Kiosk V1 0 Bearbeiter Wyk Mulimedia Ausgabe stoppen 1 Multimedia Spielen unbedingt 2 mciWAV Timer aus Timer gestopp 3 mciWAV schlieBen mciWav Done 4 mciAVI schlie en mciAVI Done 5 Bildfeld nicht sichtbar t picAusgabe Paint 6 Animationsfeld nicht sichtbar animAugabe Paint Textfeld nicht sichtbar Multimeida Ausgabe stoppen Entwurf Paint 8 Multimedia spielen nicht Ebene 1714 28 Nov 1991 Projekt Kiosk V1 0 Bearbeiter Wyk Kapitel 3 4 Multimedia Ausgabe frmUser deaktiviert unbedingt 2 Textdatei pr fen p Datei weder als RTF BMP 3 Sl Text in virtuelle Ausgabe laden oder WMF g ltig F Datei g ltig 4 F Datei in virtuelle Ausgabe laden Datei g ltig 5 BMP in virtuelle Ausgabe laden WMF Datei g ltig 6 WMF in virtuelle Ausgabe laden LT Y Y Textdatei ung ltig Y virtuelle Ausgabe Paint 7 AVI Datei pr fen AVI Datei g ltig 8 animAusgabe auf AVI AusmaBe setzen animAusgabe Pain AVI Datei ung ltig 11 Bild darstellen 9 animAusgabe sichtbar animAusgabe Paint 10 Animation spielen Verfeinerung 1 7 24 picAusgabe Paint T animAusgabe Pain
113. ommand butOk AutoSize 2 BevelWidth 0 Height 630 Left 120 Outline 0 False Picture FRMPRNHD FRX 0A7A Top 3345 Width 1665 End Begin SSCommand butAbbruch AutoSize 2 BevelWidh 0 Height EEN Left 2880 Outline 0 False Picture FRMPRNHD FRX 2034 Top 3345 Width 11055 End Begin ListBox IstFile FontBold 1 True FontName MS Sans Serif FontSize 2 Height 2430 Left e In 146 FRMPRNHD FRM Top 710 Width 4215 End Begin Label txtVerz BackStyle 0 Transparent BorderStyle 1 nicht nderbar einfach FontBold 0 False FontName MS Sans Serif FontSize BS Height 5205 Left E20 Top 360 Width 4455 End End Begin SSCommand butLaufwerk AutoSize 2 Adjust Button Size To Picture BevelWidh 0 Caption A Font3D 3 Inset w light shading FontBold 1 True FontName MS Sans Serif FontSize 18 ForeColor amp H00007000 amp Height 630 Index 00 Left 1440 Picture FRMPRNHD FRX 4068 RoundedCorners 0 False Top 120 Width 1630 End Begin DriveListBox IstDrive Height EXE Left 52230 Top 120 Visible 0 False Width AES End Begin Label txtFehler Alignment 2 Mitte BackStyle 0 Transparent Caption Fehler FontBold 0 False FontName MS Sans Serif FontSize 5 Height 235 Index 0 Left 1440 Top 720 Visible 0 False Width 1630 End Begin Label txtLaufwerk Alignment 2 Mitte BorderStyle 1 nicht nderbar einfach Fon
114. onsflu in folgen der Weise gegen ber O TT 10 x d 20 e 30 H ren und Sehen 50 Selbersagen RR 70 Selber tun eegene ENEE 90 Anforderungsdefinition und Abgrenzung Kapitel 1 12 1 1 1 2 Anforderungsdefinition Es ist ein Kiosk System zu entwickeln welches unter MS Windows 3 1 auf einem IBM kompatiblen AT un ter Verwendung eines Touchscreens arbeitet Es soll keine weitere Eingabe Peripherie verwendet werden Zur Ausgabe dienen der Monitor Audio und optional ein Drucker ggf auch ein Diskettenlaufwerk Das Sy stem soll sich den vom Anbieter bereit gestellten Daten anpassen Die unterschiedlichen Themen und Informa tionsbereiche werden vom Anbieter in daf r vorgese henen Verzeichnissen gespeichert Das System soll ber Touchbuttons durch Auswahl des Kunden die in dividuellen Informationen anzeigen Der Abbruch des Programms und eine Umkonfigurierung ist nur dem Anbieter vorbehalten und durch ein Pa wort gesch tzt ber einen spezifischen Treiber sollen gesch fts bedingte Informationen wie Lagerbestand und Artikel preis von anderen Systemen integrierbar sein Das Sy stem ist in einem abschlie baren Kiosk Terminal Ge h use zu integrieren und soll im Stehen zu bedienen sein Das Programm soll die Eingabe eines stichwort haften Wunschkataloges der Kunden erlauben was der jeweiligen Filiale f r Artikel fehlen
115. ooseColor ausgew hlt wird Die Helligkeitsunterschiede f r einen dreidimensionalen Effekt werden wie folgt berechnet Hell Rot Griin und Blau Anteil x 133 Halbdunkel Rot Griin und Blau Anteilx 80 Dunkel Rot Gr n und Blau Anteil x 67 96 Mit Hell und Halbdunkel werden die Buttonr nder schattiert Die Bildausgabefl che wird mit Dunkel unterlegt Die Schriftattribute der Buttons werden ber den Dia log Buttonschrift eingestellt Alle Windows Bild schirmschriften werden in einem Listenfeld ausgege ben Die Schriftgr e ist in 1 Punkt Schritten ber zwei Plus und Minusbuttons nderbar Die Schrift kann sowohl optional fett oder kursiv gew hlt werden Die aktuellen Einstellungen werden zur Kontrolle in ei nem im Dialog integrierten Musterbutton dargestellt Euttonzchntt Auri Ten Aras tig Any Animals Ahi leeh Ail Warre Aal Bund MT Th Dialog zum ndern der Buttonschriftattribute Bei dem Wechsel in ein neues Verzeichnis wird dieses auf das Vorhandensein einer BACKGR BMP als g lti ge Windows Bitmap Datei gepr ft Ist keine vorhan den werden alle dar ber liegenden Verzeichnisse durchsucht Ist ein Bild vorhanden wird dieses in ei nem der drei Darstellungsmodi zentriert eingepa t oder gekachelt in den Farben der Systempalette ggf gerastert dargestellt Es kann und mu immer nur ein Modus aktiv sein Der ausgew hlte Modus wird ber einen Haken im Bu
116. or gt UBound colortable Or RTF ForeColor lt 0 Then RTF ForeColor 1 If RTF BackColor gt UBound colortable Or RTF BackColor lt 0 Then RTF BackColor 0 ctrl ForeColor colortable RTF ForeColor SetBKOolor ctrl hDC colortable RTF BackColor If NeuerAbsatz Then ctrl CurrentX RTF LeftMargin RTF FirstLeftMargin If NeueZeile Then ctrl CurrentX RTF LeftMargin txtRest txt txtUmbr Gesamte Ausgabe ggf umbrechen CurX ctrl CurrentX While CurX ctrl TextWidth txt gt ctrl ScaleWidth RTF RightMargin txtRest txt Zeilen k rzen bis sie genau passen While CurX ctrl TextWidth txtRest gt ctrl ScaleWidth RTF RightMargin txtRest Left txtRest Len txtRest 1 Wend Zeilen ggf bis zum vorhergehenden Leerzeichen k rzen SpcPos 0 1 1 While lt gt 0 1 InStr i 1 txtRest I i lt gt 0 Then SpcPos i Wend Wenn ein Leerzeichen vorhanden Resttext k rzen 122 Listing If SpcPos lt gt 0 Then txtRest Left txtRest SpcPos Zeilenumbruch einf gen txtUmbr txtUmbr txtRest Chr 10 txt Mid txt Len txtRest 1 Len txt CurX RTF LeftMargin Wend txt txtUmbr txt linken Einzug bei Zeilenumbr chen ber cksichtigen i InStr txt Chr 10 While i lt gt 0 txtUmbr Left txt i96 Select Case RTF Align Case 1 ctrl CurrentX ctrl ScaleWidth RTF RightMargin ctrl TextWidth txtUmbr 10 Case 2 ctrl CurrentX ctrl ScaleWidth RTF LeftMargin RTF
117. ordinate der oberen linken Ecke des Quell Bitmaps YSrc bestimmt die virtuelle y Koordinate der oberen linken Ecke des Quell Bitmaps Rop bezeichnet die durchzuf hrende Rasteroperation Der Wert bestimmt wie die grafische Ger te schnittstelle GDI Farben in Ausgabevorg ngen wie ein aktuelles Spray ein m gliches Quell Bitmap sowie ein Ziel Bitmap kombiniert Dieser Parameter kann einen der folgenden Werte an nehmen SCRCOPY kopiert das Quell Bitmap auf das Ziel Bitmap Da dies der einzig verwendete Parameter ist wird auf weitere nicht eingegangen alle Angaben s a Borland Pascal Hilfe 7 0 Kommunikation Basic Pascal Aufgrund der unterschiedlichen Leistungsmerkmale der Programmiersprachen Visual Basic 3 0 und Bor land Pascal 7 0 wurde eine Kombination beider ge w hlt Der Funktionsaufruf von Pascal Routinen aus Basic erfolgt ber eine in Pascal compilierte DLL Die Parameter bergabe kann sowohl als Call By Value als auch Call By Referenz erfolgen Im 1 Fall mu in Basic ein Parameter durch ein vorangehendes ByVal gekennzeichnet sein F r den zweiten Fall ist in der Pas cal Routine ein Var voranzustellen F r in Pascal ange gebenen Typen werden in Basic folgende deklariert Pascal Visual Basic ShortInt Integer Byte ByVal As Integer THandle ByVal As Integer Word LongInt ByVal As Long Real Single ByVal As Single Double Extended ByVal As Double PChar ByVal As String Record ByVal As Verbundvariabl
118. ption If Caption Then TitleHeight 1 End If 1 butTheme lb ScaleLeft w butTheme lb ScaleWidth fs 0 While butTheme lb TextWidth Caption gt butTheme lb Width 4 If fs butTheme lb FontSize Then Caption Left Caption Len Caption 1 Else fs butTheme lb FontSize End If butTheme lb FontSize butTheme lb FontSize 1 Wend 12620 h butTheme lb ScaleHeight If Caption Then Caption For i96 0 To 1 butTheme lb Line i t i 1 w96 i 1 1 i 1 c amp 0 butTheme lb Line 1 t i 1 i t h i 1 c amp 0 butTheme lb Line i6 1 t h i 1 w 1 t h 1 1 c amp 2 butTheme lb Line w i 1 1 w 1 1 t h 1 c amp 2 Next i96 butTheme lb Line I 3 t 3 w 3 t h 3 c amp 1 BF If bmp Then butTheme lb CurrentX w butTheme lb TextWidth Caption 2 butTheme lb CurrentY h butTheme lb TextHeight Caption 2 butTheme lb Print Caption Exit Sub End If t butTheme Ib 6 ScaleTop TitleHeight h butTheme lb ScaleHeight t butTheme lb ScaleTop butTheme lb Line 0 t w t h c amp 1 BF butTheme lb Line 0 t w t 0 butTheme lb Line 0 t 1 w t 1 c amp 0 butTheme lb Line 0 t 1 0 t h 1 c amp 0 butTheme Ib Line 1 t h 1 w 1 1 h 1 c amp 2 butTheme lb Line w 1
119. r nChar Or nChar Or nChar commline comm comm UCase comm Schrift Hintergrundfarbe If Left comm 2 CB And Mid comm 3 1 lt 9 And Mid comm 3 1 gt 0 Then param Mid comm 3 Len comm 2 paramres Val param actFormat BackColor paramres FilePos StartOfExtraComm 2 Len Trim Str paramres End If Papier Farbe If Left comm 2 CP And Mid comm 3 1 lt 9 And Mid comm 3 1 gt 0 Then param Mid comm 3 Len comm 2 paramres Val param colortable 0 colortable paramres ctrl BackColor colortable 0 FilePos StartOfExtraComm 2 Len Trim Str paramres 128 Listing 129 Anhang C frmRequest Objekte Begin Form frmRequest BackColor amp HO0080COFF amp BorderStyle 3 ClientHeight 2370 ClientLeft 1650 ClientTop 5490 ClientWidth 8490 ControlBox 0 False Height 27115 Left 1620 MaxButton 0 False MinButton 0 False Picture FRMREQU FRX 0000 ScaleHeight 158 ScaleMode 3 Pixel ScaleWidth 566 Top 5175 Width E550 Begin SSCommand Button Caption Button Font3D 4 FontBold 1 True FontName MS Sans Serif FontSize 18 ForeColor amp H00404080 amp Height Gis Index 0 Left 120 Outline 0 False Top 1440 Width 21715 End Begin PictureBox Icon1 Height ilo Index 93 Left 7800 Picture FRMREQU FRX 3ADBA Top 1500 Visible 0 False Width S End Begin PictureBox
120. r nkt Animationen werden nur dann abgespielt wenn ihre Breite x H he 5 8 x 1 2 der Bildschirmmafe nicht bersteigt bei 800x600 max 500x400 Pixel Andere Formate wie FLI oder FLC m ssen in AVI Dateien konvertiert wer den da sie sonst ignoriert und nicht abgespielt wer den Windows Wave Klangdateien m ssen im WAV Format gespeichert sein Die L nge ist beliebig Die Samplerate und Frequenz ist abh ngig von den M glichkeiten der installierten Soundkarte Andere Formate werden ignoriert und nicht abgespielt MS Rich Text Format Formatierte Texte k nnen eingeschr nkt wiederge geben werden wenn sie als RTF vorliegen wie es z B MS Word f r Windows verarbeiten kann Bilder im Text sowie Tabulatorstops Spalten und Tabellen werden hierbei nicht ber cksichtigt Ebenso k nnen Schriften nicht gemischt und unterschiedliche For matierungen pro Absatz nur bei linksb ndiger Aus gabe gesetzt werden Andere Formate werden als ANSI Text inkl Steuerzeichen ausgegeben ANSI Text Jeder unformatierte Text kann wiedergegeben wer den wenn er im ANSI Format vorliegt Bei anderen Formaten ist nicht garantiert da alle Zeichen so wiedergegeben werden wie es gew nscht wird Voraussetzung f r die Wiedergabe von Kl ngen und Animationen ist die bereits durchgef hrte Installation der entsprechenden Treiber unter der Systemsteuerung Gehen Sie sicher da MCI Klang und MCI Micro soft Video for Windows installiert sind 87
121. r ist und eine Compilierung schneller ab l uft In C g be es die M glichkeit neue Zusatz Steuer elemente VBX zu erzeugen die in Visual Basic leich ter als andere DLL zu integrieren sind Dies macht aber einen erheblichen Aufwandunterschied aus und lohnt sich nur dann wenn erstellte VBX Dateien in weiteren Software Projekten zur Wirkung kommen Die Kom munikation zwischen Basic und Pascal erfolgt ber in Pascal zu erstellende Dynamic Link Librarys DLL Methodische Ans tze Zur Modellierung der Software gibt es verschiedene M glichkeiten von den strukturierte Analyse SA mit Datenflu diagrammen DFD Zustands Aktions Mo delle ZA bzw Interaktionsdiagramme JAD Petri Netze und SADT zur Diskussion stehen Abh ngig von Windows Spezifikationen sind dem Sy stem Ereignissteuerungen zu Grunde gelegt D h jedes Objekt Fenster Button Bild Animation hat immer einen Zustand der durch Eintreten eines Ereignisses Button wurde bet tigt Bild wurde dargestellt Anima tion wurde beendet ggf in einen anderen wechselt Somit erfolgt eine Steuerung des Systems nicht offen sichtlich durch Datentransfer dies ist in Windows inte griert und mu nicht neu definiert werden Zustands nderungen erfolgen wie oben beschrieben als Reakti on auf Ereignisse SA beschreibt ein System in erster Linie durch Daten fl sse Datenspeicher und deren Knotenpunkte Im Ki osk System erfolgt der Hauptteil des Datentransfers
122. rd diese vom Bildschirm und aus dem Speicher entfernt Eine Animation wird so oft abgespielt wie es der Opti on animreplay zugewiesen ist Eine negative Zahl l t die Animation endlos wiederholen Wird die Zuwei sung weggelassen spielt die Animation genau ein Mal Eine Bilddatei kann als Windows Bitmap oder Windows Metafile inkl Header vorliegen Ausma e und Farbtiefe sind beliebig Bilder werden maximal mit den Ausma en 5 8 der Bildschirmbreite und 1 2 der Bildschirmh he dargestellt Die Farben werden der Windows Einstellung angepa t Bilder werden erst dann sichtbar wenn keine Animation zugewiesen oder eine Animation vom Bildschirm entfernt wurde Kl nge m ssen im Windows Wave Format vorliegen Die Abspielorganisation wird vom Windows MCI Treiber vorgenommen Sind alle Wiederholungen eines Klanges abgespielt wird dieser aus dem Speicher ent fernt Ein Klang wird so oft abgespielt wie es der Option soundreplay zugewiesen ist Eine negative Zahl l t den Klang endlos wiederholen Wird diese Zuweisung weggelassen spielt der Klang genau ein Mal Zwischen Klangwiederholungen kann eine in Sekunden anzuge bende Pause erfolgen Diese wird ber sounddelay ge setzt Wird diese Zuweisung weggelassen erfolgt keine Pause zwischen den Wiederholungen Ist Sound_After_Anim ein Wert ungleich Null zugewie sen beginnt das Spielen eines Klanges erst nach dem Beenden einer Animation Wird diese Zuweisung weg gelassen spielt ein
123. re Sub MedStretchimg Lib MEDIA DLL ByVal ShDC ByVal 51 ByVal 51 ByVal sw ByVal sh ByVal DhDC ByVal dl ByVal dt ByVal dw ByVal dh ByVal hwnd Declare Sub MedCopylmg Lib MEDIA DLL ByVal ShDC ByVal 51 ByVal 51 ByVal sw ByVal sh ByVal ByVal dx ByVal dy Declare Sub MedMovelmg Lib MEDIA DLL ByVal ShDC ByVal sl 6 ByVal 51 ByVal sw ByVal sh ByVal dx ByVal dy Declare Sub MedScrollWnd Lib MEDIA DLL ByVal hwnd ByVal dy Declare Sub MedShadow Lib MEDIA DLL ByVal hDC ByVal 1 ByVal t ByVal w ByVal h ByVal deep ByVal intens Declare Sub MedSetWMF Lib MEDIA DLL ByVal hDC ByVal filename Declare Function GetPrivateProfileString Lib Kernel ByVal Appl ByVal Key ByVal Default ByVal Result ByVal size ByVal filename As Integer Declare Function WritePrivateProfileString Lib Kernel ByVal Appl ByVal Key ByVal text ByVal filename As Integer Declare Sub SetWindowPos Lib User ByVal hWnd ByVal insert ByVal x96 ByVal y ByVal cx ByVal cy ByVal flags Declare Function GetTickCount Lib USER As Long Declare Function ShowCursor Lib User ByVal OnOff As Integer Global Const datKiosklni KIOSK INI Global Const datInfolni INFO INI Global Const datIndexlni INDEX INI Global Const datBckBMP BACKGR BMP Global Const datPropose VORSCHLG TXT Type ThemeRec InitName As String title As String datAnim As String animreplay
124. rzen bis sie genau passen While CurX printer TextWidth txtRest gt printer ScaleWidth RTF RightMargin txtRest Left txtRest Len txtRest 1 Wend Zeilen ggf bis zum vorhergehenden Leerzeichen k rzen SpcPos 0 D s 123 Anhang C RTFGLOB BAS While i lt gt 0 i InStr i 1 txtRest If i1 lt gt 0 Then SpcPos i Wend Wenn ein Leerzeichen vorhanden Resttext k rzen If SpcPos lt gt 0 Then txtRest Left txtRest SpcPos Zeilenumbruch einf gen txtUmbr txtUmbr txtRest Chr 10 txt Mid txt Len txtRest 1 Len txt CurX RTF LeftMargin Wend txt txtUmbr txt linken Einzug bei Zeilenumbr chen ber cksichtigen i InStr txt Chr 10 While i lt gt O txtUmbr Left txt i26 Select Case RTF Align Case 1 printer CurrentX printer ScaleWidth RTF RightMargin printer TextWidth txtUmbr 10 Case 2 printer CurrentX printer ScaleWidth RTF LeftMargin RTF RightMargin printer TextWidth txtUmbr NeuerAbsatz RTF FirstLeftMargin 2 End Select printer Print txtUmbr printer CurrentX RTF LeftMargin txt Mid txt i 1 Len txt 1 InStr txt Chr 10 Wend Select Case RTF Align Case 1 printer CurrentX printer ScaleWidth RTF RightMargin printer TextWidth txt 10 Case 2 printer CurrentX printer ScaleWidth RTF LeftMargin RTF RightMargin printer TextWidth txt NeuerAbsatz RTF FirstLeftMargin 2 End Select printer Print txt Neuer
125. s gew nschten Verzeichnisses ein Installieren in BAUE Um die Installation zu beenden wahlen Sie die Schaltflache Beenden L we TI Es erscheint das Dialogfenster KIOSK V1 0 Installati on Geben Sie das Ziellaufwerk und Verzeichnis f r das KIOSK Programm ein Nach der Bet tigung von Wei ter werden alle notwendigen Programmdaten in das angegebene bzw in das Windows Verzeichnis kopiert Folgende Dateien werden dem Windows Verzeichnis hinzugef gt MEDIA DLL KIOSKDRV DLL SYSTEM VBRUN300 DLL SYSTEM COMMDLG DLL SYSTEMMCI VBX SYSTEM THREED VBX SYSTEM CMDIALOG VBX SYSTEM MSOUTLIN DODDDDDD Benutzerhandbuch Sollte es bei der Installation der commdlg dll zu Kolli sionen mit anderen ge ffneten Anwendungen kom men w hlen Sie im erscheinenden Dialogfeld ignorie ren da diese Datei dann bereits in Ihrem WINDOWSNSYSTEM Verzeichnis installiert ist Sind alle Dateien kopiert meldet sich das Kiosk Installationsprogramm mit der Meldung Die Installation wurde erfolgreich abgeschlossen Die Programmgruppe Kiosk wurde im Programm Manager automatisch hinzugef gt aus der Sie die Anwendung durch einen Doppelklick starten k nnen 85 Kapitel 5 4 86 5 4 Begriffsdefinition il 5 4 1 Dateiformate Benutzung durch den Anbieter F r die weiteren Ausf hrungen gelten Sie als Anbieter und der Informationsempf nger als Kunde Ein Teilbereich einer Pr sentation wird nachfolgend als Thema bez
126. stand erh ht oder verringert wird Ist der Parameter TRUE wird der An zeigez hlerstand erh ht Andernfalls wird er verrin gert Der R ckgabewert gibt den neuen Anzeigez hlerstand an wenn die Funktion erfolgreich ausgef hrt wurde Es gibt einen internen Anzeigez hlerstand Er steigt bei einem Show Vorgang und sinkt bei einem Hide Vor gang Der Mauszeiger ist nur sichtbar wenn der An zeigez hlerstand gr er oder gleich Null ist 75 Kapitel 4 1 procedure SetWindowPos ByVal HWnd ByVal WndinsertAfter ByVal x ByVal y ByVal cx ByVal cy ByVal Flags Parameterbeschreibung function GetTickCount as Longint 76 R ckgabewert Die Routine SetWindowPos LIB USER ndert Gr De Position und Reihenfolge von untergeordneten Fen stern Pop Up und Hauptfenstern Fenster werden in der Reihenfolge ihres Erscheinens am Bildschirm ange ordnet Das oberste Fenster erh lt den h chsten Rang und ist das erste Fenster in der Liste HWnd bestimmt das Fenster das positioniert werden soll WndlnsertAfter bezeichnet das Fenster in der Liste des Fenster Managers das dem positionierten Fenster in Z Richtung vorangehen soll Dieser Parameter setzt bei einem Wert 1 das Fesnter an die oberste Stelle Die x y cx cy positionieren das Fenster und bringen mit einem Wert 0 keine nderungen mit sich Dieser Fall wird ausschlie lich im Kiosk System genutzt Flags gibt Positionsoptionen des Fenster an Im Pro
127. ste der Raster Operationscodes finden Sie unter BitBlt Der R ckgabewert ist die Anzahl der kopierten Scan Zeilen wenn die Funktion erfolgreich ausgef hrt wur de StretchDIBits verwendet den Streckmodus des Ziel ger tekontextes gesetzt durch die Funktion SetStretchBltMode um zu bestimmen wie das Bitmap zu strecken oder zu stauchen ist Hier wurde der Modus STRETCH DELETESCAN ver wendet der keine Farbver nderung beim Stauchen vornimmt Die Funktion wird zum Einpassen von BMP Dateien benutzt function BitBIt DestDC HDC X Y nWidth Height Integer SrcDC HDC XSrc YSrc Integer Rop Longint Bool 78 Parameterbeschreibung Die Funktion BitBlt Unit WinProcs kopiert ein Bitmap von einem angegebenen Ger tekontext auf ei nen Zielger tekontext DestDC bezeichnet den Ger tekontext der das Bitmap aufnehmen soll X bestimmt die virtuelle x Koordinate der oberen lin ken Ecke des Zielrechtecks Y bestimmt die virtuelle y Koordinate der oberen linken Ecke des Zielrechtecks nWidth bestimmt 1n virtuellen Einheiten die Breite des Zielrechtecks und des Quell Bitmaps Height bestimmt in virtuellen Einheiten die H he des Zielrechtecks und des Quell Bitmaps Codebeschreibung 4 2 Software SrcDC bezeichnet den Ger tekontext aus dem das Bitmap kopiert wird Mu den Wert Null haben wenn der Parameter Rop eine Rasteroperation bezeichnet die keine Quelle einschlie t XSrc bestimmt die virtuelle x Ko
128. stem beenden Der Abbruch Code Benutzung durch den Kunden Nachdem Sie das Programm aus der Initialisierung oder direkt gestartet haben besteht die M glichkeit f r den Kunden die von ihm gew nschten Informationen zu erhalten sofern Sie diese anbieten Von nun an ist Ihre Arbeit fast erledigt Mit Ausnahme des Drucker papierwechselns bleiben Ihnen noch zwei kleine Aufga ben Dem Anbieter vorbehalten Da das Kiosk System leicht zu bedienen sein soll sind die wenigen Funktionen eigentlich selbsterkl rend AI lerdings sollten Sie vielleicht am Kiosk Geh use eine Kurzanleitung anbringen die Sie am Ende dieses Kapi tels finden Zwei Fragen die Sie als Anbieter noch beantwortet ha ben m ssen sind Wie beende ich eigentlich das Pro gram und Was hat es mit dem Kommentar au sich Die erste Antwort lautet W hlen Sie die bersicht mittels des entsprechenden Buttons Es erscheinen die grofen grauen Schalt fl chen f r Links und Rechtsh nder Tippen Sie ein mal auf den Button dessen Einstellung gerade aktiv ist tippen Sie zweimal auf den Hintergrund tippen Sie wieder einmal auf denselben Button tippen Sie noch einmal auf den Hintergrund und zum Schlu wieder zweimal auf den H nderbutton Ihr Computer wird bei der richtigen Reihenfolge ein Signal von sich geben und Ihnen die vorangehend beschriebene R ckfrage zum Programm beenden stellen Um sich diese Abschalt kombination leichter merken zu k nnen folgt die
129. t 12 WAV Datei pr fen WAV Datei g ltig Sound After 0 UND AVI Datei ung ltig WAV Datei ung ltig 13 Klang spielen Verfeinerung 1 7 25 unbedingt 14 Text ausgeben txtAusgabe_Paint i DEN frmUser aktiv Multimedia Ausgabe Ebene 1716 28 Nov 1994 Projekt Kiosk VIO Bearbeiter Eet Entwurf Bild darstellen 1 picAusgabe nicht a picAusgabe Paint Y 2 3 4 Bild Datei pr fen HA picAusgabe auf BMP Ausma e gt BMP laden BMP Datei g ltig und setzen picAusgabe_Pain picAusgabe_Paint Y Ausma e passen 5 6 9 picAusgabe auf maximale Mee BMP einpassen gt picAusgabe anzeigen BMP Datei g ltig und Ausma e setzen AusmaBe passen nicht picAusgabe Pain picAusgabe Paint 7 8 4 picAusgabe auf maximale Me WMF laden picAusgabe Paint WMF Datei g ltig Ausma e setzen picAusgabe Pain Se icAusgabe nicht icAusgabe t gt Y Ausgaberahmen setzen Su Bild darstellen Ebene 171657 28 Nov 1991 Projekt Kiosk V1 0 Bearbeiter Wyk Kapitel 3 4 Text darstellen EN nicht ut ixtAusgabe Paint 2 3 4 5 Text Datei pr fen B dxtAusgabe AusmaBe anpassen xiAusgabe AufmaBe pr fen Wie Scrol
130. t 1 w96 1 1 h 1 c amp 2 butTheme lb CurrentX w butTheme Ib TextWidth Caption 2 butTheme Ib CurrentY TitleHeight butTheme lb TextHeight Caption 2 butTheme b Print Caption For i96 5 To 6 butTheme lb Line 1 t i w 1 t 1 c amp 2 butTheme lb Line w i t h 1 c amp 0 butTheme lb Line i t h 1 c amp 0 butTheme lb Line i t 1 c amp 2 Next i 169 Anhang C FRMUSER FRM butTheme lb Line 0 t 1 w96 t 1 c amp 0 butTheme lb Line 0 t 1 0 t h 1 c amp 0 butTheme lb Line 1 t h 1 w 1 t h 1 c amp 2 butTheme lb Line w 1 t 1 w 1 1 h 1 c amp 2 butTheme lb Line 1 7 t 7 W 7 1 h 7 c amp 3 BF butTheme lb Refresh If MedGetWMFProp bmp WMFprop 0 Then OldBKColor txtAusgabe 0 BackColor txtAusgabe 0 BackColor c amp 3 If WMFprop lt h w Then txtAusgabe 0 Width w 13 txtAusgabe 0 Height txtAusgabe 0 Width WMFprop Else txtAusgabe 0 Height h 13 txtAusgabe 0 Width txtAusgabe 0 Height WMFprop End If txtAusgabe 0 Picture LoadPicture bmp If WMFprop lt h w Then MedCopylmg txtAusgabe 0 hDC 0 0 txtAusgabe 0 Width txtAusgabe 0 Height butTheme lb hDC 1 7 t 7 h 7 txtAusgabe 0 Height 2 Else MedCopylmg txtAusgabe 0 hDC 0 0 txtAusgabe 0 Width txtAusgabe 0 Heigh
131. t butTheme lb hDC butTheme lb Width txtAusgabe 0 Width 2 1 7 End If butTheme lb Refresh txtAusgabe 0 Picture LoadPicture txtAusgabe 0 BackColor OldBKColor txtAusgabe 0 Width txtAusgabe 1 Width Else MedSetBMP butTheme lb hDC 1 7 1 7 wW 18 h 13 modThemePic bmp End If End Sub Function GetINFOString Theme KeyName Default Dim anz RetString verz RetString Space 50 If Right CurDir 1 lt gt Then verz CurDir Else verz CurDir End If anz GetPrivateProfileString Theme KeyName Default RetString 50 verz datlnfolni GetINFOString Left RetString anz End Function Sub HideButTheme Alle butTheme gt 0 l schen While LoadedButtons gt 1 LoadedButtons LoadedButtons 1 Unload butTheme LoadedButtons Wend butTheme 0 Visible False butControl mehr Visible False End Sub Sub HideMedia Dim exitDelay True picResize False SoundReplay 0 mciWAV_Timer Interval 0 mciWAV_Timer Enabled False mciAVI Command Close mciWAV Command Close picAusgabe Visible False animAusgabe Visible False If BitsPixel lt 8 Then picAusgabe Picture LoadPicture frameAusgabe Visible False txtAusgabe 1 Visible False VisibleScroll False txtAusgabe 0 Cls txtAusgabe 1 Cls picAusgabe Cls 170 SetPicSize picAusgabe 0 0 End Sub Sub PlayMedia wav wrep wdel waanim avi arep bmp
132. t Zur ck gt zeigt Ihnen vorherige Themen Const strBack1 lt Zur ck gt zeigt Ihnen Ihr letztes Thema Const strSelect W hlen Sie bitte ein Thema Const strScroll Verschieben Sie den Text mit den Pfeiltasten Const strLoad Lade Daten zum Thema Const strShow Derzeitige Auswahl Const strHand Ordnen Sie die Schaltfl chen gem Ihrer Gew hnung an Const strInput Bitte machen Sie Ihre Eingabe und beenden Sie mit lt Schlie en gt Const strRequest R ckfrage W hlen Sie bitte eine der Antworten Const strPrint01 Die Daten werden ausgedruckt Const strprint02 Die Druckdaten werden erstellt Dim minuten As Integer Z hler f r auto bersicht Reset Dim distance As Integer Distanze der Objekte zum Rand und zueinander Dim BitsPixel As Integer Speicher die Farbtiefe der Bildausgabe Dim TouchDown As Integer Speicher f r ThemeButton Zustand Dim wait As Integer 1 Verz beim Scrollen Dim EndCode As Integer Touchspeicher f r Programmabbruch Code Dim order As Integer Buttons rechts 0 oder links 1 Dim LoadedButtons As Integer Anzahl der geladenen Themebuttons Dim actDecade As Integer sichtbare ThemeButton Dekade Dim SoundReplay As Integer Anzahl der noch abzuspeilenden Sounds Dim SoundDelay As Long L nge der Abspielpause in mSek Dim SoundPlayed As Integer Sound wurde mind 1x abgespielt Dim WAVWhileAnim As Integer Sound nur solange Animation Dim picWhileWAV As
133. tBold 1 True FontName MS Sans Serif FontSize 2 Height ew Left Je Top 480 Width SO End Begin Label Bezeichnung BackStyle 0 Transparent Caption Laufwerk FontBold 1 True FontName MS Sans Serif FontSize ug Height ce es Left ZO Top 120 Width KES End End frmDruckKopf Deklarationen frmDruckKopf Ereignisse FRMPRNHD FRM Listing 149 Anhang C frminit Objekte Begin Form frmlnit AutoRedraw 1 True BackColor amp H00COCOCO amp BorderStyle 1 ControlBox 0 False Icon FRMINIT FRX 0000 Left LOS MaxButton 0 False MinButton 0 False ScaleMode 3 Pixel Top 288 Begin SSCommand butAbbruch AutoSize 2 Adjust Button Size To Pic Caption Abbruch Font3D 4 Inset w heavy shading FontBold 1 True FontName MS Sans Serif FontSize le ForeColor amp H00808080 amp Height 1095 Left A Picture FRMINIT FRX 0302 Top 6000 Width 2 End Begin SSCommand butStart AutoSize 2 Adjust Button Size To Pic Caption Start Font3D 4 Inset w heavy shading FontBold 1 True FontName MS Sans Serif FontSize if ForeColor amp H00808080 amp Height 21095 Left 5880 Picture FRMINIT FRX 0906 Top 6000 Width 1218 End Begin SSFrame frameSound Caption Tonausgabe Font3D 3 Inset w light shading ForeColor amp H00000000 amp Height 7800 Top 160 Width 1695 Begin SSRibbon butTon BevelWidth
134. tHeight Zg 5 txtInfo Top frmUser ScaleHeight distance txtInfo Height i SetPicSize picAusgabe frmUser ScaleWidth dw frmUser ScaleHeight dh txtInfo Width frameAusgabe Width butHand rechts Top frameAusgabe Top frameAusgabe Height distance butHand links Top butHand rechts Top w frmUser ScaleWidth 5 8 butHand links Left distance w distance 1 2 butHand links Width butHand rechts Left butHand links Left butHand links Width distance txtAusgabe 1 Width frameAusgabe Width butScroll 0 Width txtAusgabe 0 Width txtAusgabe 1 Width butScroll 0 Left distance txtAusgabe 1 Width butScroll 1 Left butScroll 0 Left Scrollbar Width butScroll 0 Width 2 Scrollbar Left butScroll 0 Left modThemePic Val GetINISTring ButtonPictureMode 3 mciAVI hWndabDisplay animAusgabe hWnd ChangebDir StartDir End Sub Sub mciAVI Done NotifyCode As Integer If NotifyCode 1 Then If AnimReplay 0 Or AnimReplay 0 Then mciAVI From 0 mciAVI Command Play AnimReplay AnimReplay 1 If WAVWhileAnim 2 Then mciWAV_Timer Enabled False mciWAV Command Prev mciWAV Command Play End If Else mciAVI Command Close animAusgabe Visible False If WAVWhileAnim lt gt 0 And mciWAV Mode 526 Or mciWAV_Timer Enabled Then mciWAV Command Close SoundPlayed True End If If Not SoundPlayed Then If mci WAV Mode 524 Then mciWAV Comma
135. tbar oder unsichtbar sein soll W hrend der Initialisierung wird der Cursor als Verbotskreis dargestellt wenn er im Programm sp ter unsichtbar sein soll Es besteht die M glichkeit das Programm nur nach der Eingabe eines g ltigen Pa wortes ablaufen zu lassen Die Vorgabe dieses Pa wortes erfolgt ber die Bet ti gung des Buttons Pa wort Daraufhin erscheint eine Tastatur die die Eingabe eines beliebig langen Textes gestattet Zu Ihrem eigenen Vorteil sollten Sie jedoch nicht mehr als zehn Zeichen verwenden wobei das Ein f gen von Ziffern die Sicherheit erh ht Nachdem Sie ein neues Pa wort eingegeben haben werden Sie auf gefordert dies zur Kontrolle ein zweites Mal zu tun Wiederholen Sie hier Ihre Eingabe Wenn beide Einga ben voneinander abweichen wird das Pa wort ge l scht und Sie erhalten eine entsprechende Meldung Ebenso werden Sie informiert wenn eine bereinstim mung zutrifft 112 3 4 6181 778 870 El al Tl x lol e pu AlSIDIFIG I H J KI LI O A xli el Ni m Schlie en Die Tastatur f r die Pa worteingabe Vergessen Sie nicht sich das Pa wort irgendwo zu no tieren Die Buttons Start und Abbruch beenden die Initialisie Initialisierung beenden Initialisierung speichern Programm beenden Benutzerhandbuch rung wobei nach der Bet tigung von Start direkt das KIOSK Programm gestartet wird Wurden von Ihnen nderungen der Initialisierung vorgenommen werden Sie g
136. ten T gt SHE Dk Abbruch Dialog zum W hlen des Druckkopfes Einstellung des Mauszeigers Mauszeiger Einstellung der Tonausgabe Tonausgabe Pafiwortvorgabe 12 34 5 6 zu PO As J K LOA Y X CV BN Schie en Eingebe eines Pa wortes Entwurf Da das Kiosk System f r einen Betrieb mit einem Touchscreen vorgesehen ist kann der Mauszeiger ber entsprechende Buttons ausgeschaltet werden Das Ab schalten des Cursors erfolgt mit dem Start des Kiosks Mit dem Beenden des Programmes wird dieser wieder sichtbar W hrend der Initialisierung wird der Maus zeiger durch den Windows Sperrzeiger dargestellt O Die Tonausgabe ist ebenfalls ber entsprechende But tons an bzw abschaltbar F r die Editierung eines Pa wortes wird das Tastatur fenster geladen Der eingegebene Text wird symbolisch durch einen Kreis pro Zeichen dargestellt Nach der Best tigung des Pa wortes mu eine zweite Eingabe erfolgen die der ersten bereinstimmt Ist dies nicht der Fall wird das Pa wort gel scht und der Anbieter zur Neueingabe aufgefordert Das Pa wort wird verschl s selt in der nachfolgenden Codierung gespeichert Die Codierung erfolgt in Abh ngigkeit der Position und des ASCII Codes eines Zeichens Jedes Zeichen wird durch ein neues ersetzt Der ASCH Code des neuen Zeichens errechnet sich aus ASCH 32 x 4 Pos
137. tergrund BackColor 8H0080FF808 BackStyle 0 Transparent Caption Bild zentriert FontBold zu ne FontName MS Sans Serif FontSize 195 Height 375 Index 0 Listing 153 Anhang C FRMINIT FRM frminit Deklarationen Dim oldSV oldBF oldBFS oldBFB oldBFI oldBC amp oldTF oldPW oldHGF amp oldHGM oldDD oldDM oldMM old T M96 frminit Prozeduren Sub SavelNI Dim code i Password verschl sseln code For 1 1 To Len Password code code Chr Asc Mid Password i 1 32 4 i Mod 3 Next i96 SetINIString Password code SetlNIString StartDir StartDir SetINIString ButtonFont fntButton SetINIString ButtonFontsize Str fntButtonSize SetINIString ButtonFontBold Str fntButtonBold SetINIString ButtonFontltalic Str fntButtonltalic SetlNIString ButtonColor Str colButton SetlNIString InfotextFont fntInfoText SetINIString BackColor Str colHintergrund SetINIString BackMode Str modHintergrund SetINIString PrintHead datDruckkopf SetINIString PrintMode Str modDruck SetlNIString MouseMode Str modMaus SetINIString SoundMode Str modTon End Sub frminit Ereignisse Sub butAbbruch Click If Request 1 KIOSK von Percy Wippler Sie beenden das KIOSK Programm Ok Abbrechen 1 Then If oldPW lt gt Password Or oldSV lt gt StartDir Or oldBF lt gt fntButton Or oldBFS lt gt fntButtonSize
138. tfeld Bildfeld Ansatz zur Benutzeroberfl che Die Bedienung des Systems soll m glichst einfach sein und nur geringe Anforderung bez glich des Vorwissens durch den Kunden haben Eine einfache Bedienung be schr nkt sich auf eine Eingabeeinheit Kann diese flexi bel gestaltet werden nderung des Aussehens oder der Beschreibung ist eine eindeutige Funktionszu ordnung gegeben Daher ist eine Bet tigung von grafi schen Elementen mittels Touchscreen der Eingabe durch eine Tastatur vorzuziehen Hierbei m te der Benutzer erst die Wirkung einer bestimmten Taste nachlesen und erlernen Schwieriger und ungewohnter w re eine Eingabe ber Maus Trackball oder Joy stick Diese Art der Eingabe erfordert eine l ngere bungszeit was nicht Sinn eines zeitsparenden Infor mationssystem ist Sinnvoll ist eine Anpassung der Grafiken an reelle all t gliche Elemente Somit sollten Schalter als solche eindeutig identifizierbar sein so da der Benutzer nicht lange raten mu wo er das System zu bedienen hat Ebenfalls mu jedem Objekt beim fl chtigen Hinsehen eine eindeutige Funktionalit t zu entnehmen sein Ein Feld zur Textein und ausgabe sollte nicht wie eine Schalt oder Malfl che aussehen Eine Beschreibung des Ergebnisses bei einer Bet tigung mu kurz und ein deutig sein Stichwort Eine Unterst tzung von Gra fik innerhalb einer Schaltfl che erleichtert die Funktionserkennung durch den Benutzer Funktionsbutton ohne
139. th 0 Height 600 Index e Left 240 Outline 0 False PictureDisabled FRMINIT FRX 6A52 PictureDn FRMINIT FRX 74CC PictureDnChange 1 PictureUp FRMINIT FRX 7F46 RoundedCorners 0 False Top 360 Width 600 End Begin Label txtMaus Alignment 2 Mitte BackColor 8H0080FF808 BackStyle 0 Transparent Caption au FontBold 1 me FontName MS Sans Serif FontSize 195 Height 375 Index Sch Left 1080 Top 1080 Width GIS End Begin Label txtMaus Alignment 2 Mitte BackColor 8H0080FF808 BackStyle 0 Transparent Caption An FontBold Me FontName MS Sans Serif FontSize 1925 Height 3 5 Index 1 Left 240 Tablndex 22 Top 1080 Width 1619 Begin SSCommand butlnfoSchrift AutoSize 2 BevelWidh 0 Height 630 Left Outline 0 False Picture FRMINIT FRX 89CO Top 960 Width 1665 End Begin SSCommand butStartverz AutoSize BevelWidth 0 Height 50 Left 360 Outline 0 False Picture FRMINIT FRX 9F7A Top 120 Width 1665 End Begin SSFrame frameDrucken Caption Drucken Font3D 3 Inset w light shading ForeColor amp H00000000 amp Height 3255 Left 120 Tabindex 6 Top 2640 Width GEE Begin PictureBox picDruckDemo BackColor amp HOOEOFFFF amp FontBold 0 False FontName Small Fonts FontSize 0 ForeColor 8H000000008 Height GIS Index 2 Left 3850 Top 2520 Visible
140. tialisieren Zus tzlich ist picture while soundz0 und 1 zu setzten Im 1 Fall bleibt das Bild bestehen Im 2 Fall verschwindet das Bild mit dem Ende des Klanges Der gleiche Test muf mit mehren Wiederholungen und einer beliebigen Verz gerung das gleiche Ergebnis liefern Alle Initialisierungsm glichkeiten sind in einem Fall zu kombinieren Das Ergebnis mu den Resultaten der Einzeltests entsprechen F r g ltige Bilddateien sind solche zu w hlen die 16 256 und 16 7 Mil Farben von 1x1 Pixel bis 800x600 Pixeln Gr e reichen Alle Bilder m ssen in Originalgr e bzw einge pa t sichtbar werden F r Textdateien sind beliebige Formate einzusetzen Nur TXT BMP und WMF Dateien werden sichtbar Zu hohe Dateien m ssen in je dem Fall ein erscheinen der Scrollbuttons zur Folge haben Das Scrollen mu den gesam ten Bildbereich zur Darstellung bringen k nnen Es ist eine RTF zu integrieren welche die Kommunikation ber KIOSKDRV DLL nutzt Im 1 Fall befindet sich diese DLL im Windowsverzeichnis im 2 Fall nicht Im 1 Fall muf im Text Bitte erfragen erscheinen Im 2 Fall mu Fehler im Text erscheinen Es sind mehrere Verzeichnispfade einzurichten mit INFO INI Dateien zu versehen die ber Buttons in diesen Verzeichnissen wechselt Einige Verzeichnisse erhalten eine BACKGR BMP Datei Beim Bet tigen der Buttons mu in die Verzeichnisse gewechselt werden Befindet sich in Ihnen eine BACKGR BMP wird diese im
141. tton dargestellt Ist kein Bild vor 35 Kapitel 3 1 2 1 Druckoptionen Dieses Kiozh System wurde von Percy Wippler im November 1334 als Diplom arbeit F r cin gemein sames Projekt der TFH Berlin und Wobis ent Wechseln der Druckkopfdatei 36 handen oder der Hintergrund nicht vollst ndig vom Bild bedeckt wird dieser in der unter Hintergrund defi nierten Farbe gef llt Die Farbauswahl erfolgt ebenfalls ber den Windows Standarddialog ChooseColor Alle im Kiosk dargestellten Grafiken und Texte k nnen ggf auf Wunsch des Kunden ausgedruckt werden Welche Dateien druckbar sein sollen wird ber ent sprechende Buttons gew hlt Jeder Button ist in der Auswahl unabh ngig vom Zustand der anderen In ei nem Beispielbild wird der aktuelle Zustand dargestellt C Kopfzeile v Bilder ES Text Auswahlm glichkeit der Druckoptionen Bei jeder Bet tigung eines Buttons wechselt dieser sei nen Zustand In der Kopfzeile eines Blattes kann ein an bieterspezifisches Windows Metafile ausgedruckt wer den Diese Datei wird ber den Dialog Druckkopf Da tei ausgew hlt Der Dialog l t eine Auswahl eines der installierten Laufwerke per Button zu Ist ein Laufwerk nicht ansprechbar wird der entsprechende Button mit Fehler gekennzeichnet und das n chste ansprechba re Laufwerk ausgew hlt Ein Listenfeld zeigt alle auf dem gew hlten Laufwerk befindlichen WMF Dateien inkl Pfad an die einen g ltigen Header enthal
142. txt printable Dim w h fullheight anim Dim bits prop As Single Dim Filenr As Integer Dim rtf As String 5 Dim zeile Dim ctrlFormat As RTF_Format frmUser Refresh AnimReplay arep SoundReplay wrep SoundDelay 1000 Abs wdel mciWAV_Timer Enabled False If modTon lt gt 0 Then mciWAV Timer Interval SoundDelay FullPicSize txt And CurDir lt gt StartDir HeightOfText 0 StartCopyY 0 bitmap bmp TextFile txt SoundPlayed wav If txtAusgabe 0 Height lt 1000 Then txtAusgabe 0 Height 1000 txtAusgabe 0 Picture LoadPicture If Dir txt lt gt And txt lt gt Then Filenr FreeFile Open txt For Input As Filenr Line Input Filenr rtf Close Filenr If UCase rtf NRTF Then Text Datei im Rich Text Format ctrlFormat FontSize txtAusgabe 0 FontSize ctrlFormat ForeColor 1 ReDim ColorTable 1 ColorTable 0 txtAusgabe 0 BackColor ColorTable 1 0 ReDim tabs 1 0 tabs 0 0 1 Open txt For Random As Filenr Len 1 GetRTFPart txtAusgabe 0 Filenr 2 ctrlFormat False Close Filenr Else If MedGetBMPSize txt w h bits 0 Then Text Datei im BMP Format Ausgabeh he an Bildh he anpassen HeightOfText txtAusgabe 0 Width w96 h txtAusgabe 0 Height HeightOfText Palette setzen If BitsPixel lt 8 And bits lt 8 Then txtAusgabe 0 Picture LoadPicture txt Bild laden MedSetBMP txtAusgabe 0 hDC 0
143. urch Bet tigung der Pfeiltasten aus den dargestellten Listen zu w hlen Be r hren Sie Gehe Zu um das Thema darzustellen oder SchlieDen um die Suche abzubrechen Ist die Schaltfl che Drucken sichtbar wird Ihnen die aktuelle Information bei Bet tigung auf einem Blatt Papier zum Mitnehmen ausgegeben Fehlen Ihrer Meinung nach Informationen Waren oder Dienstleitungen in unserem Gesch ft k nnen Sie uns das ber Kommentar mitteilen Geben Sie bitte ber die gezeigte Tastatur einen kurzen Text ein und been den Sie diesen mit Schlie en Ich best tige da ich diese Arbeit selbst ndig und nur mit den angegebenen Quellen angefertigt habe Berlin Percy Wippler Literatur hinweise Anhang A 112 Roug Daniel Faszination Multimedia D sseldorf SYBEX Verlag 1994 316 S ISBN 3 8155 7084 0 Buchheit Marcellus Windows Programmierbuch D sseldorf SYBEX Verlag 1992 1106 S ISBN 3 88745 949 0 Neukamp Gerd Uwe Claa en Andr Das Turbo Pascal f r Windows Buch D sseldorf SYBEX Verlag 1992 893 S ISBN 3 88745 894 X Maslo Pia Dillrich Stefan Das grobe Buch zu Visual Basic 3 0 f r Windows D sseldorf DATA BECKER 1993 900 S ISBN 3 89011 636 1 Born G nter Dateiformate Programmierhandbuch Algorithmen Tools und Treiber M nchen Addison Wesley 1993 499 S ISBN 3 89319 477 0 Microsoft VISUAL BASIC Professional Features Book Microsoft Corporation 1993 187 S Borland Pascal
144. ureUp Bitmap PictureUp FRMBFONT FRX 29E8 RoundedCorners 0 False Top 3000 Width 600 End Begin SSPanel demoRahmen Alignment 8 BackColor amp H00COCOCO amp Bevellnner 1 Inset BevelOuter 0 None BevelWidh 2 BorderWidh 4 Font3D 0 None Height bbs Left 4920 Outline 1 True RoundedCorners 0 False Top 2040 Width 1815 End Begin SSCommand butMinus BevelWidth 0 Height 620 Left 4920 Outline 0 False Picture FRMBFONT FRX 3462 Top 960 Width 630 End Begin SSCommand butPlus BevelWidth 0 Height EE Left 6120 Outline 0 False Picture FRMBFONT FRX 3EDC Top 960 Width E30 End 142 FRMBFONT FRM Begin SSCommand butScroll BevelWidth 0 Height 620 Index 1 Left 4080 Outline 0 False Picture FRMBFONT FRX 4956 Top 2295 Width 1630 End Begin SSCommand butOk AutoSize 2 BevelWidth 0 Height EEN Left 240 Outline 0 False Picture FRMBFONT FRX 53D0 Top 3120 Width 1665 End Begin SSCommand butAbbruch AutoSize 2 BevelWidth 0 Height 630 Left 3000 Outline 0 False Picture FRMBFONT FRX 698A Top 3120 Width 1665 End Begin PictureBox Scrollbar BackColor amp H00008000 amp BorderStyle 0 Keine Height 1335 Left 4080 Top 1080 Width S End Begin SSCommand butScroll BevelWidth 0 Height 1620 Index 0 Left 4080 Outline 0 False Picture FRMBFONT FRX 7F44 Top 480 Width 630 End Begin
145. wicklung ei ner neuen Software mittels OpenFace Toolbook Vi sual Basic Borland Turbo Pascal Quick C und Visual C gegen ber Diese Programmiersprachen k n nen ber das MCI Multi Control Interface Multimediadaten darstellen Toolbook ist zur Erstel lung von Informationsseiten gut geeignet Zwischen diesen kann einfach gewechselt werden Das Handling der Windows Botschaften erfolgt auf komfortable Weise Jedoch ist dieses Werkzeug als Interpreter sprache f r die umfangreiche Anwendung der Multi media zu langsam Wesentlich bessere Ergebnisse lie fern Borland Pascal und die C Compiler jedoch er fordert die Erstellung einer vielseitigen Benutzer oberfl che gute Kenntnisse in objektorientierter Pro grammierung OOP die nicht Inhalt des techni schen Informatik Studiums war Die beste L sung zur Erstellung einer Benutzeroberfl che unter Windows liefert derzeit Visual Basic 3 0 Hier wird durch er weiterbare Werkzeuge und einer unmittelbaren visuel len Gestaltungsm glichkeit vielz hliger Objekte die Arbeit erheblich erleichtert da weder Programmcode noch eine Compilierung notwendig ist Nachteil dieser Programmiersprache ist die zur ckstehende Rechenge schwindigkeit Somit ergibt sich eine optimale L sung aus einer Kombination von Basic und Pascal bzw C Hier wurde f r Borland Pascal 7 0 entschieden weil bei 17 Kapitel 2 3 18 2 3 mir die Kenntnisse weiter als in C gehen seine Struktur bersichtliche
146. wiesen ist Mit Option 2 wird die initialisierte Klangdatei so lange wiederholt bis die Animation mit allen Wie derholungen abgespielt ist oder alle Wiederholun gen des Klanges ausgef hrt sind Der Klang wird immer komplett gespielt Vor jeder Wiederholung erfolgt eine Pause der unter sounddelay angegebe nen Sekunden printzOption Ist Option 0 hat diese Zuweisung keine Wirkung ber Option 1 wird dem Kunden gestattet die in itialisierten Grafiken und Texte auszudrucken Die Reihenfolge der Befehle ist beliebig w hlbar Die Verwendung eines Befehls ist nur bei einer g ltigen Zuweisung notwendig Falsch geschriebene Befehle werden ignoriert Die Gro und Kleinschreibung wird nicht beachtet Die Buttons werden in der Reihenfolge dargestellt wie sie in der INFO INI von oben nach un ten wiederzufinden sind Action Unterbereiche eines Themas werden dann darge stellt wenn ber dirz ein anderes Verzeichnis ge ffnet wird Die dort enthaltene INFO INI be schreibt neue Buttons die entsprechend dargestellt werden Zuz glich zur Definition von Buttons k n nen Aktionen direkt nach dem ffnen des Verzeich nisses erfolgen indem der Kennung Action die vorangehend beschriebenen Befehle folgen Aus nahmen sind die Zuweisungen title thumbnail dir und print die wegfallen k nnen da sie ggf unbe achtet bleiben 91 Kapitel 5 4 1 INFO INI Inhalt der INFO INI Action animation computer avi
147. wort eingabe frmKeyboard Load 4 butBackSpace Click 2 butChar Click 3 letzten Buchstaben in frmKeyboard Buchstabe in txtAnzeige Ser sichtbar HOOP txtAnzeige l schen als erg nzen txtAnzeige_Change txtAnzeige_Change butSchliessen_Click v 6 frmKeyboard Tag txtAnzeige frmKeyboard schlie en frmKeyboard_Unload PaBworteingabe Ebene i61 21 06 1994 Projekt Kiosk V1 0 Bearbeiter Wyk Entwurf 21 22 23 N chste Rubrik Button butControl Zurueck sichtbar gt butControl Mehr unsichtbar Dekade anzeigen keine weitere Dekade Y Dekade vorhanden Button Paint 1 frmUser nicht geladen No T butControl_Click Meh T 24 25 Y frmUser load Animation spielen Klang speilen 2 unbedingt Fenster auf Maximum Hintergrundfarbe setzen Y Hintergrund mciAVI Done mciWAV Done oder 3 mciWAV Timer Timer Button und Infozeilen A Gr e Position anpassen unbedingt 20 Drucken beendet Objekte Paint Drucken 26 Buttons und Ausgabefelder i neu anordnen 4 Drucken Click butHaender Click frmUser anzeigen Objekte Paint 19 Alle way l schen frmUser_Paint buControl_Click Kommentar way _Write ResetTimer_Timer frmKeyboard Tag_Chang 28 5 Verzeichniswechsel 8 StartDir Vorherige
148. ystem erst initialisiert oder direkt gela den werden soll Abbruch kehrt zum Programm Mana ger zur ck Lob D Welcher Programmted so geladen werden IIT Y Erste Riickfrage nach dem Programmstart Wenn Sie Initialisierung w hlen erscheint das nach folgende Fenster Bild kacheln Start Abbruch Wenn Sie den Button Datenverzeichnis bet tigen er scheint ein Dialog in dem Sie das Laufwerk und das Verzeichnis wechseln k nnen Den hier gew hlten Pfad setzt KIOSK V1 0 als Wurzel aller Pr sentationen vor aus Existiert in diesem Verzeichnis keine NFO INI kann es zu keiner Pr sentation kommen W hlen Sie das Laufwerk ber die zur Verf gung stehenden But tons und das Verzeichnis ber die Pfeiltasten Alle auf dem Datentr ger existierenden Verzeichnisse werden aufgelistet Ist ein Laufwerk nicht lesbar wird automa tisch das n chste angesprochen 99 Kapitel 5 4 3 Infotextschrift wechseln 100 SS Datenverzeichnis CAKIOSKABEISPIELA PLANETEN Der Dialog zum Wechsel des Datenverzeichnisses Bet tigen Sie OK um das neue Verzeichnis zu berneh men oder Abbruch um Ihre Auswahl zu verwerfen Ist einer Themenpr sentation eine Textdatei hinzuge f gt so werden verschiedene Schriftarten auch wenn sie im RTF Text definiert sind nicht dargestellt Das Kiosk System kann nur eine der Schriften darstellen die auf Ihrem Computer installiert sind Jedoch k n
149. z End Function Sub SearchinList Dim i96 t 1 frmIndex Istindex ListCount If i gt 0 Then Do i96 i96 1 t UCase Left frmIndex Istindex List Len KeyboardText If t Then i 0 Loop Until Y 0 Or t lt KeyboardText frmIndex IstIndex ListIndex i End If End Sub Sub ShowText ByVal t If KeyboardMode lt 2 Then t String Len t Chr 164 t t Chr 128 If Len t gt Showchar Then t Right t Showchar 1 txtAnzeige Caption t txtAnzeige Refresh End Sub 134 FRMKEYB FRM Listing frmStartup Objekte frmStartup Ereignisse 135 Anhang C frmStartDir Objekte Begin Form frmStartVerz BackColor amp HOOEOFFFF amp BorderStyle 1 ControlBox 0 False Height 5805 MaxButton 0 False MinButton 0 False Width 5025 Begin Frame groop BackColor amp HOOEOFFFF amp Caption Datenverzeichnis FontBold 1 True FontName MS Sans Serif FontSize 2 Height 4095 Left E20 Top 1200 Width 4695 Begin SSCommand butScroll BevelWidh 0 Height 620 Index 1 Left 3960 Outline 0 False Picture FRMSTDIR FRX 0000 Top 2520 Width 630 End Begin SSCommand butOk AutoSize 2 BevelWidth 0 Height 630 Left ZO Outline 0 False Picture FRMSTDIR FRX 0A7A Top 3345 Width 1665 End Begin SSCommand butAbbruch AutoSize 2 Adjust Button Size To Picture BevelWidh 0 Height BEN Left 2880 Outline 0 F
150. ze frmUser FontSize For 0 To 5 butControl i FontBold frmUser FontBold butControl i Fontltalic frmUser Fontltalic If i lt gt kommentar Then butControl i FontSize butControl kommentar FontSize butControl i FontName butControl kommentar FontName End If Next i 180 Listing butControl drucken Top frmUser ScaleHeight distance butControl 4 Height butControl uebersicht Top butControl drucken Top distance butControl uebersicht Height butControl Zurueck Top butControl uebersicht Top distance butControl Zurueck Height butControl mehr Top butControl Zurueck Top butControl Suchen Top butControl uebersicht Top butControl kommentar Top butControl drucken Top butControl Suchen Visible Dir ProgramDir datIndexlni lt gt butTheme 0 FontName fntButton butTheme 0 FontSize fntButtonSize butTheme 0 FontBold fntButtonBold butTheme 0 Fontltalic fntButtonltalic butTheme 0 Width butControl Zurueck Width butTheme 0 Height frmUser ScaleHeight 2 dh butTheme 0 Left butControl Zurueck Left butTheme 0 Top distance butTheme 0 BackColor colButton If 1 g b 3 lt 128 Then butTheme 0 ForeColor amp HFFFFFF LoadedButtons 1 dw 5 8 dhi 5 frmUser FontBold False txtinfo FontSize frmUser FontSize txtInfo FontName frmUser FontName txtInfo FontBold frmUser FontBold txtInfo Left distance txtInfo Height butTheme 0 Tex
151. zeOf TBitmapFileHeader Daten Offset zu P berechnen case prop of linke obere Ecke Originalgr e 188 MEDIA PAS Listing O begin x plH bmiHeader biWidth width div 2 y pIH bmiHeader biHeight Height div 2 StretchDIBits DO left top width height 0 pIH bmiHeader biHeight Height Width Height Ptr PtrRec plH Hi ClIrCnt plH DIB RGB COLORS SRCCOPY end zentraler Ausschnitt Originalgr e 1 begin x plH bmiHeader biWidth width div 2 y pIH bmiHeader biHeight Height div 2 StretchDIBits DC left top width height x y Width Height Ptr PtrRec plH Hi CIrCnt plH DIB RGB COLORS SRCCOPY end Bild genau einpassen 2 begin SetStretchBltMode DC STRETCH_DELETESCANS StretchDIBits DO left top width height 0 0 pIH bmiHeader biWidth pIH bmiHeader biheight Ptr PtrRec plH Hi CIrCnt plH DIB RGB COLORS SRCCOPY end Bild einpassen und Bildrelationen beibehalten 3 begin w width alte Werte speichern h height relation pIH bmiHeader biWidth plH bmiHeader biHeight width Round height relation Neue Breite in Relation zur H he setzen if width gt w then begin Wenn neue Breite gr Ber als gew nscht width w height Round width relation Neue H he in Relation zur alten Breite setzen end left left w width div 2 Bild zentrieren top top h height div 2 SetStretchBltMode DC STRETCH_DELETESCANS StretchDIBits DC left top width height 0 0 pIH bmiHeader biWidth plH b

Diplomarbeit

Contents

Download Pdf Manuals

Related Search

Related Contents