Дастурлаш асослари фанидан маърузалар матни doc

6-misol: Matematik funksiyalarni ishlatishga loyiha 
-10 dan +10 gacha bo‘lgan oraliqdan tasodif son olinadi.  Sonning ishorasi aniqlanadi. So‘ng tasodif 
sonning absolyut qiymatining kvadrat ildizi  va ikkilangan burchakning sinusi hisoblanadi. 
 
 
10.14-rasm 
 
Ob’yekt 
 
 
Xossa 
 
O‘rnatilgan qiymatlari  
Label1
 
Caption 
Tasodifiy son 
Label2
 
Caption 
Ishorasi 
Label3
 
Caption 
Kvadrat ildizi 
Label4
 
Caption 
Ikkilangan burchakning sinusi 
Command1 
Caption 
Bajarish 
Command2 
Caption 
Yakunlash 
Text1 
Text2 
Text3 
Text4
 
Text 
 
Text xossasi maydonini tozalash 
 
PDF created with pdfFactory trial version 
www.pdffactory.com

---

 
Dastur kodi  
Option Explicit 
Private Sub Command1_Click() 
    Dim dblx As Double 
    Dim dblx1 As Double 
    Dim dblx2 As Double 
    Dim intx As Integer 
    dblx = 20 * Rnd – 10 
    intx = Sgn(dblx) 
    dblx1 = Sqr(Abs(dblx)) 
    dblx2 = 2 * Sin(dblx) * Cos(dblx) 
    Text1.Text = Str(dblx) 
    Text2.Text = Str(dblx1) 
    Text3.Text = Str(intx) 
    Text4.Text = Str(dblx2) 
End Sub 
 
Private Sub Command2_Click() 
End 
End Sub 
 
Private Sub Form_Load() 
  
 
 Randomize 
End Sub 
 
10.15-rasm