연결리스트라 함은...링크드리스트를 말씀 하시는건가요?(큐, 스택...등구현 방법 같은거?)
만약 맞다면 제가 올린 소스를 함 보셔요...
허접하지만..^^;; 님 질문 보고 혹시 이런거 원하시는게 아닐까 해서 지금 막 맹글었습니다...
비베에서는 포인터가 없어서...배열을 이용해서 구현을 했구요...
수정,삭제은 어느위치에서나 다 되는데, 추가는 맨끝에서만 이루어 지게 구현 했습니다.(임의 접근 스텍구조라고 할수있을까나? ^^;;)
안에... 주석(허접한..)을 달아 두었으니 참고 하시와요.
-----------------예제 코드보기-------------------------
Option Explicit
"구현 방법은
"삽입은 맨끝에서 만 이루어진다.
"삭제,수정은 어디에서도 이루어질수 있다.(현재 저장되어있는 범위내에서)
"데이터가 꽉 차있으면 더이상 추가를 못한다.
Const MAX_SIZE = 10
Private Type LINKSTC
GetVal As Boolean "현재 값을 가지고 있는가에대한 상태를 가진다. False 라면 없는 상태
nVal1 As Integer
nVal2 As Integer
End Type
Dim LnkList(MAX_SIZE) As LINKSTC
Dim LnkInx(MAX_SIZE) As Integer "구조체의 배열에 인덱스 값을 가진다.
Dim nRear As Integer
Private Sub Command1_Click(Index As Integer)
Dim NewVal As LINKSTC
Select Case Index
Case 0 "추가
NewVal.nVal1 = CInt(Text1(0))
NewVal.nVal2 = CInt(Text1(1))
InsertData NewVal
list1Update
Case 1 "삭제
DelData List1.ListIndex
list1Update
Case 2 "수정
NewVal.nVal1 = CInt(Text1(0))
NewVal.nVal2 = CInt(Text1(1))
EditData List1.ListIndex, NewVal
list1Update
End Select
End Sub
Private Sub Form_Load()
nRear = -1
Dim nCnt As Integer
"알아보기 쉽게 -1값으로 셋팅한다.
For nCnt = 0 To MAX_SIZE
LnkInx(nCnt) = -1
Next
End Sub
"추가, 오버플로우나 기타 에러시 False를 반환
"추가할 구조체를 인수로 받는다.
Private Function InsertData(stcData As LINKSTC) As Boolean
"비어 있는 구조체를 찾아 그 구조체의 인덱스 값을 LnkInx배열에 넣는다.
Dim nCnt As Integer
nRear = nRear + 1
If nRear >= MAX_SIZE - 1 Then
Debug.Print "버퍼가 만땅~~!!"
nRear = nRear - 1
Exit Function
End If
For nCnt = 0 To MAX_SIZE - 1
If Not LnkList(nCnt).GetVal Then Exit For "비어있는 구조체를 찾았다~!
Next
If nCnt = MAX_SIZE Then
Debug.Print "더이상 저장할 구조체 없음~~!!"
nRear = nRear - 1
Exit Function
End If
"찾은 구조체에 값을 셋팅한다.
With LnkList(nCnt)
.GetVal = True
.nVal1 = stcData.nVal1
.nVal2 = stcData.nVal2
End With
LnkInx(nRear) = nCnt "비어있는 구조체의 인덱스 값을 넣는다.
End Function
"특정 위치의 데이터를 삭제한다.
Private Function DelData(nIndex As Integer) As Boolean
DelData = False
Dim nCnt As Integer
If nIndex > nRear Or nIndex <= -1 Then Exit Function
LnkList(LnkInx(nIndex)).GetVal = False
"지정한 곳 이후의 값을을 앞으로 땡긴다.
For nCnt = nIndex To nRear
LnkInx(nCnt) = LnkInx(nCnt + 1)
Next
nRear = nRear - 1
End Function
Private Function EditData(nIndex As Integer, NewData As LINKSTC) As Boolean
If nIndex > nRear Or nIndex <= -1 Then Exit Function
With LnkList(LnkInx(nIndex))
.nVal1 = NewData.nVal1
.nVal2 = NewData.nVal2
End With
End Function
Private Sub list1Update()
Dim nCnt As Integer
List1.Clear
For nCnt = 0 To MAX_SIZE - 1
List1.AddItem LnkInx(nCnt)
Next
Label2.Caption = "RearPtr : " & CStr(nRear)
End Sub
Private Sub List1_Click()
If List1.ListIndex > nRear Or List1.ListIndex <= -1 Then Exit Sub
Text1(0) = LnkList(LnkInx(List1.ListIndex)).nVal1
Text1(1) = LnkList(LnkInx(List1.ListIndex)).nVal2
Label3.Caption = "CurrentPtr : " & List1.ListIndex
End Sub
|
|
![[급한질문]진짜 미치겠네 이거......](../u_img/ui_board_next_1.gif){kind=small}
