Math.PI / 180) / Math.Sqrt (NumericUpDownCH.Value ^ 2 + ax ^ 2 + ay ^ 2 + 2 * ax * NumericUpDownCH.Value * Math.Cos (NumericUpDownCA.Value * Math.PI / 180))=NumericUpDownWRS.Value () / (Math.Tan (Math.Acos (cosf1 )) + Math.Tan (Math.Acos (cosf2))). WriteLine («X:» + CStr (ax) + «Y:» + CStr (ay) + «H:» + CStr (h)) If.Close (). Close () SubSub Button1_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click_Click (sender, e) ()=3.Text=«» SubSub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click.Text=«Створення растра» (0, Mas) (0, Mas, NumericUpDownWRS.Value, NumericUpDownWRS.Value - NumericUpDownWRS1.Value , NumericUpDownWRA.Value). Text=«Збереження растра» (0, Mas, «. Робочий растр.bmp»). Text=«Збереження растра2» (0, Mas2) (0, Mas, Mas2, NumericUpDownPZ. Value * fWidth (0) / 16)
SaveToFile (0, Mas2, «. Спотворення робочого растра.bmp»)
NewRast=True.Text=«Накладення растра»=TrueSubSub Button3_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click=True=TrueSubSub Button4_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ()=True=True=True.Text=«Накладення растра»=True.Text=«» SubSub Button5_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click () SubSub Button6_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click () SubSub Button7_Click (ByVal sender As System.Object, ByVal e As System . EventArgs) Handles Button7.Click () SubSub Button8_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click () SubOverrides Sub Finalize () 'Процедура завершенія.Finalize () SubSub NumericUpDownWRS_ValueChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDownWRS.ValueChanged=True.Value=NumericUpDownWRS.Value 2SubSub NumericUpDownPZ_ValueChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDownPZ.ValueChanged=True.Value= NumericUpDownPZ.Value=TrueSubSub TrackBarPZ_Scroll (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBarPZ.Scroll=True.Value=TrackBarPZ.Value=TrueSubSub TrackBarCX_Scroll (ByVal sender As System.Object, ByVal e As System.EventArgs ) Handles TrackBarCX.Scroll=True.Value=TrackBarCX.ValueCheckBox1.Checked Then=TrueIf=TrueSubSub NumericUpDownCX_ValueChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDownCX.ValueChanged=True.Value=NumericUpDownCX.Value.Value =Math.Sqrt (NumericUpDownCX.Value ^ 2 + NumericUpDownCY.Value ^ 2 + NumericUpDownCZ.Value ^ 2). Value=Math.Acos (NumericUpDownCZ.Value / Math.Sqrt (NumericUpDownCX.Value ^ 2 + NumericUpDownCY.Value ^ 2 + NumericUpDownCZ.Value ^ 2)) * 180 / Math.PICheckBox1.Checked Then=TrueIf=TrueSubSub TrackBarCY_Scroll (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBarCY.Scroll=True.Value=TrackBarCY.ValueCheckBox1.Checked Then=TrueIf=TrueSubSub NumericUpDownCY_ValueChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDownCY.ValueChanged=True.Value=NumericUpDownCY.Value.Value=Math.Sqrt (NumericUpDownCX.Value ^ 2 + NumericUpDownCY.Value ^ 2 + NumericUpDownCZ.Value ^ 2). Value=Math.Acos (NumericUpDownCZ.Value / Math.Sqrt (NumericUpDownCX.Value ^ 2 + NumericUpDownCY.Value ^ 2 + NumericUpDownCZ.Value ^ 2)) *...
