Demo entry 6789620

1

   

Submitted by anonymous on May 01, 2019 at 03:14
Language: VB.net. Code size: 3.1 kB.

Public Class 자판기
    Dim coin, selection As Integer
    Dim orange, grape, apple, mango As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '폼1이 로드되었을때 각종 초기화 작업 수행

        Button2.Enabled = False '투입전 구매버튼 비활성화
        Button3.Enabled = False '투입전 초기화 버튼 비활성화
        Label2.Visible = False '보유하고 있는 음료수 갯수를 표시하는 레이블 숨기기
        Label3.Text = "잔액 : 0원"

        '보유한 갯수 변수 0으로 모두 초기화
        orange = 0
        grape = 0
        apple = 0
        mango = 0
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '투입버튼 클릭 이벤트가 발생했을때

        If TextBox1.Text = "" Then '투입액을 입력하지 않았을때
            MsgBox("투입할 금액을 넣어주세요")
        Else
            coin = TextBox1.Text
            TextBox1.Enabled = False '추가 투입을 막기 위한 투입액 입력 텍스트 박스 비활성화
            Button1.Enabled = False '추가 투입을 막기 위한 투입 버튼 비활성화
            Button2.Enabled = True '구매버튼 활성화
            Button3.Enabled = True '초기화 버튼 활성화
        End If

    End Sub
    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        selection = 4 '망고 선택시 변수값 4로 변경
    End Sub
    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        selection = 3 '사과 선택시 변수값 3으로 변경
    End Sub
    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        selection = 2 '포도 선택시 변수값 2로 변경
    End Sub
    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        selection = 1 '오렌지 선택시 변수값 1으로 변경
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        '구매 버튼 클릭 이벤트가 발생했을때

        Select Case selection
            Case 1 '오렌지가 선택되었을때
                If coin >= 1000 Then '보유액이 1000원보다 많거나 같으면
                    coin -= 1000 '1000원 차감
                    orange += 1 '오렌지 갯수 하나 증가
                Else '1000원도 없으면
                    MsgBox("돈이 부족합니다")
                End If
            Case 2 '포도가 선택되었을때
                If coin >= 700 Then
                    coin -= 700
                    grape += 1
                Else
                    MsgBox("돈이 부족합니다")
                End If
            Case 3 '사과가 선택되었을때
                If coin >= 500 Then
                    coin -= 500
                    apple += 1
                Else
                    MsgBox("돈이 부족합니다")
                End If
            Case 4 '망고가 선택되었을때
                If coin >= 100 Then
                    coin -= 100
                    mango += 1
                Else
                    MsgBox("돈이 부족합니다")
                End If
        End Select

        Label3.Text = "잔액 : " & coin & "원"
        Label2.Text =
            "오렌지" & orange & vbCr & vbCr &
            "포도" & grape & vbCr & vbCr &
            "사과" & apple & vbCr & vbCr &
            "망고" & mango
        Label2.Visible = True
    End Sub
End Class

This snippet took 0.01 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).