180 / Math.PICheckBox1.Checked Then=TrueIf=TrueSubSub TrackBarCZ_Scroll (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBarCZ.Scroll=True.Value=TrackBarCZ.ValueCheckBox1.Checked Then=TrueIf=TrueSubSub NumericUpDownCZ_ValueChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDownCZ.ValueChanged=True.Value=NumericUpDownCZ.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 TrackBar1_Scroll (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll, TrackBar3.Scroll, TrackBar2.Scroll=TrueSubSub NumericUpDownMRS1_ValueChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDownMRS1.ValueChanged, NumericUpDown.ValueChanged, NumericUpDownMRA.ValueChanged, NumericUpDownWRA . ValueChanged=TrueSubSub CB_Pov_SelectedIndexChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_Pov.SelectedIndexChanged=True=CB_Pov.SelectedIndex (Face=6) And (Resel) Then.ShowDialog () FName As String=OFD. FileName (FName="") Then=0_Pov.SelectedIndex=0Iffs As IO.FileStream=New IO.FileStream (FName, IO.FileMode.Open)
'створення (файлу) r As IO.BinaryReader=New IO.BinaryReader (fs)
'відкриття файлу на запісь.X=r.ReadInt32 ()
SurSize.Y=r.ReadInt32 () ix, iy As Integeriy=0 To SurSize.Yix=0 To SurSize.X (ix, iy)=r.ReadInt32 (). Close () закриття файлу .. Close (). Text=Path.GetFileNameWithoutExtension (FName). FileName=«» If (Face=7) Then.Visible=True.Visible=True.Visible=False.Visible=FalseIfSubSub CB_Res_SelectedIndexChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_Res.SelectedIndexChanged=True (0)=fWidth (CB_Res.SelectedIndex + 1) (0)=fHeight (CB_Res.SelectedIndex + 1)=True=TrueSubSub NumericUpDownMRS_ValueChanged (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDownMRS.ValueChanged=True.Value=NumericUpDownMRS.Value 2SubSub OpenFileDialog1_FileOk (ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OFD.FileOkSubSub BCreate_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BCreate.Click () FName As String=TBFileName.Text & «. Txt» MaxH As Integer=NUDH.ValueX As Integer=NUDX.ValueY As Integer=NUDY.Valueix, iy As Integerh As Integerfs As IO.FileStream=New IO.FileStream (FName, IO.FileMode.Create)
створення файлаw As IO.BinaryWriter=New IO.BinaryWriter (fs)
відкриття файлу на запісь.Write (X)
w.Write (Y) Sur (X, Y) As Integer (RBRnd.Checked) Theniy=0 To Yix=0 To X () (ix, iy)=MaxH * Rnd () If (RBRndOff.Checked) Theniy=0 To Y (0, iy)=0ix=1 To X ()=Sur (ix - 1, iy) + (- 1) ^ (CInt (2 * Rnd ())) (ix , iy)=h (h <0) Then Sur (ix, iy)=0 (h> MaxH) Then Sur (ix, iy)=MaxHIf (RBRndOff2.Checked) Theniy=0 To Y (0, iy) =0ix=1 To X ()=Sur (ix - 1, 0) + (- 1) ^ (CInt (2 * Rnd ())) (ix, 0)=h (h <0) Then Sur (ix , 0)=0 (h> MaxH) Then Sur (ix, 0)=MaxHiy=1 To Y (ix, iy)=Sur (ix, 0) If (RBRndOff3.Checked) Then (0, 0)=0ix =1 To X ()=Sur (ix - 1, 0) + (- 1) ^ (CInt (2 * Rnd ())) (ix, 0)=h (h <0) Then Sur (ix, 0 )=0 (h>...
