столкнулся с забавной арифметикой у компьютера.
В приведенном ниже коде неправильно просчитываются переменные t2x, t3x и т.д. все из этого ряда...
Что получается:
97 -2 67 107 93 53 89 37
Что должно быть:
29 -1 20 67 28 33 56 11
(порядок приведения значений соответствует порядку объявления)
по калькулятору, при подстановке значений все получается как надо...
Где я допустил ошибку, подскажите плз, а то что то я ничего не понимаю
- Код: Выделить всё
Me.width = 94
Me.height = 45
- Код: Выделить всё
Dim t2y As Integer = CInt(Me.height / 1.55175), _
t3x As Integer = CInt(Me.width / -94), _
t3y As Integer = CInt(Me.height / 2.25), _
t4x As Integer = CInt(Me.width / 1.402985), _
t4y As Integer = CInt(Me.height / 1.60714), _
t5x As Integer = CInt(Me.width / 2.848485), _
t6x As Integer = CInt(Me.width / 1.67857), _
t6y As Integer = CInt(Me.height / 4.0909091)
Private t1 As New Point(0, 0), t2 As New Point(Me.Width, Me.Height), _
ts1 As New Point(0, 0), _
ts2 As New Point(0, t2y), _
ts3 As New Point(t3x, t3y), _
ts4 As New Point(t4x, t4y), _
ts5 As New Point(t5x, 0), _
ts6 As New Point(t6x, t6y)
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
e.Graphics.FillRectangle(grad, recGr)
e.Graphics.DrawString(simElem, seFont, textElem, ts1.X, ts1.Y)
e.Graphics.DrawString(namElem, neFont, textElem, ts2.X, ts2.Y)
e.Graphics.DrawString(lneElem, lneFont, textElem, ts3.X, ts3.Y)
e.Graphics.DrawString(nomElem, nomFont, textElem, ts4.X, ts4.Y)
e.Graphics.DrawString(num1Elem, numFont, textElem, ts5.X, ts5.Y)
e.Graphics.DrawString(num2Elem, num2Font, textElem, ts6.X, ts6.Y)
End Sub
