¥Ï¥ëhal
¥Ç¥¸¥¿ŽÙ ¥³¥ó¥Æ¥ó¥Ä

pc2

ºî¤Ã¤Æ³Ø¤Ö
¥Ï¡¼¥É¤È¥½¥Õ¥È

¥¢¥ë¥´¥ê¥º¥à
ÅŻҲóÏ©

 






¤³¤Î¥µ¥¤¥È¤ÏHP¤Ç¤¹
¥Ö¥í¥°¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó
Í×˾¡¦°Õ¸«¤Ï
²¼µ­¤Î·Ç¼¨¾ì¤òÍøÍѤ·¤Æ
²¼¤µ¤¤¤Þ¤¿¥Ö¥í¥°¤â¸«¤Æ²¼¤µ¤¤

 

¥í¥Ü¥Ã¥È¡¦DOSV·Ç¼¨ÈÄ·ó£Â£ì£ï£ç

²û¤«¤·¤Î¥³¥ó¥Ô¥å¡¼¥¿
Apple II Apple2
PC9801 PC9821

£ò£ï£â£ï£ô£ï

Top¤ËÌá¤ë

¥é¥é Lara
¥¢¥Ê¥í¥° ¥³¥ó¥Æ¥ó¥Ä

LaraºÂ¤ì
Æ°²è¤Ç³Ø¤Ö
í¿¤È·±Îý
Æ°²è¥á¥Ë¥å¡¼


¹©ºî


½¸ÃÄÎý½¬¥á¥Ë¥å¡¼


¤·¤Ä¤±¡¡·±Îý¥³¥é¥à




ºÇ¸å¤Ë¥é¥é¤Ë¤Ä¤¤¤Æ

¤³¤Î¥µ¥¤¥È¤ÏHP¤Ç¤¹
¥Ö¥í¥°¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó
Í×˾¡¦°Õ¸«¤Ï
²¼µ­¤Î·Ç¼¨¾ì¤òÍøÍѤ·¤Æ
²¼¤µ¤¤¤Þ¤¿¥Ö¥í¥°¤â¸«¤Æ²¼¤µ¤¤

Lara¥é¥é¤Î
¥Ö¥í¥°

¸¤¤Î¤·¤Ä¤±¤È·±Îý
·Ç¼¨ÈÄ


·Ç¼¨ÈĤÎÍøÍѵ¬Â§

 

 

 

 

£Ì£á£ò£áÉú¤»
Top¤ËÌá¤ë
¾¾ËÜ¡¡¥ï¥ó¥ï¥ó¥¯¥é¥Ö
¤ï¤ó¤ï¤ó¥¯¥é¥Ö

 

Visual Studio 2008 Express Edition ¤Ç¥È¥é¥ó¥×¥²¡¼¥à¤òºî¤í¤¦
8ÆüÌÜ¡¡£Ö£Â£Á¤Î¥ê¥¹¥È¤ò£Ã¡Ü¡Ü¤ËÊÑ´¹¤·¤Æ¤ß¤è¤¦

2ÆüÌܤγؽ¬

¤«¤éºÆ¥¹¥¿¡¼¥È
cpp to basic1

Éü½¬

¤³¤Î­¡¥ë¡¼¥Á¥ó¤È¥Ü¥¿¥ó£±¡¡­¢¤ÎÆâÍƤ¬É¬ÍפǤ¹¡£


//­¡

static int card[55];
static int hai[12];
static int keta[12];
static int yaku[12];
static int start_flag=0;
static int hoji1=0;
static int hoji2=0;
static int hoji3=0;
static int hoji4=0;
static int hoji5=0;
static int tokuten=0;

void DispHai( int nohai,int xx){
Graphics^ gr=this->CreateGraphics();
int X0=10,Y0=1;
String^ filename;
filename="c:\\card\\1_sp.gif";
if(nohai==0 ) filename="c:\\card\\0_r1.gif" ;
//Pen^ pen1=gcnew Pen(col);
if(nohai>0 && nohai<14) filename="c:\\card\\"+nohai+"_sp.gif" ;
if(nohai>100 && nohai<114 ){nohai=nohai-100;
filename="c:\\card\\"+nohai+"_cl.gif" ;}
if(nohai>200 && nohai<214 ){nohai=nohai-200;
filename="c:\\card\\"+nohai+"_di.gif" ;}
if(nohai>300 && nohai<314){nohai=nohai-300;
filename="c:\\card\\"+nohai+"_he.gif" ;}
//¸¶²èÁü¤òº¸¾å¤ËÉÁ²è¤¹¤ë
if(xx==1){
Bitmap^ bmap1; //bmap1¤Î³ÎÊÝ
bmap1=gcnew Bitmap(filename);
gr->DrawImage(bmap1,X0,Y0);
}
if(xx==2){
Bitmap^ bmap2; //bmap2¤Î³ÎÊÝ
bmap2=gcnew Bitmap(filename);
gr->DrawImage(bmap2,X0+100,Y0);
}
if(xx==3){
Bitmap^ bmap3; //bmap3¤Î³ÎÊÝ
bmap3=gcnew Bitmap(filename);
gr->DrawImage(bmap3,X0+200,Y0);
}
if(xx==4){
Bitmap^ bmap4; //bmap4¤Î³ÎÊÝ
bmap4=gcnew Bitmap(filename);
gr->DrawImage(bmap4,X0+300,Y0);
}
if(xx==5){
Bitmap^ bmap5; //bmap5¤Î³ÎÊÝ
bmap5=gcnew Bitmap(filename);
gr->DrawImage(bmap5,X0+400,Y0);
}
}


//­¢
private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
if(start_flag ==0){ //°ìÅÙÄ̲ᤷ¤¿¤éÅÙÌܤò¶Ø»ß¤¹¤ë
int amax,xrand,nohai;
int xx,yy,y;
char buf[80];
Graphics^ gr=this->CreateGraphics();
String^ string1;
Brush^ brush=gcnew SolidBrush(Color::Black);
System::Drawing::Font^ font=gcnew System::Drawing::Font("MS ¥´¥·¥Ã¥¯",10);
Random^ rand=gcnew Random(); //¤ÇÍð¿ôrand¤òÀ¸À®¤·¤Æ¤ª¤­¡¢
//£²¡Ë¡¡°Ê¾åint amax̤Ëþ¤ÎÍð¿ô¤òȯÀ¸¤·¤¿¤¤¾ì¹ç¤Ë¤Ï¡¢
amax=52;
for(xx=1;xx<54;xx++) card[xx]=0;
yy=1;
while(yy<20){
xrand=rand->Next(amax)+1;
int flag=0;
for(xx=1;xx<53;xx++) {if(card[xx]==xrand) flag=1;}
if(flag==0){ card[yy]=xrand;
//ʸ»ú¤Ç³Îǧ
sprintf_s(buf,80," %3d ",xrand);
string1=gcnew String(buf);
gr->DrawString(string1,font,brush,(float)16*yy,(float)300);
//ʸ»ú¤Ç³Îǧ½ªÎ»
yy++;}
}
for(y=1;y<53;y++){
if( card[y] > 13 && card[y] <= 26) card[y] = card[y] + 100 - 13;
if( card[y] > 26 && card[y] <= 39) card[y] = card[y] + 200 - 26;
if( card[y] > 39 && card[y] <= 52) card[y] = card[y] + 300 - 39;
} //end for y
for(xx=1;xx<6;xx++){
hai[xx]=card[xx];
}
for(xx=1;xx<6;xx++){
nohai=hai[xx];
DispHai(nohai,xx);
}

//¼¡¤Î¤è¤¦¤ËÊѹ¹¡¡ÀĤòÀÖ¤Ë
for(xx=1;xx<6;xx++){
DispHai(0,xx);
}

hoji1=0;
hoji2=0;
hoji3=0;
hoji4=0;
hoji5=0;
start_flag=1; //°ìÅÙÄ̲ᤷ¤¿¤éÅÙÌܤò¶Ø»ß¤¹¤ë¥Õ¥é¥Ã¥°
}//end if start_flag=1;°ìÅÙÄ̲ᤷ¤¿¤éÅÙÌܤò¶Ø»ß¤¹¤ë
}


¥Ü¥¿¥ó£²¤ò¥¯¥ê¥Ã¥¯¤·¤Æ
¼¡¤Î¤è¤¦¤Ë¥«¡¼¥É¤Îɽ¼¨¤ò¤¹¤ë¤è¤¦¤Ë¤·¤Þ¤¹
basic¤ÎÆâÍÆ¡ÚÎСۤò¼¡¤Î¤è¤¦¤ËÊѹ¹¤¹¤ë¡ÚÀÖ¡Û
ÎФÎÉôʬ¤«¤éƱ¤¸½ê¤òÀÚ¤ê¼è¤ë

basic £ã¡Ü¡Ü


Private Sub card_hai()
If z = 1 Then Image59.Picture = Image1.Picture
If z = 2 Then Image59.Picture = Image2.Picture
If z = 3 Then Image59.Picture = Image3.Picture
If z = 4 Then Image59.Picture = Image4.Picture
If z = 5 Then Image59.Picture = Image5.Picture
If z = 6 Then Image59.Picture = Image6.Picture
If z = 7 Then Image59.Picture = Image7.Picture
If z = 8 Then Image59.Picture = Image8.Picture
If z = 9 Then Image59.Picture = Image9.Picture
If z = 10 Then Image59.Picture = Image10.Picture
If z = 11 Then Image59.Picture = Image11.Picture
If z = 12 Then Image59.Picture = Image12.Picture
If z = 13 Then Image59.Picture = Image13.Picture
If z = 101 Then Image59.Picture = Image14.Picture
If z = 102 Then Image59.Picture = Image15.Picture
If z = 103 Then Image59.Picture = Image16.Picture
If z = 104 Then Image59.Picture = Image17.Picture
If z = 105 Then Image59.Picture = Image18.Picture
If z = 106 Then Image59.Picture = Image19.Picture
If z = 107 Then Image59.Picture = Image20.Picture
If z = 108 Then Image59.Picture = Image21.Picture
If z = 109 Then Image59.Picture = Image22.Picture
If z = 110 Then Image59.Picture = Image23.Picture
If z = 111 Then Image59.Picture = Image24.Picture
If z = 112 Then Image59.Picture = Image25.Picture
If z = 113 Then Image59.Picture = Image26.Picture
If z = 201 Then Image59.Picture = Image27.Picture
If z = 202 Then Image59.Picture = Image28.Picture
If z = 203 Then Image59.Picture = Image29.Picture
If z = 204 Then Image59.Picture = Image30.Picture
If z = 205 Then Image59.Picture = Image31.Picture
If z = 206 Then Image59.Picture = Image32.Picture
If z = 207 Then Image59.Picture = Image33.Picture
If z = 208 Then Image59.Picture = Image34.Picture
If z = 209 Then Image59.Picture = Image35.Picture
If z = 210 Then Image59.Picture = Image36.Picture
If z = 211 Then Image59.Picture = Image37.Picture
If z = 212 Then Image59.Picture = Image38.Picture
If z = 213 Then Image59.Picture = Image39.Picture
If z = 301 Then Image59.Picture = Image40.Picture
If z = 302 Then Image59.Picture = Image41.Picture
If z = 303 Then Image59.Picture = Image42.Picture
If z = 304 Then Image59.Picture = Image43.Picture
If z = 305 Then Image59.Picture = Image44.Picture
If z = 306 Then Image59.Picture = Image45.Picture
If z = 307 Then Image59.Picture = Image46.Picture
If z = 308 Then Image59.Picture = Image47.Picture
If z = 309 Then Image59.Picture = Image48.Picture
If z = 310 Then Image59.Picture = Image49.Picture
If z = 311 Then Image59.Picture = Image50.Picture
If z = 312 Then Image59.Picture = Image51.Picture
If z = 313 Then Image59.Picture = Image52.Picture

 

End Sub

Private Sub disp()
z = card(1)
Call card_hai
Image54.Picture = Image59.Picture
z = card(2)
Call card_hai
Image55.Picture = Image59.Picture
z = card(3)
Call card_hai
Image56.Picture = Image59.Picture
z = card(4)
Call card_hai
Image57.Picture = Image59.Picture
z = card(5)
Call card_hai
Image58.Picture = Image59.Picture

End Sub

Private Sub CommandButton2_Click()
Call disp

End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

private: System::Void button2_Click(System::Object^ sender, System::EventArgs^ e) {
int xx;
for(xx=1;xx<6;xx++){
DispHai(card[xx],xx);
}
}

 

 

»²¹Í


void DispHai( int nohai,int xx){

Graphics^ gr=this->CreateGraphics();
int X0=10,Y0=1;
String^ filename;
filename="c:\\card\\1_sp.gif";
if(nohai==0 ) filename="c:\\card\\0_r1.gif" ;
//Pen^ pen1=gcnew Pen(col);
if(nohai>0 && nohai<14) filename="c:\\card\\"+nohai+"_sp.gif" ;
if(nohai>100 && nohai<114 ){nohai=nohai-100;
filename="c:\\card\\"+nohai+"_cl.gif" ;}
if(nohai>200 && nohai<214 ){nohai=nohai-200;
filename="c:\\card\\"+nohai+"_di.gif" ;}

if(nohai>300 && nohai<314){nohai=nohai-300;
filename="c:\\card\\"+nohai+"_he.gif" ;}
//¸¶²èÁü¤òº¸¾å¤ËÉÁ²è¤¹¤ë
if(xx==1){
Bitmap^ bmap1; //bmap1¤Î³ÎÊÝ
bmap1=gcnew Bitmap(filename);
gr->DrawImage(bmap1,X0,Y0);
}
if(xx==2){
Bitmap^ bmap2; //bmap2¤Î³ÎÊÝ
bmap2=gcnew Bitmap(filename);
gr->DrawImage(bmap2,X0+100,Y0);
}
if(xx==3){
Bitmap^ bmap3; //bmap3¤Î³ÎÊÝ
bmap3=gcnew Bitmap(filename);
gr->DrawImage(bmap3,X0+200,Y0);
}
if(xx==4){
Bitmap^ bmap4; //bmap4¤Î³ÎÊÝ
bmap4=gcnew Bitmap(filename);
gr->DrawImage(bmap4,X0+300,Y0);
}
if(xx==5){
Bitmap^ bmap5; //bmap5¤Î³ÎÊÝ
bmap5=gcnew Bitmap(filename);
gr->DrawImage(bmap5,X0+400,Y0);
}
}


private: System::Void Form1_Paint(System::Object^ sender, System::Windows::Forms::PaintEventArgs^ e) {
Graphics^ gr=e->Graphics;
}
private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
if(start_flag ==0){ //°ìÅÙÄ̲ᤷ¤¿¤éÅÙÌܤò¶Ø»ß¤¹¤ë
int amax,xrand,nohai;
int xx,yy,y;
char buf[80];
Graphics^ gr=this->CreateGraphics();
String^ string1;
Brush^ brush=gcnew SolidBrush(Color::Black);
System::Drawing::Font^ font=gcnew System::Drawing::Font("MS ¥´¥·¥Ã¥¯",10);

Random^ rand=gcnew Random(); //¤ÇÍð¿ôrand¤òÀ¸À®¤·¤Æ¤ª¤­¡¢
//£²¡Ë¡¡°Ê¾åint amax̤Ëþ¤ÎÍð¿ô¤òȯÀ¸¤·¤¿¤¤¾ì¹ç¤Ë¤Ï¡¢

amax=52;
for(xx=1;xx<54;xx++) card[xx]=0;
yy=1;
while(yy<20){
xrand=rand->Next(amax)+1;
int flag=0;
for(xx=1;xx<53;xx++) {if(card[xx]==xrand) flag=1;}
if(flag==0){ card[yy]=xrand;
//ʸ»ú¤Ç³Îǧ
sprintf_s(buf,80," %3d ",xrand);
string1=gcnew String(buf);
gr->DrawString(string1,font,brush,(float)16*yy,(float)300);
//ʸ»ú¤Ç³Îǧ½ªÎ»
yy++;}
}
for(y=1;y<53;y++){
if( card[y] > 13 && card[y] <= 26) card[y] = card[y] + 100 - 13;
if( card[y] > 26 && card[y] <= 39) card[y] = card[y] + 200 - 26;
if( card[y] > 39 && card[y] <= 52) card[y] = card[y] + 300 - 39;
} //end for y

for(xx=1;xx<6;xx++){
DispHai(0,xx);
}
hoji1=0;
hoji2=0;
hoji3=0;
hoji4=0;
hoji5=0;

start_flag=1; //°ìÅÙÄ̲ᤷ¤¿¤éÅÙÌܤò¶Ø»ß¤¹¤ë¥Õ¥é¥Ã¥°
}//end if start_flag=1;°ìÅÙÄ̲ᤷ¤¿¤éÅÙÌܤò¶Ø»ß¤¹¤ë

 

}
private: System::Void button2_Click(System::Object^ sender, System::EventArgs^ e) {
int xx;
for(xx=1;xx<6;xx++){
DispHai(card[xx],xx);
}


¼ÂºÝ¤Îsample¡¡sample4.exe sample4.zip

 

 
Æ°²è¤¬»Ý¤¯¤´Í÷¤¤¤¿¤À¤±¤Ê¤¤¾ì¹ç¤ÏºÇ¿·¤ÎFlash Player¤ò¥¤¥ó¥¹¥È¡¼¥ë¤·¤Æ¤¯¤À¤µ¤¤
web ¥Ö¥é¥¦¥¶¤¬¥¤¥ó¥¿¡¼¥Í¥Ã¥È¥¨¥¯¥¹¥×¥í¡¼¥é£¶¡Ê£É£Å£¶¡Ë°Ê²¼¤Î¾ì¹ç¥á¥Ë¥å¡¼¤¬Êø¤ì¤Æ¤·¤Þ¤¦¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£
¥¤¥ó¥¿¡¼¥Í¥Ã¥È¥¨¥¯¥¹¥×¥í¡¼¥é£·¡¢Sleipnir¡¢Mozilla Firefox¤ò¤´»ÈÍѤ¯¤À¤µ¤¤¡£