도서관관리시스템

목차

Introduction

Function

Detail Function

Source

본문내용

Color = &HFFFFFF
ASeat3.BackColor = &HFFFFFF
ASeat4.BackColor = &HFFFFFF
ASeat5.BackColor = &HFFFFFF
ASeat6.BackColor = &HFFFFFF
ASeat7.BackColor = &HFFFFFF
ASeat8.BackColor = &HFFFFFF
MSComm1.Output = "i"
MSComm1.Output = "j"
MSComm1.Output = "k"
MSComm1.Output = "l"
MSComm1.Output = "m"
MSComm1.Output = "n"
MSComm1.Output = "o"
MSComm1.Output = "p"
For i = 1 To 8
User(i) = ""
Next i
'자리취소 데이터 전송 명령 써야함
End If
End Sub
Private Sub SLogCom_Click()
Dim i As Integer
Dim msg As Integer
If MSComm1.PortOpen = True Then
If SIdText.Text <> "" Then
SIdText.Enabled = False
SLogCom.Enabled = False
For i = 1 To 8
If SIdText.Text = User(i) Then
msg = MsgBox("Are you sure to cancel the seat?", vbYesNo + vbQuestion, "Stop")
If msg = 6 Then
User(i) = ""
SIdText.Text = ""
Select Case i
Case 1
Seat1.BackColor = &HFFFFFF
ASeat1.BackColor = &HFFFFFF
Seat1.Enabled = True
MSComm1.Output = "i"
Case 2
Seat2.BackColor = &HFFFFFF
ASeat2.BackColor = &HFFFFFF
Seat2.Enabled = True
MSComm1.Output = "j"
Case 3
Seat3.BackColor = &HFFFFFF
ASeat3.BackColor = &HFFFFFF
Seat3.Enabled = True
MSComm1.Output = "k"
Case 4
Seat4.BackColor = &HFFFFFF
ASeat4.BackColor = &HFFFFFF
Seat4.Enabled = True
MSComm1.Output = "l"
Case 5
Seat5.BackColor = &HFFFFFF
ASeat5.BackColor = &HFFFFFF
Seat5.Enabled = True
MSComm1.Output = "m"
Case 6
Seat6.BackColor = &HFFFFFF
ASeat6.BackColor = &HFFFFFF
Seat6.Enabled = True
MSComm1.Output = "n"
Case 7
Seat7.BackColor = &HFFFFFF
ASeat7.BackColor = &HFFFFFF
Seat7.Enabled = True
MSComm1.Output = "o"
Case 8
Seat8.BackColor = &HFFFFFF
ASeat8.BackColor = &HFFFFFF
Seat8.Enabled = True
MSComm1.Output = "p"
End Select
SIdText.Enabled = True
SLogCom.Enabled = True
Exit For
Else
SIdText.Text = ""
SIdText.Enabled = True
SLogCom.Enabled = True
Exit For
End If
End If
Next i
End If
Else
MsgBox ("Not connected")
End If
End Sub
Private Sub SSTab1_DblClick()
End Sub
Private Sub Text3_Change()
If Text4.Text <> "" Then
Command3.Enabled = True
End If
End Sub
Private Sub Text4_Change()
If Text3.Text <> "" Then
Command3.Enabled = True
End If
End Sub
Private Sub Text5_Change()
End Sub
Private Sub VisitReset_Click()
temp_V = 0
MSComm1.Output = "v"
AVisitText.Text = "오늘 방문객 수 : " & temp_V & "명"
SVisitText.Text = "오늘 방문객 수 : " & temp_V & "명"
End Sub
5.OUTCOME
* Part II) Visual Basic : The program for serial communication on Computer
6.프로젝트를 마치고...
이번 텀 프로젝트를 시작하면서 여러 가지 많은 경험을 하였다고 생각한다.
2학년 때 잠깐 다뤄보았던 8051을 다시 접해서 조금은 가볍고 편할 줄만 알았던 8051이 프로젝트를 시작하면서 가볍게 볼 것이 아니라는 생각을 마음 깊이 느껴졌다.
한 번도 다뤄보지 않은 RTX Tiny를 이번 텀 프로젝트 때 다뤄보고 싶었다. 재미있는 방식으로 구동하여서 신선하였지만 막상 점점 Task들과 소스들이 늘어나면서 소스가 엉키는지 아니면 내가 커널을 잘 못 이해하는지 자꾸 에러가 나고 시스템이 다운되면서 최종적으로 구현해야했던 그래픽 LCD를 써먹질 못해서 정말 아쉬웠다.(소스까지 다 만들었었는데.....)
그리고 UART통신을 사용하여 원격 제어를 할 때 VISUAL BASIC를 사용하여 프로토콜을 만들려고 하였으나 VISUAL BASIC의 한계로(Bit Shifting이나 masking를 제대로 수행 할 수 없었음) 단순한 방식으로 통신을 해야했던게 못내 아쉬웠다. 그래도 여러 날 밤을 새면서 8051 Board를 붙잡고 머리를 싸매며 프로젝트를 수행하면서 8051구동, 센서제어, sampling, 모터 구동, UART등 여러 가지 많은 지식들을 얻을 수 있었고 좀 더 시스템에 대해서 가까이 갈 수 있는 기회를 얻은 것 같아서 마음이 뿌듯하였다.

키워드

8051,   프로젝트,   프로그램,   소스,   uart,   도서관