#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

Dim objWordApp As Object
Dim objWordDoc As Object

objWordApp = CreateObject("Word.Application")
objWordDoc = objWordApp.documents.add()
objWordDoc.tables.add(objWordDoc.range(0, 0), 11, 3)

With objWordDoc.tables(1)   
    .borders.InsideLineStyle = 1
    .borders.OutsideLineStyle = 1 

    For i As Integer = 0 To 10
       .rows(i + 1).cells(1).range.text = Me.dgvData.Rows(i).Cells("id").Value 
       .rows(i + 1).cells(2).range.text = Me.dgvData.Rows(i).Cells("name").Value
       .rows(i + 1).cells(3).range.text = Me.dgvData.Rows(i).Cells("gender").Value
    Next
End With

objWordApp.visible = True
objWordApp = Nothing

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

Download Source Code Here

មុននឹងចាប់ផ្ដើមសរសេរកូដ យើងត្រូវ Add Reference មួយដែលមានឈ្មោះថា Microsoft Speech Object Library

ដោយចុចលើ Project menu --> Add Reference --> ចុចលើ Tab COM -->  Microsoft Speech Object Library

បន្ទាប់មកទើបសរសេរកូដលើប៊ូតុង Speech:

Imports SpeechLib
Public Class Form1
----------------------------------------------------------
Private Sub ButtonSpeech_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles & _ ButtonSpeech.Click
        Dim sp As New SpVoice
        sp.Speak(TextBox1.Text, SpeechVoiceSpeakFlags.SVSFDefault)
    End Sub
End Class