请问谁有JAVA的经典程序求！！！～～

import javaawtBorderLayout;

import javaawtColor;

import javaawtGraphics;

import javaawtGraphics2D;

import javaawtgeomEllipse2D;

import javautilTimer;

import javautilTimerTask;

import javaxswingJComponent;

import javaxswingJFrame;

import javaxswingJLabel;

import javaxswingJOptionPane;

@SuppressWarnings("serial")

public class demo extends JFrame{

static double i=20,m=20,n=20,h=20,o=20,l=20;

static JLabel label;

static String string;

static int horse,p;

/

@param args the command line arguments

/

public static void main(String[] args) {

// TODO code application logic here

string = JOptionPaneshowInputDialog(null,"1到6号马，请输入您的参赛马的序号：");

horse = IntegerparseInt(string);

demo frame = new demo();

label = new JLabel("赛马游戏");

framesetTitle("赛马游戏");

framesetSize(810,250);

framesetLocation(100, 100);

framesetLayout(new BorderLayout());

framesetDefaultCloseOperation(JFrameEXIT_ON_CLOSE);

framesetResizable(false);

frameadd(label,BorderLayoutNORTH);

font ff = new font();

frameadd(ff);

framesetVisible(true);

}

static public class font extends JComponent{

public font(){

task task = new task();

Timer t = new Timer();

tschedule(task, 1000,200);

}

@Override

public void paintComponent(Graphics g){

Graphics2D g1 = (Graphics2D) g;

g1setPaint(ColorRED);

for(int f=1,i=40;i<=140;i+=20,f++){

g1drawString(f+":", 10, i);

g1drawLine(30, i, 800, i);

}

Ellipse2D e = new Ellipse2DDouble(i,20,20,20);

g1setPaint(ColorRED);

g1draw(e);

g1fill(e);

Ellipse2D e1 = new Ellipse2DDouble(m,40,20,20);

g1setPaint(ColorBLUE);

g1draw(e1);

g1fill(e1);

Ellipse2D e2 = new Ellipse2DDouble(n,60,20,20);

g1setPaint(ColorGREEN);

g1draw(e2);

g1fill(e2);

Ellipse2D e3 = new Ellipse2DDouble(h,80,20,20);

g1setPaint(ColorBLACK);

g1draw(e3);

g1fill(e3);

Ellipse2D e4 = new Ellipse2DDouble(o,100,20,20);

g1setPaint(ColorYELLOW);

g1draw(e4);

g1fill(e4);

Ellipse2D e5 = new Ellipse2DDouble(l,120,20,20);

g1setPaint(ColorCYAN);

g1draw(e5);

g1fill(e5);

g1setPaint(ColorBLACK);

g1drawLine(800, 20, 800, 200);

repaint();

}

class task extends TimerTask {

@Override

public void run() {

i+=Mathrandom()10;

m+=Mathrandom()10;

n+=Mathrandom()10;

h+=Mathrandom()10;

o+=Mathrandom()10;

l+=Mathrandom()10;

if((i>=780)||(m>=780)||(n>=780)||(h>=780)

||(o>=780)||(l>=780)){

if((i>=780)==true){

p=1;

}else{

if((m>=780)==true){

p=2;

}else{

if((n>=780)==true){

p=3;

}else{

if((h>=780)==true){

p=4;

}else{

if((o>=780)==true){

p=5;

}else{

if((l>=780)==true){

p=6;

}

}

}

}

}

}

if(p==horse){

JOptionPaneshowMessageDialog(null, "恭喜您，您买的"+horse+"号马赢了！");

}else{

JOptionPaneshowMessageDialog(null, p+"号马赢了！ 您选择的 "+horse+"号马输了！");

}

Systemexit(0);

}

}

}

}

}

这个是我自己写赛马游戏我感觉挺好玩的反正就此猜呗嘿嘿

C语言经典小程序

用vs，vc都可以正常运行

#include

#include

#include

// 获取控制台窗口句柄

HWND GetConsoleHwnd(void)

{

#define MY_BUFSIZE 1024 // Buffer size for console window titles

HWND hwndFound; // This is what is returned to the caller

char pszNewWindowTitle[MY_BUFSIZE]; // Contains fabricated

char pszOldWindowTitle[MY_BUFSIZE]; // Contains original

GetConsoleTitle(pszOldWindowTitle, MY_BUFSIZE);//获取控制台标题存入pszOldWindowTitle中

//设置控制台的标题为 时间数 进程ID

wsprintf(pszNewWindowTitle,"%d/%d",//把获取的数目，和当前进程ID输出到缓冲区pszNewwindowtitle中

GetTickCount(),//用于获取 *** 作系统启动后的毫秒数

GetCurrentProcessId());//获取当前进程ID

SetConsoleTitle(pszNewWindowTitle);//更改控制台的标题为新内容

Sleep(40);

hwndFound=FindWindow(NULL, pszNewWindowTitle);//获取控制台的HWND号

SetConsoleTitle(pszOldWindowTitle);//更改控制台的标题为原始内容

return(hwndFound);//返回句柄

}

{

HWND hWnd=GetConsoleHwnd();//获取控制台窗口句柄，用于设置画笔颜色

HDC hDC=GetDC(hWnd);

COORD dwSize;//记录窗体大小，用于设定坐标轴远点

HPEN hNewPen=CreatePen(PS_SOLID,1,RGB(255,0,0));//创建画笔对象

HPEN hOldPen=(HPEN)SelectObject(hDC,hNewPen);//选取画笔对象进行绘图

CONSOLE_SCREEN_BUFFER_INFO bInfo; // 窗口信息

HANDLE Hout=GetStdHandle(STD_OUTPUT_HANDLE);//获取控制台句柄

GetConsoleScreenBufferInfo(Hout, &bInfo );//获取控制台信息

dwSize=bInfodwMaximumWindowSize ;//获取窗口大小,此时获得的是字符模式下

//从字符到图像放大坐标轴8倍

dwSizeX =8;

dwSizeY=8;

SetBkMode(hDC, TRANSPARENT);SetTextColor(hDC,255255);

//绘制X轴各个特殊坐标

TextOut(hDC,dwSizeX-15,dwSizeY/2-15,"X",1);

//Arc(hDC,100,100,300,300,350,500,350,500);//画圆 其中hDC表示画图句柄，100，100，300，300表示所使用的矩形区域，350，500表示画弧线的起点，350，500表明画弧线的终点 ;

//绘制Y轴各个特殊坐标

TextOut(hDC,dwSizeX/2,0,"Y",1);

MoveToEx(hDC,0,dwSizeY /2,NULL);

LineTo(hDC,dwSizeX,dwSizeY/2);

MoveToEx(hDC,dwSizeX/2,0,NULL);

LineTo(hDC,dwSizeX/2,dwSizeY);

ReleaseDC(hWnd,hDC);

}

void draw(double p)

{

int i;

double x,y;

HWND hWnd=GetConsoleHwnd();//获取控制台窗口句柄，用于设置画笔颜色

HDC hDC=GetDC(hWnd);

COORD dwSize;//记录窗体大小，用于设定坐标轴远点

HPEN hNewPen=CreatePen(PS_SOLID,1,RGB(255,0,0));//创建画笔对象

HPEN hOldPen=(HPEN)SelectObject(hDC,hNewPen);//选取画笔对象进行绘图

CONSOLE_SCREEN_BUFFER_INFO bInfo; // 窗口信息

HANDLE Hout=GetStdHandle(STD_OUTPUT_HANDLE);//获取控制台句柄

GetConsoleScreenBufferInfo(Hout, &bInfo );//获取控制台信息

dwSize=bInfodwMaximumWindowSize ;//获取窗口大小,此时获得的是字符模式下

//从字符到图像放大坐标轴8倍

dwSizeX =8;

dwSizeY=8;

//MoveToEx(hDC,0,dwSizeY/2,NULL);

for(i=-180;i

{

x=16pow(sin(i31415926/180),30)p;

y=(13cos(i31415926/180)-5cos(2i31415926/180)-2cos(3i31415926/180)-cos(4i31415926/180))p;

x=(x+16)dwSizeX/32/2+dwSizeX/4;

y=-y/16dwSizeY/23+dwSizeY/2;

x=x;

y=y;

MoveToEx(hDC,x,y,NULL);

LineTo(hDC,x+1,y+1);

}

}

void main()

{

double p;

for(p=06;p

draw(p);

system("PAUSE");

}

'添加一个名为label1的标签控件，并将其index设为0；再添加一个名为command1的按钮控件

Dim a(1 To 9) As Boolean

Dim win As Boolean, begin As Boolean, haveload As Boolean, start As BooleanPrivate Sub Command1_Click()

start = True: begin = False

For i = 1 To 9

a(i) = False

Next i

Form_Load

End SubPrivate Sub Form_Load()

a(9) = True

Label1(0)Visible = False

MeHeight = 4400

MeWidth = 4000

Scale (0, 0)-(3, 33)

If haveload = False Then

haveload = True: start = True

Command1Top = 3: Command1Left = 2

Command1Width = 1: Command1Height = 03

Command1Caption = "开始"

For i = 1 To 9

Load Label1(i)

Next i

End If

For i = 1 To 9

Label1(i)Height = 1

Label1(i)Width = 1

Label1(i)Visible = True

Label1(i)Top = (i - 1) \ 3

Label1(i)Left = (i - 1) Mod 3

Label1(i)Caption = Str(i)

Label1(i)BackColor = QBColor(i)

Label1(i)FontBold = True

Label1(i)FontSize = 40

Next i

Label1(9)Caption = "": Label1(9)BackColor = vbWhite

Randomize

For i = 1 To 500

r% = Int(9 Rnd) + 1

Call Label1_Click(r)

Next i

begin = True

End SubPrivate Sub Label1_Click(index As Integer)

Dim x1 As Integer, y1 As Integer

If start = True Then

If a(index) = False Then

x1 = (index - 1) Mod 3: y1 = (index - 1) \ 3

If x1 - 1 > -02 Then

If a(x1 + y1 3) = True Then Call yidong(x1 + y1 3, index)

End If

If x1 + 1 < 22 Then

If a(x1 + y1 3 + 2) = True Then Call yidong(x1 + y1 3 + 2, index)

End If

If y1 - 1 > -02 Then

If a(x1 + 1 + (y1 - 1) 3) = True Then Call yidong(x1 + (y1 - 1) 3 + 1, index)

End If

If y1 + 1 < 22 Then

If a(x1 + 1 + (y1 + 1) 3) = True Then Call yidong(x1 + 1 + (y1 + 1) 3, index)

End If

End If

win = True

For i = 1 To 8

If Val(Label1(i)Caption) <> i Then win = False

Next i

If win = True And begin = True Then MsgBox ("恭喜你成功了"): begin = False: start = False

End If

End Sub

Sub yidong(x, index)

Label1(0)Caption = Label1(index)Caption

Label1(index)Caption = Label1(x)Caption

Label1(x)Caption = Label1(0)Caption

a(index) = True: a(x) = False

Label1(0)BackColor = Label1(index)BackColor

Label1(index)BackColor = Label1(x)BackColor

Label1(x)BackColor = Label1(0)BackColor

End Sub

以上就是关于请问谁有JAVA的经典程序求！！！～～全部的内容，包括:请问谁有JAVA的经典程序求！！！～～、C语言经典小程序，用C语言来教大家撩妹子啦，速度来！、求一个VB的经典小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！