İnformatikanin əsaslari



Yüklə 1,28 Mb.
səhifə70/156
tarix16.12.2023
ölçüsü1,28 Mb.
#182397
növüDərs
1   ...   66   67   68   69   70   71   72   73   ...   156
nformatikanin saslari

İf strC = ―8 bit‖ Then MsgBox (―Düzdür!‖, 0, ―Birinci sual‖) Else MsgBox (―Səhvdir!‖, 0, ―Birinci sual‖): bytN = bytN+1
strC = İnputBox (―10-luqdakı 5 ədədini 2-lik say sisteminə çevirin:‖, ―İkinci sual‖)
İf strC = ―101‖ Then MsgBox (―Düzdür!‖, 0, ―İkinci sual‖) Else MsgBox (―Səhvdir!‖, 0, ―İkinci sual‖): bytN = bytN+1
MsgBox (―Hörmətli ― + strA + ‖, ―Siz‖ +str(bytN) + ‖suala səhv cavab verdiniz‖, 0,
―Sorğu bitdi‖

  1. Layihəni icraya buraxmalı. Qeydiyyatdan keçib, suallara cavab verməli. Nəticə MsgBox funksiyasının xəbərlər panelində çap ediləcəkdir.

Bu layihəni \textbook\VB\prjVB8\ adı ilə saxlamalı.

Tarix və vaxt funksiyaları.


Date funksiyası. Bu, cari tarixi Date dəyişəninə mənimsədir. Date dəyişəninin qiyməti
#Ay/Gün/İl# kimi 3 ədəddən ibarətdir.
Date layihəsinin proqram kodu aşağıdakı kimidir:
Dim dtmA, dtmB As Date Sub cmd1_Click()
dtmA = Date
dtmB = #1/1/2007#
Print ―Bu gün ―; dtmA
Print ―Üçüncü minilliyin əvvəlindən ―; dtmA dtmB; gün keçmişdir‖

End Sub


Layihəni icraya buraxıb nəticəni ekranda görmək olar. Bu layihəni \textbook\VB\prjVB9\ adı ilə saxlamalı.
Time$ funksiyası. String (sətri) tipli bu funksiya cari vaxtı mətn sahəsinə çıxarır. Vaxt #Saat: Dəqiqə: Saniyə# formatında verilir. Vaxtın qiymətinin dövri təzələnməsi üçün Timer obyektindən istifadə edilir. Proqramın icrası zamanı Timer obyekti forma üzərində görünmür. Bu, sistem saatının göstəricisini yoxlayır. Timer hadisəsinin dövrülüyü İnterval xassəsi ilə təyin edilir. Bu xassə millisaniyə ölçüsü ilə verilir və 0-dan 65535-dək dəyişə bilir. Timer hadisəsinin hər saniyə baş verməsi üçün İnterval xassəsinə 1000 mənimsədil- məlidir.
İndi ―Saniyəölçən‖ layihəsini yaradaq. Bunun üçün:
1. Timer obyektini forma üzərində yerləşdirib onu tmr1 adlandırmalı. İnterval xassəsinə 1000 ədədini mənimsətməli. Forma üzərində txtTime mətn sahəsi yaratmalı. tmr1_Timer() hadisəvi proseduru aşağıdakı proqram kodu şəklində daxil etməli:
Sub tmr1_Timer() txtTime.Text = Time$ End Sub
2. Layihəni icraya buraxmalı.
Bu layihəni \textbook\VB\prjVB10\ adı ilə saxlamalı.

Visual Basic dilinin qrafik imkanları.


Formalar (Form) və ya qrafik pəncərələr (PictureBox) üzərində müxtəlif qrafik primitivlər114 çəkmək üçün aşağıdakı qrafik metodlardan istifadə etmək olar:

Yüklə 1,28 Mb.

Dostları ilə paylaş:
1   ...   66   67   68   69   70   71   72   73   ...   156




Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azkurs.org 2024
rəhbərliyinə müraciət

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin