Дипломдық ЖҰмыс 5В011100 «Информатика»



бет23/31
Дата06.10.2022
өлшемі1.6 Mb.
#462084
түріДиплом
1   ...   19   20   21   22   23   24   25   26   ...   31
Махан Асел Visual basic программалау тілінде стандартты емес формаларды құру жолдарын оқытуға арналған көмекші электронды оқу құралын жетілдіру диплом жұмысы

Select Names тізіміндегі барлық жолды өшіріңіз, тек төмендегі суретте көрсетілген тізімдер ғана қалсын. Обьектінің Caption, Enabled және Fond қасиеттері, сонымен қатар Click оқиғасы болуы керек. Caption қасиетіне Available Names тізімінен қосу керек. Терезе керек көріністе болғанда, Next батырмасын басыңыз.

  • Келесі сұқбат терезеге сізге элементтің стандартты емес мүшелерін құруды ұсынады. Біздің элементте ол болмағандықтан, Next батырмасын бпасып, келесі терезеге өтіңіз.

  • Енді элемент қаиетінің дәне оның компоненттерінің қасиеттерінің арасында сәйкестік орнату керек. Control тізімінен cmdExit жолын таңдау арқылы, Сaption қасиетінде шертіп және оны Exit батырмасын көрсет. Member қасиетін Caption қасиетіне өзгертіңіз.

  • Click қасиетінде шертіп және оны Exit батырмасында Click оқиғасының процедурасымен байланыстыр.

  • Элементтің Enabled қасиетін Exit батырмасының Enabled қаситеімен байланыстырыңыз.

  • Font қасиетін Exit батырмасының Font қасиетімен байланыстырыңыз.

  • Келесі шеңбердің терезесі “Cіз есеп-қорытындыны көргіңіз келе ма?”, деген сұрақ қояды. Бұл терезеде жетілдіруді аяқтағаннан кейін элементті қалай қолдану керек туралы ақпарат беріледі. Егер сіз есеп-қорытындыны көргіңіз келсе, онда терезеге жлауша орнатыңыз. Кері жағдайда жалаушаны алып тастау керек.

  • Finish батырмасын басыңыз.

  • Жобаны жабыңыз.

    Қазір ғана өзіңіздің ActiveX элементіңізді құрдыңыз. Бірінші кезде, осындай қарапайым элемент құруға өте көп көп жұмыс жұмсағандай болғанымен, кейінірек сіз бұған дағдыланып және өзіңіздің ActiveX элементтеріңізді тез құруға үйренесіз.


    Объектіні компиляция жасап жылжымалы ОСХ-файлға айналдыруға немесе IDE-нің бөлігі ретінде осы күйде қалдыруға болады. Сізден талап етілетіні-объектінің дизайнер терезесін жабу. Элемент автоматты түрде элемент тақтасына орналасады, одан соң басқа жобаның формасына орнатуға болады. Компиляциялынған элементтерід Web құжатқа енгізуге болады.
    ActiveX DLL-ді құру және қолдану
    ActiveX-тің DLL-кітапханасы(немесе қысқартылған түрде ActiveX DLL), бұрын ОСХ атпен белгілі болған программалық компоненттер орнына келді. Бұл класс компоненттері мәліменттер қорына қосылуда немесе серверде жұмыс істегенде көмегі мол. DLL-ға броузерден немесе Visual Basic-тің стандартты емес интерфейстік программалары арқылы сұраныс жасауға болады. Бұл мысалда біз Word -нің жолын және бетін есептейтін утилита құрамыз.
    ActiveX DLL-ді құру үшін келесі әрекеттер орындаңыз:

    1. Жаңа жоба құрыңыз;

    2. Project Wizard терезесінен ActiveX DLL жобасының шаблонын таңда;

    3. Name қасиетіне WordHelps мәнін бер. Бұл элемент Microsoft Wod мүмкіндігін кеңейтеді..

    4. Class1 класының Name қасиетіне Counters мәнін бер(яғни “есептегіш”-біздің класс Word құжаты туралы статистика жинаумен айналысады).

    5. Visual Basic менюінде Project=>Reference командасын орында Microsoft Word 9.0 Object Library кітапхпнасына сілтеме жасап және сұқбат терезені ОК батырмасымен жап.

    6. Программа терезесін ашу үшін, жоба терезесінде Counters жолынада екі рет шертіңіз,

    7. Класқа келесі функцияны жаз. Ол Word-тың активті құжатына жол санын есептейді.

    Public Function LineCount(CharactersPerLine As Integer)
    Dim x As Word.Application
    Dim cc As Long ‘Колличество сомволов
    ‘Получит ссылку на документ
    Set x =Word.Application
    ‘Получит общее количество символов
    With x.ActiveDocument
    Cc=Characters.Count
    End With
    ‘Убрать мусор
    Set x=Nothong
    ‘Чтобы убратьб общее колличество строк,
    ‘следует разделить общее колличество символов,
    ‘на колличество символов в строке (CharactersPerLine)
    LineCount=Int(cc/CharactersPerLine)
    End Function

    1. Класқа келесі функцияны қос, активті құжатты бер санын есептейді:

    Public Function PageCount() As Integer
    Dim x As Word.Application
    ‘Получит ссылку на документ
    Set x –Word.Application
    ‘Подучить общее колличество страниц
    With x= Active.Document
    PageCount=.BuiltInDocumentProperties(“Number”&_”of Pages”)
    End With
    ‘Убрать мусор
    Set x=Noting
    End Function

    1. Енгізілеген өзгертулерді жоғалтып алмау үшін жобаны сақтаңыз.

    2. Жобаны ActiveX DLL секілді істеу үшін, Make WodHelpers.dll-командасымен компиляция жасаңыз.



    Достарыңызбен бөлісу:
  • 1   ...   19   20   21   22   23   24   25   26   ...   31




    ©dereksiz.org 2024
    әкімшілігінің қараңыз

        Басты бет