Каким образом выполнить задачу
В школе дали задние, думаю, как делать.
Суть в следующем: кажую секунду тeло сдвигается на 1 единицу в положительную сторону оси координат. Когда оно доходит до точки y, оно начинает с той же скоростью двигаться обратно, доходит до нуля и обратно. Необходимо вычислить положение тела в момент t, при данной точке k.
Пытался выполнить с помощью цикла, но не получается, не могу вывести значение x (текущей координаты)в поле ответа.
Получилось сделать так:
///
X - координата
T1 - текущее время
T - время, которое вводишь в форму
K - точка до которой движется тело
///
Do
Do
X=x+1
t1=t1+1
loop until x=k
Do
X=x-1
T1=t1+1
Loop until x=0
Loop until t=t1
Label3=x
Только начинаю изучать vb, поэтому не могу понять, в чем ошибка, как сделать правильно?
Суть в следующем: кажую секунду тeло сдвигается на 1 единицу в положительную сторону оси координат. Когда оно доходит до точки y, оно начинает с той же скоростью двигаться обратно, доходит до нуля и обратно. Необходимо вычислить положение тела в момент t, при данной точке k.
Пытался выполнить с помощью цикла, но не получается, не могу вывести значение x (текущей координаты)в поле ответа.
Получилось сделать так:
///
X - координата
T1 - текущее время
T - время, которое вводишь в форму
K - точка до которой движется тело
///
Do
Do
X=x+1
t1=t1+1
loop until x=k
Do
X=x-1
T1=t1+1
Loop until x=0
Loop until t=t1
Label3=x
Только начинаю изучать vb, поэтому не могу понять, в чем ошибка, как сделать правильно?
С нуля начинает?
Можно вообще без циклов,а взять остаток от деления времени на K(x=t Div K)
Можно вообще без циклов,а взять остаток от деления времени на K(x=t Div K)
Да, начинает с нуля. Не совсем понял, как делать
Небольшую ошибочку допустил я(и даже 2)
Ну смотри,каждые K секунд тело оказывается в одной из крайних точек,причём если K Mod 2=1,тело в точке K,если 0,то в точке 0.Стало быть,остаток от деления времени на K даст положение точки относительно одной из крайних(какой именно и как определять–написано выше)
Ну смотри,каждые K секунд тело оказывается в одной из крайних точек,причём если K Mod 2=1,тело в точке K,если 0,то в точке 0.Стало быть,остаток от деления времени на K даст положение точки относительно одной из крайних(какой именно и как определять–написано выше)
Еще один вопрос возник, написал все, что надо, указал, что если тело во второй точке, то нужно из К вычесть остаток от деления, но начинает ругаться на возможное деление на нуль, хотя в самом начале я и обозначил, что
If k > 0 Then
k = TextBox1.Text
Else : End
End If
как можно устранить эту ошибку?
If k > 0 Then
k = TextBox1.Text
Else : End
End If
как можно устранить эту ошибку?
Может,надо местами поменять строчки?:)
А то получается,что ты сначала проверяешь значение K,а потом при любых условиях присваиваешь
А то получается,что ты сначала проверяешь значение K,а потом при любых условиях присваиваешь