Ошибка переполнения при рисовании на PictureBox - VB

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

Всем привет, помогите разобраться с кодом. Постоянно выдает ошибку overflow. Заранее спасибо!

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Picture1.Cls
x0 = 2000
y0 = 2000
k = Val(Text3)
Picture1.Line (0, 1950)-(5000, 1950), RGB(0, 250, 0)
Picture1.Line (2050, 0)-(2050, 5000), RGB(0, 250, 0)
m = Val(Text1)
b = Val(Text2)
For i = m To b Step 0.005
y = ((i + 8) / (i - 4)) * k
Picture1.PSet (x0 + i * k, y0 + y * k)
Next
End Sub
 
Private Sub Command2_Click()
End
End Sub

Указывает на ошибку в строке Picture1.PSet (x0 + i * k, y0 + y * k)

Решение задачи: «Ошибка переполнения при рисовании на PictureBox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Picture1.Cls
For x = 1 To 20 Step 0.005
  If Abs(x - 4) > 0.0000001 Then
    y = (x + 8) / (x - 4)
    Picture1.PSet (x, y)
    Debug.Print y
  End If
Next
End Sub
 
Private Sub Command2_Click()
End
End Sub
 
Private Sub Form_Load()
Picture1.Scale (0, 15)-(30, -15)
End Sub

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

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

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

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

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