បង្កើតនាឡិកាឱ្យដើរដោយប្រើភាសា VB.NET

Microsoft Visual Basic (VB) បង្កើតឡើងដោយក្រុមហ៊ុន Microsoft សម្រាប់ផ្ដល់ជូនលោកអ្នកសរសេរកម្មវិធីកម្មវិធីកុំព្យួទ័រ (programmer) ទាំងឡាយមានភាពងាយស្រួល និងរហ័ស បន្ទាប់ពីកម្មវិធី C,C++ … ។

ខេធី៤២ សូមបង្ហាញជូននូវរបៀបបង្កើតនាឡិកា ដោយប្រើភាសា VB.NET

ក្នុងការបង្កើតនាឡិកាតាម VB.NET នេះគឺមិនបានយករូបភាពមកសម្រាប់ធ្វើការរចនាទេ គឺយើងសរសេរកូដដើម្បីរចនាទាំងអស់ … ។

សូមមើលនូវរបៀបអនុវត្តន៍ដូចខាងក្រោម

1. សូមបើកកម្មវិធី Microsoft Visual Studio 2008 => ចុច File => New Project (Ctrl+Shif+N)
2. សូមជ្រើសយក Visual Basic => Windows Forms Application => រួចដាក់ឈ្មោះទៅឱ្យ Project => OK
   
   
   
3. បន្ទាប់មកចុច Project (Menu) => Add Module
4. សូមជ្រើសយក Common Iterms => Module => បន្ទាប់មកដាក់ឈ្មោះទៅឱ្យវា => OK
   
5. ហើយសរសេរកូដខាងក្រោមក្នុង Module
   ?

   1 2 3 4 5 6 7 8 9 10 11 12 13

   Module KT42 Clock Public TimeNow As Date = Date.Now Public mySec As Integer = TimeNow.Second Public myMin As Integer = TimeNow.Minute Public myHour As Integer = TimeNow.Hour Public FirstMin As Boolean = True Public FirstHour As Boolean = True Public myxAngel, myyAngel, myxMinAngel, myyMinAngel, myxHourAngel, myyHourAngel As Double Public myxLength, myyLength, myxMinLength, myyMinLength, myxHourLength, myyHourLength As Double Public MinTick = True Public HourTick = False Public FirstDamnedTick As Boolean = True End Module

6. ឥឡូវសូមធ្វើការរចនា Interface ដោយយក Control មកគូសលើ Form ដូចរូបខាងក្រោម
   
7. បន្ទាប់មកសូមធ្វើការកំណត់ Properties ដូចខាងក្រោម
   ?

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

   Form Name = “KT42 Clock” Text = “Clock” StartPosition = “CenterScreen”   Panel Name = “plClock” Size = “416, 416” TabIndex = “0”Label នៅក្នុង Panel Name = “Label1” Size = “64, 40” Font = “Limon S1, 36pt, style=Bold’ Text = “12” TextAlign = “MiddleCenter”   Label សម្រាប់ ម៉ោង Name = “lblHour” Text = “” Font = “Limon S1, 28pt, style=Bold” Size = “56, 40”   Label សម្រាប់នាទី Name = “Label2” Text = “:” Size = “20,40” Font = “Limon S1, 28pt, style=Bold”   Label សម្រាប់វិនាទី Name = “lblMin” Text = “” Font = “Limon S1, 28pt, style=Bold” Size = “56, 40”

8. បន្ទាប់មកសូមយក Control Timer មកគូសហើយកំណត់ Properties ដូចខាងក្រោម
   
   
   ?

   1 2 3 4 5 6 7 8 9 10 11 12

   Timer សម្រាប់ម៉ោង Name = “tmrHour” Interval = “3600000” Enabled = “False”   Timer សម្រាប់នាទី Name = “tmrMin” Interval = “60000” Enabled = “False”Timer សម្រាប់វិនាទី Name = “tmrSec” Interval = “1000” Enabled = “False”

9. បន្ទាប់មកសរសេរកូដខាងក្រោមក្នុង Form Load
   ?

   1 2 3 4 5 6

   lblSec.Text = mySec lblMin.Text = myMin lblHour.Text = myHour If myHour > 12 Then myHour = myHour lblHour.Text = myHour

10. សរសេរកូដក្នុង tmrSec
    ?

    1 2 3 4 5 6 7 8 9 10 11 12 13 14

    mySec = mySec + 1 lblSec.Text = mySec plClock.Refresh() If mySec > 59 Then mySec = 0 lblSec.Text = 0 MinTick =True If FirstMin = True Then myMin = myMin + 1 lblMin.Text = myMin tmrMin.Enabled =True FirstMin =False End If End If

11. សរសេរកូដក្នុង tmrMin  myMin = myMin + 1
    ?

    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

    lblMin.Text = myMin If myMin Mod (12) = 0 Then HourTick =True End If If myMin > 59 Then myMin = 0 lblMin.Text = 0 If FirstHour = True Then myHour = myHour + 1 lblHour.Text = myHour tmrHour.Enabled =True FirstHour =False End If If myHour > 12 Then myHour = myHour lblHour.Text = myHour Mod 12End If End If

12. សរសេរកូដក្នុង tmrHour
    
    ?

    1 2 3 4 5 6

    myHour = myHour + 1 lblHour.Text = myHour If myHour > 12 Then myHour = 1 lblHour.Text = 1 End If

13. ជាចុងក្រោយសូម ទាញយក កូដ យកទៅដាក់ក្នុង Control Panelសូមធ្វើការល្បងដំណើរការកម្មវិធីដោយចុច F5 នោះលោកអ្នកនឹងលទ្ធផលដូចខាងក្រោម

សូមជួយចែករំលែកអត្ថបទនេះទៅមិត្ររបស់អ្នកនៅលើ Facebook ផងបាទ!