비주얼 베이직을 손에서 놓은지 4년이 지났지만 다시 보니 새롭기도 해서
비주얼 스튜디오 2008 + 비스타 환경에서 틈나는대로 올려볼까 합니다.
대상은 당연히 처음시작하는 분들이겠지요^^;;
그 첫번째 시간으로 Hello world와 간단한 자기 생일 표시하는 프로그램을 올려봅니다.
학습내용
1. 컨트롤 익히기 : TextBox, Button, DateTimePicker, Group
2. 간단한 조건문
3. 간단한 함수 : Val, Left, MsgBox
4. 세부사항들은 하나씩 변화를 줘가면서 실행결과를 보면 각 컨트롤에 대해서 이해를
할 수 있을 겁니다.
자 그럼 시작해 볼까요?
OK 버튼을 누르면
이렇게 하여 HelloWorld라는 프로젝트가 생성되었습니다.
Form1.vb를 클릭하여 아래와 같이 해당 컨트롤들을 위치시키고 각 컨트롤의 Properties를 변경해 줍니다.(이부분은 첨부한 파일을 열어보시면 아실 수 있습니다.^^;;)
최종 폼 디자인은 아래와 같습니다.
자 이제 제대로 동작하기 위해 코드를 작성해 봅니다.
먼저 HelloWorld 그룹의 확인 버튼을 더블 클릭하여 아래와 같이 입력합니다.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "Hello, world!"
End Sub
그리고 지우기 버튼을 더블 클릭하여 아래와 같이 입력합니다.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'TextBox1의 어떠한 글자가 표시되어 있으면 지우라는 조건문
If TextBox1.Text <> "" Then
TextBox1.Text = ""
End If
'TextBox1에 지울내용이 없으면 표시하도록 한 것
If TextBox1.Text = "" Then
MsgBox("지울내용이 없습니다요..헤헤")
End If
End Sub
이렇게 하면 HelloWorld 그룹쪽은 코딩이 끝납니다.
다음으로 생일 보여주기 그룹의 내생일 보여주기를 더블클릭합니다. 그리고 아래와 같이 코딩합니다.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim strDate As String
Dim strYear As String
Dim IntYear As Integer
Dim IntCompYear As Integer
strDate = DateTimePicker1.Text
strYear = Microsoft.VisualBasic.Left(strDate, 4) 'Left(문자열, 길이) 왼쪽에서 길이만큼
잘라낸다. 'VB6.0시절엔 Left(strDate,4)써도 괜찮았는데 그사이 많이 바뀐 듯 하군요.
IntYear = Val(strYear)
IntCompYear = 2008 - IntYear
'프로그래밍을 할 수 있는 최소 나이는 8살이라고 보고 현재 2008 - 2000을 기준으로 제한을
둔 조건문
If IntCompYear <= 8 Then
MsgBox(IntCompYear & " 살이라니 당신은 컴퓨터 프로그래밍을 하기에는 너무 어린 나이
에요!. 원래 나이를 입력해주세요.")
Exit Sub '아래의 코드를 실행하지 말고 이 버튼2클릭을 빠져나가라는 부분
End If
MsgBox("당신의 생일은" & DateTimePicker1.Text)
MsgBox("그해의 날은" & DateTimePicker1.Value.DayOfYear.ToString())
End Sub
이렇게 한 후 F5키를 눌러 실행해 보면
Hello world 그룹의 확인 버튼 클릭후
생일보여주기 그룹의 내생일보여주기에서 현재 날짜 상태에서 내생일보여주기 클릭시
(정확한 자신을 생일은 DateTimePicker 컨트롤의 달력모양을 클릭하여 선택할 수 있음)
이상으로 몇 개의 컨트롤과 간단한 조건문, 함수의 사용법을 알아보았음.
이 간단한 프로그램도 여러가지 세부적인 조건들을 구미에 맞게 걸어보시길 바라구.
이 프로그램 정도를 이해할 수 있으면 기본적인 것은 갖춰졌다고 생각합니다.
그럼 오늘은 이정도로 하구 혹시라도 그럼 안녕~
[참고] 소스를 올립니다.
invalid-file'컴퓨터 관련 무료강좌 > 비주엘 베이직 2008' 카테고리의 다른 글
| VB2008 강좌-InputBox사용하기 (0) | 2008.03.21 |
|---|---|
| 강좌-변수 관련 1 (1) | 2008.03.20 |
| 강좌-MsgBox 다루기 (4) | 2008.03.19 |
| 강좌 - 리스트박스와 콤보박스다루기 (4) | 2008.03.08 |
| 처음배우는 비주얼 베이직2008 2번째 시간 (0) | 2008.03.05 |
