[VB] Steen, Papier, Schaar.

Lid · Topicstarter

Berichten: 8.602
Reputatie: 0
Punten: 0,00

Lid sinds: 2008
Laatst gezien: 12 jun 2025

2 jun 2011, 22:07

Hallo,

Ik ga allerlei Visual Basic tutorials maken. Deze keer gaan we een steen papier schaar programmatje maken.

Veel succes

Stap 1:
Open een nieuw project en noem deze SteenPapierSchaar

Stap 2:
Voeg 3 buttons in & 1 label

Stap 3:
Vul bij label in: Je hebt nog niks gekozen.
Vul bij button1 in: Steen
Vul bij button2 in: Papier
Vul bij button3 in: Schaar

Stap 4:
Klik op alle 3 de buttons 2 keer achter elkaar. Je krijgt dan deze code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    End Sub

End Class

Stap 5:
Random functie. We gaan een random functie toevoegen. De code van de functie:

Public Function Rand(ByVal Low As Long, ByVal High As Long) As Long
    Rand = Int((High - Low + 1) * Rnd) + Low
End Function

(Het komt er zo uit te zien:)

Public Class Form1

    Public Function Rand(ByVal Low As Long, ByVal High As Long) As Long
        Rand = Int((High - Low + 1) * Rnd) + Low
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

    End Sub

End Class

Stap 6:
We gaan nu kijiken of de gebruiker gelijk heeft met button 1, Steen.
We gaan deze code zoeken:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    End Sub

Dan gaan we een random getal maken:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Nieuwe string aanmaken met een getal tussen de 1 en de 3
     1 = steen
     2 = papier
     3 = schaar
    Dim computer_keuze As String = Rand(1,3)

    End Sub

We gaan nu kijken of we van de computer winnen of verliezen:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Nieuwe string aanmaken met een getal tussen de 1 en de 3
         1 = steen
         2 = papier
         3 = schaar
        Dim computer_keuze As String = Rand(1, 3)

        Kijken met If welke keuze de computer heeft gemaakt
        If computer_keuze = "1" Then
            Computer heeft ook steen
            Alert weergeven met de stand
            MsgBox("Gelijkspel, de computer had ook steen")
        ElseIf computer_keuze = "2" Then
            Computer heeft papier
            Alert weergeven met de stand
            MsgBox("Verloren, de computer had papier")
        Else
            Computer heeft schaar
            Alert weergeven met de stand
            MsgBox("Gewonnen, de computer had schaar")
        End If

        Label1.Text = "Laatste keuze: Steen"

    End Sub

Stap 7:
We gaan ook bij de andere 2 buttons dit kopiëren en plakken, maar dan een beetje aanpassen.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Nieuwe string aanmaken met een getal tussen de 1 en de 3
         1 = steen
         2 = papier
         3 = schaar
        Dim computer_keuze As String = Rand(1, 3)

        Kijken met If welke keuze de computer heeft gemaakt
        If computer_keuze = "2" Then
            Computer heeft ook papier
            Alert weergeven met de stand
            MsgBox("Gelijkspel, de computer had ook papier")
        ElseIf computer_keuze = "3" Then
            Computer heeft schaar
            Alert weergeven met de stand
            MsgBox("Verloren, de computer had schaar")
        Else
            Computer heeft steen
            Alert weergeven met de stand
            MsgBox("Gewonnen, de computer had steen")
        End If

        Label1.Text = "Laatste keuze: Papier"

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Nieuwe string aanmaken met een getal tussen de 1 en de 3
         1 = steen
         2 = papier
         3 = schaar
        Dim computer_keuze As String = Rand(1, 3)

        Kijken met If welke keuze de computer heeft gemaakt
        If computer_keuze = "3" Then
            Computer heeft ook schaar
            Alert weergeven met de stand
            MsgBox("Gelijkspel, de computer had ook schaar")
        ElseIf computer_keuze = "1" Then
            Computer heeft steen
            Alert weergeven met de stand
            MsgBox("Verloren, de computer had steen")
        Else
            Computer heeft papier
            Alert weergeven met de stand
            MsgBox("Gewonnen, de computer had papier")
        End If

        Label1.Text = "Laatste keuze: Schaar"

    End Sub

Klaar!
Je bent nu klaar. Het ziet er nu zo uit:

Je kan natuurlijk nog zelf aanpassen e.d.

Voor de luilakken, hier de complete code:

Spoiler tonen

Public Class Form1

    Public Function Rand(ByVal Low As Long, ByVal High As Long) As Long
        Rand = Int((High - Low + 1) * Rnd) + Low
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Nieuwe string aanmaken met een getal tussen de 1 en de 3
         1 = steen
         2 = papier
         3 = schaar
        Dim computer_keuze As String = Rand(1, 3)

        Kijken met If welke keuze de computer heeft gemaakt
        If computer_keuze = "1" Then
            Computer heeft ook steen
            Alert weergeven met de stand
            MsgBox("Gelijkspel, de computer had ook steen")
        ElseIf computer_keuze = "2" Then
            Computer heeft papier
            Alert weergeven met de stand
            MsgBox("Verloren, de computer had papier")
        Else
            Computer heeft schaar
            Alert weergeven met de stand
            MsgBox("Gewonnen, de computer had schaar")
        End If

        Label1.Text = "Laatste keuze: Steen"

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Nieuwe string aanmaken met een getal tussen de 1 en de 3
         1 = steen
         2 = papier
         3 = schaar
        Dim computer_keuze As String = Rand(1, 3)

        Kijken met If welke keuze de computer heeft gemaakt
        If computer_keuze = "2" Then
            Computer heeft ook papier
            Alert weergeven met de stand
            MsgBox("Gelijkspel, de computer had ook papier")
        ElseIf computer_keuze = "3" Then
            Computer heeft schaar
            Alert weergeven met de stand
            MsgBox("Verloren, de computer had schaar")
        Else
            Computer heeft steen
            Alert weergeven met de stand
            MsgBox("Gewonnen, de computer had steen")
        End If

        Label1.Text = "Laatste keuze: Papier"

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Nieuwe string aanmaken met een getal tussen de 1 en de 3
         1 = steen
         2 = papier
         3 = schaar
        Dim computer_keuze As String = Rand(1, 3)

        Kijken met If welke keuze de computer heeft gemaakt
        If computer_keuze = "3" Then
            Computer heeft ook schaar
            Alert weergeven met de stand
            MsgBox("Gelijkspel, de computer had ook schaar")
        ElseIf computer_keuze = "1" Then
            Computer heeft steen
            Alert weergeven met de stand
            MsgBox("Verloren, de computer had steen")
        Else
            Computer heeft papier
            Alert weergeven met de stand
            MsgBox("Gewonnen, de computer had papier")
        End If

        Label1.Text = "Laatste keuze: Schaar"

    End Sub

End Class

Edit; Wil je nog leuke tutorials over VB? Stuur een PM of plaats in dit topic

Skytop

Lid

Berichten: 1.101
Reputatie: 0
Punten: 0,00

Lid sinds: 2010
Laatst gezien: 12 jun 2025

2 jun 2011, 22:22

Leuk

,

Vooral die random functie was een ding dat ik nog wou leren

Milan

Lid · Topicstarter

Berichten: 8.602
Reputatie: 0
Punten: 0,00

Lid sinds: 2008
Laatst gezien: 12 jun 2025

2 jun 2011, 22:26

Thanx. Nog ideeën voor tuts?

Skytop

Lid

Berichten: 1.101
Reputatie: 0
Punten: 0,00

Lid sinds: 2010
Laatst gezien: 12 jun 2025

2 jun 2011, 22:30

Milan schreef:
Thanx. Nog ideeën voor tuts?

Simpel kladblokje?

Milan

Lid · Topicstarter

Berichten: 8.602
Reputatie: 0
Punten: 0,00

Lid sinds: 2008
Laatst gezien: 12 jun 2025

2 jun 2011, 22:32

Hmm ga ik uitwerken. Thanks

Smiegles

Lid

Berichten: 4.912
Reputatie: 0
Punten: 0,00

Lid sinds: 2009
Laatst gezien: 13 jan 2023

2 jun 2011, 22:40

afbeeldingen en tekst kunnen slepen enzo en dan de html krijgen

Kyron

Lid

Berichten: 3.314
Reputatie: 0
Punten: 0,00

Lid sinds: 2008
Laatst gezien: 12 jun 2025

3 jun 2011, 21:14

Nice tut

One2xs

Bot

Berichten: 93.699
Reputatie: 0
Punten: 1,27

Lid sinds: 2025
Laatst gezien: 29 jun 2025

3 jun 2011, 22:02

Nice!

Dylano

Lid

Berichten: 1.479
Reputatie: 0
Punten: 0,00

Lid sinds: 2010
Laatst gezien: 12 jun 2025

4 jun 2011, 15:45

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace Steen_Papier_Schaar
{
public partial class form1 : Form
{
public form1()
{
InitializeComponent();
}

private void label1_Click(object sender, EventArgs e)
{

}

private void button1_Click(object sender, EventArgs e)
{

}

private void button2_Click(object sender, EventArgs e)
{

}
}
}
Ik heb deze code @ Stap 4

Milan

Lid · Topicstarter