【金叉王指标源码】【源码查看html代码】【擒龙战法源码】winline程序源码

【金叉王指标源码】【源码查看html代码】【擒龙战法源码】winline程序源码_eduline源码

2024-12-29 02:43:30 来源：手机app音乐后台源码分类：休闲

1.java ç¨åºè®¾è®¡
2.vb问题求各位帮忙

winline程序源码_eduline源码

java ç¨åºè®¾è®¡

package com.test;

import java.awt.*;

import java.util.*;

import java.awt.geom.*;

import java.awt.event.*;

import javax.swing.*;

public class MyFiveChess {

public static void main(String[] args) {

JFrame f = new JFrame();

f.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

Dimension screenSize = Toolkit.getDefaultToolkit().getScreenSize();

int screenWidth = screenSize.width;

int screenHeight = screenSize.height;

f.setSize(screenWidth / 2, screenHeight / 2);

f.setLocation(screenWidth / 4, screenHeight / 4);

f.setTitle("FiveChess");

MyPanel panel = new MyPanel();

f.add(panel);

f.setVisible(true);

}

class MyPanel extends JPanel {

private static final int SIDELENGTH = ;

private ArrayList<Ellipse2D> squares = new ArrayList<Ellipse2D>();;

private Ellipse2D current = null;

JButton jb = new JButton("éæ°å¼å§");

JButton jb2 = new JButton("åæ¢åæ");

boolean isBlack;

boolean first = true;

boolean isOver;

int l = ;

int n = ;

int bx = ;

int by = ;

int[][] position = new int[n + 1][n + 1];

public MyPanel(){

jb.addActionListener(new MyActionHandler());

jb2.addActionListener(new MyActionHandler());

addMouseListener(new MouseHandler());

addMouseMotionListener(new MouseMotionHandler());

add(jb);

add(jb2);

}

public void initMyPenal(){

squares = new ArrayList<Ellipse2D>();

current = null;

isBlack = first;

isOver = false;

position = new int[n + 1][n + 1];

for(int i = 0; i <= n; i++)

for(int j = 0; j <= n; j++)

position[i][j] = 0;

repaint();

}

public void paint(Graphics g) {

super.paint(g);

jb.setLocation(,);

jb2.setLocation(,);

g.setColor(Color.RED);

g.setFont(new Font(null, Font.BOLD, ));

g.drawString((first ? "é»" : "ç½")+"æ¹ä¸å", , );

g.setColor(new Color(, , ));

g.fillRect(bx - l, by - l, l * (n + 2), l * (n + 2));

g.setColor(Color.BLACK);

for (int i = 0; i <= n; i++){

g.drawLine(bx, by + i * l, bx + l * n, by + i * l);

g.drawLine(bx + i * l, by, bx + i * l, by + l * n);

}

Graphics2D g2 = (Graphics2D)g;

isBlack = first;

for(Ellipse2D r : squares){

g2.setColor(isBlack ? Color.BLACK : Color.WHITE);

g2.fill(r);

isBlack = !isBlack;

}

if(isOver) {

g.setColor(Color.RED);

g.setFont(new Font("TimesRoman", Font.BOLD, ));

g.drawString((isBlack ? "ç½" : "é»") + "æ¹è·è", , );

}

public Ellipse2D find(Point2D p){

for(Ellipse2D r : squares)

if(r.contains(p))

return r;

return null;

}

public void add(Point2D p) {

if(p.getX() > bx - l / 2 && p.getX() < bx + l * n + l / 2 &&

p.getY() > by - l / 2 && p.getY() < by + l * n + l / 2){

for (int i = 0; i <= n; i++) {

for (int j = 0; j <= n; j++) {

if(position[i][j] == 1 || position[i][j] == -1) continue;

current = new Ellipse2D.Double(bx + j * l - l / 2,

by + i * l - l / 2, l, l);

if (current.contains(p)) {

position[i][j] = isBlack ? 1 : -1;

isOver = isWin(position, isBlack, i , j) ? true : false;

current.setFrame(bx + j * l - l / 2 + 1,

by + i * l - l / 2 + 1, l - 2, l - 2);

squares.add(current);

repaint();

return;

}

private class MouseHandler extends MouseAdapter{

public void mousePressed(MouseEvent event){

if(isOver) return;

current = find(event.getPoint());

if(current == null)

add(event.getPoint());

}

private class MyActionHandler implements ActionListener{

public void actionPerformed(ActionEvent e) {

String cmd=e.getActionCommand();

if("éæ°å¼å§".equals(cmd)){

initMyPenal();

}else if("åæ¢åæ".equals(cmd)){

initMyPenal();

first=!first;

}

private class MouseMotionHandler implements MouseMotionListener{

public void mouseMoved(MouseEvent event){

Rectangle r = new Rectangle(bx - l, by - l, l * (n + 2), l * (n + 2));

if(r.contains(event.getPoint())){

setCursor(Cursor.getPredefinedCursor(Cursor.CROSSHAIR_CURSOR));

}else setCursor(Cursor.getDefaultCursor());

}

public void mouseDragged(MouseEvent event){ }

}

public boolean isWin(int[][] state, boolean isBlack, int x, int y) { //åä¸ªæ¹åä¸æ¯å¦æäºåè¿ç

return isCzWin(state, isBlack, x, y)

|| isSpWin(state, isBlack, x, y)

|| isYxWin(state, isBlack, x, y)

|| isZxWin(state, isBlack, x, y);

}

public boolean isCzWin(int[][] state, boolean isBlack, int x, int y) { //å¤æåç´æ¹åæ¯å¦æäºåè¿ç

int n = 0;

int a = (x >= 4 ? x - 4 : 0);

int b = (x <= state.length - 5 ? x + 4 : state.length - 1);

for (int i = a; i <= b; i++)

if (state[i][y] == (isBlack ? 1: -1)) {

if (++n == 5) return true;

} else n = 0;

return false;

}

public boolean isSpWin(int[][] state, boolean isBlack, int x, int y) { //å¤ææ°´å¹³æ¹åæ¯å¦æäºåè¿ç

int n = 0;

int a = (y >= 4 ? y - 4 : 0);

int b = (y <= state[0].length - 5 ? y + 4 : state[0].length - 1);

for (int i = a; i <= b; i++)

if (state[x][i] == (isBlack ? 1: -1)) {

if (++n == 5) return true;

} else n = 0;

return false;

}

public boolean isZxWin(int[][] state, boolean isBlack, int x, int y) { //å¤æå·¦ææ¹åæ¯å¦æäºåè¿ç

int n = 1, a = x, b = y;

for (int i = 1; i <= 4 && a > 0 && b > 0; i++)

if (state[a - 1][b - 1] == (isBlack ? 1: -1)) {

n++; a--; b--;

} else break;

for (int i = 1; i <= 4 && x < state.length - 1 && y < state[0].length - 1; i++)

if (state[x + 1][y + 1] == (isBlack ? 1: -1)) {

n++; x++; y++;

} else break;

if (n >= 5) return true;

return false;

}

public boolean isYxWin(int[][] state, boolean isBlack, int x, int y) { //å¤æå³ææ¹åæ¯å¦æäºåè¿ç

int n = 1, a = x, b = y;

for (int i = 1; i <= 4 && a > 0 && b < state[0].length - 1; i++)

if (state[a - 1][b + 1] == (isBlack ? 1: -1)) {

n++; a--; b++;

} else break;

for (int i = 1; i <= 4 && x < state.length - 1 && y > 0; i++)

if (state[x + 1][y - 1] == (isBlack ? 1: -1)) {

n++; x++; y--;

} else break;

if (n >= 5) return true;

return false;

}

æ¯è¾ç®ç¥ï¼èªå·±å¯ä»¥æ ¹æ®æåµä¿®æ¹ï¼æ¹è¿æ¹è¿ï¼

vb问题求各位帮忙

网上转载的，呵呵，源码金叉王指标源码我也不太明白

'在窗体上加入以下控件

'image1(0),序源源码查看html代码image1(0) - 黑白棋

'image2,image3(0)

'form中的picture为棋盘。因无法上传，源码擒龙战法源码请自行领会。序源双人拼卡源码

Option Explicit

Dim I,源码汽车网页源码 J, K, Counter, Firstmoved, Rt, Gen, r, flag As Integer

Dim Grid(), H(), V(), RL(), LR(), Tb(2), Order() As Integer

Private Sub Form_Initialize()

lblHelp.Top = 0

lblHelp.Left = 0

Image1(0).Top = -

Image1(1).Top = -

lblHelp.Left = -lblHelp.Width

lblHelp = vbCrLf + vbCrLf + " 游戏帮助" + vbCrLf _

+ vbCrLf + vbCrLf + "●游戏规则:黑方先行,轮流弈子,任一方向先连成五子者胜." _

+ vbCrLf + vbCrLf + vbCrLf + "●操作提示:①可选择[先后]、[难度]和[对手]菜单设置游戏,序源" _

+ vbCrLf + vbCrLf + " 只有按[游戏]->[开始]后才可在棋盘上落子." _

+ vbCrLf + vbCrLf + " ②按[游戏]->[清盘]可重玩并设置游戏." _

+ vbCrLf + vbCrLf + " ③落子后按[动作]菜单下的选择可任意悔棋和恢复." _

+ vbCrLf + vbCrLf + " ④各功能菜单都提供了快捷键(Alt+相应字母)." _

+ vbCrLf + vbCrLf + vbCrLf + "●有什么问题请与本人联系.电子邮件:xwwxyz@sina.com." _

+ vbCrLf + vbCrLf + vbCrLf + "●本页面单击后隐藏."

End Sub

Private Sub Form_Resize()

Me.Height =

Me.Width =

End Sub

Private Sub lblHelp_Click()

lblHelp.Visible = False

End Sub

Private Sub mnuAfter_Click()

Firstmoved = 0

mnuAfter.Checked = True

mnuFirst.Checked = False

End Sub

Private Sub Form_Load()

Dim I As Integer

For I = 1 To

Load Image3(I) '加载棋子控件

Image3(I).Top = (I \ ) * + 5

Image3(I).Left = (I Mod ) * + 5

Image3(I).Visible = True

Ini

End Sub

'游戏初始化

Sub Ini()

For I = 0 To

Image3(I) = Image2

Image3(I).Enabled = False

Grid(I) = 0

V(I) = 0

H(I) = 0

LR(I) = 0

RL(I) = 0

Next I

mnuBack.Enabled = False

Counter = 0

Gen = 0

If mnuAfter.Checked = True Then

Firstmoved = 0

Else

Firstmoved = 1

End If

mnuStart.Enabled = True

End Sub

'一方是否可获胜

Function LineWin(Piece As Integer) As Integer

Dim mun As Integer

LineWin =

'五子一线

mun = Piece * 5

For I = 0 To

If H(I) = mun Or V(I) = mun Or RL(I) = mun Or LR(I) = mun Then

LineWin = + Piece

Exit Function

End If

Next I

'四子一线

mun = Piece * 4

For I = 0 To

If H(I) = mun Then

For K = 0 To 4

If Grid(I + K) = 0 Then LineWin = I + K: Exit Function

Next K

End If

If V(I) = mun Then

For K = 0 To 4

If Grid(I + K * ) = 0 Then LineWin = I + K * : Exit Function

Next K

End If

If RL(I) = mun Then

For K = 0 To 4

If Grid(I + K * ) = 0 Then LineWin = I + K * : Exit Function

Next K

End If

If LR(I) = mun Then

For K = 0 To 4

If Grid(I + K * ) = 0 Then LineWin = I + K * : Exit Function

Next K

End If

Next I

End Function

'计算机走棋

Sub ComputerMove()

Dim ToMove As Integer

If Counter = 0 Then

Randomize

I = Int(Rnd * 7 + 4)

J = Int(Rnd * 7 + 4)

If Grid(I * + J) = 0 Then ToMove = I * + J

Else

If mnuLower.Checked = True Then ToMove = Defend Else ToMove = Attempt

End If

Counter = Counter + 1

If Firstmoved = 0 Then Image3(ToMove) = Image1(0) Else Image3(ToMove) = Image1(1)

Grid(ToMove) = 2

Order(Counter) = ToMove

LineGen ToMove, 6

If LineWin(6) = Then

MsgBox "您输了!"

Ini

Exit Sub

End If

If Counter = Then

MsgBox "和棋"

Ini

Exit Sub

End If

End Sub

'低级模式

Function Defend() As Integer

Rt = LineWin(6)

If Rt < Then Defend = Rt: Exit Function

Rt = LineWin(1)

If Rt < Then Defend = Rt: Exit Function

'查找落子位置

Rt = FindBlank

If Rt < Then Defend = Rt: Exit Function

End Function

'悔棋

Private Sub mnuBack_Click()

mnuComeback.Enabled = True

If (Counter + Firstmoved) Mod 2 = 0 Then Rt = -1 Else Rt = -6

Grid(Order(Counter)) = 0

Image3(Order(Counter)) = Image2

LineGen Order(Counter), Rt

Counter = Counter - 1

If mnuComputer.Checked = True Then

Grid(Order(Counter)) = 0

Image3(Order(Counter)) = Image2

LineGen Order(Counter), -1

Counter = Counter - 1

Else

flag = 1 - flag

End If

r = r + 1

If Counter = 1 And Firstmoved = 0 And mnuComputer.Checked = True Then mnuBack.Enabled = False

If Counter = 0 Then mnuBack.Enabled = False

End Sub

'恢复棋子

Private Sub mnuComeback_Click()

mnuBack.Enabled = True

Counter = Counter + 1

If (Counter + Firstmoved) Mod 2 = 0 Then

Grid(Order(Counter)) = 1

Image3(Order(Counter)) = Image1(1 - Firstmoved)

LineGen Order(Counter), 1

Else

Grid(Order(Counter)) = 2

Image3(Order(Counter)) = Image1(Firstmoved)

LineGen Order(Counter), 6

End If

If mnuComputer.Checked = True Then

Counter = Counter + 1

Grid(Order(Counter)) = 2

Image3(Order(Counter)) = Image1(Firstmoved)

LineGen Order(Counter), 6

Else

flag = 1 - flag

End If

r = r - 1

If r = 0 Then mnuComeback.Enabled = False

End Sub

Private Sub mnuComputer_Click() '对手

mnuComputer.Checked = True '电脑

mnuHuman.Checked = False '棋手

End Sub

Private Sub mnuClear_Click() '清盘

Ini

mnuFirst.Enabled = True

mnuAfter.Enabled = True

mnuLower.Enabled = True

mnuHigher.Enabled = True

mnuComputer.Enabled = True

mnuHuman.Enabled = True

End Sub

Private Sub mnuHuman_Click()

mnuHuman.Checked = True

mnuComputer.Checked = False

End Sub

Private Sub mnuStart_Click() '开始

lblHelp.Visible = False

For I = 0 To

Image3(I).Enabled = True

Next I

mnuFirst.Enabled = False

mnuAfter.Enabled = False

mnuLower.Enabled = False

mnuHigher.Enabled = False

mnuComputer.Enabled = False

mnuHuman.Enabled = False

If Firstmoved = 0 And mnuComputer.Checked = True Then ComputerMove

If Firstmoved = 0 And mnuHuman.Checked = True Then flag = 1 Else flag = 0

mnuStart.Enabled = False

End Sub

'玩家走棋

Private Sub image3_Click(Index As Integer)

If Grid(Index) <> 0 Then Exit Sub

Counter = Counter + 1

If Firstmoved = 0 Then

Image3(Index) = Image1(1 - flag)

Else

Image3(Index) = Image1(flag)

End If

Grid(Index) = 1 + flag

Order(Counter) = Index

mnuBack.Enabled = True

mnuComeback.Enabled = False

r = 0

LineGen Index, (1 + flag * 5)

If LineWin(1 + flag * 5) = + flag * 5 Then

If flag = 0 Then MsgBox "您赢了!" Else MsgBox "您输了!"

Ini

Exit Sub

End If

If Counter = Then

MsgBox "和棋"

Ini

Exit Sub

End If

If mnuComputer.Checked = True Then ComputerMove Else flag = 1 - flag

End Sub

'查找可以落子的空位

Function FindBlank() As Integer

Dim wz, fs, lz, RndNum As Integer

fs = -

For wz = 0 To

If Grid(wz) = 0 Then

Grid(wz) = 2

LineGen wz, 6

Rt = Gen

If Rt > fs Then fs = Rt: lz = wz

Grid(wz) = 0

LineGen wz, -6

End If

Next wz

FindBlank = lz

End Function

'高级模式

Function Attempt() As Integer

Dim wz As Integer

Rt = LineWin(6)

If Rt < Then Attempt = Rt: Exit Function

Rt = LineWin(1)

If Rt < Then Attempt = Rt: Exit Function

'查找落子位置

Rt = linethree(6)

If Rt < Then Attempt = Rt: Exit Function

Rt = linethree(1)

If Rt < Then

Grid(Tb(0)) = 2

LineGen Tb(0), 6

Rt = Gen: wz = Tb(0)

Grid(Tb(0)) = 0

LineGen Tb(0), -6

Grid(Tb(1)) = 2

LineGen Tb(1), 6

If Rt < Gen Then Rt = Gen: wz = Tb(1)

Grid(Tb(1)) = 0

LineGen Tb(1), -6

Grid(Tb(2)) = 2

LineGen Tb(2), 6

If Rt < Gen Then Rt = Gen: wz = Tb(2)

Grid(Tb(2)) = 0

LineGen Tb(2), -6

Attempt = wz

Exit Function

End If

Rt = FindBlank

If Rt < Then Attempt = Rt: Exit Function

End Function

Private Sub mnuFirst_Click() '先后手

Firstmoved = 1

mnuAfter.Checked = False

mnuFirst.Checked = True

End Sub

Private Sub mnuHigher_Click()

mnuLower.Checked = False

mnuHigher.Checked = True

End Sub

Private Sub mnuLower_Click() '难度

mnuLower.Checked = True

mnuHigher.Checked = False

End Sub

'局势评估

Function LineGen(ij, Piece)

Dim b, e, mun As Integer

I = ij \

J = ij Mod

'横线影响

b = IIf(J - 4 > 0, J - 4, 0)

e = IIf(J > , , J)

For K = b To e

mun = H(I * + K)

If mun < 6 Then Gen = Gen + mun * 2 ^ mun

If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen - mun * 2 ^ mun

H(I * + K) = H(I * + K) + Piece

mun = H(I * + K)

If mun < 6 Then Gen = Gen - mun * 2 ^ mun

If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen + mun * 2 ^ mun

Next K

'竖线影响

b = IIf(I - 4 > 0, I - 4, 0)

e = IIf(I > , , I)

For K = b To e

mun = V(K * + J)

If mun < 6 Then Gen = Gen + mun * 2 ^ mun

If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen - mun * 2 ^ mun

V(K * + J) = V(K * + J) + Piece

mun = V(K * + J)

If mun < 6 Then Gen = Gen - mun * 2 ^ mun

If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen + mun * 2 ^ mun

Next K

'撇线影响

b = IIf(I - 4 > 0, I - 4, 0)

e = IIf(I > , , I)

b = IIf(b > J + I - IIf(J + 4 > , , J + 4), b, J + I - IIf(J + 4 > , , J + 4))

e = IIf(e > J + I - IIf(J > 4, J, 4), J + I - IIf(J > 4, J, 4), e)

For K = b To e

mun = RL(K * + I + J - K)

If mun < 6 Then Gen = Gen + mun * 2 ^ mun

If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen - mun * 2 ^ mun

RL(K * + I + J - K) = RL(K * + I + J - K) + Piece

mun = RL(K * + I + J - K)

If mun < 6 Then Gen = Gen - mun * 2 ^ mun

If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen + mun * 2 ^ mun

Next K

'捺线影响

b = IIf(I - 4 > 0, I - 4, 0)

e = IIf(I > , , I)

b = IIf(b > I - J + IIf(J - 4 > 0, J - 4, 0), b, I - J + IIf(J - 4 > 0, J - 4, 0))

e = IIf(e > I - J + IIf(J > , , J), I - J + IIf(J > , , J), e)

For K = b To e

mun = LR(K * - I + J + K)

If mun < 6 Then Gen = Gen + mun * 2 ^ mun

If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen - mun * 2 ^ mun

LR(K * - I + J + K) = LR(K * - I + J + K) + Piece

mun = LR(K * - I + J + K)

If mun < 6 Then Gen = Gen - mun * 2 ^ mun

If mun > 5 And mun Mod 6 = 0 Then mun = mun \ 6 - 1: Gen = Gen + mun * 2 ^ mun

Next K

End Function

'是否存在三子一线（可发展成五子联线）

Function linethree(Piece As Integer) As Integer

Dim mun As Integer

linethree =

'三子一线

mun = Piece * 3

For I = 0 To

If H(I) = mun Then

If Grid(I) = 0 Then

If I Mod < Then

If Grid(I + 5) = 0 Then

For K = 1 To 4

If Grid(I + K) = 0 Then

Tb(0) = I + K

Tb(1) = I

Tb(2) = I + 5

linethree = Tb(0)

Exit Function

End If

Next K

End If

If V(I) = mun Then

If Grid(I) = 0 Then

If (I \ ) < Then

If Grid(I + ) = 0 Then

For K = 1 To 4

If Grid(I + K * ) = 0 Then

Tb(0) = I + K *

Tb(1) = I

Tb(2) = I +

linethree = Tb(0)

Exit Function

End If

Next K

End If

If RL(I) = mun Then

If Grid(I) = 0 Then

If (I \ ) < And I Mod > 4 Then

If Grid(I + ) = 0 Then

For K = 1 To 4

If Grid(I + K * ) = 0 Then

Tb(0) = I + K *

Tb(1) = I

Tb(2) = I +

linethree = Tb(0)

Exit Function

End If

Next K

End If

If LR(I) = mun Then

If Grid(I) = 0 Then

If (I \ ) < And I Mod < Then

If Grid(I + ) = 0 Then

For K = 1 To 4

If Grid(I + K * ) = 0 Then

Tb(0) = I + K *

Tb(1) = I

Tb(2) = I +

linethree = Tb(0)

Exit Function

End If

Next K

End If

Next I

End Function

Private Sub munHelp_Click() '帮助

lblHelp.Visible = True

End Sub

文章所属分类：休闲频道，点击进入>>

【金叉王指标源码】【源码查看html代码】【擒龙战法源码】winline程序源码_eduline源码

重点关注