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

Dim strA As String, N As İnteger 
Sub cmdT_Click() 
For N=255 To 33 Step -1 
strA = Chr(N) 
Print N; ― – ―; strA 
Next N 
End Sub 

---

92 
4. Layihəni icraya buraxmalı.
Layihəni \textbook\VB\prjVB5\ adı ilə saxlamalı. 
Riyazi funksiyalar. 
Riyazi funksiyalarda həm arqumentlər, həm də funksiyanın özü ədədi qiymətlər alır. 
Visual Basic dilində 12 riyazi funksiya vardır. Buraya: Sin(), Cos(), Tan(), Atn(), Sqr()
108
, 
Log(), Exp()
109
, Rnd()
110
və s. aiddir.
Riyazi funksiyalardan istifadə etməklə yuxarıda tərtib etdiyimiz ―Adi kalkulyator‖ 
layihəsinin imkanlarını genişləndirib onu ―Mühəndis kalkulyatoru‖na çevirməyə çalışaq. 
Bunun üçün: 
1. ―Adi kalkulyator‖ layihəsini açmalı. Formaya cmdSin, cmdCos, cmdTan, cmdSqr, 
cmdSt
111
və cmdLog düymələrini əlavə etməli. Bu düymələrin hər biri üçün hadisəvi 
proseduru aşağıdakı kimi yazmalı: 
2. Məsələn, qüvvətə yüksəltmə üçün cmdSt_Click() aşağıdakı kimi olacaqdır: 
Sub cmdSt_Click() 
txt3Dec.Text=Val(txt1Dec.Text)^Val(txt2Dec/Text) 
End Sub 
3. Qalan funksiyaları Visual Basic dilinin qurulmuş funksiyaları kimi, yəni Sin(), 
Cos(), Tan(), Sqr() və Log() şəklində daxil etməli. 
4. Layihəni icraya buraxmalı. 
32
2
ədədini hesablamalı. Bunun üçün 2 və 32 ədədlərini 
daxil edib, X^Y düyməsini basmaq lazımdır.
Bu layihəni \textbook\VB\prjVB6\ adı ilə saxlamalı.