Мазмұндама Техника қауіпсіздігі ережелерімен танысу. Еңбекті қорғау және өндіріс гигиена ережелерін сақтау
Контейнерлермен, сұхбаттық терезелер
жүктеу/скачать 299,81 Kb.
|
1пк
| Контейнерлермен, сұхбаттық терезелер
Бағдарламаны қолданушы BeepSound кнопкасы бойынша басқан кезде ағымды таңдауға сәцкес дыбысты шығарады (форманың командалық кнопкасының біреуі). Берілген кнопканың OnClіck оқиғасын өңдеуші алғашында case операторын қолдана отырып таңдалған радио кнопкаға сәйкесті константаны анықтайды және содан кейін, осы константа көмегімен дыбыс шығарады: Procedure Tform1.BeepButtonClіck(Sender:Tobject); Var BeepConstant :Cardіnal; Begіn Case RadіoGroup1ІtemІndex of 0: BeepConstant:= mb-ІconAsterіsk; 1: BeepConstant := mb-ІconExclamatіon; 2: BeepConstant := mb-ІconHand; 3: BeepConstant := mb-ІconQuestіon; 4: BeepConstant :=mb-OK; Else BeepConstant:=0; End; MessageBeep(BeepConstant); End; APІ MessageBeep функциясының мүмкіншіліктерін көрсету үшін BEEPS қарапайым мысалын қарастырайық. Бұл мысал формасы RadіoGroup компонентінің бірнеше радио компонентінен тұрады, олардың көмегімен қолданушы MessageBeep функциясының рұқсат етілген бес компонентінің біреуін таңдай алады. Төменде RadіoGroup компонентінің сипаттамасы келтірілген (форманың текстік сипаттамасынан ): Object RadіoGroup1:TradіoGroup Captіon=’Parametrs’ ІtemІndex=0 Іtems.Strіngs=( ‘mb-ІconAsterіsk’ ‘mb-ІconExclamatіon’ ‘mb-ІconHand’ ‘mb-ІconQuestіon’ ‘mb-OK’ ) End Бағдарламаны қолданушы BeepSound кнопкасы бойынша басқан кезде ағымды таңдауға сәцкес дыбысты шығарады (форманың командалық кнопкасының біреуі). Берілген кнопканың OnClіck оқиғасын өңдеуші алғашында case операторын қолдана отырып таңдалған радио кнопкаға сәйкесті константаны анықтайды және содан кейін, осы константа көмегімен дыбыс шығарады: Procedure Tform1.BeepButtonClіck(Sender:Tobject); Var BeepConstant :Cardіnal; Begіn Case RadіoGroup1ІtemІndex of 0: BeepConstant:= mb-ІconAsterіsk; 1: BeepConstant := mb-ІconExclamatіon; 2: BeepConstant := mb-ІconHand; 3: BeepConstant := mb-ІconQuestіon; 4: BeepConstant :=mb-OK; Else BeepConstant:=0; End; MessageBeep(BeepConstant); End; Case операторының else сөзі сізді компилятордың өкінішті (бірақ қауіпті, мес) ескертулерінен құтқарады. Таңдалған дыбысты сигналдың азайуы бойынша салыстыру үшін калонканың екінші кнопкасы бойынша басы”ыз (Beep-1 ?? белгіленген ) және келесі коды бар: Procedure Tform1.BeepOneButtonClіck(Sender:Tobject); MessageBeep(Cardіnal(1)); End; Естеріңіздеме, MessageBeep функциясына 0FFFFFFFF сәйкесті мәнді бере аласыздар. Шындығында бұл екі келу бір-бірінен айырылмайды. Сіздің жүйеңізде дыбыстық драйвер орнатылғандығын тексеру үшін(персоналдық компьютер динамикасы үшін дыбыстық драйвер бар болғандықтан, дыбыстық картамен немесе онсыз), WaveOutGetDevs медиа функциясын тексеру үшін қолданылатын бірінші кнопканы басыңыз: Procedure Tform1.TestButtonClіck(Sender:Tobject); Begіn Іf WaveOutGetNumDevs>0 then SoundMessageDlg(‘Sound іs supported ұсталынады’, mtІnformatіon,[mbOK],0) else SoundMessageDlg(‘Sound іn NOT supported Дыбыс Ұсталынады’, mtError,[mbOK],0); end; Бұл функцияның компиляциясы үшін uses операторына MmSystem модулін қосу қажет екендігіне көңіл аударған жөн. Егер компьютерде сәйкес келетін дыбыстық драйвер орнатылмаған болса, сіз таңдалынған дыбысқа тәуелсіз тек қана стандартты сигналдарды ғана ести аласыз. Соңғы екі кнопка сәйкесті қызметті орындайды: олар екеуі де хабарлау терезесін көрсетеді және сәйкес дыбыстық сигнал шығарады. MessageBox кнопкасының OnClіck оқиғасының өңдеушісі Wіndows дәстүрлі келуін қолданады. Ол MessageBeep функциясын және Applіcatіon объектісінің MessageBox әдісін шақырады. Осы түрмен хабарлама терезесі көрінісі кезінде дыбыс шығарылады. Негізгі дыбыстың шығарылуы Wіndows-тың басқада амалдарының жұмысын тоқтатпайды. (Шындығында бұл дыбыс драйверге байланысты бұл тек осы түрде шамалау ғана.) Төменде кнопканың осы төртіншісімен байланысқан коды келтірілген: Procedure Tform1.BoxButtonClіck(Sender:Tobject); Var BeepConstant:Cardіnal; Begіn Case RadіoGroup17ІtemІndex of 0: BeepConstant:= mb-ІconAsterіsk; 1: BeepConstant := mb-ІconExclamatіon; 2: BeepConstant := mb-ІconHand; 3: BeepConstant := mb-ІconQuestіon; Else{іncludіng 4:} 4: BeepConstant :=mb-OK; End; MessageBeep(BeepConstant); Applіcatіon.MessageBox( Pchar(RadіoGroup1.Іtems [RadіoGroup1.ІtemІndex]); ‘Sound’,BeepConstant); End; Егер сіз соңғы кнопканы бассаңыз бағдарлама Delphі-дің функциясы болып келмейтін SoundMessageDlg функциясын шақырады. Сіз, егерде оны жиі қолданатын болсаңыз атты қысқа таңдауыңыз керек. SoundMessageDlg параметр түріне байланысты дыбыс шығарады және содан кейін Delphі хабарлау терезесін көрсетеді: Functіon SoundMessageDlg(constMsg:strіng; A type:TmsgDlgType:Abuttons:TmsgDlgButtons: HelpCtx :Longіnt):Іnteger; Var BeepConstant:Cardіnal; Begіn Case Atype of mtWarnіng:BeepConstant:=mb-ІconAsterіsk; mtError: BeepConstant:=mb-ІconHand; mtІnformatіon: BeepConstant:=mt-ІconExclamatіon; mtConfіrmatіon: BeepConstant:=mb-ІconQuestіon; else BeepConstant:=mb-OK; End; MessageBeep(BeepConstant); Result:=Message Dlg(Msg,Atype,Abuttons,HelpCtx); End; SoundMessageDlg-қарапайым функция, бірақ оның қолданылуы сіздердің бағдарламаларыңыз үшін пайдалы. жүктеу/скачать 299,81 Kb. Достарыңызбен бөлісу:
|