[VB] 비주얼베이직 중간평가 실습 과제 3

오늘은 학교 수업시간에 배운것을 토대로 중간평가 실습과제를 풀어보았습니다.

 

문제 3. 회원등록하기

 

3-1 폼

3-2 코드

Public Class Form1

	Dim picX As Integer = 12
	Dim speed As Integer

	'' 폼로드
	Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
		btnStart.Text = "Start"
		hsbSpeed.Minimum = 1
		hsbSpeed.Maximum = 26
		hsbSpeed.LargeChange = 4
		hsbSpeed.Value = 1
	End Sub

	'' 버튼 동작
	Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
		If (btnStart.Text = "Start") Then
			btnStart.Text = "Stop"
			tmMove.Start()
		ElseIf btnStart.Text = "Stop" Then
			btnStart.Text = "Start"
			tmMove.Stop()
		End If
	End Sub

	'' 타이머
	Private Sub tmMove_Tick(sender As Object, e As EventArgs) Handles tmMove.Tick

		'' 사진이 폼을 벗어났을 경우
		If picX > 449 Then
			picX = -125
		End If

		speed = hsbSpeed.Value
		picX += speed

		Me.pbPicture.Location = New System.Drawing.Point(picX, 12)
	End Sub
End Class