Height:=225)
OMMAVIY DASTURLASH TILLARIDA GRAFIKANI DASTURLASH
With chartObj.Chart
.ChartType = xlXYScatterLinesNoMarkers
.SetSourceData Source:=dataRange ' Ma'lumotlar manbai
' Diagramma sarlavhasi va o'qlar nomlari
.HasTitle = True
.ChartTitle.Text = "Kvadratik funksiyaning grafigi"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Text = "y"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Text = "x"
End With
OMMAVIY DASTURLASH TILLARIDA GRAFIKANI DASTURLASH
11-qadam
. VBA oynasida formani ekranga chiqaramiz va “Yangi” tugmasi ustiga
sichqonchani ikki marta bosamiz. Dastur asosiy kodini kiritamiz:
Dim chartObj As ChartObject
For Each chartObj In ActiveSheet.ChartObjects
chartObj.Delete
Next chartObj
Range("e2").FormulaR1C1 = Empty
Range("e3").FormulaR1C1 = Empty
Range("e4").FormulaR1C1 = Empty
UserForm1.TextBox1.Value = Empty
UserForm1.TextBox2.Value = Empty
UserForm1.TextBox3.Value = Empty
OMMAVIY DASTURLASH TILLARIDA GRAFIKANI DASTURLASH
Dasturning ishlashi uchun A2:A22 katakchalarga x o’zgaruvchining
qiymatlarini yoib chiqamiz.
Shunga o’xshash, B2 katakchaga funksiyaning qiymatini hisoblash
formulasini yozib olamiz.
Bizning misolda bu formula “=E$2*A2*A2+E$3*A2+E$4” ko’rinishda
bo’ladi.
Ushbu katakchada kursorni sichqoncha yordamida tortish orqali B2:B22
katakchalarni avtomatik to’ldiramiz.
Formulaga muvofiq a,b,c koeffisiyentlarning qiymati mos ravishda E2, E3, E4
katakchalarda joylashadi.
Bu yerda “$” orqali absolyut manzil hosil qilingan. Natijani tekshiramiz.
|
