수다닷컴

순차파일로 출력하는 방법은 알았는데
추가저장 하는 방법을 모르겠어요ㅜ
폼을 2개로 했어요.
하나는 입력+저장하는 거고 하나는 출력하는 창입니다.
제가 완성한 건 여기까지에요. 그런데 제가 원하는 건 입력한 정보들이 메모장에 저장돼서 출력되는 거에요.
q98 마리오 99 65 54 218 C 72.7
d54 미류류 8778 56 221 C73.7이렇게 계속 나올 수 있도록 하고 싶어요. 제가 완성한 소스까지 다 올릴테니 뭘 추가하면 결과물이 나올지 알려주세요!

1. Form Main (입력+저장 폼)

Private Sub cmdInput_Click()
Dim strA As String
strA = QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm
If InStr(strA, Left(txtNum.Text, 1)) = 0 Then MsgBox 틀립니다: Exit Sub

Dim strNum As String
strNum = 1234567890
Dim i As Integer
For i = 2 To Len(txtNum.Text)
If InStr(strNum, Mid(txtNum.Text, i, 1)) = 0 Then MsgBox 틀립니다: Exit Sub
Next i
MsgBox 맞습니다

End Sub

---------------------------------------------------------------------------------

Private Sub cmdCalc_Click()
lblSum.Caption = Val(txtKor.Text) + Val(txtEng.Text) + Val(txtMath.Text)
lblAve.Caption = Format(lblSum.Caption / 3, ###.0)

Select Case lblAve.Caption
Case Is = 95
lblHakjum.Caption = A & +
Case 90 To 94
lblHakjum.Caption = A
Case 85 To 89
lblHakjum.Caption = B & +
Case 80 To 84
lblHakjum.Caption = B
Case 75 To 79
lblHakjum.Caption = C & +
Case 70 To 74
lblHakjum.Caption = C
Case 65 To 69
lblHakjum.Caption = D & +
Case 60 To 65
lblHakjum.Caption = D
Case Else
lblHakjum.Caption = F
End Select
End Sub
---------------------------------------------------------------------------------
Private Sub cmdSave_Click()
Dim ifilenum As Integer

ifilenum = FreeFile
Open c:\sung.txt For Output As ifilenum

Write #ifilenum, txtNum.Text, txtName.Text, txtKor.Text, txtEng.Text, txtMath.Text, lblSum.Caption, lblAve.Caption, lblHakjum.Caption

Close ifilenum

txtNum.Text = : txtName.Text = : txtKor.Text = : txtEng.Text = : txtMath.Text = : lblSum.Caption = : lblAve.Caption = : lblHakjum.Caption = :

End Sub입력+저장 창에 어떤 소스를 추가해야 추가저장이 될까요?
2. Form2 (출력 폼)

Private Sub cmdOK_Click()
Unload Me

End Sub
Private Sub Form_Load()
Dim ifilenum As Integer
Dim strNum, strName, strKor, strEng, strMath, strSum, strHakjum, strAve
ifilenum = FreeFile
Open c:\sung.txt For Input As ifilenum

Input #ifilenum, strNum, strName, strKor, strEng, strMath, strSum, strHakjum, strAve

lblRank.Caption = strNum + 　　　　 + strName + 　 　　　 + strKor + 　　 　　 + strEng + 　　　　 + strMath + 　 　　　 + strSum + 　　 　 + strAve + 　 　　 + strHakjum

Close ifilenum

End Sub
답변 좀 올려주세요ㅜㅜㅜㅜㅜㅜㅜㅜㅜㅜㅜㅜㅜㅜㅜㅜ 다음주 월요일(14일)까지 제출해야합니다ㅜㅜ

신청하기