ទំព័រ

ព័ត៌មានវិទ្យា

Download

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

Today	108
Yesterday	115
This Week	349
This Month	923
All Days	33088

38.107.191.86

លេខទូរស័ព្ទសង្គ្រោះបន្ទាន់ មន្ទីរពេទ្យសាធារណៈនៅភ្នំពេញ
d

១. រថយន្តសាមុយ មន្ទីរពេទ្យកាល់ម៉ែត	= 119
២. រថយន្តសង្គ្រោះ មន្ទីរពេទ្យរុស្ស៊ី	= 023 217 764 = វិទ្យុទាក់ទង (151940)
៣. រថយន្តសង្គ្រោះ មន្ទីរពេទ្យព្រះសង្ឃ	= 016 909 774
៤. លេខប្រចាំការ (Hot Line) គ្រុនផ្ដាសាយ A(H1N1)	= 012 488 981 = 012 836 868

Create Hang Man Game in Visual Basic 6

សរសេរដោយ Setha IECH

ពុធ, 05 ឧសភា 2010 13:44

-----------------------------------------------

    Dim i As Integer: i = 1
    Dim isCorrectWord As Boolean: isCorrectWord = False
    Dim MyWord As String

    While Mid(MyStr, i, 1) & "" <> ""
        If Mid(MyStr, i, 1) = Right(txtLetter.Text, 1) Then
           MyWord = MyWord & Right(txtLetter.Text, 1)
           If Mid(lblWordGuess.Caption, i, 1) <> _
              Right(txtLetter.Text, 1) Then _
                isCorrectWord = True
        Else
            MyWord = MyWord & Mid(lblWordGuess.Caption, i, 1)
        End If
        i = i + 1
    Wend
    txtTotalGuess = txtTotalGuess + 1
    If Not isCorrectWord Then
        txtWrongGuess = txtWrongGuess + 1
        If txtWrongGuess = 1 Then shapeHead.Visible = True
        If txtWrongGuess = 2 Then
           lineEye1.Visible = True: lineEye2.Visible = True
           lineEye3.Visible = True: lineEye4.Visible = True
           lineNose.Visible = True: lineMouth.Visible = True
        End If
        If txtWrongGuess = 3 Then lineNeck.Visible = True
        If txtWrongGuess = 4 Then lineHandL.Visible = True
        If txtWrongGuess = 5 Then lineHandR.Visible = True
        If txtWrongGuess = 6 Then lineBody.Visible = True
        If txtWrongGuess = 7 Then lineLegL.Visible = True
        If txtWrongGuess = 8 Then lineLegR.Visible = True
    End If

---------------------------------------------------

Download Source Code Here

Using Khmer Unicode and Save Image to SQL Server in VB 2008

សរសេរដោយ Setha IECH

អង្គារ, 04 ឧសភា 2010 13:14

'Please attach the database to your SQL Server 2000 Database first.

Public pubCnn As New OleDb.OleDbConnection
Public strCnn As String = "Provider=SQLOLEDB.1; Data Source=.; " & _
" Initial Catalog=SCHOOLSTAT; User ID=sa; Password=;"

-----------------------------------------

'insert data to table
Dim cmd As New OleDb.OleDbCommand
Dim arrImage As Byte()
Dim myMS As New IO.MemoryStream
Dim strImage As String = ""

If Not IsNothing(Me.picPhoto.Image) Then
     Me.picPhoto.Image.Save(myMS, Me.picPhoto.Image.RawFormat)
     arrImage = myMS.GetBuffer
     strImage = "?"
Else
     arrImage = Nothing
     strImage = "NULL"
End If

--------------

cmd.Connection = pubCnn

If Me.id = 0 Then
      id = GetSchoolID()
      cmd.CommandText = "INSERT INTO school(id, schoolcode, name" & _
                                      ",provinceid,phone,type, photo) " & _
                                      " VALUES(" & id & "," & SQLString(Me.txtSchoolCode.Text) & _
                                      "," & SQLString(Me.txtSchoolName.Text) & _
                                      "," & prID & "," & _
                                      SQLString(Me.txtPhone.Text) & "," & schtype & _
                                      "," & strImage & ")"

If strImage <> "NULL" Then
       Dim cmdPar As New OleDb.OleDbParameter
       cmdPar = cmd.Parameters.Add("?", OleDb.OleDbType.Binary)
       cmdPar.Value = arrImage
End If

----------------------------

Download Source Code and Database Here

ការហាត់ប្រាណនៅទីធ្លាដែលមានរុក្ខជាតិជុំវិញជួយធ្វើឱ្យសុខភាពផ្លូវចិត្តប្រសើរឡើង

អង្គារ, 04 ឧសភា 2010 11:18

ក្រុមអ្នកស្រាវជ្រាវអះអាងថា ការហាត់ប្រាណត្រឹមតែ៥នាទីនៅទីធ្លាដែលមានរុក្ខជាតិនៅជុំវិញ ដូចជានៅតាមសួន ជាដើម អាចធ្វើឱ្យសុខភាពផ្លូវចិត្តប្រសើរឡើង ។

មានភស្ដុតាងកាន់តែច្រើនឡើងដែលថា ការរួមផ្សំសកម្មភាពផ្សេងៗ ដូចជា ការដើរឬការជិះកង់ជាមួយធម្មជាតិនោះជួយបង្កើនសុខុមាលភាពរបស់អ្នកប្រសើរឡើង ។ នៅក្នុងការវិភាគថ្មីៗនេះក្រុមអ្នកស្រាវជ្រាវនៅអង់គ្លេសបានពិចារណាទៅលើភស្ដុតាងដែលទទួលបានពីមនុស្ស ១២៥០នាក់នៅក្នុងការសិក្សាចំនួន១០ ហើយបានរកឃើញថា មានការប្រសើរឡើងយ៉ាងឆាប់រហ័សនៅក្នុងអារម្មណ៍ និងការជឿជាក់លើខ្លួនឯង ។

ការសិក្សាដែលចុះផ្សាយ នៅក្នុងទិនានុប្បវត្តិបច្ចេកវិទ្យា និងវិទ្យាសាស្ត្របរិស្ថានបានលើកឡើងថា ឥទ្ធិពលដ៏ខ្លាំងបំផុតគឺកើតមានលើក្រុមយុវវ័យ ។ ការស្រាវជ្រាវបានតាមដានទៅលើសកម្មភាពក្រៅផ្ទះខុសៗគ្នាជាច្រើនរួមមានការដើរ ការថែសួន ការជិះកង់ ការនេសាទ ការជិះទូក ការជិះសេះ និងការដាំដំណាំ នៅតាមទីតាំងដូចជា សួនច្បារ ឧទ្យាន ឬហាត់ប្រាណតាមផ្លូវដែលមានរុក្ខជាតិអម ។ ប្រសិទ្ធភាពដ៏ច្រើនត្រូវបានឃើញនៅក្នុងរយៈពេលត្រឹមតែ៥នាទីប៉ុណ្ណោះ ។

ដោយតាមដានទៅលើបុរស និងស្ត្រីដែលមានវ័យផ្សេងៗគ្នាក្រុមអ្នកស្រាវជ្រាវបានរកឃើញថា ការប្រែប្រួលផ្នែកសុខភាពទាំងរាងកាយ និងផ្លូវចិត្តមានច្រើននៅក្នុងចំណោមយុវវ័យ និងសុខភាពផ្លូវចិត្ត ៕

(ដកស្រង់ពីកាសែត រស្មីកម្ពុជា លេខ ៥១៨៨ ថ្ងៃទី ០៤ ខែ ឧសភា ឆ្នាំ ២០១០)

Using Math input panel in windows seven

សរសេរដោយ Satya MAO
អាទិត្យ, 02 ឧសភា 2010 09:52
Math input panel គឺជាកម្មវិធីមួយក្នុង windows seven ដែលអាចឲ្យយើងប្រើប្រាស់ mouse សម្រាប់សរសេរជាអក្សប្រភេទគណិតវិទ្យា។ ដើម្បីសរសេរបានយើងត្រូវចុចលើប៊ូតុត Start --> All Programs --> Accessorie --> Math input panel បន្ទាប់មកបើកកម្មវិធី Microsoft Office Word --> រួចធ្វើការសរសេរលើផ្ទាំងកម្មវិធី Math input panel --> បន្ទាប់ចុចលើប៊ូតុង Insert
LAST_UPDATED2

Using Graphics in Turbo C++ : Draw Bike

សរសេរដោយ Setha IECH

សុក្រ, 30 មេសា 2010 11:33

#include <graphics.h>
#include <dos.h>
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
#include <alloc.h>

void drawbike(void);
void movebike();
void *bike;

void main()
{
    int gd=2,gm=4;
    initgraph(&gd,&gm,"c:\\tc\\bgi");
    drawbike();|
    movebike();
    getch();
    closegraph();
}

void drawbike(void)
{
     circle(50,100,25); circle(150,100,25);
     line(50,100,80,85); line(80,85,134,85);
     line(77,82,95,100); line(130,80,150,100);
     line(128,80,113,82); line(128,80,116,78);
     line(72,81,89,81); line(73,82,90,82);
     circle(95,100,5); line(92,105,98,95);
     line(91,105,93,105); line(97,95,99,95);
     line(95,100,136,87);
     bike=malloc(imagesize(25,75,175,125));
     if(bike==NULL){
        closegraph();
        printf("\nFailed to allocate memory for bike image.\n");
        exit(1);
     }
     getimage(25,75,175,125,bike);
}

void movebike()
{
     int i;
     for (i=0;i<getmaxx()-200;i+=6){
         putimage(25+i,75,bike,XOR_PUT);
         putimage(25+6+i,75,bike,COPY_PUT);
         delay(50);
     }
}

Download Source Code Here

អត្ថបទផ្សេងៗ...

« ចាប់ផ្តើម ទៅក្រោយ12345678910បន្ទាប់ទៀត ចប់ »

ទំព័រ 4 នៃ 18