Develop
2003.04.23 00:06

[vb] 비쥬얼 베이직으로..

조회 수 53006 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
DefSng A-Z
Dim a(7), b(7) As String, c(7), d(7) As String, e(7), f(7), g(7), h(7), k(7), af(7), bf(7), cf(7), aft(7), bft(7), cft(7), tmp As Variant, ct, a1(7), b1(7) As String, c1(7), z As String
----------------------------------------------------------------
Private Sub Command1_Click()
    ct = ct + 1
    a(ct) = Text1.Text
    b(ct) = Text2.Text
    c(ct) = Text3.Text
    a1(ct) = Text1.Text
    b1(ct) = Text2.Text
    c1(ct) = Text3.Text

    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""

    Text1.SetFocus
End Sub
----------------------------------------------------------------
Private Sub Command2_Click()
    For i = i To ct - 1
        For j = i + 1 To ct
            If b(i) > b(j) Then

                tmp = a(i): a(i) = a(j): a(j) = tmp
                tmp = b(i): b(i) = b(j): b(j) = tmp
                tmp = c(i): c(i) = c(j): c(j) = tmp
            End If
        Next j
    Next i

    For i = i To ct
        Select Case a(i)
            Case "501": z = "A"
            Case "502": z = "C"
            Case "503": z = "A"
            Case "504": z = "B"
            Case "505": z = "B"
            Case "506": z = "B"
            Case "507": z = "C"
            Case "508": z = "A"
            Case "509": z = "C"
            Case "510": z = "A"
        End Select

        e(i) = c(i)

        Select Case UCase(b(i))
            Case "PA": d(i) = "모니터": x = 99: y = 8000
            Case "PB": d(i) = "키보드": x = 35: y = 7000
            Case "PC": d(i) = "마우스": x = 95: y = 6000
            Case "PD": d(i) = "CPU": x = 85: y = 14000
            Case "PE": d(i) = "스캐너": x = 28: y = 61000
            Case "PF": d(i) = "프린터": x = 16: y = 3000
            Case "PG": d(i) = "메모리": x = 150: y = 35000
            Case "PH": d(i) = "모뎀": x = 168: y = 16000
        End Select

        aft(i) = af(i) * y
        bft(i) = bf(i) * y
        cft(i) = cf(i) * y

        k(i) = Int((e(i) / x) * 100 + 0.5)

    Next i

    Form1.Hide
    Form2.Show
    Form2.Print "비번호 : 004666"
    Form2.Print ""
    Form2.Print "판매제품, 판매수량, A등급판매금액, B등급판매금액, C등급판매금액, 판매율"

    For i = 1 To ct
        Form2.Print d(i), e(i), aft(i), bft(i), cft(i), k(i)
    Next i

    Form2.Print ""
    Form2.Print "입력자료"

    For i = 1 To ct
        Form2.Print a1(i), b1(i), c1(i)
    Next i

End Sub

?

List of Articles
번호 분류 제목 글쓴이 날짜 조회 수
» Develop [vb] 비쥬얼 베이직으로.. hooni 2003.04.23 53006
40 Develop [vc++] 게임 소스 등.. ㅋㅋ file hooni 2013.04.23 18347
39 Develop [vim] vim 명령으로  문자 제거하기 (remove 65279 bomb) hooni 2021.02.03 1173
38 Develop [web] URL 인코딩 방법.. 테이블.. ㅋㅋ hooni 2013.04.23 7143
37 Develop [web] 더 빠른 웹을 위한 프로토콜, 'HTTP/2' file hooni 2014.10.20 1643
36 Develop [web] 웹 연동 프로그램 모음.. file hooni 2013.04.23 6961
35 Develop [winmobile] 윈도우 모바일 간단한 테스트 코드 ㅋㅋ file hooni 2013.04.23 17089
34 Develop [Xcode] 디버깅 옵션 file hooni 2013.04.23 57201
33 Develop [자료구조] 트리(tree) 용어정리 file hooni 2003.04.23 11071
32 Develop [펌] 게임 엔진 만든거 공개합니다. hooni 2015.02.21 2361
31 Develop 객체지향 프로그래밍에 대한 개념.. (객체) file hooni 2013.04.23 7314
30 Develop 논문 실험용 고려대 툴바 ㅎㅎ secret hooni 2013.04.23 8686
29 Develop 논문에 들어갈 툴바 테스트 해볼 것.. secret hooni 2013.04.23 8013
28 Develop 다양한 방법으로 아주 큰 수(Big Number) 계산.. ㅋㅋ hooni 2013.04.23 8380
27 Develop 다운 받아서 테스트 해볼것.. hooni 2013.04.23 9144
26 Develop 도메인 관련 솔루션 분석할 거.. ㅋㄷ file hooni 2013.04.23 6984
Board Pagination Prev 1 ... 49 50 51 52 53 Next
/ 53