Showing posts with label មេរៀនឆ្នាំទី៣. Show all posts

Change Font

►














ការសរសេរកូដ
Public Class Form1
    Dim FontName As String, FontStyle As Single, FontSize As Integer
    Dim Style As New System.Drawing.FontStyle
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)​ _ Handles MyBase.Load
        lstFontName.Items.Add("Arial")
        lstFontName.Items.Add("Arial Black")
        lstFontName.Items.Add("Arial Narrow")
        lstFontName.Items.Add("Limon F1")
        lstFontName.Items.Add("Limon F2")
        lstFontName.Items.Add("Limon F3")
        lstFontName.Items.Add("Limon R1")
        lstFontName.Items.Add("Limon R2")
        lstFontName.Items.Add("Limon R3")
        lstFontName.Items.Add("Limon R4")
        lstFontName.Items.Add("Limon S1")
        lstFontName.Items.Add("Limon S1")
        lstFontName.Items.Add("Limon S3")
        lstFontName.Items.Add("Limon S4")
        lstFontName.Items.Add("Limon S5")
        lstFontName.Items.Add("Script MT Bold")
        lstFontName.Items.Add("Khmer OS Bokor")
        lstFontName.Items.Add("Microsoft Sans Serif")
        lstFontName.Items.Add("Time New Roman")

        lstFontStyle.Items.Add("Normal")
        lstFontStyle.Items.Add("Bold")
        lstFontStyle.Items.Add("Italic")

        cmbSize.Items.Add("8")
        cmbSize.Items.Add("9")
        cmbSize.Items.Add("10")
        cmbSize.Items.Add("11")
        cmbSize.Items.Add("12")
        cmbSize.Items.Add("14")
        cmbSize.Items.Add("16")
        cmbSize.Items.Add("18")
        cmbSize.Items.Add("20")
        cmbSize.Items.Add("22")
        cmbSize.Items.Add("24")
        cmbSize.Items.Add("26")
        cmbSize.Items.Add("28")
        cmbSize.Items.Add("36")
        cmbSize.Items.Add("48")
        cmbSize.Items.Add("72")

        lstFontStyle.SelectedIndex = 0
        lstFontName.SelectedIndex = 0
        FontName = lstFontName.SelectedItem
        FontSize = cmbSize.Text
        Style = lstFontStyle.SelectedIndex
        txtLetter.Font = New Drawing.Font(FontName, FontSize, Style)
    End Sub
    Private Sub lstFontName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles lstFontName.SelectedIndexChanged
        FontName = lstFontName.SelectedItem
        FontSize = cmbSize.Text
        On Error Resume Next
        txtLetter.Font = New Drawing.Font(FontName, FontSize, Style)
    End Sub
    Private Sub cmbSize_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles cmbSize.SelectedIndexChanged
        FontSize = cmbSize.Text
    End Sub
    Private Sub lstFontStyle_SelectedIndexChanged(ByVal sender As Object, ByVal e As _ System.EventArgs) Handles lstFontStyle.SelectedIndexChanged
        Style = lstFontStyle.SelectedIndex
        FontSize = cmbSize.Text
        On Error Resume Next
        txtLetter.Font = New Drawing.Font(FontName, FontSize, Style)
    End Sub
End Class


ការព្យល់កូដ
+ នៅផ្នែកខាងលើបំផុតយើងបានប្រកាសអញ្ញាត្ត :
       - FontName សម្រាប់រក្សាឈ្មោះនៃ Font អក្សរ។
       - FontSize សម្រាប់រក្សាទុកនូវទំហំរបស់អក្សរ។
​​​       - Style សម្រាប់រក្សាទុកនូវ Style នៃអក្សរដូចជា Bold, Italic, Normal។
+ នៅក្នុង event Form_Load:
 - កូដ  lstFontName.Items.Add("...")  សម្រាប់បញ្ចូលតម្លៃនៃ Font អក្សរទៅក្នុង lstFontName ដែលជា ListBox។
​ -​ កូដ  lstFontStyle.Items.Add("...")​​​ សម្រាប់បញ្ចូលតម្លៃនៃ Style អក្សរទៅក្នុង lstFontStyle ដែលជា ListBox។
 - កូដ   cmbSize.Items.Add("...") សម្រាប់បញ្ចូលតម្លៃនៃ ទំហំអក្សរទៅក្នុង lstFontStyle ដែលជា ListBox។
 - កូដ  lstFontStyle.SelectedIndex = 0​ សម្រាប់ select ធាតុដំបូងនៃ lstFontStyle ដែលមាន index ស្មើនឹង ០។
  - កូដ  lstFontName.SelectedIndex = 0​ សម្រាប់ select ធាតុដំបូងនៃ lstFontName ដែលមាន index ស្មើនឹង ០។
 -  កូដ FontName = lstFontName.SelectedItem សម្រាប់ផ្ទេរតម្លៃនៅក្នុង lstFontName ដែលមាន index 0 ទៅអោយអញ្ញាត្ត FontName។
 - កូដ  FontSize = cmbSize.Text ផ្ទេរតម្លៃនៅក្នុង cmdSize ដែលបានជ្រើសរើសរួច ទៅអោយអញ្ញាត្ត FontSize ។
 - កូដ  Style = lstFontStyle.SelectedIndex ផ្ទេរតម្លៃដែលជា index របស់ lstFontStyle ទៅអោយ អញ្ញាត្ត Style។
+ កូដ  txtLetter.Font = New Drawing.Font(FontName, FontSize, Style)​​​ សម្រាប់កំណត់ Font ទៅអោយ TextBox txtLetter តាមអញ្ញាត្ត FontName, FontSize និង Style។
+ ចំពោះកូដផ្សេងៗទៀតមានលក្ខណៈដូចនិងកូដខាងលើនេះដែរ។
Sunday, December 9, 2012
Posted by Unknown
Tag : ,

Average

►

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

* នៅក្នុង Button OK ត្រង់កូដ txtTotal.Text = Format(T, "#, ##0.00") គេប្រើសម្រាប់កំណត់ចំនួនខ្ទង់ នៃចំនួនលេខ។
​    + សញ្ញា "," សម្រាប់កាត់ខ្ទង់។
    + សញ្ញា "." សម្រាប់កំនត់ក្បៀស។
    + សញ្ញា "#" សម្រាប់កំនត់តំលៃបើមានតំលៃ​​ នោះបង្ហាញ បើគ្មានតំលៃនោះមិនបង្ហាញអ្វីឡើយ។
    + លេខ "0" សម្រាប់កំណត់តម្លៃ បើមានតម្លៃនោះបង្ហាញ បើគ្មាននោះមិនបង្ហាញលេខ ០។
    + លេខ "0" ខាងក្រោយក្បៀសពីរខ្ទង់ មានន័យថាកាត់យក ក្រោយក្បៀសចំនួនពីរខ្ទង់។
* រាល់ទិន្នន័យដែលបញ្ចូលតាមរយៈ​ TextBox សុទ្ធតែជា String។​នៅពេលដែលយើងផ្ទេរតម្លៃលេខ ជា String ទៅអោយអញ្ញាត្តដែលមានប្រភេទទិន្នន័យជាចំនួនលេខ នោះវានឹងបម្លែងតម្លៃលេខជា String ទាំងនោះទៅជាប្រភេទទិន្នន័យរបស់អញ្ញាត្តដោយស្វ័យប្រវត្តិភ្លាម។

ការសរសេរកូដ
Public Class Form1
       Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
                 Dim M As String, Avg As Double, T As Double
                 T = Total(txtVB.Text, txtCN.Text, txtJP.Text, txtSA.Text, txtStatistics.Text)

        Avg = Average(T, 5)

        M = Mention(Avg)
        txtTotal.Text = Format(T, "#, ##0.00")
        txtAverage.Text = Format(Avg, "#, ##0.00")
        txtMention.Text = M
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        txtVB.Clear()
        txtCN.Clear()
        txtJP.Clear()
        txtSA.Clear()
        txtStatistics.Clear()
        txtTotal.Clear()
        txtAverage.Clear()
        txtMention.Clear()
        txtVB.Focus()
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()
        Me.Name = ("Form1")
    End Sub
    Function Mention(ByVal Avg As Double) As String
        Dim M As String
        If (Avg >= 97 And Avg <= 100) Then
            M = "A+"
        ElseIf (Avg >= 94 And Avg < 97) Then
            M = "A"
        ElseIf (Avg >= 90 And Avg < 94) Then
            M = "A-"
        ElseIf (Avg >= 87 And Avg < 90) Then
            M = "B+"
        ElseIf (Avg >= 84 And Avg < 87) Then
            M = "B"
        ElseIf (Avg >= 80 And Avg < 84) Then
            M = "B-"
        ElseIf (Avg >= 77 And Avg < 80) Then
            M = "C+"
        ElseIf (Avg >= 74 And Avg < 77) Then
            M = "C"
        ElseIf (Avg >= 70 And Avg < 74) Then
            M = "C-"
        ElseIf (Avg >= 67 And Avg < 70) Then
            M = "D+"
        ElseIf (Avg >= 64 And Avg < 67) Then
            M = "D"
        ElseIf (Avg >= 60 And Avg < 64) Then
            M = "D-"
        ElseIf (Avg >= 57 And Avg < 60) Then
            M = "E+"
        ElseIf (Avg >= 54 And Avg < 57) Then
            M = "E"
        ElseIf (Avg >= 50 And Avg < 54) Then
            M = "E-"
        ElseIf (Avg >= 0 And Avg < 50) Then
            M = "F"
        Else
            M = "No Metion"
        End If
        Return M
    End Function
    Function Total(ByVal ParamArray Subject() As String)
        Dim T As Double
        For i As Integer = Subject.GetLowerBound(0) To Subject.GetUpperBound(0)
            T += Convert.ToDouble(Subject(i))
        Next
        Return T
    End Function
    Function Average(ByVal T As Double, ByVal N As Integer) As Double
        Return T / N
    End Function
    Private Sub txtTotal_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtTotal.KeyPress
        e.KeyChar = ""
    End Sub

    Private Sub txtAverage_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtAverage.KeyPress
        e.KeyChar = ""
    End Sub

    Private Sub txtMention_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtMention.KeyPress
        e.KeyChar = ""
    End Sub
    Private Sub txtCN_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCN.KeyPress
        Select Case Asc(e.KeyChar)
            Case 13, 8, 47 To 57
            Case Else
                e.Handled = True
        End Select
    End Sub

    Private Sub txtJP_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtJP.KeyPress
        Select Case Asc(e.KeyChar)
            Case 13, 8, 47 To 57
            Case Else
                e.Handled = True
        End Select
    End Sub

    Private Sub txtStatistics_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtStatistics.KeyPress
        Select Case Asc(e.KeyChar)
            Case 13, 8, 47 To 57
            Case Else
                e.Handled = True
        End Select
    End Sub

    Private Sub txtVB_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtVB.KeyPress
        Select Case Asc(e.KeyChar)
            Case 13, 8, 47 To 57
            Case Else
                e.Handled = True
        End Select
    End Sub

    Private Sub txtSA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSA.KeyPress
        Select Case Asc(e.KeyChar)
            Case 13, 8, 47 To 57
            Case Else
                e.Handled = True
        End Select
    End Sub
End Class
Posted by Unknown
Tag : ,

ការសរសេរកម្មវិធី

►

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

 នេះគឺកម្មវិធីមួយដែលបានសរសេរឡើងនៅក្នុងកម្មវិធី 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។ 
Saturday, December 8, 2012
Posted by Unknown
Tag : ,

Message Box

►

MsgBox

         The style code control which buttons to display-and there are six different combinations of OK, Cancel, Yes, No, Abort and Retry.
 It also control which, if any, of the four possible icons to include:
Critical, Question, Exclamation, Information. These can be specified using keywords or numeric codes, though the keywords only allow you to specify the buttons or the icon-not both at once.
Example:
                                     

 MsgBox("Are you sure you want to do  this?",MsgBoxStyle.YesNo,    "YesNo")





MsgBox("Do you want to quit?" ,MsgBoxStyle.Question,    "Question")





MsgBox("Do you want to quit?"
 ,MsgBoxStyle .Critical,    "Critical")





MsgBox("Do you want to quit?" ,MsgBoxStyle.Exclamation,    "Exclamation")
Posted by Unknown
Tag : ,

The Type of Network

►

The Type of Network

គេចែក Network ជា៥ ប្រភេទដូចជា៖
  • Personal Area Network (PAN)
  • Local Area Network (LAN)
  • Metropolitan Area Network (MAN)
  • Wide Area Network (WAN)
  • Wireless LAN (WLAN)  



Personal Area Network 

               គោលបំណងសំខាន់របស់ PAN ដែលគេបង្កើតឡើងគឺដើម្បីផ្តល់នូវ កាណាល់ទំនាក់ទំនងដោយ ឡែកពីគ្នា សំរាប់អ្នកដែលចង់ឲ្យឧបករណ៍ Digital របស់ខ្លួនធ្វើ​ចរាចរទិន្នន័យក្នុង បណ្តាញដែលពួកគេបានភ្ជាប់។   PAN អាច គ្រប់​​​​ដណ្តប់លើរយៈចំងាយប្រមាណ ១០ម៉ែត្រ ( 33 feet )។ 
សមាសធាតុរបស់ PAN មានដូចជា Mobile Computer, Cell Phone, Computing Device: Personal Digital Assistant (PDA)។   Network ប្រភេទនេះសំរាប់បញ្ជូន File, Calendar Appointments, Digital Photo, Music។ 
PAN គេអាចសង់ឡើងតាមលក្ខណៈពីរយ៉ាងគឺ៖ 
           មានខ្សែ PAN
           ឥតខ្សែ WPAN (Wireless PAN)

 Local Area Network (LAN)

           LAN គឺជាក្រុមនៃកុំព្យូទ័របាន ភ្ជាប់ជាមួយគ្នាដោយ ប្រើខ្សែចំលងនិង ឧបករណ៍ Network ស្ថិតនៅក្នុងទីតាំង ជិតៗគ្នា ដូចជាក្នុងបន្ទប់អាគារមួយ ឫបរិវេណមួយ។
         LAN គេអាចសង់ដោយប្រើខ្សែ (Wireless LAN)
         LAN គេអាចសង់ដោយមិនប្រើខ្សែ (Wireless LAN)



 Metropolitan Area Network (MAN)

          Metropolitan Area Network គឺជាបណ្តាញ ដែលមានទំហំ តូចជាង WAN ប៉ុន្តែធំជាង LAN ។​ គឺជាបណ្តាញ គ្របដណ្តប់លើទីក្រុង ឫបរិវេណធំ​។
MAN គឺជាការតភ្ជាប់ LAN ចំនួនពីរឫច្រើននៅក្នុង ទីក្រុងមួយ ប៉ុន្តែមាន រយៈចំងាយគ្រប់គ្រាន់ពី LAN មួយទៅ​ LAN មួយមិនអាចភ្ជាប់ដោយ Simple Cable ឫ​ Wireless បានទេ។

  Wide Area Network (WAN)

         WAN គឺជាបណ្តាញដែលកុំព្យូទ័រមាននៅក្នុង LAN បានភ្ជាប់ឆ្លងកាត់តាមរយៈចំងាយឆ្ងាយមួយ ឆ្ពោះទៅ LAN ផ្សេងៗទៀត។
WAN អាចគ្របដណ្តប់បាន រយៈចំងាយតូច ឫធំអាស្រ័យដោយ ការប្រើបច្ចេកទេសផ្សេងៗគ្នា មានដូចជា៖ Telephone line, Fiber optic cabling, Satellite transmission និង Microwave transmission។

Wireless LAN

​         Wireless Communication គឺជាបច្ចេកវិទ្យា មួយដែលមាន ការរីកលូតលាស់ យ៉ាងលឿន។ សេចក្តីត្រូវការ ចំពោះឧបករណ៍ភ្ជាប់ ដោយគ្មានខ្សែ មានការកើនឡើង គ្រប់ទីកន្លែង។ ​Wireless LAN បានប្រើឧបករណ៍ Wireless Access Point (AP) ដើម្បីធ្វើជាអ្នក បញ្ជូនទិន្នន័យ និង ជា អ្នកទទួលទិន្នន័យ (Transceiver)។
      AP គឺជាប្រភេទឧបករណ៍សំរាប់បែងចែកប្រព័ន្ធ Network Device ដែលមានអង់តែន Antenna, Transmitter និង Adapter។ ឧបករណ៍ AP ប្រើសំរាប់ហេដ្ឋារចនាសម្ព័ន្ធប្រព័ន្ធ Wireless Network ដើម្បីផ្គត់ផ្គង់ភ្ជាប់ចំនុចរវាងប្រព័ន្ធ WLAN និងប្រព័ន្ធប្រើខ្សែ Ethernet LAN ។

Friday, December 7, 2012
Posted by Unknown
Tag : ,

Computer Network

►


What is Computer Network

Computer Network គឺជាក្រុមនៃកុំព្យូទ័រនិងឧបករណ៍ ទំនាក់ទំនងមួយចំនួនទៀត មានដូចជា Printer ជាដើម ដែលបានភ្ជាប់ជាមួយគ្នា ដោយខ្សែចំលងទិន្នន័យទៅ តាមតម្រូវ ការជាក់ស្តែង។
Computer Network អាចមានទម្រង់ពីយ៉ាងគឺ៖

- បណ្តាញកុំព្យូទ័រដែលមានទ្រង់ទ្រាយតូចគឺមានចាប់ពីម៉ាស៊ីនពីរឡើងទៅដល់រាបសិបគ្រឿងបាន
   ភ្ជាប់ជាមួយគ្នា ភាគច្រើនគេច្រើនប្រើក្នុងផ្ទះ ឫ​ក្នុងការិយាល័យ។ គេតែងហៅបណ្តាញកុំព្យូទ័រ
​​​   ប្រភេទនេះថា  Local Area Network ( LAN )។
- បណ្តាញកុំព្យូទ័រអាចមានទ្រង់ទ្រាយធំ គឺអាចមានកុំព្យូទ័ររាប់ពាន់គ្រឿងបានភ្ជាប់ជាមួយគ្នាឆ្លង
  កាត់ពិភពលោក ដោយប្រើខ្សែចំលងទិន្នន័យមានដូចជា ខ្សែទូរស័ព្ទ រលកប្រកង់របស់ប្រព័ន្ធ
  ទូរស័ព្ធ រលកប្រេកង់របសស្ថានីយ៍ផ្កាយរណប ឫ​ខ្សែកាប Fiber Optic ជាដើម។ គេតែងហៅ
  បណ្តាញកុំព្យូទ័រប្រភេទនេះថា MAN និង WAN។
 - MAN គេអាចប្រើវានៅក្នុងស្រុក ឫទីក្រុងធំៗ។
- WAN គេអាចប្រើវានៅក្នុងប្រទេស ឫ​នៅក្នុងពិភពលោកទាំងមូលបាន។

Posted by Unknown
Tag : ,

Like ដើម្បីទទួលបានអ្វីថ្មី

Powered by Blogger.

I love Cambodia

ថ្នាក់មហាវិទ្យាល័យឆ្នាំទី៤ សាកលវិទ្យាល័យភូមិន្ទភ្នំពេញ

ភាពយន្ត ចម្រៀង កំប្លែង ផ្សេងៗ

ចំនួនអ្នកចូលទស្សនា

Statistics

ស.វិទ្យាល័យភូមិន្ទភ្នំពេញ

- Copyright © 2013 សុធាសម្រាប់ចែករំលែក - Powered by Blogger - រចនាដោយ Phorn Sothea (student at RUPP(year 4) -