วีดีโอ

무대가 넓어서 안보일때는 달려라 하니였네 ㅋㅋ

PUBLIC v1,v11,v2,v22,v3,v33 v1=0 v11=0 v2=0 v22=0 v3=0 v33=0 Scroll_R_1 Procedure: Scroll *** ActiveX Control Event *** ThisForm.Text1.Value=255-This._Value ThisForm.Shape1.BackColor=RGB[255-This._Value,0,0] ThisForm.Shape4.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value] ThisForm.Command1.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value] ThisForm.Command2.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value] Scroll_G_1 Procedure: Scroll *** ActiveX Control Event *** ThisForm.Text2.Value=255-This._Value ThisForm.Shape2.BackColor=RGB[0,255-This._Value,0] ThisForm.Shape4.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value] ThisForm.Command1.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value] ThisForm.Command2.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value] Scroll_B_1 Procedure: Scroll *** ActiveX Control Event *** ThisForm.Text3.Value=255-This._Value ThisForm.Shape3.BackColor=RGB[0,0,255-This._Value] ThisForm.Shape4.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value] ThisForm.Command1.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value] ThisForm.Command2.BackColor=RGB[255-ThisForm.Olecontrol1._Value,255-ThisForm.Olecontrol2._Value,255-ThisForm.Olecontrol3._Value] Timer1 IF v1=0 ThisForm.Shape4.Left=ThisForm.Shape4.Left+1 IF ThisForm.Shape4.Left>ThisForm.Width-ThisForm.Shape4.Width ThisForm.Shape4.Curvature=0 v1=1 ENDIF ELSE ThisForm.Shape4.Left=ThisForm.Shape4.Left-1 IF ThisForm.Shape4.Left<ThisForm.Left ThisForm.Shape4.Curvature=99 v1=0 ENDIF ENDIF IF v11=0 ThisForm.Shape4.Top=ThisForm.shape4.Top+1 IF ThisForm.shape4.Top>ThisForm.Height-ThisForm.shape4.Width ThisForm.Shape4.Curvature=0 v11=1 ENDIF ELSE ThisForm.shape4.Top=ThisForm.Shape4.Top-1 IF ThisForm.shape4.Top<0 ThisForm.Shape4.Curvature=99 v11=0 ENDIF ENDIF btn Run_1 ThisForm.Timer1.Interval=10 btn stop_1 ThisForm.Timer1.Interval=0 ------------------------------------------------------------------------ Scroll_R_2 Procedure: Scroll *** ActiveX Control Event *** ThisForm.Text4.Value=255-This._Value ThisForm.Shape5.BackColor=RGB[255-This._Value,0,0] ThisForm.Shape8.BackColor=RGB[255-ThisForm.Olecontrol4._Value,255-ThisForm.Olecontrol5._Value,255-ThisForm.Olecontrol6._Value] ThisForm.Command3.BackColor=RGB[255-ThisForm.Olecontrol4._Value,255-ThisForm.Olecontrol5._Value,255-ThisForm.Olecontrol6._Value] ThisForm.Command4.BackColor=RGB[255-ThisForm.Olecontrol4._Value,255-ThisForm.Olecontrol5._Value,255-ThisForm.Olecontrol6._Value] Scroll_G_2 Procedure: Scroll *** ActiveX Control Event *** ThisForm.Text5.Value=255-This._Value ThisForm.Shape6.BackColor=RGB[0,255-This._Value,0] ThisForm.Shape8.BackColor=RGB[255-ThisForm.Olecontrol4._Value,255-ThisForm.Olecontrol5._Value,255-ThisForm.Olecontrol6._Value] ThisForm.Command3.BackColor=RGB[255-ThisForm.Olecontrol4._Value,255-ThisForm.Olecontrol5._Value,255-ThisForm.Olecontrol6._Value] ThisForm.Command4.BackColor=RGB[255-ThisForm.Olecontrol4._Value,255-ThisForm.Olecontrol5._Value,255-ThisForm.Olecontrol6._Value] Scroll_B_2 Procedure: Scroll *** ActiveX Control Event *** ThisForm.Text6.Value=255-This._Value ThisForm.Shape7.BackColor=RGB[0,0,255-This._Value] ThisForm.Shape8.BackColor=RGB[255-ThisForm.Olecontrol4._Value,255-ThisForm.Olecontrol5._Value,255-ThisForm.Olecontrol6._Value] ThisForm.Command3.BackColor=RGB[255-ThisForm.Olecontrol4._Value,255-ThisForm.Olecontrol5._Value,255-ThisForm.Olecontrol6._Value] ThisForm.Command4.BackColor=RGB[255-ThisForm.Olecontrol4._Value,255-ThisForm.Olecontrol5._Value,255-ThisForm.Olecontrol6._Value] Timer2 IF v2=0 ThisForm.Shape8.Left=ThisForm.Shape8.Left+1 IF ThisForm.Shape8.Left>ThisForm.Width-ThisForm.Shape8.Width v2=1 ENDIF ELSE ThisForm.Shape8.Left=ThisForm.Shape8.Left-1 IF ThisForm.Shape8.Left<ThisForm.Left v2=0 ENDIF ENDIF IF v22=0 ThisForm.Shape8.Top=ThisForm.Shape8.Top+1 IF ThisForm.Shape8.Top>ThisForm.Height-ThisForm.Shape8.Width v22=1 ENDIF ELSE ThisForm.Shape8.Top=ThisForm.Shape8.Top-1 IF ThisForm.Shape8.Top<0 v22=0 ENDIF ENDIF btn Run_2 ThisForm.Timer2.Interval=10 btn stop_2 ThisForm.Timer2.Interval=0 ------------------------------------------------------------------------ Scroll_R_3 Procedure: Scroll *** ActiveX Control Event *** ThisForm.Text7.Value=255-This._Value ThisForm.Shape9.BackColor=RGB[255-This._Value,0,0] ThisForm.Shape12.BackColor=RGB[255-ThisForm.Olecontrol7._Value,255-ThisForm.Olecontrol8._Value,255-ThisForm.Olecontrol9._Value] ThisForm.Command5.BackColor=RGB[255-ThisForm.Olecontrol7._Value,255-ThisForm.Olecontrol8._Value,255-ThisForm.Olecontrol9._Value] ThisForm.Command6.BackColor=RGB[255-ThisForm.Olecontrol7._Value,255-ThisForm.Olecontrol8._Value,255-ThisForm.Olecontrol9._Value] Scroll_G_3 Procedure: Scroll *** ActiveX Control Event *** ThisForm.Text8.Value=255-This._Value ThisForm.Shape10.BackColor=RGB[0,255-This._Value,0] ThisForm.Shape12.BackColor=RGB[255-ThisForm.Olecontrol7._Value,255-ThisForm.Olecontrol8._Value,255-ThisForm.Olecontrol9._Value] ThisForm.Command5.BackColor=RGB[255-ThisForm.Olecontrol7._Value,255-ThisForm.Olecontrol8._Value,255-ThisForm.Olecontrol9._Value] ThisForm.Command6.BackColor=RGB[255-ThisForm.Olecontrol7._Value,255-ThisForm.Olecontrol8._Value,255-ThisForm.Olecontrol9._Value] Scroll_B_3 *** ActiveX Control Event *** ThisForm.Text9.Value=255-This._Value ThisForm.Shape11.BackColor=RGB[0,0,255-This._Value] ThisForm.Shape12.BackColor=RGB[255-ThisForm.Olecontrol7._Value,255-ThisForm.Olecontrol8._Value,255-ThisForm.Olecontrol9._Value] ThisForm.Command5.BackColor=RGB[255-ThisForm.Olecontrol7._Value,255-ThisForm.Olecontrol8._Value,255-ThisForm.Olecontrol9._Value] ThisForm.Command6.BackColor=RGB[255-ThisForm.Olecontrol7._Value,255-ThisForm.Olecontrol8._Value,255-ThisForm.Olecontrol9._Value] Timer3 IF v3=0 ThisForm.Shape12.Left=ThisForm.Shape12.Left+1 IF ThisForm.Shape12.Left>ThisForm.Width-ThisForm.Shape12.Width v3=1 ENDIF ELSE ThisForm.Shape12.Left=ThisForm.Shape12.Left-1 IF ThisForm.Shape12.Left<ThisForm.Left v3=0 ENDIF ENDIF IF v33=0 ThisForm.Shape12.Top=ThisForm.Shape12.Top+1 IF ThisForm.Shape12.Top>ThisForm.Height-ThisForm.Shape12.Width v33=1 ENDIF ELSE ThisForm.Shape12.Top=ThisForm.Shape12.Top-1 IF ThisForm.Shape12.Top<0 v33=0 ENDIF ENDIF btn Run_3 ThisForm.Timer3.Interval=10 btn stop_3 ThisForm.Timer3.Interval=0

Curvature 99 PUBLIC p1,p2,p3,p4,p5,p6,p7,p8 p1=0 p2=0 p3=0 p4=0 p5=0 p6=0 p7=0 p8=0 Timer1 DO CASE CASE p1=0 ThisForm.Shape1.Left=ThisForm.Shape1.Left+1 IF ThisForm.Shape1.Left>1000 p1=1 ENDIF CASE p1=1 ThisForm.Shape1.Left=ThisForm.Shape1.Left-1 IF ThisForm.Shape1.Left<0 p1=0 ENDIF ENDCASE DO CASE CASE p2=0 ThisForm.Shape1.top=ThisForm.Shape1.top+1 IF ThisForm.Shape1.top>400 p2=1 ENDIF CASE p2=1 ThisForm.Shape1.top=ThisForm.Shape1.top-1 IF ThisForm.Shape1.top<0 p2=0 ENDIF ENDCASE Timer2 DO CASE CASE p3=0 ThisForm.Shape2.Left=ThisForm.Shape2.Left+1 IF ThisForm.Shape2.Left>1000 p3=1 ENDIF CASE p3=1 ThisForm.Shape2.Left=ThisForm.Shape2.Left-1 IF ThisForm.Shape2.Left<0 p3=0 ENDIF ENDCASE DO CASE CASE p4=0 ThisForm.Shape2.top=ThisForm.Shape2.top+1 IF ThisForm.Shape2.top>400 p4=1 ENDIF CASE p4=1 ThisForm.Shape2.top=ThisForm.Shape2.top-1 IF ThisForm.Shape2.top<0 p4=0 ENDIF ENDCASE Timer3 DO CASE CASE p5=0 ThisForm.Shape3.Left=ThisForm.Shape3.Left+1 IF ThisForm.Shape3.Left>1000 p5=1 ENDIF CASE p5=1 ThisForm.Shape3.Left=ThisForm.Shape3.Left-1 IF ThisForm.Shape3.Left<0 p5=0 ENDIF ENDCASE DO CASE CASE p6=0 ThisForm.Shape3.top=ThisForm.Shape3.top+1 IF ThisForm.Shape3.top>400 p6=1 ENDIF CASE p6=1 ThisForm.Shape3.top=ThisForm.Shape3.top-1 IF ThisForm.Shape3.top<0 p6=0 ENDIF ENDCASE Timer4 DO CASE CASE p7=0 ThisForm.Shape4.Left=ThisForm.Shape4.Left+1 IF ThisForm.Shape4.Left>1000 p7=1 ENDIF CASE p7=1 ThisForm.Shape4.Left=ThisForm.Shape4.Left-1 IF ThisForm.Shape4.Left<0 p7=0 ENDIF ENDCASE DO CASE CASE p8=0 ThisForm.Shape4.top=ThisForm.Shape4.top+1 IF ThisForm.Shape4.top>400 p8=1 ENDIF CASE p8=1 ThisForm.Shape4.top=ThisForm.Shape4.top-1 IF ThisForm.Shape4.top<0 p8=0 ENDIF ENDCASE BTN1 ThisForm.Timer1.Interval=10 BTN2 ThisForm.Timer2.Interval=10 BTN3 ThisForm.Timer3.Interval=10 BTN4 ThisForm.Timer4.Interval=10