Как и куда прописать формулу чтобы строил график - VB

Формулировка задачи:

По этой формуле - Sqr((2000 * 10 ^ 6) / 950) / Sqr(1 + (219 / 10) * (2000 * 10 ^ 6) / (Etp* 10 ^ 6)

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Dim i As Integer
Dim amp As Double
 
'ГЊГ*Г±ГёГІГ*ГЎ ГЈГ°Г*ГґГЁГЄГ*
Picture1.Scale (-1, 25)-(25, -1)
 
'ГЏГ®Г±ГІГ°Г®ГҐГ*ГЁГҐ ГЈГ°Г*ГґГЁГЄГ*
For amp = 0 To 25 Step 0.01
Picture1.PSet (amp, Sin(amp))
Next amp
 
'Г•
Picture1.Line (0, 0)-(25, 0)
For i = 0 To 25
Picture1.PSet (i, 0)
Picture1.Print i
Next i
 
'Y
Picture1.Line (0, 25)-(0, 0)
For i = 0 To 25
Picture1.PSet (0, i)
Picture1.Print i
Next i
 
'ГЄГ®Г°Г¤ГЁГ*Г*ГІГ» Г±ГҐГІГЄГЁ
For i = 1 To 25
Picture1.Line (i, 25)-(i, 0), vbRed
Picture1.Line (0, i)-(25, i), vbRed
Next
End Sub

Решение задачи: «Как и куда прописать формулу чтобы строил график»

textual
                            Листинг программы 
                        
For Etp = 1 To 25 Step 0.01
Y = Sqr((2000 * 10 ^ 6) / 950) / Sqr(1 + (219 / 10) * (2000 * 10 ^ 6) / (Etp * 10 ^ 6))
Picture1.Circle (Etp, Y), 0.02, RGB(255, 0, 0)
Next Etp

Оцени полезность:

5 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы