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

pc2

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

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

 






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

 

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

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

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

Top¤ËÌá¤ë

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

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


¹©ºî


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


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




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

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

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

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


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

 

 

 

 

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

 

Visual Studio 2008 Express Edition ¤Ç¥È¥é¥ó¥×¥²¡¼¥à¤òºî¤í¤¦
ºÇ½ª³Îǧ
¥×¥í¥¸¥§¥¯¥È¤Ë¥³¥Ô¡¼¤·¤ÆÍøÍѤ·¤Æ¤¯¤À¤µ¤¤
¡Ú¥æ¡¼¥¶¡¼¡Û¡Ú¥É¥­¥å¥á¥ó¥È¡Û¡ÚVisual Studio 2008¡Û¡ÚProjects¡Û¡Ú¤³¤³¤Ë¥³¥Ô¡¼¡Û
¼Â¹Ô¥Õ¥¡¥¤¥ë¡ÚRelease.zip¡Û


//stdafx.h¤ÎÆâÍÆ

// stdafx.h : ɸ½à¤Î¥·¥¹¥Æ¥à ¥¤¥ó¥¯¥ë¡¼¥É ¥Õ¥¡¥¤¥ë¤Î¥¤¥ó¥¯¥ë¡¼¥É ¥Õ¥¡¥¤¥ë¡¢¤Þ¤¿¤Ï
// »²¾È²ó¿ô¤¬Â¿¤¯¡¢¤«¤Ä¤¢¤Þ¤êÊѹ¹¤µ¤ì¤Ê¤¤¡¢¥×¥í¥¸¥§¥¯¥ÈÀìÍѤΥ¤¥ó¥¯¥ë¡¼¥É ¥Õ¥¡¥¤¥ë
// ¤òµ­½Ò¤·¤Þ¤¹¡£
#pragma once

// TODO: ¥×¥í¥°¥é¥à¤ËɬÍפÊÄɲåإåÀ¡¼¤ò¤³¤³¤Ç»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£
#include<stdio.h>

 


//Form1¤ÎÆâÍÆ

#pragma once
static int card[55];
//static int hai[12];
static int keta[12];
static int yaku[12];
static int start_flag=0;
static int tokuten=0;

namespace basictoc {

using namespace System;
using namespace System::ComponentModel;
using namespace System::Collections;
using namespace System::Windows::Forms;
using namespace System::Data;
using namespace System::Drawing;

/// <summary>
/// Form1 ¤Î³µÍ×
///
/// ·Ù¹ð: ¤³¤Î¥¯¥é¥¹¤Î̾Á°¤òÊѹ¹¤¹¤ë¾ì¹ç¡¢¤³¤Î¥¯¥é¥¹¤¬°Í¸¤¹¤ë¤¹¤Ù¤Æ¤Î .resx ¥Õ¥¡¥¤¥ë¤Ë´ØÏ¢ÉÕ¤±¤é¤ì¤¿
/// ¥Þ¥Í¡¼¥¸ ¥ê¥½¡¼¥¹ ¥³¥ó¥Ñ¥¤¥é ¥Ä¡¼¥ë¤ËÂФ·¤Æ 'Resource File Name' ¥×¥í¥Ñ¥Æ¥£¤ò
/// Êѹ¹¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£¤³¤ÎÊѹ¹¤ò¹Ô¤ï¤Ê¤¤¤È¡¢
/// ¥Ç¥¶¥¤¥Ê¤È¡¢¤³¤Î¥Õ¥©¡¼¥à¤Ë´ØÏ¢ÉÕ¤±¤é¤ì¤¿¥í¡¼¥«¥é¥¤¥ººÑ¤ß¥ê¥½¡¼¥¹¤È¤¬¡¢
/// Àµ¤·¤¯Áê¸ß¤ËÍøÍѤǤ­¤Ê¤¯¤Ê¤ê¤Þ¤¹¡£
/// </summary>
public ref class Form1 : public System::Windows::Forms::Form
{
public:
Form1(void)
{
InitializeComponent();
//
//TODO: ¤³¤³¤Ë¥³¥ó¥¹¥È¥é¥¯¥¿ ¥³¡¼¥É¤òÄɲä·¤Þ¤¹
//
}

protected:
/// <summary>
/// »ÈÍÑÃæ¤Î¥ê¥½¡¼¥¹¤ò¤¹¤Ù¤Æ¥¯¥ê¡¼¥ó¥¢¥Ã¥×¤·¤Þ¤¹¡£
/// </summary>
~Form1()
{
if (components)
{
delete components;
}
}
private: System::Windows::Forms::Button^ button1;
protected:
private: System::Windows::Forms::Button^ button2;
private: System::Windows::Forms::Button^ button3;
private: System::Windows::Forms::CheckBox^ checkBox1;
private: System::Windows::Forms::CheckBox^ checkBox2;
private: System::Windows::Forms::CheckBox^ checkBox3;
private: System::Windows::Forms::CheckBox^ checkBox4;
private: System::Windows::Forms::CheckBox^ checkBox5;
private: System::Windows::Forms::TextBox^ textBox1;
private: System::Windows::Forms::TextBox^ textBox2;
private: System::Windows::Forms::Button^ button4;
private: System::Windows::Forms::TextBox^ textBox3;
private: System::Windows::Forms::TextBox^ textBox4;
private: System::Windows::Forms::TextBox^ textBox5;
private: System::Windows::Forms::TextBox^ textBox6;
private: System::Windows::Forms::TextBox^ textBox7;
private: System::Windows::Forms::TextBox^ textBox8;

private:
/// <summary>
/// ɬÍפʥǥ¶¥¤¥ÊÊÑ¿ô¤Ç¤¹¡£
/// </summary>
System::ComponentModel::Container ^components;
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);
}
}
#pragma region Windows Form Designer generated code
/// <summary>
/// ¥Ç¥¶¥¤¥Ê ¥µ¥Ý¡¼¥È¤ËɬÍפʥ᥽¥Ã¥É¤Ç¤¹¡£¤³¤Î¥á¥½¥Ã¥É¤ÎÆâÍƤò
/// ¥³¡¼¥É ¥¨¥Ç¥£¥¿¤ÇÊѹ¹¤·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£
/// </summary>
void InitializeComponent(void)
{
this->button1 = (gcnew System::Windows::Forms::Button());
this->button2 = (gcnew System::Windows::Forms::Button());
this->button3 = (gcnew System::Windows::Forms::Button());
this->checkBox1 = (gcnew System::Windows::Forms::CheckBox());
this->checkBox2 = (gcnew System::Windows::Forms::CheckBox());
this->checkBox3 = (gcnew System::Windows::Forms::CheckBox());
this->checkBox4 = (gcnew System::Windows::Forms::CheckBox());
this->checkBox5 = (gcnew System::Windows::Forms::CheckBox());
this->textBox1 = (gcnew System::Windows::Forms::TextBox());
this->textBox2 = (gcnew System::Windows::Forms::TextBox());
this->button4 = (gcnew System::Windows::Forms::Button());
this->textBox3 = (gcnew System::Windows::Forms::TextBox());
this->textBox4 = (gcnew System::Windows::Forms::TextBox());
this->textBox5 = (gcnew System::Windows::Forms::TextBox());
this->textBox6 = (gcnew System::Windows::Forms::TextBox());
this->textBox7 = (gcnew System::Windows::Forms::TextBox());
this->textBox8 = (gcnew System::Windows::Forms::TextBox());
this->SuspendLayout();
//
// button1
//
this->button1->Location = System::Drawing::Point(32, 168);
this->button1->Margin = System::Windows::Forms::Padding(2, 2, 2, 2);
this->button1->Name = L"button1";
this->button1->Size = System::Drawing::Size(81, 30);
this->button1->TabIndex = 0;
this->button1->Text = L"button1";
this->button1->UseVisualStyleBackColor = true;
this->button1->Click += gcnew System::EventHandler(this, &Form1::button1_Click);
//
// button2
//
this->button2->Location = System::Drawing::Point(144, 168);
this->button2->Margin = System::Windows::Forms::Padding(2, 2, 2, 2);
this->button2->Name = L"button2";
this->button2->Size = System::Drawing::Size(82, 26);
this->button2->TabIndex = 1;
this->button2->Text = L"button2";
this->button2->UseVisualStyleBackColor = true;
this->button2->Click += gcnew System::EventHandler(this, &Form1::button2_Click);
//
// button3
//
this->button3->Location = System::Drawing::Point(256, 168);
this->button3->Margin = System::Windows::Forms::Padding(2, 2, 2, 2);
this->button3->Name = L"button3";
this->button3->Size = System::Drawing::Size(77, 26);
this->button3->TabIndex = 2;
this->button3->Text = L"button3";
this->button3->UseVisualStyleBackColor = true;
this->button3->Click += gcnew System::EventHandler(this, &Form1::button3_Click);
//
// checkBox1
//
this->checkBox1->AutoSize = true;
this->checkBox1->Location = System::Drawing::Point(9, 123);
this->checkBox1->Margin = System::Windows::Forms::Padding(2, 2, 2, 2);
this->checkBox1->Name = L"checkBox1";
this->checkBox1->Size = System::Drawing::Size(80, 16);
this->checkBox1->TabIndex = 3;
this->checkBox1->Text = L"checkBox1";
this->checkBox1->UseVisualStyleBackColor = true;
//
// checkBox2
//
this->checkBox2->AutoSize = true;
this->checkBox2->Location = System::Drawing::Point(98, 123);
this->checkBox2->Margin = System::Windows::Forms::Padding(2, 2, 2, 2);
this->checkBox2->Name = L"checkBox2";
this->checkBox2->Size = System::Drawing::Size(80, 16);
this->checkBox2->TabIndex = 4;
this->checkBox2->Text = L"checkBox2";
this->checkBox2->UseVisualStyleBackColor = true;
//
// checkBox3
//
this->checkBox3->AutoSize = true;
this->checkBox3->Location = System::Drawing::Point(190, 123);
this->checkBox3->Margin = System::Windows::Forms::Padding(2, 2, 2, 2);
this->checkBox3->Name = L"checkBox3";
this->checkBox3->Size = System::Drawing::Size(80, 16);
this->checkBox3->TabIndex = 5;
this->checkBox3->Text = L"checkBox3";
this->checkBox3->UseVisualStyleBackColor = true;
//
// checkBox4
//
this->checkBox4->AutoSize = true;
this->checkBox4->Location = System::Drawing::Point(270, 123);
this->checkBox4->Margin = System::Windows::Forms::Padding(2, 2, 2, 2);
this->checkBox4->Name = L"checkBox4";
this->checkBox4->Size = System::Drawing::Size(80, 16);
this->checkBox4->TabIndex = 6;
this->checkBox4->Text = L"checkBox4";
this->checkBox4->UseVisualStyleBackColor = true;
//
// checkBox5
//
this->checkBox5->AutoSize = true;
this->checkBox5->Location = System::Drawing::Point(359, 123);
this->checkBox5->Margin = System::Windows::Forms::Padding(2, 2, 2, 2);
this->checkBox5->Name = L"checkBox5";
this->checkBox5->Size = System::Drawing::Size(80, 16);
this->checkBox5->TabIndex = 7;
this->checkBox5->Text = L"checkBox5";
this->checkBox5->UseVisualStyleBackColor = true;
//
// textBox1
//
this->textBox1->Location = System::Drawing::Point(32, 222);
this->textBox1->Margin = System::Windows::Forms::Padding(2, 2, 2, 2);
this->textBox1->Name = L"textBox1";
this->textBox1->Size = System::Drawing::Size(216, 19);
this->textBox1->TabIndex = 8;
//
// textBox2
//
this->textBox2->Location = System::Drawing::Point(270, 222);
this->textBox2->Margin = System::Windows::Forms::Padding(2, 2, 2, 2);
this->textBox2->Name = L"textBox2";
this->textBox2->Size = System::Drawing::Size(121, 19);
this->textBox2->TabIndex = 9;
//
// button4
//
this->button4->Location = System::Drawing::Point(378, 174);
this->button4->Margin = System::Windows::Forms::Padding(2, 2, 2, 2);
this->button4->Name = L"button4";
this->button4->Size = System::Drawing::Size(85, 20);
this->button4->TabIndex = 10;
this->button4->Text = L"button4";
this->button4->UseVisualStyleBackColor = true;
this->button4->Click += gcnew System::EventHandler(this, &Form1::button4_Click);
//
// textBox3
//
this->textBox3->Location = System::Drawing::Point(31, 264);
this->textBox3->Name = L"textBox3";
this->textBox3->Size = System::Drawing::Size(407, 19);
this->textBox3->TabIndex = 11;
//
// textBox4
//
this->textBox4->Location = System::Drawing::Point(30, 300);
this->textBox4->Name = L"textBox4";
this->textBox4->Size = System::Drawing::Size(407, 19);
this->textBox4->TabIndex = 12;
//
// textBox5
//
this->textBox5->Location = System::Drawing::Point(28, 347);
this->textBox5->Name = L"textBox5";
this->textBox5->Size = System::Drawing::Size(408, 19);
this->textBox5->TabIndex = 13;
//
// textBox6
//
this->textBox6->Location = System::Drawing::Point(27, 390);
this->textBox6->Name = L"textBox6";
this->textBox6->Size = System::Drawing::Size(411, 19);
this->textBox6->TabIndex = 14;
//
// textBox7
//
this->textBox7->Location = System::Drawing::Point(28, 436);
this->textBox7->Name = L"textBox7";
this->textBox7->Size = System::Drawing::Size(407, 19);
this->textBox7->TabIndex = 15;
//
// textBox8
//
this->textBox8->Location = System::Drawing::Point(28, 479);
this->textBox8->Name = L"textBox8";
this->textBox8->Size = System::Drawing::Size(406, 19);
this->textBox8->TabIndex = 16;
//
// Form1
//
this->AutoScaleDimensions = System::Drawing::SizeF(6, 12);
this->AutoScaleMode = System::Windows::Forms::AutoScaleMode::Font;
this->ClientSize = System::Drawing::Size(493, 568);
this->Controls->Add(this->textBox8);
this->Controls->Add(this->textBox7);
this->Controls->Add(this->textBox6);
this->Controls->Add(this->textBox5);
this->Controls->Add(this->textBox4);
this->Controls->Add(this->textBox3);
this->Controls->Add(this->button4);
this->Controls->Add(this->textBox2);
this->Controls->Add(this->textBox1);
this->Controls->Add(this->checkBox5);
this->Controls->Add(this->checkBox4);
this->Controls->Add(this->checkBox3);
this->Controls->Add(this->checkBox2);
this->Controls->Add(this->checkBox1);
this->Controls->Add(this->button3);
this->Controls->Add(this->button2);
this->Controls->Add(this->button1);
this->Margin = System::Windows::Forms::Padding(2, 2, 2, 2);
this->Name = L"Form1";
this->Text = L"Form1";
this->Paint += gcnew System::Windows::Forms::PaintEventHandler(this, &Form1::Form1_Paint);
this->ResumeLayout(false);
this->PerformLayout();

}
#pragma endregion
private: System::Void Form1_Paint(System::Object^ sender, System::Windows::Forms::PaintEventArgs^ e) {
Graphics^ gr=this->CreateGraphics();
}
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;//ʸ»ú¤Ç³ÎǧÍÑ
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 ",card[yy]);//ʸ»ú¤Ç³ÎǧÍÑ
string1=string1+gcnew String(buf);//ʸ»ú¤Ç³ÎǧÍÑ
//gr->DrawString(string1,font,brush,(float)16*yy,(float)300);
//ʸ»ú¤Ç³Îǧ½ªÎ»
yy++;}
textBox3->Text=string1;//ʸ»ú¤Ç³ÎǧÍÑ

}//while end
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);
}
start_flag=1; //°ìÅÙÄ̲ᤷ¤¿¤éÅÙÌܤò¶Ø»ß¤¹¤ë¥Õ¥é¥Ã¥°
}//end if
}
private: System::Void button2_Click(System::Object^ sender, System::EventArgs^ e) {
if(start_flag==1){
int xx,testdata;
char buf[80];//ʸ»ú¤Ç³ÎǧÍÑ
String^ string1;//ʸ»ú¤Ç³ÎǧÍÑ
string1="";//ʸ»ú¤Ç³ÎǧÍÑ
for(xx=1;xx<6;xx++){
//ʸ»ú¤Ç³Îǧ
DispHai(card[xx],xx);//ʸ»ú¤Ç³ÎǧÍÑ
sprintf_s(buf,80," %3d ",card[xx]);//ʸ»ú¤Ç³ÎǧÍÑ
string1=string1+gcnew String(buf);//ʸ»ú¤Ç³ÎǧÍÑ
} //Next x¡¡
textBox4->Text=string1;//ʸ»ú¤Ç³Îǧ½ªÎ»
start_flag=2;
} // End if
}
private: System::Void button3_Click(System::Object^ sender, System::EventArgs^ e) {
if(start_flag==2){
int x,y,w,oitoku,testdata;
int flash=0;
int flag=0;
char buf[80];
x = 6;
if( checkBox1->Checked ){}else{
card[1] = card[x];
x = x + 1;
}
if( checkBox2->Checked ){}else{
card[2] = card[x];
x = x + 1;
}
if( checkBox3->Checked ){}else{
card[3] = card[x];
x = x + 1;
}
if( checkBox4->Checked ){}else{
card[4] = card[x];
x = x + 1;
}
if( checkBox5->Checked ){}else{
card[5] = card[x];
x = x + 1;
}
for(x=1;x<6;x++) DispHai(card[x],x);

// yaku no kaiseki
// flash no kaiseki
//ʸ»ú¤Ç³Îǧ
String^ string1;//ʸ»ú
string1 = "Ìò¤Ê¤·";//ʸ»ú
String^ string2;//ʸ»ú
string2 = "";//ʸ»ú
String^ string3;//ʸ»ú¤Ç³ÎǧÍÑ
string3 = "";//ʸ»ú¤Ç³ÎǧÍÑ

//ʸ»ú¤Ç³Îǧ½ªÎ»
textBox1->Text=string1;
int clab = 0;
int daiya = 0;
int hart = 0;
int supedo = 0;
flash = 0;
for( x = 1 ; x<= 5; x++){
if( card[x] > 0 && card[x] <= 13 ) clab = clab + 1;
if( card[x] > 100 && card[x] <= 113 ) daiya = daiya + 1;
if( card[x] > 200 && card[x] <= 213 ) hart = hart + 1;
if( card[x] > 300 && card[x] <= 313 ) supedo = supedo + 1;
}//Next x
//ʸ»ú¤Ç³Îǧ
sprintf_s(buf,80," clab=%3d daiya=%3d hart=%3d spped=%3d ",clab,daiya,hart,supedo);//ʸ»ú¤Ç³ÎǧÍÑ
string3=gcnew String(buf);//ʸ»ú¤Ç³ÎǧÍÑ
textBox5->Text=string3;//ʸ»ú¤Ç³ÎǧÍÑ
//ʸ»ú¤Ç³Îǧ½ªÎ»
if( clab == 5 ){
textBox1->Text= "¥¯¥é¥Ö¤Î¥Õ¥é¥Ã¥·¥å";
flash = 1;
tokuten = tokuten + 509;
}//End if

if( daiya == 5 ){
textBox1->Text== "¥À¥¤¥ä¤Î¥Õ¥é¥Ã¥·¥å";
flash = 1;
tokuten = tokuten + 509;
}//End if

if( hart == 5 ){
textBox1->Text="¥Ï¡¼¥È¤Î¥Õ¥é¥Ã¥·¥å";
flash = 1;
tokuten = tokuten + 509;
}//End if
if( supedo == 5 ){
textBox1->Text="¥¹¥Ú¡¼¥É¤Î¥Õ¥é¥Ã¥·¥å";
flash = 1;
tokuten = tokuten + 509;
}//End if

//Rem ¥Ú¥¢¡¼¤Î²òÀÏ
for( x = 6 ; x<= 10;x++){
keta[x] = 0;
} //Next x
string3="";//ʸ»ú¤Ç³Îǧ
for( x = 1 ; x<= 5;x++){
y = card[x];
//Cells(x, 3) = y
if( card[x] > 100 ) y = card[x] - 100;
if( card[x] > 200 ) y = card[x] - 200;
if( card[x] > 300 ) y = card[x] - 300;
//Cells(x, 4) = y
keta[x] = y;
//ʸ»ú¤Ç³Îǧ
sprintf_s(buf,80," keta[%1d] %3d ",x,keta[x]);//ʸ»ú¤Ç³ÎǧÍÑ
string3=string3+gcnew String(buf);//ʸ»ú¤Ç³ÎǧÍÑ
} //Next x
textBox6->Text=string3;//ʸ»ú¤Ç³ÎǧÍÑ
//ʸ»ú¤Ç³Îǧ½ªÎ»

string3="";//ʸ»ú¤Ç³ÎǧÍÑ
for( x = 1 ; x<= 5;x++){
yaku[x] = 0;
for( w = 1 ; w<= 5;w++){
if( keta[x] == keta[w] ) yaku[x] = yaku[x] + 1;
} //Next w
//Cells(x, 5) = yaku[x)
//ʸ»ú¤Ç³Îǧ
sprintf_s(buf,80," yaku[%1d] %3d ",x,yaku[x]);//ʸ»ú¤Ç³ÎǧÍÑ
string3=string3+gcnew String(buf);//ʸ»ú¤Ç³ÎǧÍÑ
} //Next x
textBox7->Text=string3;//ʸ»ú¤Ç³ÎǧÍÑ
int twopai = 0;
int threepai = 0;
for( x = 1 ; x<= 5;x++){
if( yaku[x] == 2 ) twopai = twopai + 1;
if( yaku[x] == 3 ) threepai = 1;
if( yaku[x] == 4 ){
textBox1->Text="¥Õ¥©¡¼¥«¡¼¥É";
flash = 1;
tokuten = tokuten + 4165;
}
} //Next x
if( twopai == 2 ){
textBox1->Text="¥ï¥ó¥Ú¥¢¡¼";
tokuten = tokuten + 3;
} //End if

if( twopai == 4 ){
textBox1->Text="¥Ä¡¼¥Ú¥¢¡¼";
tokuten =tokuten + 21;
} //End if

if( threepai == 1 ){
textBox1->Text="¥¹¥ê¡¼¥«¡¼¥É";
tokuten =tokuten + 47;
} //End if
if( threepai == 1 && twopai == 2 ){
textBox1->Text="¥Õ¥ë¥Ï¥¦¥¹";
tokuten =tokuten + 694;
} //End if
//Rem ¥¹¥È¥ì¡¼¥È¤Î²òÀÏ
for( x = 1 ; x<= 5;x++){
for( y = 1 ; y<= 5;y++){
if( keta[x] < keta[y] ){
oitoku = keta[x];
keta[x] = keta[y];
keta[y] = oitoku;
} //End if
} //Next y
} //Next x

//for( x = 1 ; <= 5;x++){
//Cells(x, 6) = keta[x)
//}//Next x

if( keta[1] == 1 && keta[5] == 13 ){
for( x = 1 ; x<= 5;x++){
if( keta[x] == x ){
keta[x + 5] = keta[x] + 13;
//Cells(x + 5, 7) = keta[x) + 13
} //End If
} //Next x
} //End If
flag = 0;
string3="";//ʸ»ú¤Ç³ÎǧÍÑ
for( x = 1 ; x<= 9;x++){
if( keta[x] == keta[x + 1] - 1 ){ flag = flag + 1;}
sprintf_s(buf,80," keta[%1d]%2d ",x,keta[x]);//ʸ»ú¤Ç³ÎǧÍÑ
string3=string3+gcnew String(buf);//ʸ»ú¤Ç³ÎǧÍÑ
} //Next x
textBox8->Text=string3;//ʸ»ú¤Ç³ÎǧÍÑ

if( flag >= 4 ){
textBox1->Text="¥¹¥È¥ì¡¼¥È";
tokuten = tokuten + 255;

if( flash == 1 ){
textBox1->Text="¥¹¥È¥ì¡¼¥È¥Õ¥é¥Ã¥·¥å";
tokuten = tokuten + 72193 - 255;

if( keta[1] == 1 && keta[5] == 13 ){
textBox1->Text="¥í¥¤¥ä¥ë¥¹¥È¥ì¡¼¥È¥Õ¥é¥Ã¥·¥å";
tokuten = tokuten + 649740 - 72193;
}//End if¥í¥¤¥ä¥ë¥¹¥È¥ì¡¼¥È¥Õ¥é¥Ã¥·¥å
} //End if¥¹¥È¥ì¡¼¥È¥Õ¥é¥Ã¥·¥å
} //End if¥¹¥È¥ì¡¼¥È
sprintf_s(buf,80," %10d ",tokuten);
string2=gcnew String(buf);
textBox2->Text=string2;
start_flag=0;
}// End if

}
private: System::Void button4_Click(System::Object^ sender, System::EventArgs^ e) {
card[6]=1;
card[7]=102;
card[8]=203;
card[9]=304;
card[10]=13;
}
};

}


¸«ËÜ¡¡¸µ¡¡toranpu.zip¡¡¥³¥ó¥Ð¡¼¥ÈÈÇ¡¡basic-to-c.zip

Ãí°Õ¡¡filename="c:\\card\\1_sp.gif";¤ò¸«¤Æ¡¡Àµ¤·¤¤¥Ç¥£¥ì¥¯¥È¥ê¤Ë¡¡card¡¡¤òÆþ¤ì¤Æ¤¯¤À¤µ¤¤

¥ê¥ê¡¼¥¹ÈÇ¡¡¥«¡¼¥É¤¬Æþ¤Ã¤Æ¤¤¤Þ¤¹¡¡

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