X hits on this document

Powerpoint document

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

317 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 views317
Page views318
Page last viewedSat Dec 10 15:14:16 UTC 2016
Pages94
Paragraphs949
Words2451

Comments