2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

助けてください

1 :あず:04/12/27 05:28:22
学校の課題でポーカーのプログラムをつくってこいと言われたのですがさっぱりわかりません。
自分でとりあえずやってみたものも(下のです)、実行しても動きません。
ルールは変えてもいいと言われたので、役は2、3、4、5カードのみ、
ハートとかの種類も省きました。
ゲームの勝敗を得点で表しExcelのシートに書き出せとのことです。
動かない理由をどうか教えてください。




2 :あず:04/12/27 05:28:58
Sub poker()
Dim com(4) As Integer, man(4) As Integer
Randomize
manhand man(4)
comhand com(4)
fight com(4), man(4)
End Sub



3 :あず:04/12/27 05:30:36
Sub comhand(x As Integer)
x = getcard("computer")
For x = 0 To 4
comhand com(x)
Next x

MsgBox "com'scards are " & com(0) & "," & com(1) & "," & com(2) & "," & com(3) & "," & com(4)

End Sub

Sub manhand(x As Integer)
x = getcard("YOU")
For x = 0 To 4
manhand man(x)
Next x

MsgBox "man'scards are " & man(0) & "," & man(1) & "," & man(2) & "," & man(3) & "," & man(4)

End Sub



4 :デフォルトの名無しさん:04/12/27 05:31:02
4様

5 :あず:04/12/27 05:31:15
Sub fight(x As Integer, y As Integer)
If man(0) = man(1) = man(2) = man(3) = man(4) Then
x = 5
ElseIf man(x) = man(x) = man(x) = man(x) Then
x = 4
ElseIf man(x) = man(x) = man(x) Then
x = 3
ElseIf man(x) = man(x) Then
x = 2
Else
x = 1
End If



6 :あず:04/12/27 05:32:08
If com(0) = com(1) = com(2) = com(3) = com(4) Then
y = 5
ElseIf com(x) = com(x) = com(x) = com(x) Then
y = 4
ElseIf com(x) = com(x) = com(x) Then
y = 3
ElseIf com(x) = com(x) Then
y = 2
Else
y = 1
End If



7 :デフォルトの名無しさん:04/12/27 05:32:56
7げっとー!

8 :あず:04/12/27 05:33:05
If x > y Then
MsgBox "you are the winner"
Sheet1.Cells(1, 1).Value = 1
ElseIf x < y Then
MsgBox "computer is the winner"
Sheet1.Cells(1, 1).Value = 2
ElseIf x = y Then
MsgBox "draw game"
Sheet1.Cells(1, 1).Value = 3
End If




9 :デフォルトの名無しさん:04/12/27 05:33:29
End Sub

Function getcard(namae As String) As Integer
getcard = Int(Rnd * 13) + 1
MsgBox namae & " draw " & getcard
End Function

10 :あず:04/12/27 05:34:32
こんな感じなんですけどどうですか?

11 :デフォルトの名無しさん:04/12/27 05:35:06
10レス逝ったし終了だな。

12 :デフォルトの名無しさん:04/12/27 05:40:36
削除依頼よろ

13 :デフォルトの名無しさん:04/12/27 06:29:10
とりあえず聞きたいのなら自分から名乗るのが筋ってもんじゃないのか?
学校名、名前と学籍番号くらい書け。

14 :デフォルトの名無しさん:04/12/27 06:29:37
>>1
カードゲーム用コンポーネント

Free Delphi components programs.
http://www.davidmayne.co.uk/delphi.htm

15 :デフォルトの名無しさん:04/12/27 07:10:07
掲示板のルールひとつも守れないバカは卒業なんて考えなくていいよ
社会に出てきても邪魔なだけ
氏ぬまで家に引き籠もってママの脛でも囓りながら生きろ

16 :デフォルトの名無しさん:04/12/27 07:19:43
       ∨
    / ̄ ̄ ̄ ̄\   
   (  人_____,,)
    |ミ/  ー◎-◎-)  ボクハ ホントウハ ツヨインダゾ・・・ブツブツ
   (6     (_ _) )    カタカタカタ
   | ∴ ノ  3 .ノ  ______
    ヽ、,,     __,ノ   |  | ̄ ̄\ \
   /       \.____|  |    | ̄ ̄|
  /  \___      |  |    |__|
  | \      |つ    |__|__/ /
  /     ̄ ̄  | ̄ ̄ ̄ ̄|  〔 ̄ ̄〕


17 :デフォルトの名無しさん:04/12/27 12:31:08
ネタなら許す。


18 :デフォルトの名無しさん:04/12/30 07:48:47
それより小学生の膣について語ろうぜ。

4 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)