X hits on this document

Powerpoint document

การวิเคราะห์และออกแบบระบบเชิงวัตถุ (OOAD) - page 61 / 94

337 views

0 shares

0 downloads

0 comments

61 / 94

คำสั่งในปุ่ม Button

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim Cust As Customer

       Cust = New Customer("Nattapong", "Songneam")

       Cust.setBankAcct(New BankAccount(3000.0))

       MsgBox(Cust.getFullName & "  มียอดเงิน¹ = " & _

       Cust.getBankAcct.getBalance)

       Cust.getBankAcct.Deposit(20000.75)

       Cust.getBankAcct.Withdraw(5331.35)

       MsgBox(Cust.getFullName & " มียอดเงิน = " & _

             Cust.getBankAcct.getBalance)

       Dim cust2 As New Customer("Joe", "Goodman")

       cust2.setBankAcct(New BankAccount(500.5))

       cust2.getBankAcct.Deposit(17700)

       MsgBox(cust2.getFullName & " มียอดเงิน = " & _

     cust2.getBankAcct.getBalance)

   End Sub

Document info
Document views337
Page views338
Page last viewedTue Jan 17 15:11:15 UTC 2017
Pages94
Paragraphs949
Words2451

Comments