İsa Musayev, Mətləb Əlizadə



Yüklə 1,71 Mb.
Pdf görüntüsü
səhifə124/266
tarix13.05.2022
ölçüsü1,71 Mb.
#115877
növüDərs
1   ...   120   121   122   123   124   125   126   127   ...   266
sa Musayev, M tl b lizad

İ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‖ 
7.  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. 


 
97 
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ı. 

Yüklə 1,71 Mb.

Dostları ilə paylaş:
1   ...   120   121   122   123   124   125   126   127   ...   266




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

gir | qeydiyyatdan keç
    Ana səhifə


yükləyin