Visual Basic
Реферат, 01 Ноября 2014, автор: пользователь скрыл имя
Краткое описание
Менің ғылыми жұмысм программисттердің басым көпшілігі қолданатын Visual Basic тілінің графикалық мүмкіндіктеріне арналған. Бұл ғылыми жұмыста Visual Basic тілінің графикалық мүмкіндіктеріне: объектілерге, мультипликацияға, яғни өзімнің құрған программама тоқталдым. Мұнда программаның не туралы екенін және программа кодының сипаттамасын беріп кеттім. Оған қоса жұмыстың нәтижесін көрсеттім.
Содержание
Кіріспе _ _ _ _ ___ _ _ _ _ _ _ _ _ _ _ _ __ _ __ _ _ 1
Негізгі бөлім _ _ _ _ _ _ _ __ ___ _ _ _ _ _ __ _ _ _ _ _ 4
Visual Basic бағдарламалау тілі.
Visual Basic ортасында есептер шығаруға программа құру .
Visual Basic ортасында графикалық обьектілер құру
III.Қорытынды _ _ _ _ _ _ _ __ ___ __ _ _ _ _ ___ _ _ _ _ _ 14
IV.Пайдаланылған әдебиеттер................................................16
Прикрепленные файлы: 1 файл
Visual Basic дайын буклет.doc
— 3.16 Мб (Скачать документ)
Ескерту. Формада ағымдық уақытты код терезесіне енгізілген Print time$ әдісі арқылы шығаруға болады (Print операторы жөнінде 1.7 – тақырыпты қараңыз). Мұнда келесі уақыт келесі қатарға жазылады.
Сонымен, осының алдындағы мысалдарда Visual Basic’те орындалуы мүмкін үш түрлі әрекеттер көрсетілді: функция мәнін есептеу; формада қолдан фигура салу; формада жүріп тұрған сағатты орнату. Келесі тарауларда Visual Basic’ті пайдаланып, мәзірлер орнатылған терезе құру, мәзірлермен жұмыс; берілгендер қоры кестесін құру және т.б. қосымшалар құру тәсілдері көрсетілген. Осылардың өзі Visual Basic’тің мүмкіндіктерінің орасан зор екеніне көз жеткізетіні сөзсіз.
12. Immediate терезесі.
VB орталығанда іске қосу командасы берілген кезде көрінетін Immediate (Тез) атаулы терезе бар (1.16-сурет). Оны экранға шығару үшін View – Immediate Window командасын беруге болады. Терезені Дұрыстау не Толықтыру терезесі деп те атайды.
1.16-сурет. Immediate терезесі
Терезеде әдеттегідей арифметикалық өрнек мәнін есептеу және бір қатарлық программаны енгізіп, орнату мүмкін. Ол код терезесінде құрылатын программа үзіндісінің дұрыстығын тексеру үшін де қажет.
Мысалы:
1) ? 5.4+7/2
8,9
2) For k = 1 to 4: Print k+3 : Next КҚ
4
5
6
7
3) For k = 1 to 1000 : Beep : Next КҚ
Жүйенің әр Beep командасын орындауы кезінде компьютерден дыбыс естіледі (Immediate терезесін басқа түрде пайдаланудың бір тәсілі 2.8 – тақырыпта көрсетілген).
Visual Basic – те кескіндер салу:
Мысалы :
№1 Формада Қазақстанның символы „Бәйтеректің“ суреті шығатын программа құру керек:
Private Sub Form_paint()
ScaleMode = 2
Circle (130, 60), 25, RGB(255, 255, 0)
Line (110, 85)-(150, 200), RGB(150,150,150 0), BF
Line (110, 170)-(80, 210), RGB(0, 0, 0)
Line (80, 210)-(180, 210), RGB(0, 0, 0)
Line (150, 170)-(180, 210), RGB(0, 0, 0)
Line (70, 40)-(110, 70), RGB(0, 0, 0)
Line (70, 40)-(110, 100), RGB(0, 0, 0)
Line (190, 40)-(150, 70), RGB(0, 0, 0)
Line (190, 40)-(150, 100), RGB(0, 0, 0)
End Sub
№2 Формада қонжықтың суреті шығатын программа құру керек:
Private Sub Form_paint()
ScaleMode = 2
Circle (110, 90), 35, RGB(255, 0, 255)
Circle (110, 180), 60, RGB(255, 0, 255)
Circle (70, 60), 15, RGB(255, 0, 255)
Circle (150, 60), 15, RGB(255, 0, 255)
Circle (90, 80), 5, RGB(255, 0, 255)
Circle (120, 80), 5, RGB(255, 0, 255)
Circle (40, 180), 15, RGB(255, 0, 255)
Circle (180, 180), 15, RGB(255, 0, 255)
Circle (70, 240), 15, RGB(255, 0, 255)
Circle (150, 240), 15, RGB(255, 0, 255)
Line (100, 110)-(120, 110), RGB(255, 0, 0)
End Sub
№3 Формада үйдің суреті шығатын программа құру керек:
Private Sub Form_Paint()
ScaleMode = 2
Line (50, 50)-(150, 150), RGB(0, 0, 0), B
Line (50, 140)-(150, 150), RGB(0, 0, 0), BF
Line (60, 60)-(80, 80), RGB(0, 0, 0), B
Line (140, 60)-(120, 80), RGB(0, 0, 0), B
Line (85, 90)-(115, 130), RGB(0, 0, 0), B
Line (50, 50)-(100, 20)
Line (100, 20)-(150, 50)
Circle (100, 35), 10, RGB(255, 0, 0)
End Sub
№4 Формада роботтың суреті шығатын программа құру керек:
Private Sub Form_Paint()
ScaleMode = 2
Line (120, 30)-(170, 60), RGB(0, 0, 0), B
Line (140, 60)-(150, 70), RGB(0, 0, 0), B
Line (100, 70)-(190, 150), RGB(0, 0, 0), B
Line (130, 40)-(140, 50), RGB(0, 0, 0), B
Line (150, 40)-(160, 50), RGB(0, 0, 0), B
Line (70, 70)-(100, 80), RGB(0, 0, 0), B
Line (70, 80)-(90, 130), RGB(0, 0, 0), B
Line (190, 70)-(220, 80), RGB(0, 0, 0), B
Line (200, 80)-(220, 130), RGB(0, 0, 0), B
Line (100, 150)-(140, 220), RGB(0, 0, 0), B
Line (150, 150)-(190, 220), RGB(0, 0, 0), B
Line (140, 55)-(150, 55), RGB(0, 0, 0), B
End Sub
№5 Формада кеменің суреті шығатын программа құру керек:
Private Sub Form_Paint()
ScaleMode = 2
Line (110, 10)-(120, 80), RGB(0, 255, 0), BF
Line (120, 10)-(170, 50), RGB(0, 255, 255), BF
Line (30, 80)-(190, 80), RGB(0, 0, 255)
Line (30, 80)-(70, 130), RGB(0, 0, 255)
Line (70, 130)-(150, 130), RGB(0, 0, 255)
Line (190, 80)-(150, 130), RGB(0, 0, 255)
Circle (140, 30), 15, RGB(255, 0, 255)
End Sub
№6 Формада монитордың суреті шығатын программа құру керек:
Private Sub Form_Paint()
Line (1000, 200)-(1800, 800), RGB(0, 0, 0), BF
Line (1100, 300)-(1700, 700), RGB(255, 255, 255), BF
Line (1200, 800)-(1600, 1000), RGB(0, 0, 0), BF
Line (1200, 900)-(1700, 900), RGB(0, 0, 0)
Line (1200, 900)-(1100, 1100), RGB(0, 0, 0)
Line (1100, 1100)-(1600, 1100), RGB(0, 0, 0)
Line (1700, 900)-(1600, 1100), RGB(0, 0, 0)
End Sub
№7 Формада паравоздың суреті шығатын программа құру керек:
Private Sub Form_Paint()
ScaleMode = 2
Circle (100, 310), 20
Circle (100, 310), 16
Circle (100, 310), 5
Circle (140, 310), 20
Circle (140, 310), 16
Circle (140, 310), 5
Circle (180, 310), 20
Circle (180, 310), 16
Circle (180, 310), 5
Circle (220, 310), 20
Circle (220, 310), 16
Circle (220, 310), 5
Circle (260, 310), 20
Circle (260, 310), 16
Circle (260, 310), 5
Circle (300, 310), 20
Circle (300, 310), 20
Circle (300, 310), 16
Circle (300, 310), 5
Line (70, 280)-(340, 290), RGB(0, 0, 0), B
Line (70, 290)-(70, 320), RGB(0, 0, 0), B
Line (70, 280)-(60, 320), RGB(0, 0, 0)
Line (70, 320)-(60, 320), RGB(0, 0, 0), B
Line (220, 120)-(340, 280), RGB(0, 0, 0), B
Line (100, 260)-(220, 280), RGB(0, 0, 0), B
Line (90, 200)-(220, 260), RGB(0, 0, 0), B
Line (90, 190)-(90, 270), RGB(0, 0, 0), B
Line (90, 190)-(80, 230), RGB(0, 0, 0)
Line (80, 230)-(90, 270), RGB(0, 0, 0)
Line (120, 150)-(140, 200), RGB(0, 0, 0), B
Line (100, 140)-(160, 150), RGB(0, 0, 0), B
Line (240, 140)-(320, 200), RGB(0, 0, 0), B
Line (200, 110)-(360, 120), RGB(0, 0, 0), B
End Sub
№8 Формада гүлдің суреті шығатын программа құру керек:
Private Sub Form_paint()
ScaleMode = 2
Circle (220, 170), 25, RGB(255, 0, 0)
Circle (225, 115), 30, RGB(0, 255, 0)
Circle (270, 155), 30, RGB(0, 255, 0)
Circle (250, 210), 30, RGB(0, 255, 0)
Circle (190, 210), 30, RGB(0, 255, 0)
Circle (175, 150), 30, RGB(0, 255, 0)
Line (223, 220)-(223, 320)
Line (217, 220)-(217, 320)
Line (230, 250)-(223, 320)
Line (230, 250)-(290, 240)
Line (225, 320)-(290, 240)
Line (320, 270)-(290, 240)
Line (275, 260)-(320, 270)
Line (215, 320)-(210, 250)
Line (210, 250)-(170, 245)
Line (215, 320)-(170, 245)
Line (140, 280)-(170, 245)
Line (140, 280)-(185, 270)
End Sub
№9 Формада кеменің суреті шығатын программа құру керек:
Private Sub Form_Paint()
ScaleMode = 2
Line (20, 280)-(290, 280), RGB(0, 0, 0), B
Line (70, 240)-(230, 280), RGB(0, 0, 0), B
Line (50, 240)-(70, 240), RGB(0, 0, 0), B
Line (230, 240)-(250, 240), RGB(0, 0, 0), B
Line (50, 240)-(70, 280), RGB(0, 0, 0)
Line (250, 240)-(230, 280), RGB(0, 0, 0)
Line (130, 70)-(140, 240), RGB(0, 0, 0), B
Line (140, 70)-(200, 120), RGB(0, 0, 0), B
Line (100, 130)-(130, 130), RGB(0, 0, 0), B
Line (70, 230)-(130, 230), RGB(0, 0, 0), B
Line (100, 130)-(70, 230), RGB(0, 0, 0)
Line (140, 140)-(240, 240), RGB(0, 0, 0)
Circle (90, 260), 10, RGB(0, 0, 255)
Circle (120, 260), 10, RGB(0, 0, 255)
Circle (150, 260), 10, RGB(0, 0, 255)
Circle (180, 260), 10, RGB(0, 0, 255)
Circle (210, 260), 10, RGB(0, 0, 255)
End Sub
№10 Формада үйдің суреті шығатын программа құру керек:
Private Sub Form_Paint()
ScaleMode = 2
Line (50, 50)-(150, 150), RGB(0, 0, 0), B
Line (50, 140)-(50, 150), RGB(0, 0, 0), B
Line (140, 90)-(110, 125), RGB(0, 0, 0), B
Line (65, 80)-(95, 140), RGB(0, 0, 0), B
Line (50, 50)-(100, 20)
Line (100, 20)-(150, 50)
Line (70, 85)-(90, 110), RGB(0, 0, 0), B
Line (80, 85)-(80, 110), RGB(0, 0, 0)
Line (125, 125)-(125, 90), RGB(0, 0, 0)
Line (110, 105)-(140, 105), RGB(0, 0, 0)
Line (120, 32)-(120, 20)
Line (130, 21)-(130, 40)
Line (120, 21)-(130, 21)
Line (50, 140)-(150, 140)
Line (200, 150)-(200, 85), RGB(0, 0, 0)
Line (190, 150)-(190, 85), RGB(0, 0, 0)
Line (160, 150)-(160, 100), RGB(0, 0, 255)
Line (170, 150)-(170, 100), RGB(0, 0, 255)
Line (180, 150)-(180, 100), RGB(0, 0, 255)
Line (210, 150)-(210, 100), RGB(0, 0, 255)
Line (220, 150)-(220, 100), RGB(0, 0, 255)
Line (230, 150)-(230, 100), RGB(0, 0, 255)
Line (190, 150)-(200, 150), RGB(0, 0, 255)
Line (220, 100)-(230, 100), RGB(0, 0, 255)
Line (210, 100)-(220, 100), RGB(0, 0, 255)
Line (200, 100)-(210, 100), RGB(0, 0, 255)
Line (190, 100)-(200, 100), RGB(0, 0, 255)
Line (180, 100)-(190, 100), RGB(0, 0, 255)
Line (170, 100)-(180, 100), RGB(0, 0, 255)
Line (160, 100)-(170, 100), RGB(0, 0, 255)
Line (150, 100)-(160, 100), RGB(0, 0, 255)
Line (170, 150)-(180, 150), RGB(0, 0, 255)
Line (180, 150)-(190, 150), RGB(0, 0, 255)
Line (200, 150)-(210, 150), RGB(0, 0, 255)
Line (210, 150)-(220, 150), RGB(0, 0, 255)
Line (220, 150)-(230, 150), RGB(0, 0, 255)
Line (160, 150)-(170, 150), RGB(0, 0, 255)
Line (150, 150)-(160, 150), RGB(0, 0, 255)
Line (150, 110)-(160, 110), RGB(0, 0, 255)
Line (160, 110)-(170, 110), RGB(0, 0, 255)
Line (170, 110)-(180, 110), RGB(0, 0, 255)
Line (180, 110)-(190, 110), RGB(0, 0, 255)
Line (190, 110)-(200, 110), RGB(0, 0, 255)
Line (200, 110)-(210, 110), RGB(0, 0, 255)
Line (210, 110)-(220, 110), RGB(0, 0, 255)
Line (220, 110)-(230, 110), RGB(0, 0, 255)
Line (150, 115)-(160, 115), RGB(0, 0, 255)
Line (160, 115)-(170, 115), RGB(0, 0, 255)
Line (170, 115)-(180, 115), RGB(0, 0, 255)
Line (180, 115)-(190, 115), RGB(0, 0, 255)
Line (190, 115)-(200, 115), RGB(0, 0, 255)
Line (200, 115)-(210, 115), RGB(0, 0, 255)
Line (210, 115)-(220, 115), RGB(0, 0, 255)
Line (220, 115)-(230, 115), RGB(0, 0, 255)
Line (150, 135)-(160, 135), RGB(0, 0, 255)
Line (160, 135)-(170, 135), RGB(0, 0, 255)
Line (170, 135)-(180, 135), RGB(0, 0, 255)
Line (180, 135)-(190, 135), RGB(0, 0, 255)
Line (190, 135)-(200, 135), RGB(0, 0, 255)
Line (200, 135)-(210, 135), RGB(0, 0, 255)
Line (210, 135)-(220, 135), RGB(0, 0, 255)
Line (220, 135)-(230, 135), RGB(0, 0, 255)
Line (150, 140)-(160, 140), RGB(0, 0, 255)
Line (160, 140)-(170, 140), RGB(0, 0, 255)
Line (170, 140)-(180, 140), RGB(0, 0, 255)
Line (180, 140)-(190, 140), RGB(0, 0, 255)
Line (190, 140)-(200, 140), RGB(0, 0, 255)
Line (200, 140)-(210, 140), RGB(0, 0, 255)
Line (210, 140)-(220, 140), RGB(0, 0, 255)
Line (220, 140)-(230, 140), RGB(0, 0, 255)
Line (25, 15)-(10, 15), RGB(255, 255, 0)
Line (30, 25)-(15, 40), RGB(255, 255, 0)
Line (40, 30)-(40, 45), RGB(255, 255, 0)
Line (50, 27)-(60, 40), RGB(255, 255, 0)
Line (55, 15)-(75, 15), RGB(255, 255, 0)
Circle (100, 35), 10, RGB(255, 0, 0)
Circle (40, 15), 15, RGB(255, 255, 0)
Circle (195, 50), 35, RGB(0, 255, 0)
Circle (180, 50), 5, RGB(255, 0, 0)
Circle (220, 40), 5, RGB(255, 0, 0)
Circle (200, 70), 5, RGB(255, 0, 0)
Circle (200, 40), 5, RGB(255, 0, 0)
Circle (220, 60), 5, RGB(255, 0, 0)
End Sub
Бұл ғылыми жұмыстың мақсаты Visual Basic тілінің графикалық мүмкіндіктерін көрсету болатын. Менің ізденістерімнің нәтижесінде осындай нәтижеге жеттім. Visual Basic тілінің графикалық мүмкіндіктері компьютердің барлық мүмкіндіктерін қолданады. Бұл жүйені өткен ғасырдың 80-шы жылдарында ойын жасауға қолданған болатын.
Алдыңғы шығарылған басқа жүйелер тәрізді VGA –да әртүрлі деңгейде рұқсаттылық мүмкіндікті көрсетеді. Бірақ VGA-ның режим мөлшері одан да көп. Оның жалпы саны 17. Бірақ графикалық жәнк мәтіндік режимдерде мүмкіндіктің айырмашылық деңгейі әртүрлі. Графикалық режимдегі түрлі-түсті кескінді жасауға кететін мүмкіндік 640*480 пиксельге жетеді. Бұнда 256 палитрадан таңдалынып алынған 16 түстен жасалынады. Мұндай деңгей монохромды кескін үшін де мүмкін болады. Стандартты 640*480 пиксельге EGA стандартынан көшукескіннің нақтылығын көрсетті. VGA стандарты кескінді түстің көп гаммасын пайдалана отырып жасауға болады. Тік пиксельдердің көлденең (4:3) пиксельдерге қатынасынан жағымды фактор туындайды. Жаңа стандарт экранда бір мезгілде 256 түсті қабылдауға мүмкіндігі бар.
1984 жылдан бастап CGA-ның кемшіліктері
көріне бастады. Ол кең ауқымда
таратылғаннан кейін көріне бас
Оның артықшылығы көпжақты болды: рұқсатылық мүмкіндіктің көбеюі, монохромды экранның графикалық мүмкіндігі, IBM-ның жасыл түсі де бар.Өзгерістерді ең қарапайым жолмен де байқауға болады. Рұқсаттылық мүмкіндігі 640*350 пиксельге дейін өсті. Символ торлары 8*14 мөлшеріне ие болды. Ең негізгі жоласты және жолүсті элементтеріне кеңістіктің бөлінуі . Осыған байланысты аралас қатарлар бір-бірімен бірікпей, түсті мәтін кескіні монохромдыныкі тәрізді жақсы қабылданды. Графикалық режимде 640*350 рұқсатылық мүмкіндікке ие.
Сонымен қатар IBM адаптерлердің бұрынғы графикалық режимдерін де толық қамтамасыз етіп тұрады. Бұл EGA-ның көнерген CGA-ның барлық режимдерін қамтитындығын көрсеттеді.
EGA-дағы түстер палитрасы 64 түске дейін өсті. Сонымен қатар EGAстандарттары жады ресурсының үлкендігіне байланысты үлкен деңгейлі мүмкіндікке ие екенін көрсетті.
АРА басқа режимі жолдың 640 нүктесі мен 200 жолды береді. Бұл режимде әрбір нүкте бір битке сәйкес келеді. Егер бит 0 болса, онда нүкте қара түсті; түс регистр көмегімен таңдалады. Әдетте бұл регистр қара-ала сурет бере отырып 1111В (ақ) деген мәлімет береді. Сіз кез-келген түсті таңдай аласыз . Үлкен мәнді бит бірінші шығарылады, ал 0 битті - соңынан шығарады. Бұл жерде жол да 80 байытқа тең, жұп жолдар дисплей буферінің басында орналасады. BIOS бейне бағдарламасы бірнеше функцияларды қамтиды, онда IBM PC графикасы да қолданылады.
АН регистрі 11 - ге тең етіп қойылады, бағдарлама графикалық режимді түсті таңдай алады. Бұл бағдарлама алдын - ала анықталған түстер палатасының палитрасы емес, шын палитралармен жұмыс жасайтындай етіп қондырылған.
Егер графикалық режим 320*200 шын палитрасына ие болса, онда бұл әрбір нүктеге төрт түс сәйкес келетіндей етіп кескіндеу болып саналады. Қазіргі уақытта қалыпты мүмкіндіктегі режимде фон түсі осылай жасалынады. 0 түсінің ішінен фон түсі ретінде кез - келген түсті таңдай аласыз.
BIOS прологы палитраны таңдайды. Осы функция арқылы мәтіндік режимдегі айналасындағы рамкаға түсті анықтайды.
Басқа екі бағдарлама
Бұл үшін көбейту, қосу амалдары орындалады және соған уақыт кетеді. Жалпы жағдайда бағдарлама нүктесінің бастапқы орнының көмегімен графикті жазып аладыы және оның салыстырмалы орын ауысуын орындайды. Бұл алгоритм бойынша бағдарламаның өзі буфердің бірінші нүктесін табады, ал басқа нүктелердің орын буфердің ағымдағы адресі бойынша анықтайды.
Қолданылған әдебиеттер
- Б.Бөрібаев. Информатика және компьютер. Алматы, 1995ж.
- Г.Григас. Бағдарламалау негіздері. Москва, 1987ж.
- А.И.Гусева. Visual Basic 6.0-де бағдарламалау. Москва, 1996ж.
- Ж.Динисламов. Visual Basic тілі ортасында бағдарламалау, 2002ж.
- О.Камардинов. Есептеуіш техника және бағдарламалау. Алматы, 1997ж.
- В.Э.Фигуров. ІВМ РС пайдаланушылар үшін. Москва, 1996ж.