សុធាសម្រាប់ចែករំលែក

កម្មវិធីសម្រាប់គណនាផលបូក, ដក, គុណ, ចែក នៃពីចំនួន 

 នេះគឺកម្មវិធីមួយដែលបានសរសេរឡើងនៅក្នុងកម្មវិធី Microsoft Visual Basic.Net  សម្រាប់ការគណនាប្រមាណ វិធីបូក ដក គុណ​ និងចែកពីរចំនួន។ ហើយខាងក្រោមគឺជា ការសរសេរកូដ និង​ការពន្យល់ពីកូដសម្រាប់កម្មវិធីនេះ។  

Public Class Form1  

    ​​       Private Sub btnSum_Click(ByVal sender As  System.Object, ByVal e As System.EventArgs) Handles btnSum.Click
               Dim A As Double, B As Double, S As Double
               A = txtA.Text
               B = txtB.Text
               S = A + B
               txtResult.Text = S
          End Sub

          Private Sub btnSub_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSub.Click
              Dim A As Double, B As Double, S As Double
              A = txtA.Text
              B = txtB.Text
              S = A - B
              txtResult.Text = S
          End Sub

          Private Sub btnMul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMul.Click
              Dim A As Double, B As Double, M As Double
              A = txtA.Text
              B = txtB.Text
              M = A * B
              txtResult.Text = M
          End Sub

          Private Sub btnDiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDiv.Click
              Dim A As Double, B As Double, M As Double
              A = txtA.Text
              B = txtB.Text
              M = A / B
              txtResult.Text = M
          End Sub

          Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
              txtA.Clear()   ' the same txtA.Text = ""
              txtB.Clear()
              txtResult.Clear()
              txtA.Focus()
          End Sub

          Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
              End
          End Sub
End Class

ការពន្យល់កូដ

- នៅក្នុង​Button Clear ត្រង់កូដ txtA.Focus() គេប្រើសម្រាប់កំណត់ Cursor អោយលោតនៅក្នុង TextBox Value of A។
- នៅក្នុង Button Exit ត្រង់កូដ End គេប្រើសម្រាប់បិ​​​​ទ Application ទាំងអស់នៅក្នុង Project។