수다닷컴

Private Sub Command1_Click()
If MsgBox(위 툴을 구매하시겠습니까?, vbYesNo, Buy Tool?) = vbYes Then
EHTGameMain.NowMoney = M - 13500
EHTGameMain.NowMoney = 현재 잔액 : & M - 13500 & $
MsgBox PBFT를 구매하였습니다!
EHTGameMain.NowMoney = M - 13500
EHTGameMain.Label16.Caption = PBFT보유..
Else
M = M - NIf M 0 Then
EHTGameMain.NowMoney.Caption = 현재 잔액 : & EHTGameMain.NowMoney + N & $
EHTGameMain.NowMoney = EHTGameMain.NowMoney + N
MsgBox 돈이 모자랍니다!, vbCritical, ErrorEnd If
End If
End Sub 해킹게임제작중입니다.원래대로라면 위에 버튼을 누르면 EHTGameMain.NowMoney 에있는 라벨에서 있는돈 - 툴가격(13500)원이 빠져나가고 Tool 변수에 저장되어 EHTGameMain.Label16.Caption 에 PBFT라고 떠야됩니다.하지만 돈부분에서 아무리 수정해봐도 구매를 하면 잔액이 13500이 되거나 0이되거나 -13500이 됩니다.어떻게 고쳐야되죠? Dim M As Double
Dim N As Integer
Dim Tool As String 이건 EHTGameMain 의 변수인데 M N은 일단 되있고 저기서 툴을 사면 나중에 종료할private Sub Form_Unload(Cancel As Integer)
SaveSetting MO, NE, Y, M
End Sub와 같이 저장되었으면 좋겠습니다.

신청하기