VB/vb.net编程 扑克牌

VB怎样编写纸牌游戏？~

创立n个text，n为牌堆数。每个以第一张，回车，第二张，表示。内在的话用n个数组表示。牌堆可以定义一个集合，从中随机出牌（随机函数）。移牌用按钮，单机第k行text下的按钮，再点第n行，判定可行就移过去m个（m可以用text读取），再判定是否此行已经是k到a，是就都删了。这个是基本思路，有具体问题可以追问。

　　Dim XipaiCishu As Integer

　　Private Type Pai
　　huase As String
　　shuzi As String
　　End Type

　　Dim Puke(53) As Pai

　　Private Sub Command1_Click()
　　Dim TempA(25) As Pai
　　Dim TempB(25) As Pai
　　Dim i As Integer

　　If XipaiCishu = 0 Then
　　Form1.Print "扑克原状为："
　　For i = 0 To 53
　　Form1.Print Tab((i Mod 13) * 10); Puke(i).huase & Puke(i).shuzi;
　　If i Mod 13 = 12 Then Form1.Print
　　Next i
　　Form1.Print
　　Else
　　For i = 0 To 25
　　TempA(i) = Puke(i)
　　TempB(i) = Puke(i + 26)
　　Next i
　　For i = 0 To 25
　　Puke(i * 2) = TempA(i)
　　Puke(i * 2 + 1) = TempB(i)
　　Next i

　　Form1.Cls
　　Form1.Print "第" & XipaiCishu & "次洗牌："

　　' 洗牌前
　　Form1.Print "左手："
　　For i = 0 To 25
　　Form1.Print Tab((i Mod 13) * 10); TempA(i).huase; TempA(i).shuzi;
　　If i Mod 13 = 12 Then Form1.Print
　　Next i
　　Form1.Print "右手："
　　For i = 0 To 25
　　Form1.Print Tab((i Mod 13) * 10); TempB(i).huase; TempB(i).shuzi;
　　If i Mod 13 = 12 Then Form1.Print
　　Next i
　　Form1.Print

　　For i = 0 To 53
　　Form1.Print Tab((i Mod 13) * 10); Puke(i).huase & Puke(i).shuzi;
　　If i Mod 13 = 12 Then Form1.Print
　　Next i
　　Form1.Print
　　End If

　　XipaiCishu = XipaiCishu + 1
　　End Sub

　　Private Sub Form_Initialize()
　　Dim i As Integer
　　Dim j As Integer
　　' Dim Shuzi0 As String

　　For i = 0 To 3
　　For j = 0 To 12
　　Select Case i
　　Case 0
　　Puke(i * 13 + j).huase = "黑桃"
　　Case 1
　　Puke(i * 13 + j).huase = "红桃"
　　Case 2
　　Puke(i * 13 + j).huase = "梅花"
　　Case 3
　　Puke(i * 13 + j).huase = "方块"
　　End Select
　　If j = 0 Then
　　Puke(i * 13 + j).shuzi = "A"
　　ElseIf j < 10 Then
　　Puke(i * 13 + j).shuzi = CStr(j + 1)
　　ElseIf j = 10 Then
　　Puke(i * 13 + j).shuzi = "J"
　　ElseIf j = 11 Then
　　Puke(i * 13 + j).shuzi = "Q"
　　ElseIf j = 12 Then
　　Puke(i * 13 + j).shuzi = "K"
　　End If
　　Next j
　　Next i
　　Puke(52).huase = "彩色"
　　Puke(52).shuzi = "王"
　　Puke(53).huase = "黑白"
　　Puke(53).shuzi = "王"

　　XipaiCishu = 0
　　End Sub


　　只在窗体上加一个按钮就行了，还有要吧窗体啦的足够大。。。

'以下是我做的图片拼算24的游戏，可供你参考
Option Explicit
Enum CARD_DRAW
CARD_DRAW_FACE
CARD_DRAW_BACK
CARD_DRAW_INVERT
End Enum
Private Declare Function cdtInit Lib "Cards.dll" ( _
dx As Long, dy As Long) As Long
Private Declare Function cdtDraw Lib "Cards.dll" (ByVal hDC As Long, _
ByVal X As Long, ByVal Y As Long, ByVal iCard As Long, _
ByVal iDraw As Long, ByVal Clr As Long) As Long
Private Declare Function cdtTerm Lib "Cards.dll" () As Long
Dim picDraw As PictureBox
Dim Cwidth&, Cheight&
Dim Card&(52)
Dim bgColor&
Dim strOps$, NumOps&, intCard&, CW&(3), strTag$(10)

'初始化处理
Private Sub Form_Initialize()
Dim i&
Randomize
strTag(7) = "＋"
strTag(8) = "－"
strTag(9) = "×"
strTag(10) = "÷"
'动态添加控件并返回一个对该控件的引用。
Set picDraw = Controls.Add("VB.PictureBox", "picDraw")
picDraw.AutoRedraw = True
picDraw.BorderStyle = 0
picDraw.ScaleMode = 3
picDraw.BackColor = BackColor
picDraw.Width = 71
picDraw.Height = 96
picDraw.Visible = True
picDraw.Left = 400
'加载扑克牌到控件
cdtInit Cwidth, Cheight
For i = 0 To 51
Card(i) = i
Load imgCard(i + 4)
cdtDraw picDraw.hDC, 0, 0, Card(i), CARD_DRAW_FACE, bgColor
imgCard(i + 4) = picDraw.Image
Next
Load imgCard(56)
i = Int(Rnd * 15)
Select Case i
Case 0 To 2
cdtDraw picDraw.hDC, 0, 0, 52 - i * i * 0.5 + 2.5 * i, CARD_DRAW_FACE, bgColor
Case 3 To 14
cdtDraw picDraw.hDC, 0, 0, 51 + i, CARD_DRAW_BACK, bgColor
End Select
imgCard(56) = picDraw.Image
cdtTerm
'画帮助屏幕
picDraw.Width = 375
picDraw.Height = 346
picDraw.Picture = Picture
picDraw.CurrentX = 52
picDraw.CurrentY = 14
picDraw.Print "分步算式 运算符 分步算式"
picDraw.Line (332, 70)-(362, 100), vbWhite, BF
For i = 0 To 3
picDraw.Line (i * 80 + 8, 40)-(i * 80 + 79, 136), , B
Next
picDraw.CurrentX = 24
picDraw.CurrentY = 78
picDraw.Print "扑克牌 扑克牌 扑克牌 扑克牌 发牌"
picDraw.Line (20, 150)-(212, 166), vbWhite, BF
picDraw.CurrentX = 24
picDraw.CurrentY = 153
picDraw.Print "编辑算式或分步算式:数 运算符 数 算式测试"
picDraw.CurrentX = 16
picDraw.CurrentY = 194
picDraw.Print "算式由三个分步算式编辑而成,数包括扑克牌和分步算式."
picDraw.CurrentX = 16
picDraw.CurrentY = 216
picDraw.Print "分步算式参与运算时自动添加括号,算式编辑后可以测试."
picDraw.CurrentX = 16
picDraw.CurrentY = 238
picDraw.Print "如果你认为没有算式,则跳过算式编辑直接进行测试即可."
picDraw.Line (4, 320)-(370, 338), vbWhite, BF
picDraw.CurrentX = 16
picDraw.CurrentY = 323
picDraw.Print "图拼24--你只需用鼠标操作图片编辑算式即可,简单方便,好看好玩."
imgShowHelp = picDraw.Image
picDraw = Nothing
'洗牌
mixCard
ClsExpression
End Sub

'4张扑克牌+-*/算24
Private Sub Count24()
Dim a#(3), i&, b$(3)
List1.Clear
For i = 0 To 3
a(i) = Val(strTag(i))
b(i) = a(i)
Next
If Is24(a, b, 4) Then
Else
List1.AddItem "没有算式"
End If
End Sub

'取算术运算值
Private Function Sum(n1#, n2#, f) As Double
Select Case f
Case 1: Sum = n1 + n2
Case 2: Sum = n1 - n2
Case 3: Sum = n1 * n2
Case 4: If n2 Then Sum = n1 / n2 Else Sum = 1
End Select
End Function

'列算式
Private Function ShowSum(n1$, n2$, f)
ShowSum = n1 & Mid("＋－×÷", f, 1) & n2
End Function

'递归算24
Private Function Is24(a#(), b$(), i&) As Boolean
Dim c#(2), ff&, ii&, jj&, kk&, nb&, d$(3), iCount&
If i = 2 Then
For ff = 1 To 4
equal a(0), a(1), ff, b(0), b(1), Is24
equal a(1), a(0), ff, b(1), b(0), Is24
Next
Else
For ii = 0 To i - 2
For jj = ii + 1 To i - 1
nb = 1
For kk = 0 To i - 1
If kk <> ii And kk <> jj Then c(nb) = a(kk): d(nb) = b(kk): nb = nb + 1
Next
For ff = 1 To 4
c(0) = Sum(a(ii), a(jj), ff)
d(0) = "(" & ShowSum(b(ii), b(jj), ff) & ")"
If Is24(c, d, i - 1) Then Is24 = True
c(0) = Sum(a(jj), a(ii), ff)
d(0) = "(" & ShowSum(b(jj), b(ii), ff) & ")"
If Is24(c, d, i - 1) Then Is24 = True
Next
Next
Next
End If
End Function

'两个数运算是否为24,b0$, b1$分别为Num1#, Num2#的字符串表达式
Private Sub equal(Num1#, Num2#, Ops&, b0$, b1$, Is24 As Boolean)
Dim iCount&
If Sum(Num1, Num2, Ops) = 24 Then
strOps = ShowSum(b0, b1, Ops)
For iCount = 0 To List1.ListCount - 1
If InStr(List1.List(iCount), strOps) Then Exit For
Next
If iCount = List1.ListCount Then List1.AddItem Format((iCount + 1), "@@@@") & ": " & strOps
Is24 = True
End If
End Sub

'洗牌(从52张扑克牌中随机抽出4张)
Private Sub mixCard()
Dim i&, j&, k&
For i = 0 To 3
j = Fix(Rnd * (52 - i) + i)
k = Card(j)
Card(j) = Card(i)
Card(i) = k
Next
End Sub

'清空算式处理
Sub ClsExpression()
Dim i&, X&, w&
For i = 0 To 3
strTag(i) = Card(i) \ 4 + 1
imgNum(i) = imgNumOps(strTag(i) - 1)
imgCard(i) = imgCard(Card(i) + 4)
CW(i) = 0
Next
strTag(4) = ""
imgExpression(0) = Nothing
strTag(5) = ""
imgExpression(1) = Nothing
strTag(6) = "没有算式"
imgAnswer = Nothing
picDraw.Visible = False
picDraw.Cls
picDraw.Width = imgAnswer.Width
picDraw.Height = imgAnswer.Height
picDraw.CurrentX = 126
picDraw.CurrentY = 2
picDraw.Print "没有算式?"
imgAnswer = picDraw.Image
NumOps = 0
List1.Clear
List1.Visible = False
picDraw = Nothing
End Sub

'显示帮助
Private Sub imgHelp_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgHelp = Nothing
imgShowHelp.Visible = True
List1.Tag = List1.Visible
picDraw.Tag = picDraw.Visible
picDraw.Visible = False
List1.Visible = False
End Sub

Private Sub imgHelp_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgHelp = imgPic(0)
End Sub

Private Sub imgOperator_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
imgOperator(Index).Top = 16
End Sub

'选取运算符列入算式
Private Sub imgOperator_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
imgOperator(Index).Top = 12
If (NumOps Mod 3 - 1) Or NumOps > 8 Then Exit Sub
strTag(6) = strTag(6) & strTag(7 + Index)
NumOps = NumOps + 1
CW(3) = CW(2) + 20
UnitePic imgAnswer, imgOperator(Index), 0
imgAnswer = picDraw.Image
CW(2) = CW(3)
End Sub

'隐藏帮助
Private Sub imgShowHelp_Click()
imgShowHelp.Visible = False
picDraw.Visible = CBool(picDraw.Tag)
List1.Visible = CBool(List1.Tag)
End Sub

'发牌
Private Sub imgShuffle_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgShuffle = Nothing
mixCard
ClsExpression
End Sub

Private Sub imgShuffle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgShuffle = imgPic(1)
End Sub

'清空算式
Private Sub imgCls_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgCls = Nothing
End Sub

Private Sub imgCls_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgCls = imgPic(2)
ClsExpression
End Sub

'显示所有算式答案
Private Sub imgQuery_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgQuery = Nothing
If NumOps = 9 Or picDraw.Visible = True Then List1.Visible = True
End Sub

Private Sub imgQuery_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgQuery = imgPic(3)
End Sub

'移动指牌器
Private Sub imgNum_Click(Index As Integer)
intCard = Index
imgPoint.Left = imgNum(Index).Left - 11
End Sub

'随意数字选取牌
Private Sub imgNumOps_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
shpBorder.Visible = True
If Index < 9 Then shpBorder.Left = imgNumOps(Index).Left - 6 Else shpBorder.Left = imgNumOps(Index).Left
strTag(intCard) = Index + 1
imgNum(intCard) = imgNumOps(Index)
imgNum_Change intCard
intCard = (intCard + 1) Mod 4
imgPoint.Left = imgNum(intCard).Left - 11
End Sub

Private Sub imgNumOps_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
shpBorder.Visible = False
End Sub

'选牌后处理
Private Sub imgNum_Change(Index&)
Dim i&
If strTag(Index) = Card(Index) \ 4 + 1 Then Exit Sub
Do
Card(Index) = (strTag(Index) - 1) * 4 + Int(Rnd * 4)
For i = 0 To 3
If Card(Index) = Card(i) And Index <> i Then Exit For
Next
If i = 4 Or (i = 3 And Index = 3) Then Exit Do
Loop
imgCard(Index) = imgCard(Card(Index) + 4)
ClsExpression
End Sub

'选取扑克牌列入算式
Private Sub imgCard_Click(Index As Integer)
If imgCard(Index) = imgCard(56) Then Exit Sub
If strTag(6) = "没有算式" Then strTag(6) = "": imgAnswer = Nothing: picDraw.Visible = False
If NumOps Mod 3 = 1 Then Exit Sub
strTag(6) = strTag(6) & strTag(Index)
If strTag(Index) < 10 Then CW(3) = CW(2) + 12 Else CW(3) = CW(2) + 24
UnitePic imgAnswer, imgNumOps(strTag(Index) - 1), 0
imgCard(Index) = imgCard(56)
expression
End Sub

'算式结果处理
Private Sub expression()
Dim i&
NumOps = NumOps + 1
If NumOps Mod 3 = 0 Then
If NumOps = 9 Then Exit Sub
If strTag(4) <> "" Then i = 1
strTag(4 + i) = strTag(6)
CW(2) = 0
UnitePic imgExpression(i), imgAnswer, (imgAnswer.Width - CW(3)) \ 2
CW(i) = CW(3)
CW(2) = 0
strTag(6) = ""
imgAnswer = Nothing
picDraw = imgAnswer
End If
End Sub

'选取运算结果列入算式
Private Sub imgExpression_Click(Index As Integer)
If strTag(4 + Index) = "" Then Exit Sub
If NumOps Mod 3 = 1 Then Exit Sub
strTag(6) = strTag(6) & "(" & strTag(4 + Index) & ")"
CW(3) = CW(2) + 12
UnitePic imgAnswer, imgOperator(4), 0
CW(3) = CW(2) + CW(Index)
UnitePic imgAnswer, imgExpression(Index), (imgExpression(Index).Width - CW(Index)) \ 2
CW(3) = CW(2) + 12
UnitePic imgAnswer, imgOperator(5), 0
strTag(4 + Index) = ""
imgExpression(Index) = LoadPicture("")
expression
End Sub

'验证算式是否正确
Private Sub imgAnswer_Click()
If picDraw.Visible = True Then Exit Sub
If strTag(6) = "没有算式" Or NumOps = 9 Then Validate strTag(6)
End Sub

'算式验证
Private Sub Validate(Ops$)
Dim i&
Count24
For i = 0 To List1.ListCount - 1
If InStr(List1.List(i), Ops) Then Exit For
Next
picDraw.Width = 54
picDraw.Height = imgAnswer.Height
picDraw.CurrentX = 2
picDraw.CurrentY = 2
picDraw.ForeColor = vbBlue
If i = List1.ListCount Then
picDraw.Print "再想一想"
Else
picDraw.Print "你算对了"
List1.Selected(i) = True
End If
picDraw.ForeColor = vbBlack
picDraw.Move 260, 150
picDraw.Visible = True
End Sub

'图片合并居中(img2拼接到img1右边):img1剪切宽度拼接前CW(2),拼接后CW(3);img2剪切左边距img2W
Sub UnitePic(img1 As Image, img2 As Image, img2W&)
Dim w1&
w1 = img1.Width
picDraw.Cls
picDraw.Width = w1
picDraw.Height = img1.Height
If img1 Then picDraw.PaintPicture img1, (w1 - CW(3)) \ 2, 0, , , (w1 - CW(2)) \ 2
If img2 Then picDraw.PaintPicture img2, (w1 - CW(3)) \ 2 + CW(2), 0, , , img2W
img1 = picDraw.Image
CW(2) = CW(3)
End Sub

'删除动态添加的控件
Private Sub Form_Unload(Cancel As Integer)
Controls.Remove picDraw
End Sub

我有源码不过是VB6.0的 我看了下是调用数组控制扑克牌的··一个数组项对应一张牌 然后是点击image的···要的话留下邮箱1···

---

行唐县19375446280： 在VB中这样程序怎么写？
王茂安捷： 我来告诉你标准答案! 设置ListView的View属性,而View属性为枚举类型,如下所示: &#47;&#47;每个项显示在不同的行上,并带有关于列中所排列的各项的进一步信息. &#47;&#47;最左边的列包含一个小图标和标签,后面的列包含应用...

行唐县19375446280： 用VB.NET 怎么编映射网络磁盘 - ？
王茂安捷： 本来可以用简单的dos命令的,但是影射成功与否返回不理想,建议用API,见下面 Module LocalNetConnect'模块,直接复制即可 Public Declare Function WNetAddConnection2 Lib ＂mpr.dll＂ Alias ＂WNetAddConnection2A＂ (ByRef...

行唐县19375446280： vb编程:用inputbox输入一行字符,统计其中:英文字母,空格和数字的个数 尽量简单 - ？
王茂安捷： Private Sub Form_Load() Dim s As String s = InputBox(＂input the string＂) For i = 1 To Len(s) a = Asc(UCase(Mid(s, i))) If a > 47 And a < 58 Then x = x + 1'数字个数 If a = 32 Then y = y + 1'空格个数 If a > 64 And a < 91 Then z = z + 1'字母个数 Next MsgBox s & vbCrLf & x & vbCrLf & y & vbCrLf & z End Sub

行唐县19375446280： Visual Basic编程:输入两个数,根据不同运算符计算结果.？
王茂安捷： select case ch case ＂+＂ Text1=a+b case ＂-＂ Text1=a-b case ＂*＂ Text1=a*b case ＂/＂ Text1=a/b End Select

行唐县19375446280： 一道VB编程题 加急!!! - ？
王茂安捷： Dim t As Integer Private Sub exitcmd_Click() End End Sub Private Sub Label1_Click() usernotxt.SetFocus End Sub Private Sub Label2_Click() pwdtxt.SetFocus End Sub Private Sub ok...

行唐县19375446280： vb.net中 dim a ! 是什么意思? - ？
王茂安捷： 定义a为单精度浮点数变量

行唐县19375446280： vb编程实例:把47换成74 - ？
王茂安捷： Dim n As Integer n=47 n=n Mod 10 +10*(n\10) Print n

行唐县19375446280： 我有一组数字,我想用vb中用二维数组给它赋值,比如,sum(2,3)这十二个值分别是45,85,47,45,21,36,58,96,84,72,63,25如何实现？
王茂安捷： dim a a=array(45,85,47,45,21,36,58,96,84,72,63,25)for j=0 to 2 for i=0 to 3 sum(j,i)=a(4*j+i) nextnext 全乱套了: dim a a=array(45,85,47,45,21,36,58,96,84,72,63,25) for j=0 to 2 for i=0 to 3 sum(j,i)=a(4*j+i) next next

行唐县19375446280： vb编程知道坐标怎么绘图？
王茂安捷： 这个问题我知道!关于坐标界限问题,可以这样解决:1、取得绘图界限(Xmin,Ymin)(Xmax,Ymax).2、取得所有绘图坐标中的最小值和最大值(XZmin,YZmin)(XZmax,YZmax).3、取得所有绘图坐标的比值:[x1&#47;(XZmax-XZmin),y1&#47;(YZmax-YZmin)];[x2&#47;(XZmax-XZmin),y2&#47;(YZmax-YZmin)]......4、取得实际绘图最小值与最大值的差.[(Xmax-Xmin),(Ymax-Ymin)]5、最终绘图坐标:上述3的比值*上述4的差.

行唐县19375446280： VB高手速进 编程计算S=1+2+3+......+50,并输出结果. 坐等答案啊 急用 - ？
王茂安捷： Private Sub Command1_Click() Dim i As Long, s As Long For i = 1 To 50 s = s + i Next MsgBox s End Sub '答案1275