ព្រឹកថ្ងៃមួយចៅហ្វាយស្រីបានប្រើអ្នកបម្រើរបស់ខ្លួនឲ្យស្ងោរធាមួយក្បាល សម្រាប់ធ្វើជាអាហារថ្ងៃត្រង់។ នៅពេលនោះ អ្នកបម្រើស្រីបានយកទាទៅដាក់ក្នុងឆ្នាំង ដោយមិនបានដាក់ទឹកធ្វើឲ្យឆ្នាំងឆេះផ្សែងហុយទ្រលោម។
នៅពេលឃើញហេតុការណ៍ដូច្នេះ ចៅហ្វាយស្រីក៍ស្រែកសួរឡើង៖
ចៅហ្វាយស្រី៖ ហេតុអ្វីឯងមិនដាក់ទឹកក្នុងឆ្នាំងស្ងោរទាអញ្ចឹង នាងមើល! ឥឡូវឆេះខ្លោចខ្ទេចខ្ទីអស់។
អ្នកបម្រើស្រី៖ គឺនែ! មកពីខ្ញុំខ្លាចថា នៅពេលដាក់ទឹកចូលហើយ វានឹងហែលទឹកគេចរត់បាត់ណាលោកស្រី។
ចៅហ្វាយស្រី៖ អុញ!
ក្នុងពិធីជប់លៀងមួយកន្លែង បុរសពីរនាក់បានជជែកគ្នាពីរឿងស្ត្រី។
បុរសទី១៖ នែ៎! សម្លាញ់! ស្ត្រីម្នាក់ដែលសក់ខ្មៅរាងស្វែលអង្គុយខាងឆ្វេងដៃតុនៅចំពីមុខយើងនេះ ជាភរិយារបស់ខ្ញុំ ចំណែកស្ត្រីសក់ទង់ដែងដែលនៅខាងស្តាំដៃនោះវិញជាស្រីស្នេហ៍លួចលាក់របស់ខ្ញុំតែម្តង។
បុរសទី២៖ អូហ៍! ចៃដន្យណាស់ទំនាក់ទំនងស្នេហាលួចលាក់របស់ឯងផ្ទុយពីខ្ញុំ គឺឯងលួចមានស្នេហាលួចលាក់ជាមួយស្ត្រីសក់ទង់ដែងដែលអង្គុយខាងស្តាំដៃ ប៉ុន្តែគ្នាវិញស្ត្រីដែលមានសក់ពណ៍ខ្មៅអង្គុយខាងឆ្វេងដៃនោះគឺជាស្ត្រីស្នេហ៍លួចលាក់របស់ខ្ញុំដែរណាសម្លាញ់អើយ។
បុរសទី១៖ អុញ!
#include<stdio.h>
#include<conio.h>
#include<graphics.h>
#include<dos.h>
#include<stdlib.h>
#include<math.h>
#include<string.h>
#define MAX_LONG 2147483647
#define PI 3.1415926536
char buf[80];
void output(char *);
void OUTPUT(long double &);
REGS in_regs,out_regs;
init_mouse(){
in_regs.x.ax = 0;
int86(0x33,&in_regs,&out_regs);
return out_regs.x.ax;
}
void show_mouse(){
in_regs.x.ax = 1;
int86(0x33,&in_regs,&out_regs);
}
int mouse_press(){
in_regs.x.ax = 3;
int86(0x33,&in_regs,&out_regs);
return(out_regs.x.bx);
}
..................................
Download Full Source Code Here
ប្តីធ្វើការនៅខេត្តឆ្ងាយ រីឯប្រពន្ធនៅផ្ទះមើលថែកូន។ ថ្ងៃមួយប្តីផ្ញើសំបុត្រទៅប្រពន្ធដែលមានសេចក្តី ដូចតទៅ៖
ជូនចំពោះប្រពន្ធសម្លាញ់ចិត្តបង!
ខែនេះបងមិនអាចផ្ញើប្រាក់ខែឲ្យអូនដូចរាល់ខែបានទៀតទេ តែបងសូមផ្ញើជំនួសនូវស្នាមថើបពីចម្ងាយ ចំនួន ១០០ ខ្សឺតវិញ។
ពីប្តីរបស់អូន
ឃុនពីម៉ូច
១ ខែក្រោយមក ប្រពន្ធសរសេរតទៅវិញថា៖
ជូនចំពោះប្តីសម្លាញ់ចិត្តអូន!
អូនសូមអរគុណចំពោះស្នាមថើបទាំង ១០០ ខ្សឺតដែលបងបានផ្ញើមកអូន។ អូនសូមផ្ញើជូនបងវិញនូវព័ត៌មាននៃការចំណាយកន្លងមកដូចខាងក្រោម៖
១. អ្នកប្រមូលសម្រាមគាត់ព្រមថើបអូន ២ ខ្សឺត ជំនួសថ្លៃសំរាម ១ ខែ។
២. លោកខាងទូរទស្សន៍ខ្សែកាបព្រមថើប ៧ ខ្សឺត ដោយអត់យកថ្លៃខ្សែកាប។
៣. ពូម្ចាស់ផ្ទះជួល សុខចិត្តថើបមួយថ្ងៃ ២ ទៅ ៣ ដង ជំនួសថ្លៃជួលផ្ទះ ១ខែពេញ។
៤. បងខាងអគ្គិសនី ថើបតែមួយមុខ គាត់មិនព្រមទេ គាត់សុំថែមអីៗទៀត ខ្ញុំក៏បានជូនគាត់តាមសំណូមពរ។
៥. ថ្លៃចំណាយរាយរង សរុបទៅ ៤០ ខ្សឺតទៀត។
សូមបងកុំបារម្ភពីអូនអី អូននៅសល់ ៣៥ ខ្សឺតទៀតចាយមិនទាន់អស់។ អូនអាចទុកវាប្រើរហូតដល់ដាច់ខែហ្នឹងទៀតបានល្មមបរិបូណ៍។
សូមបងជួយឲ្យដំបូន្មានអូនផងថាអូនត្រូវបន្តធ្វើដូចអញ្ចឹងតទៅទៀត ឬយ៉ាងណា។
ពីប្រពន្ធបង
សុភា
៣. បើមិនអាចធ្វើការងារធំឲ្យមកជាតូចក្នុងឆន្ទៈទេ គឺមិនអាចធ្វើការងារធំបានឡើយ។
៤. គុណធម៌ ទាល់តែសាងទើបកើត។ មនុស្សសាងគុណធម៌ឲ្យកើតឡើងជាមុន ទើបគុណធម៌សាងមនុស្សនោះវិញតាមក្រោយ។
៥. រស់នៅជាមួយនឹងការមិនប្រកាន់ នោះទុក្ខក្នុងចិត្តរមែងមិនមាន។
៦. ការងារដែលជាតួនាទីរបស់មនុស្ស មិនមែនគាំទ្របាបទេ គឺកម្ចាត់បាប។ បាបកើតពីមនុស្សណា វារមែងទម្លាយនូវមនុស្សនោះ ដូចច្រែះកើតពីដែកណា ក៏រមែងទម្លាយនូវដែកនោះដូច្នោះដែរ។
ស្ត្រីវ័យក្មេងខ្ចីធ្វើការក្នុងហាងខារ៉ាអូខេម្នាក់ បានទៅឲ្យគ្រូទាយដ៏ល្បីឈ្មោះទស្សន៍ទាយពីដំណើរជីវិតដ៏គ្រោតគ្រាតរបស់ខ្លួន។
គ្រូទាយ៖ បើតាមជើងលេខនៅពេលនេះក្រុមមនុស្សដែលនៅក្បែរខ្លួនអ្នកបំផុត អាចត្រូវខកបំណង ឬអស់សង្ឃឹមចំពោះខ្លួនអ្នកខ្លាំងណាស់។
ស្ត្រីវ័យក្មេង៖ អូហ៍! ពិតជាចំម៉ាច់តែម្តងលោកគ្រូ ព្រោះថ្ងៃនេះខ្ញុំភ្លេចយកកាបូបលុយមកជាមួយ ឥឡូវនេះគ្មានមួយកាក់មួយសេនក្នុងខ្លួនទេ ហើយសូម្បីតែទ្រនឹបលោកគ្រូក៏គ្មានដែរ។
គ្រូទាយ៖ អុញ!!!
បើមិនមានទឹកទេនោះ តើកសិករយើងធ្វើស្រែដោយរបៀបណា? កសិករកម្ពុជាយើងភាគច្រើនធ្វើស្រែតែងតែពឹងទៅលើមេឃ គឺពឹងទៅលើទឹកភ្លៀង។ ប្រសិនបើមិនមានភ្លៀងទេនោះ គាត់តែងតែបូមទឹកពីស្រះ ត្រពាំង ឬបឹង ដែលនៅជិតៗនោះ ដើម្បីរដោះគ្រោះមួយគ្រាតូចសិន ហើយប្រសិនបើគ្រោះរាំងស្ងួតមានរយៈពេលវែង នោះគាត់នឹងជួបការលំបាកហើយ។ ម្យ៉ាងទៀត ការធ្វើសឹកតែងត្រូវការស្បៀង (បាយ) ជាសំខាន់ បើមិនមានស្បៀងទេនោះ តើកងទ័ពមានកម្លាំងមកពីណា?
ម្ចាស់ហាងលក់សម្លៀកបំពាក់តម្លៃថ្លៃៗមួយកន្លែង ត្រូវចោរប្លន់។ នៅពេលក្រុមប៉ូលិសមកដល់ ហើយកំពុងរុករកចាប់ក្រុមចោរប្លន់ទាំងនោះ ស្រាប់តែម្ចាស់ហាងនិយាយ៖
ម្ចាស់ហាង៖ លោកប៉ូលិសបើសិនចង់បាញ់ក្រុមចោរទាំងនោះ សុំឲ្យជួយបាញ់ត្រង់ជើងរបស់វាបានហើយ កុំបាញ់ខ្លួនឲ្យសោះ។
ប៉ូលិស៖ អេហ៍! ហេតុអ្វីទៅ?
ម្ចាស់ហាង៖ ព្រោះពួកក្រុមចោរទាំងនោះវាបានយកអាវរបស់ខ្ញុំ ពាក់រត់គេចចេញទៅ បើសិនបាញ់ចំអាវច្បាស់ជាធ្លុះធ្លាយលែងមានអ្នកទិញជាក់ជាពុំខាន៕
/****************************/
/* CLOCK */
/****************************/
#include<stdio.h>
#include<conio.h>
#include<graphics.h>
#include<math.h>
#include<stdlib.h>
#include<dos.h>
#define PI 3.141593
#define R 170
#define sc setcolor
char *month[]={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"};
void Box(int x,int y,int x1,int y1,int width,int color,int color1)
{int i;
for(i=0;i<width;i++)
{sc(color);line(x+i,y+i,x+i,y1-i);line(x+i,y+i,x1-i,y+i);
sc(color1);line(x+i,y1-i,x1-i,y1-i);line(x1-i,y+i,x1-i,y1-i);}
}
void main(){int gd=DETECT,gm,midx,midy,i;
initgraph(&gd,&gm,"C:\\TC\\BGI");
midx=getmaxx()/2;
midy=getmaxy()/2;
setbkcolor(0); sc(15);
setfillstyle(1,10); fillellipse( midx , midy , 207 , 207 );
setfillstyle(1,7); fillellipse( midx , midy , 200 , 200 );
for(i=0;i<12;i++) pieslice( midx , midy , i*30 , (i+1)*30 , 200 );
sc(7); fillellipse( midx , midy , 185 , 185 );
settextstyle( TRIPLEX_FONT , HORIZ_DIR , 1 );
char ss[90];int P,Q;
for(i=1;i<=12;i++){
sc(1); sprintf(ss,"%d",i);
if(i==5) { P=10 ; Q=-10; }
else if(i==6){ P=20 ; Q=-5; }
else if(i==4) Q=-10;
else if(i==7){ P=7 ; Q=5; }
else { P=0 ; Q=0; }//show number
outtextxy( midx+185*sin(PI*30*i/180)+Q , midy-P-185*cos(PI*30*i/180) , ss);}
while(!kbhit()){
settextstyle( TRIPLEX_FONT , HORIZ_DIR , 1 );
sc( 9 );outtextxy( midx-52 , midy-132 , "IECH SETHA" );
struct dosdate_t date; _dos_getdate(&date);
sprintf( ss , "%d" , date.year );
sc(15); outtextxy( midx-20 , 5 , ss );//show year
settextstyle( 0 , 0 , 1 ); sc( 4 );
sprintf( ss , "%d %s" ,date.day,month[date.month-1] );
outtextxy( 297 , midy-150 , ss );//show date
sc(12); outtextxy( midx-15 , midy+150 , "RUPP" );
Box( midx-26 , midy-156 , midx+26 , midy-140 , 1 , 8 , 15 );
//box of date
struct dostime_t t; _dos_gettime(&t);
if(t.hour>12)t.hour=t.hour-12;
sprintf( ss,"%02d:%02d:%02d",t.hour,t.minute,t.second );
setfillstyle(1,7);bar( midx+160 , midy-9 , midx+177 , midy+9 );
if(t.minute==0&&t.hour==0&&t.second==0)
bar(midx-26,midy-156,midx+126,midy-140);
if(t.second==0)
bar( midx+135 , midy-9 , midx+150 , midy+9 );
if(t.second==0&&t.minute==0)
bar( midx+112 , midy-9 , midx+128 , midy+9 );
sc(4); outtextxy( midx+112 , midy-2 , ss );
Box( midx+108 , midy-10 , midx+178 , midy+10 , 1 , 8 , 15 );
//box of time
sc(7);line( midx ,midy , midx+sin(PI*6*(t.second-1)/180)*R , midy-cos(PI*6*(t.second-1)/180)*R );
if(t.second%10==0)for(i=-3;i<=3;i++)
line( midx+i , midy+i , midx+sin(PI*(6*t.minute+(t.second-10)/10)/180)*(R-20) , midy-cos(PI*(6*t.minute+(t.second-10)/10)/180)*(R-20) );
if(t.second==0)for(i=-4;i<5;i++)
line( midx+i , midy+i , midx+sin(PI*(30*t.hour+(t.minute-2)/2)/180)*(R-70) , midy-cos(PI*(30*t.hour+(t.minute-2)/2)/180)*(R-70) );
//line of second
sc(0);line( midx , midy, midx+sin(PI*6*t.second/180)*R , midy-cos(PI*6*t.second/180)*R );
for(i=-3;i<=3;i++)//line of minute
line( midx+i , midy+i , midx+sin(PI*(6*t.minute+t.second/10)/180)*(R-20), midy-cos(PI*(6*t.minute+t.second/10)/180)*(R-20) );
for(i=-4;i<5;i++)//line of hour
line( midx+i , midy+i , midx+sin(PI*(30*t.hour+t.minute/2)/180)*(R-70), midy-cos(PI*(30*t.hour+t.minute/2)/180)*(R-70));
if(t.minute==0&&t.second<=15)sound(600*(t.second+5)/5);
else nosound();
setfillstyle(1,4);fillellipse( midx , midy , 5 , 5 );
delay(100);}//end while
closegraph();
}
Download Source Code Here
Tips: Create one form and create Button Array for each letter as on keyboard layout and create one RichTextBox for the words to type.
Private strWord As String
Private curInd As Integer
Private Sub HighLightKey(ByVal parLetter As String, ByVal par_color As Long)
Dim i As Integer
If (Asc(parLetter) >= 65 And Asc(parLetter) <= 65 + 25) Or _
(Asc(parLetter) > 97 And Asc(parLetter) < 97 + 25) Then
For i = 0 To 25
If Asc(parLetter) = 65 + i Or Asc(parLetter) = 97 + i Then
cmdLetter(i).BackColor = par_color
End If
Next
ElseIf Asc(parLetter) = 13 Then
cmdLetter(27).BackColor = par_color
ElseIf Asc(parLetter) = 32 Then
cmdLetter(26).BackColor = par_color
End If
End Sub
Private Sub ChangeHighLightKey()
Dim strPreviousLetter As String
Dim strLetter As String
'
If curInd > 0 Then
strPreviousLetter = Mid(strWord, curInd, 1)
HighLightKey strPreviousLetter, &H8000000F
End If
'
If curInd < Len(strWord) Then
strLetter = Mid(strWord, curInd + 1, 1)
HighLightKey strLetter, &HFF00&
End If
End Sub
.................................................................................
Full source code: Download Here
