じゃんけんゲームを作成するには？ (ID:81437)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 只今、じゃんけんゲームを作成しています。 それで、 「ジャン」「ケン」「ポン」とLabel3に表示させるのですが、 「ポン」と表示させるのと同時にLabel1に comの手を表示させえたいのです。 どのような関数を使えばよいのかもわからないので なにか、アドバイスください。。。 只今のソースは、↓のようになっています。 -------------------------------------------------------------------- Public taisen As Integer Public kati As Integer Public make As Integer Public aiko As Integer Public user_gu As Integer Public user_chok As Integer Public user_par As Integer -------------------------------------------------------------------- Private Sub Command1_Click() Comcho End Sub -------------------------------------------------------------------- Private Sub Command2_Click() Label2.Caption = "グー" Comcho If Label1.Caption = "グー" Then n = 3 If Label1.Caption = "チョキ" Then n = 1 If Label1.Caption = "パー" Then n = 2 Shohai (n) user_gu = user_gu + 1 End Sub -------------------------------------------------------------------- Private Sub Command3_Click() Label2.Caption = "チョキ" Comcho If Label1.Caption = "チョキ" Then n = 3 If Label1.Caption = "パー" Then n = 1 If Label1.Caption = "グー" Then n = 2 Shohai (n) user_chok = user_chok + 1 End Sub -------------------------------------------------------------------- Private Sub Command4_Click() Label2.Caption = "パー" Comcho If Label1.Caption = "パー" Then n = 3 If Label1.Caption = "グー" Then n = 1 If Label1.Caption = "チョキ" Then n = 2 Shohai (n) user_par = user_par + 1 End Sub -------------------------------------------------------------------- Private Sub Comcho() Dim randamvalue As Double Dim com_gu As Double 'ユーザがグーを出す確率 Dim com_chok As Double 'ユーザがチョキを出す確率 randamvalue = Rnd(1) '0以上1未満の乱数を発生させる com_gu = user_gu / (user_gu + user_chok + user_par) com_chok = (user_gu + user_chok) / (user_gu + user_chok + user_par) If randamvalue <= com_gu Then Label1.Caption = "パー" 'グーを出す確率が高いのでパーを出す Else If randamvalue <= com_chok Then Label1.Caption = "グー" 'チョキを出す確率が高いのでグーを出す Else Label1.Caption = "チョキ" End If End If End Sub -------------------------------------------------------------------- Private Sub Shohai(k) taisen = taisen + 1 Label6.Caption = taisen If k = 1 Then Label3.Caption = "勝ち" kati = kati + 1 End If If k = 2 Then Label3.Caption = "負け" make = make + 1 End If If k = 3 Then Label3.Caption = "あいこ" aiko = aiko + 1 End If Label9.Caption = kati Label11.Caption = make Label12.Caption = aiko End Sub -------------------------------------------------------------------- Private Sub Form_Load() user_gu = 1 user_chok = 1 user_par = 1 End Sub --------------------------------------------------------------------