frmrolldice.frm

Visual Basic 6 大学教程的代码

VERSION 5.00
Begin VB.Form frmRollDice 
   Caption         =   "Fig. 7.5: Simulating rolling six-sided dice"
   ClientHeight    =   4980
   ClientLeft      =   2565
   ClientTop       =   1425
   ClientWidth     =   5040
   LinkTopic       =   "Form1"
   ScaleHeight     =   4980
   ScaleWidth      =   5040
   Begin VB.ListBox lstStatistics 
      Height          =   1425
      Left            =   285
      TabIndex        =   1
      Top             =   3450
      Width           =   4410
   End
   Begin VB.CommandButton cmdRoll 
      Caption         =   "Roll"
      Height          =   495
      Left            =   1935
      TabIndex        =   0
      Top             =   2790
      Width           =   1215
   End
   Begin VB.Image imgDie1 
      Height          =   645
      Left            =   330
      Top             =   210
      Width           =   810
   End
   Begin VB.Image imgDie4 
      Height          =   645
      Left            =   3855
      Top             =   210
      Width           =   810
   End
   Begin VB.Image imgDie2 
      Height          =   645
      Left            =   1515
      Top             =   210
      Width           =   810
   End
   Begin VB.Image imgDie7 
      Height          =   645
      Left            =   2745
      Top             =   1065
      Width           =   810
   End
   Begin VB.Image imgDie9 
      Height          =   645
      Left            =   330
      Top             =   1920
      Width           =   810
   End
   Begin VB.Image imgDie10 
      Height          =   645
      Left            =   1515
      Top             =   1920
      Width           =   810
   End
   Begin VB.Image imgDie11 
      Height          =   645
      Left            =   2745
      Top             =   1920
      Width           =   810
   End
   Begin VB.Image imgDie12 
      Height          =   645
      Left            =   3855
      Top             =   1920
      Width           =   810
   End
   Begin VB.Image imgDie8 
      Height          =   645
      Left            =   3855
      Top             =   1065
      Width           =   810
   End
   Begin VB.Image imgDie3 
      Height          =   645
      Left            =   2745
      Top             =   210
      Width           =   810
   End
   Begin VB.Image imgDie5 
      Height          =   645
      Left            =   330
      Top             =   1065
      Width           =   810
   End
   Begin VB.Image imgDie6 
      Height          =   645
      Left            =   1515
      Top             =   1065
      Width           =   810
   End
End
Attribute VB_Name = "frmRollDice"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Fig. 7.5
' Six-sided die simulation
Option Explicit

' Declare module variables
Dim mFrequency(1 To 6) As Integer
Dim mTotalRolls As Integer

Private Sub cmdRoll_Click()
   Call Randomize                          ' Seed function Rnd
   mTotalRolls = mTotalRolls + 12
   
   Call DisplayDie(imgDie1)
   Call DisplayDie(imgDie2)
   Call DisplayDie(imgDie3)
   Call DisplayDie(imgDie4)
   Call DisplayDie(imgDie5)
   Call DisplayDie(imgDie6)
   Call DisplayDie(imgDie7)
   Call DisplayDie(imgDie8)
   Call DisplayDie(imgDie9)
   Call DisplayDie(imgDie10)
   Call DisplayDie(imgDie11)
   Call DisplayDie(imgDie12)
   
   Call lstStatistics.Clear
   Call DisplayStats
End Sub

Private Sub DisplayDie(imgDie As Image)
   Dim face As Integer
   
   face = 1 + Int(Rnd() * 6)
   
   ' Replaces Select Case structure
   mFrequency(face) = mFrequency(face) + 1

   imgDie.Picture = LoadPicture("d:\images\common\die" _
                                & face & ".gif")
End Sub

Private Sub DisplayStats()
   Dim x As Integer
   
   lstStatistics.AddItem "Face" & vbTab & "Frequency" & _
                         vbTab & "Percent"
   
   ' Replaces multiple output statements
   For x = LBound(mFrequency) To UBound(mFrequency)
      lstStatistics.AddItem x & vbTab & mFrequency(x) & vbTab _
                            & vbTab & Format$(mFrequency(x) / _
                            mTotalRolls, "Percent")
   Next x
   
End Sub