Cómo programar un objeto para que haga movimiento circular en vb
Contenido del módulo
¿Función? ¿Ding Wei (¿Rao Wei? ¿como? objeto,? ¿Zhongxinxin? ¿como? copia doble,? ¿Zhongxin? ¿como? copia doble,? r? como? copia doble,? ¿Du Shunuo? como? entero)? ¿Como? Objeto de cadena, alrededor de las coordenadas x, y, radio y rotación en grados.
¿Oscuro? ¿incógnita? ¿Como? ¿Doble? La ubicación de la coordenada x
¿Dim? ¿y? ¿Como? ¿Doble? posición de coordenadas y
¿Atenuar? ¿respuesta? ¿Como? ¿Doble ración? Inclinación
¿Elegir? ¿caso? ¿Un caso real? ¿Dushno? ¿gt? 0? Entonces qué. ¿Dushno? ¿Es? 90? El primer cuadrante
¿Respuesta? =?Brigada de calzado(90?-?Dushno)? ¿Inclinación
x? =?Round(Sqr((R?*?r)?/?(1? ?(a?*?a))),?0)?Obtenga la coordenada x de la postura sentada.
y? =?Round(Sqr((R?*?r)?-?(x?*?x)),?0)?Obtener la posición de la coordenada y.
¿Qué utilizar? Rao Wei
. ¿izquierda? =?Zhongxinxin? ?¿incógnita? -?. ¿ancho? /?2
. ¿Arriba? =?Zhongxin? -?y? -?. ¿altura? /?2
¿Fin? ¿Con el caso? ¿Dushno? ¿gt? 90? Entonces qué. ¿Dushno? ¿Es? 180?Segundo cuadrante
¿Respuesta? =?ley asociada (DushuNow?-?90)?tilt
x? =?Round(Sqr((R?*?r)?/?(1? ?(a?*?a))),?0)?Obtenga la coordenada x de la postura sentada.
y? =?Round(Sqr((R?*?r)?-?(x?*?x)),?0)?Obtener la posición de la coordenada y.
¿Qué utilizar? Rao Wei
. ¿izquierda? =?Zhongxinxin? ?¿incógnita? -?. ¿ancho? /?2
. ¿Arriba? =?Zhongxin? ?y? -?. ¿altura? /?2
¿Fin? ¿Con el caso? ¿Dushno? ¿gt? 180? Entonces qué. ¿Dushno? ¿Es? 270?El tercer cuadrante
¿Respuesta? =?Brigada de zapatos(90?-?(Dushuno?-?180))?Inclinación
x? =?Round(Sqr((R?*?r)?/?(1? ?(a?*?a))),?0)?Obtenga la coordenada x de la postura sentada.
y? =?Round(Sqr((R?*?r)?-?(x?*?x)),?0)?Obtener la posición de la coordenada y.
¿Qué utilizar? Rao Wei
. ¿izquierda? =?Zhongxinxin? -?¿incógnita? -?. ¿ancho? /?2
. ¿Arriba? =?Zhongxin? ?y? -?. ¿altura? /?2
¿Fin? ¿Con el caso? ¿Dushno? ¿gt? 270? Entonces qué. ¿Dushno? ¿Es? 360?El cuarto cuadrante
¿Respuesta? =?ley asociada (DushuNow?-?270)?tilt
x? =?Round(Sqr((R?*?r)?/?(1? ?(a?*?a))),?0)?Obtenga la coordenada x de la postura sentada.
y? =?Round(Sqr((R?*?r)?-?(x?*?x)),?0)?Obtener la posición de la coordenada y.
¿Qué utilizar? Rao Wei
. ¿izquierda? =?Zhongxinxin? -?¿incógnita? -?. ¿ancho? /?2
. ¿Arriba? =?Zhongxin? -?y? -?. ¿altura? /?2
¿Fin? ¿Con el caso? ¿Dushno? =?360?Una semana entera.
¿Qué utilizar? Rao Wei
. ¿izquierda? =?Zhongxinxin? -?. ¿ancho? /?2
. ¿Arriba? =?Zhongxin? -?r? -?.
¿altura? /?2
¿Fin? ¿Con el caso? ¿Dushno? =?90?Exactamente 90
¿Qué usar? Rao Wei
. ¿izquierda? =?Zhongxinxin? ?r? -?. ¿ancho? /?2
. ¿Arriba? =?Zhongxin? -?. ¿altura? /?2
¿Fin? ¿Con el caso? ¿Dushno? =?180?Exactamente 180
¿Qué usar? Rao Wei
. ¿izquierda? =?Zhongxinxin? -?. ¿ancho? /?2
. ¿Arriba? =?Zhongxin? ?r? -?. ¿altura? /?2
¿Fin? ¿Con el caso? ¿Dushno? =?270?Exactamente 270
¿Qué usar? Rao Wei
. ¿izquierda? =?Zhongxinxin? -?r? -?. ¿ancho? /?2
. ¿Arriba? =?Zhongxin? -?. ¿altura? /?2
¿Fin? ¿Con
el final? Selección
¿Finalizar? Función
¿Función? Xie Lv (¿libro único? ¿acto? ¿doble)? ¿Como? ¿Dos veces
Const? ¿Pi? =?3.1415926
¿Recorrido del calzado? =?Yuan(Tan(Tío Du?*?(pi?/?180)),?4)
¿Fin? Función
Método de llamada
Cal (nombre de control, alrededor de la coordenada X, alrededor de la coordenada XY, radio, grado de rotación)' es la unidad de longitud en vb.