2013-04-10
org.kosen.entty.User@2c97f944
염진섭(wlstjq95)
- 0
Private Sub cmd_1_Click()
With lst_1
.Clear
intprice = 0
Select Case cmb_1.Text
Case "불고기버거"
.AddItem "불고기버거" & cmb_4.Text & "개" & vbTab & Str(2000 * Val(cmb_4.Text)) & "원"
intprice = intprice + (2000 * Val(cmb_4.Text))
'vbTab는 tab 역할을 하는 상수이다.
Case "치킨버거"
.AddItem "치킨버거" & cmb_4.Text & "개" & vbTab & Str(2500 * Val(cmb_4.Text)) & "원"
intprice = intprice + (2300 * Val(cmb_4.Text))
Case "새우버거"
.AddItem "새우버거" & cmb_4.Text & "개" & vbTab & Str(2500 * Val(cmb_4.Text)) & "원"
intprice = intprice + (2300 * Val(cmb_4.Text))
End Select
Select Case cmb_2.Text
Case "콜라"
.AddItem "콜라" & cmb_5.Text & "개" & vbTab & Str(1000 * Val(cmb_5.Text)) & "원"
intprice = intprice + (1000 * Val(cmb_5.Text))
Case "사이다"
.AddItem "사이다" & cmb_5.Text & "개" & vbTab & Str(1000 * Val(cmb_5.Text)) & "원"
intprice = intprice + (1000 * Val(cmb_5.Text))
End Select
If cmb_3.ListIndex > 0 Then
.AddItem "치킨너겟" & cmb_3.Text & vbTab & Str(800 * cmb_3.ListIndex) & "원"
intprice = intprice + (800 * cmb_3.ListIndex)
End If
If chk_1.Value = 1 Then
.AddItem "감자튀김" & Str(800) & "원"
intprice = intprice + 800
End If
txt_1.Text = intprice & "(원)"
End With
End Sub
과제에서 햄버거 계산기를 만들라고 내주셨는데
음료수 치킨너겟 감자튀김은 계산되는데 햄버거가 계산이 되질 않습니다.
왜이럴까요?
- 코드
- 계산기
지식의 출발은 질문, 모든 지식의 완성은 답변!
각 분야 한인연구자와 현업 전문가분들의 답변을 기다립니다.
각 분야 한인연구자와 현업 전문가분들의 답변을 기다립니다.
답변 0