Vb6.0 에서 동적 사인파를 표시하는 방법은 무엇입니까?

사인 함수의 이미지를 그려 진폭, 위상, 주기를 조절할 수 있습니다. 제 QQ 공간을 보세요.

/32063270/블로그/1242309760

보충 자료:

네온 효과를 낼 수 있는 코드

폼에 컨트롤 추가 Command2 및 Timer 1.

양식에 컨트롤 Shape 1 을 추가하고 속성 창에서 shape 1:name = sha, Index=0 을 설정합니다.

다음 코드를 양식 코드에 추가합니다.

개인 하위 명령 2_Click ()

암담한 나만큼 길다

Sha(0) 입니다. 모양 = 3

Sha(0) 입니다. FillStyle = 0: Sha(0) 입니다. FillColor = 255

I = Sha 이기 때문입니다. 수-1 ~ 1 스테핑-1

Sha(I 제거 (I)

그리고 나서

I = 1 끝 10 의 경우

Sha 로드 (I): sha (I). 표시 = 참

그리고 나서

타이머 1. 간격 = 20

타이머 1. 작동 가능 = 참

끝단 접합

개인 하위 타이머 1_Timer ()

정적 n 은 단일입니다

Dim X 는 싱글, Y 는 싱글, W 는 싱글, S 는 싱글

W = 0. 1

N = n+통합 가용 주문 수량/30

N & gtctP * 2 다음 n = 0 인 경우

I = 0 ~ Sha 의 경우. 수-1

S = n+I * ctP * 2/Sha 입니다. 숫자를 세다

S & gtctP * 2 인 경우 S = S-ctP * 2

GetXY(S 호출 (s, x, y)

모래 (나). X-W, Y+W, W * 2, W * 2 를 이동합니다

그리고 나서

끝단 접합