Dobbelsteen: code

• Om te starten nemen we een label waarin we het resultaat van de worp tonen. Maar je kan natuurlijk dobbelstenen tekenen en ze in een ImageLIst opslaan..
• De code:
  Public Class dobbelsteen
  Inherits System.Windows.Forms.UserControl
  Private p_waarde As Integer ' de waarde van de dobbelsteen
  #Region " Windows Form Designer generated code "
  
  Public Sub New()
  MyBase.New()
  
  'This call is required by the Windows Form Designer.
  InitializeComponent() 'gooien als de dubbelsteen wordt aangemaakt
  gooi()
  'Add any initialization after the InitializeComponent() call
  
  End Sub
  '...
  #End Region
  
  Public Sub gooi()
  p_waarde = Int(Rnd() * 6) + 1
  lblWaarde.Text = CStr(p_waarde)
  End Sub
  Public ReadOnly Property waarde() As Integer
  Get
    Return p_waarde
  End Get
  End Property
  End Class
• Je kan de dobbelsteen ook een dynamisch effectje meegeven met een timer:
  Public Class dobbelsteen
  Dim waarde As Integer
  Dim animatie As Integer
  Public ReadOnly Property Ogen() As Integer
  Get
  'bij het opvragen van de eigenschap
  Return waarde
  End Get
  End Property
  Private Sub maakgetal()
  Randomize()
  Do
  waarde = Rnd() * 6 + 1
  Loop While waarde > 6
  Me.Label1.Text = waarde
  End Sub
  Public Sub Gooi()
  maakgetal()
  animatie = 0
  Timer1.Enabled = True
  End Sub
  Private Sub dobbelsteen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Gooi()
  End Sub

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  animatie = animatie + 1
  maakgetal()
  If animatie > 10 Then
  Timer1.Enabled = False
  End If
  End Sub
  End Class

[Controls en klassen in .NET] - [VB Web] - [hlrnet] - [copyright]