Som Van Twee Getallen Public Class frmSomVanTweeGetallen Private Sub btnBerekenSom_Click(sender As System.Object, e As System.EventArgs) Handles btnBerekenSom.Click 'Declareer de variabelen '----------------------Dim Getal1 As Integer Dim Getal2 As Integer Dim Som As Integer 'Invoer = lees de gegevens uit de invoervelden '---------------------------------------------Getal1 = txtGetal1.Text Getal2 = txtGetal2.Text 'Verwerking = berekeningen '-------------------------Som = Getal1 + Getal2 'Uitvoer = zet de resultaten in de uitvoervelden '-----------------------------------------------txtSom.Text = Som End Sub Private Sub btnStoppen_Click(sender As Object, e As EventArgs) Handles btnStoppen.Click Me.Close() End Sub Private Sub btnLeegmaken_Click(sender As Object, e As EventArgs) Handles btnLeegmaken.Click txtGetal1.Text = "" txtGetal2.Text = String.Empty txtSom.Clear() txtGetal1.Focus()
End Sub End Class
RSZ (versie 1: geen verschil arbeiders-bedienden + geen conversie) Public Class frmRsz Private Sub btnBerekenRsz_Click(sender As Object, e As EventArgs) Handles btnBerekenRsz.Click 'Declareer de variabelen '----------------------Dim Naam As String Dim Statuut As String Dim Categorie As String Dim Brutowedde As Decimal Dim Rsz As Decimal
'Char is 'Char is 'Double, 'Double,
Const RszPercentage As Double = 13.07
'Constante voor rsz-percentage
ook mogelijk ook mogelijk Single mag ook Single mag ook
'Invoer = lees de gegevens uit de invoervelden '---------------------------------------------Naam = txtNaam.Text Statuut = txtStatuut.Text Categorie = txtCategorie.Text Brutowedde = txtBrutowedde.Text 'Verwerking '----------'Deze berekening houdt nog geen rekening met verschil tussen arbeiders en bedienden Rsz = Brutowedde / 100 * RszPercentage 'Uitvoer '--------txtRsz.Text = Rsz End Sub End Class
RSZ (versie 2: met verschil arbeiders-bedienden + conversie)
Boekhoud Public Class frmBoekhoud Private Sub btnBerekenWinst_Click(sender As System.Object, e As System.EventArgs) Handles btnBerekenWinst.Click 'Declareer de variabelen '----------------------Dim Verkoopprijs As Decimal Dim Kostprijs As Decimal Dim Winst As Decimal 'Invoer = lees de gegevens uit de invoervelden '---------------------------------------------Verkoopprijs = txtVerkoopprijs.Text Kostprijs = txtKostprijs.Text 'Verwerking = berekeningen '-------------------------Winst = Verkoopprijs - Kostprijs 'Uitvoer = zet de resultaten in de uitvoervelden '-----------------------------------------------txtWinst.Text = Winst End Sub
Verwijl Public Class frmverwijl Private Sub btnBerekenIntrest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBerekenIntrest.Click 'Declaraties Dim Factuurbedrag As Decimal Dim Intrestvoet As Double Dim MaandenTeLaat As Integer Dim VerwijlIntrest As Decimal 'Invoer Factuurbedrag = txtFactuurbedrag.Text Intrestvoet = txtIntrestvoet.Text MaandenTeLaat = txtMaandenTelaat.Text 'Verwerking VerwijlIntrest = Factuurbedrag * Intrestvoet / 100 * MaandenTeLaat 'Uitvoer txtVerwijlintrest.Text = VerwijlIntrest End Sub End Class
Factuur Public Class frmFactuur Private Sub btnBerekenTotaalprijs_Click(sender As Object, e As EventArgs) Handles btnBerekenTotaalprijs.Click Dim Dim Dim Dim Dim Dim
AantalStuks As Long Eenheidsprijs As Double BtwTarief As Double BedragGoederen As Double Btw As Double Totaalbedrag As Double
'Invoer AantalStuks = txtAantalStuks.Text Eenheidsprijs = txtEenheidsprijs.Text BtwTarief = txtBtwTarief.Text 'Verwerking BedragGoederen = AantalStuks * Eenheidsprijs Btw = BedragGoederen * BtwTarief / 100 Totaalbedrag = BedragGoederen + Btw 'Uitvoer txtTotaalprijs.Text = Totaalbedrag End Sub Private Sub btnWisGegevens_Click(sender As Object, e As EventArgs) Handles btnWisGegevens.Click txtAantalStuks.Text = "" txtEenheidsprijs.Text = "" txtBtwTarief.Text = "" txtTotaalprijs.Text = "" 'Zet de cursor in het tekstvak txtAantalstuks txtAantalStuks.Focus() End Sub End Class
Rapport Option Strict Off Public Class frmRapport Private Sub btnBereken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBereken.Click 'Deklaraties Dim Naam As String Dim Dim Dim Dim Dim
Wisk As Double Info As Double Ned As Double Frans As Double Engels As Double
'Punten
Dim Dim Dim Dim Dim Dim
PWisk As Double PInfo As Double PNed As Double PFrans As Double PEngels As Double GlobaalPerc As Double
'Percentages
'NB de totalen per vak zouden beter ook in constanten opgeslagen worden, 'maar dat is op dit ogenblik in het handboek nog niet ter sprake gekomen. 'Invoer Naam = txtNaam.Text Wisk = txtWiskunde.Text Info = txtInformatica.Text Ned = txtNederlands.Text Frans = txtFrans.Text Engels = txtEngels.Text 'Verwerking PWisk = Wisk / 60 * 100 PInfo = Info / 60 * 100 PNed = Ned / 40 * 100 PFrans = Frans / 30 * 100 PEngels = Engels / 20 * 100
GlobaalPerc = (Wisk + Info + Ned + Frans + Engels) / 210 * 100 'Uitvoer txtpWisk.Text = PWisk txtpInfo.Text = PInfo txtpNed.Text = PNed txtpFrans.Text = PFrans txtPEngels.Text = PEngels txtpGlobaal.Text = GlobaalPerc End Sub Private Sub btnLeegmaken_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLeegmaken.Click txtNaam.Text = "" txtWiskunde.Text = "" txtInformatica.Text = "" txtNederlands.Text = "" txtFrans.Text = "" txtEngels.Text = "" txtpWisk.Text = "" txtpInfo.Text = "" txtpNed.Text = "" txtpFrans.Text = "" txtPEngels.Text = "" txtpGlobaal.Text = "" txtNaam.Focus()
'Zet de cursor in txtNaam
End Sub Private Sub btnStoppen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStoppen.Click End End Sub End Class
Delib1 Public Class Form1 Private Sub btnBepaalResultaat_Click(sender As System.Object, e As System.EventArgs) Handles btnBepaalResultaat.Click 'Declaratie Dim Wiskunde, Nederlands, Boekhouden As Double Dim Totaal As Double 'Invoer Wiskunde = CDbl(txtWiskunde.Text) Nederlands = CDbl(txtNederlands.Text) Boekhouden = CDbl(txtBoekhouden.Text) Totaal = Wiskunde + Nederlands + Boekhouden If Totaal >= 30 Then lblResultaat.Text = "Geslaagd" Else lblResultaat.Text = "Niet geslaagd" End If End Sub End Class
Delib2 (versie1) Public Class Form1 Private Sub btnBepaalResultaat_Click(sender As System.Object, e As System.EventArgs) Handles btnBepaalResultaat.Click 'Declaratie Dim Wiskunde, Nederlands, Boekhouden As Double Dim Totaal As Double 'Invoer Wiskunde = CDbl(txtWiskunde.Text) Nederlands = CDbl(txtNederlands.Text) Boekhouden = CDbl(txtBoekhouden.Text) 'Verwerking en uitvoer Totaal = Boekhouden + Nederlands + Wiskunde If (Boekhouden >= 12) _ And (Totaal >= 30) _ And ((Wiskunde >= 8) And (Nederlands >= 10) Or (Nederlands >= 8) And (Wiskunde >= 10)) Then lblResultaat.Text = "Geslaagd" Else lblResultaat.Text = "Niet geslaagd" End If End Sub End Class
Delib2 (versie2) Public Class Form1 Private Sub btnBepaalResultaat_Click(sender As System.Object, e As System.EventArgs) Handles btnBepaalResultaat.Click 'Declaratie Dim Wiskunde, Nederlands, Boekhouden As Double Dim Totaal As Double 'Invoer Wiskunde = CDbl(txtWiskunde.Text) Nederlands = CDbl(txtNederlands.Text) Boekhouden = CDbl(txtBoekhouden.Text) 'Verwerking en uitvoer Totaal = Boekhouden + Nederlands + Wiskunde If Boekhouden < 12 Then lblResultaat.Text = "Niet geslaagd" Else If Totaal < 30 Then lblResultaat.Text = "Niet geslaagd" Else If (Wiskunde >= 8) And (Nederlands >= 10) Then lblResultaat.Text = "Geslaagd" Else If (Wiskunde >= 10) And (Nederlands >= 8) Then lblResultaat.Text = "Geslaagd" Else lblResultaat.Text = "Niet geslaagd" End If End If End If End If End Sub End Class
Delib2 (versie3: gebruik van Booleaanse variabelen) Public Class frmDelib2 Private Sub btnDelibereer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelibereer.Click Dim W, N, B As Double Dim Resultaat As String Dim V1, V2, V3 As Boolean 'Invoer W = CDbl(txtWisk.Text) N = CDbl(txtNed.Text) B = CDbl(txtBoekh.Text) 'Verwerking 'Waarden voor de voorwaarden bepalen V1 = (B >= 12) V2 = (B + N + W >= 30) V3 = (W >= 8 And N >= 10) Or (W >= 10 And N >= 8) 'Resultaat bepalen If V1 And V2 And V3 Then Resultaat = "Geslaagd" lblResultaat.BackColor = Color.Green Else Resultaat = "Niet geslaagd" lblResultaat.BackColor = Color.Red End If 'Uitvoer lblResultaat.Text = Resultaat lblResultaat.Visible = True End Sub End Class
'Boekhouden moet 60% zijn 'Totaal moet 50% zijn
