Дипломдық ЖҰмыс 5В011100 «Информатика»
жүктеу/скачать 1.6 Mb.
|
| Form1 формасының Name қасиетіне frmMain, ал Caption қасиетіне WebIndex мәнін беріңіз.
Элементер тақтасында тышқанның оң жақ батырмасын шертіп және жанама менюден Components командасын орында. Экранға төмендегі суретте көрсетілгендей Components сұқбат терезесі көрінеді. WebBrowser-ді элементтер тақтасына қосу үшін, Microsof Internet Controls жолының тұсына жалауша қойыңыз. Microsoft Window Common Controls 6.0 және Micrsoft Windows Common Controls-3 6.0жолдарының тұсында жалауша орнат. Components сұқбат терезесі Components сұқбат терезесінде ОК батырмасы арқылы жабыңыз. Қосылған компоненттер элементтер тақтасында орналасады. FrmMain формасының жоғарғы жағынла СoolBar тақтасын орнат және оның Name қасиетіне cbrCoolBar мәнін бер. CbrCoolBar-ға басқа элемент-құралдар тақтасын орнатыңыз. Құралдар тақтасы дәл CbrCoolBar да орналасқанына көз жеткізіңіз. Құралдар тақтасынан Name қасиетіне tbrToolBar мәнін беріңіз. Форманың сол жақ шетіне тізім құрыңыз. Оның көлемі форма енінің жартысындай болуы керек. WebBrowser элементін форманың оң жағын орнатыңыз Name қасиетіне LstSites мәнін беріңіз. Оның Name қасиетіне WebBrowser мәнін беріңіз. Формада бейнелердің тізімін құрыңыз, оның Name қасиетіне lmlToolBar мәнін беріңіз. Енгізілген өзгертулерді жоғалтып алмау үшін, жобаны сақтаңыз. ImageList элементінде шертіп, одан соң қасиеттер терезесінде Custom жолында екі рет шертіңіз. Элементтің қасиетінің беттері бар сұқбат терезесі ашылды. Images бөліміне өтіңіз. Бейнені тізімге қосу үшін InsertImages батырмасын басыңыз. Select Picture ашылған сұқбат терезесінен \Common\Graphics\Bitmaps\Tlbr_Wind95 каталогінен Undo.bmp файылымен таңдап және бейнені тізіиге қосу үшін Open батырмасын басыңыз. InsertImages батырмасын қайта басыңыз, басқа бейнені қосу үшін. Сол каталогпен Redo.bmp файлын таңдап және ОК батырмасын басыңыз. Тағы да InsertImages батырмасын басыңыз. Ол каталогтен Find.bmp файлын таңдап және ОК батырмасын басыңыз, соңғы бейне тізімге енгізіледі. Қасиеттер терезесінен ОК батырмасын жабыңыз. Форма конструктеріндегі tbtToolBar құралдар тақтасында тышқанды шертіңіз, оны активті ету үшін. Қасиеттер терзесінде Custom жолында екі рет шертіңіз-тақталардың қасиеттерінің ибеті бар сұқбат терезе ашылады. General бүктемесінде ImageList тізімнен lmlToolBar жолын таңдаңыз, ал Style тізімінен 1-tbrFlat жолын таңдаңыз. Мұның бәрі орындалып болған соң, Button бүктемесіне өтіңіз. Жаңа батырманы құралдар тақтасынан орнату үшін, InsertButton батырмасын басыңыз. Key жолына Back, ал Image жолына-1 мәнін енгізіңіз. Енгзілген өзгерістерді растау үшін Apply батырмасын басыңыз. InsertButton батырмасынан тағы да басыңыз, тақтаға тағы бір батырманы орнату үшін. Key алаңына Forward, ал Image алаңына-2 мәнін беріңіз. InsertButton батырмасын тағы да басып және тақтаға келесі батырманы қосыңыз. Style алаңына 3-tbrSeparator мәнін беріңіз. Тағы да батырма қосыңыз. Key алаңына Search мәнін, ал Image алаңына-3 мәнін беріңіз. Қасиеттер беті бар сұқбат терезесін ОК батырмасымен жабыңыз. Жетілдірілген тақтада ташқанды шертіңіз, оның қасиеттер берін, қасиеттер терезедегі Custom жолына екі рет шертіп ашаңыз. Bannas бүктемесіне өтіңіз. Index жолында 1-пайда болғанша Remove Band батырмасын баса баріңіз, жетілдірілген алаңда бір жолақ қана қалады. Child қасиетіне tbrToolBar мәнін беріңіз және ОК батырмасын басыңыз. Формада төмендегі суретте көрсетілгендей болуы керек. Қосымшаны визуалды коструктрлеу аяқталды. Келесі қадамдарды біз формаға қод қосамыз. frmMain формасында екі ерт шерт-программа терезесі ашылады. frmMain формасының Load қасиетінің процедурасына келесі фрагментті қосыңыз. Private Sub Form_Load() LstSites.AddItemwww.piter-press.ru LstSites.AddItem”www.microsoft.com” LstSites.AddItemwww.myle.com End Sub 3.Form_Resize оқиғасының процедурасына келесі фрагментті қосыңыз. If WindowState<>vbMinimized then ‘Ратянуть понель cbrCoolbar.Move 0,0, ScaleWidth ‘Изменить размер списка узлов With lstSites .Move 0, cbrCoolbar.Hjeight. Width,_ (ScaleHeight-cbrCoolbar,Height) End With ‘Изменить размер элемента WebBrowser With webBrowser .Move.Left,cbrCoolbar,Height,_ (ScaleHeght=cbrCoolbar,Height) End With End If End Sub WebBroeser элементі Web-беті Navigate әрекетінің көмегімен жүктейді. 4.Келесі кодтьы LstSites элементінің Click оқиғасының процедурасына жазасыз: Private Sub lslSites_Click() WebBrowser.Navigate=Trim$(lstSites.Text) End Sub 5.Броузердің новигациялық әрекетін жетілдірейік. Келесі кодты tbrToolBar құралдар тақтасының ButtonClick оқиғасының процедурасына орнатыңыз. Private Sub trToolBar_ButtonClick(ByVal Button As_ CometILib.Button) On Error Resume Next Select Case Ucase$(Trim$(Button.Key)) Case Is=”Back” WebBrowser.GoBack Case Is=”FORWARD” WebBrowser.GoForward Case Is=”SEARCH” WebBrowser.GoSearch End Select Ens Sub 6.Енгізілген өзгертулер жоғалмау үшін жобаны сақтаңыз. Содан соң қосымшаны F5 пернесі арқылы қосыңыз. Барлық негізгі жұмыс LstSites элементінің Click процедурасында және оқиғасының tbrToolBar элементінің ButtonClick-те орындалады. Нақты WebBrowser-де жүктеу үшін Navigate әдісі қоолданылады. Одан басқа Button Click оқиғасының процедурасында екі әдісі шақырылады. Winsock қосымшасын жеңілдету Winsock элементі ТСР(Tranmission Control Protocol) және UDP(User Document Protocol). Протоколдарымен жұмыс ісмтеуді жеңілдетеді. Сіз өз қосымшаларыңызды екі протоколда да қолдануымызға болады. ТСР үшін сеаны болуы керек, ал UDP бірігуге негізделеген. Сеанс(Session) деп екі қосымша арасындағы логикалық командаларды айтады, бұл арқылы кекуінің өзара әрекеттер орындалады. Сеансты телефон қоңырауының баламасы деп қарастыруға болады. Екі қосымша бір-бірімен әрекеттесе алуы үшін, қосымша-клиент, қосымша-серверге екеуін біріктіру туралы сұраныс береді(сіз өз жолыңыздың телефон номерін тергендей) және ол жауап бере ма жоқ па , соны шешеді. Егер сұраныс қабылданса, сеанс құрылады және қосымшалар арасында екі жақты байланыс оратады. Өзара әрекеттеу, бір жақ сеансты үзгенге дейін жалғаса береді. UDP протоколы байланысқа негізделмеген. Орындау принципі бойынша ол екі жақты радио байланысты еске түсіреді. Нақты сеанс орнатудың орнына, қосымшалар өздерінің бар екендігін білдіреді. UDP-да бұл үшін хост аты көрсетлген немесе IP адресс және басқа қосымшаның порты көрсетіледі “сырттай” танысу орындалған соң, қосымшалар бір-бірімен араласа алады. Бұл бөлімде ТСР протоколын чат-бөлме қосымшасын құру үшін қолданамыз, олар WebComm деп аталады. Бұл қосымшаның көмегімен интержеліде немесе Интернетте сөйлесе алуға болады. Дегенмен сіз қосымшаны қандай да бір мақсат үшін қолсаңыз да, ары қарай сипатталған процесс TСР/IP протоколының негізінде ұйымдастырғанына байланысты көрсетеді. жүктеу/скачать 1.6 Mb. Достарыңызбен бөлісу:
|