vd-meij.nl
Gebruiker
- Lid geworden
- 19 jan 2004
- Berichten
- 33
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Hallo T._de_vries,Geplaatst door T._de_vries
Dat heeft hij gedaan, maar dan ingepakt in een RAR bestand (net als een zip). Om het te openen heb je WinRAR nodig. (is een erg handig programma!):thumb:
Heeej, vd-meij.nl. Dat is tof van je!Geplaatst door vd-meij.nl
Hier kan je het downloaden Klikkie
Okiedo, doe mijn best.Geplaatst door vd-meij.nl
no problem, kijk maar als je tijd heb![]()
Ik hoop dat je me kunt helpen![]()
Private Sub cmdBereken_Click()
If Trim(txtEind.Text) = "" Or Trim(txtBegin.Text) = "" _
Or Trim(txtPrijs.Text) = "" Then
MsgBox "Alle de drie velden invullen a.u.b"
Exit Sub
Else
txtEind.Text = Val(Trim(txtEind.Text))
txtBegin.Text = Val(Trim(txtBegin.Text))
txtPrijs.Text = Val(Trim(txtPrijs.Text))
Dim AantKm As Single
Dim EindKm As Single
Dim BeginKm As Single
Dim Prijs As Single
Dim PrijsExc As Single
Dim PrijsInc As Single
EindKm = txtEind.Text
BeginKm = txtBegin.Text
Prijs = txtPrijs.Text
If EindKm <= BeginKm Then
MsgBox "Eindstand km moet groter dan Begistand km zijn!"
Exit Sub
End If
AantKm = txtEind.Text - txtBegin.Text 'Aantal KM berekenen
PrijsExc = AantKm * txtPrijs.Text 'Bedrag exclusief berekenen
lblBedragExcl(0) = PrijsExc
PrijsExc = lblBedragExcl(0)
lblBTW(1).Caption = "0.175" 'BTW is een Constante
PrijsInc = PrijsExc + (PrijsExc * 0.175) 'Bedrag Inclusief berekenen
lblBedragIncl(1).Caption = PrijsInc
End If
End Sub
Private Sub cmdWissen_Click()
txtBegin = ""
txtEind = ""
txtPrijs = ""
lblBedragExcl(0) = ""
lblBedragIncl(1) = ""
lblBTW(1).Caption = ""
End Sub
AantKm = txtEind.Text - txtBegin.Text 'Aantal KM berekenen
AantKm = EindKm - BeginKm 'Aantal KM berekenen
PrijsExc = AantKm * txtPrijs.Text 'Bedrag exclusief berekenen
lblBedragExcl(0) = PrijsExc
PrijsExc = lblBedragExcl(0)
PrijsExc = AantKm * Prijs 'Bedrag exclusief berekenen
lblBedragExcl(0) = PrijsExc
Private Sub cmdBereken_Click()
'=============== Dit is jouw code ===============
'AantKm = txtEind.Text - txtBegin.Text 'Aantal KM berekenen
'lblBedragExcl = AantKm * txtPrijs.Text 'Bedrag excl berekenen
'lblBTW.Text = lblBedragExcl.Text * 0.175
'lblBedragIncl.Text = lblBedragExcl.Text + lblBTW
'lblBedragExcl.Caption = Format(BedragExBtw, "Fl 0.00")
'==== Hieronder is de code volgens de opdracht ===='
'
'In de opdracht staat, dat je 3 variabelen moet gebruiken.'
'We gaan nu 3 variabelen gebruiken/declareren, en wel van
'het type Single en niet v.h. type Integer, omdat het type Integer
'geen gebroken getallen kent, en Single wel.
'(Maar eigenlijk, moet er nog één variabele worden gebruikt. Ik denk
'dat je dit even vergeten bent te vermelden, de variabele heet dan:
'AantKm. We hebben er dus 4 in totaal)
'=== Declaratie variabelen ====
Dim AantKm As Single
Dim BedragExBtw As Single
Dim Btw As Single
Dim BedragIncBtw As Single
'We gaan nu 3 berekeningen uitvoeren:
AantKm = txtEind.Text - txtBegin.Text 'Aantal KM berekenen
BedragExBtw = AantKm * txtPrijs.Text 'Bedrag exclusief BTW berekenen
Btw = BedragExBtw * 0.175 'BTW bedrag over de gereden kilometers berekenen
BedragIncBtw = BedragExBtw + Btw 'Bedrag exclusief BTW bereken
'We gaan nu de uitkomsten v.d. 3 laatste bovenstaande berekeningen
'op de daarvoor bestemde labels weergeven
lblBedragExcl.Caption = Format(BedragExBtw, "FL 0.00")
lblBTW.Caption = Format(Btw, "FL 0.00")
lblBedragIncl.Caption = Format(BedragIncBtw, "FL 0.00")
'Let nu goed op! Je ziet hierboven, dat de 3 labels geen index
'hebben, MAAR in je eigen source code, bij de properties van deze
'3 labels, zie ik dat ze geïndexeerd zijn.
'Ze zien er zo uit:
'lblBedragExcl (0)
'lblBTW.Caption (1)
'lblBedragIncl (1)
'Dit is ook de voornaamste reden waarom je dit topic bij Helpmij
'hebt geopend. Lees anders even het VB boek over het creëren van
'control arrays.
'Remedie: Verwijder deze 3 geïndexeerde labels en plaats 3 nieuwe
'labels.(en copieer ze niet per ongeluk, want dan heb je weer met
'die indexen te maken.
'Deze 3 labels moeten wel weer dezelfde namem hebben, dus:
'lblBedragExcl, lblBTW en lblBedragIncl.
End Sub
Geen dank.Geplaatst door vd-meij.nl
echt bedankt man, nu kan ik weer verderecht heel erg bedankt!!
Is goed.Geplaatst door vd-meij.nl
btw, mn overige vragen stel ik ook maar in dit topic:thumb: [/B]
Private Sub cmd_Click()
Dim txtSe1 As Single, txtSe2 As Single, txtSe3 As Single, txtSe4 As Single, txtSe5 As Single, lblCeCijfer As Single, AlleSe As Single, GemSe As Single, CE As Single
Se1 = txtSe1.Text
Se2 = txtSe2.Text
Se3 = txtSe3.Text
Se4 = txtSe4.Text
Se5 = txtSe5.Text
AlleSe = Se1 + Se2 + Se3 + Se4 + Se5
GemSe = AlleSe / 5
CE = 11 - GemSe
CE = lblCeCijfer
End Sub
Private Sub Command1_Click()
Dim Se1, Se2, Se3, Se4, Se5 As Single
Dim AlleSe, GemSe, CE As Single
Se1 = Val(Trim(txtSe1.Text))
Se2 = Val(Trim(txtSe2.Text))
Se3 = Val(Trim(txtSe3.Text))
Se4 = Val(Trim(txtSe4.Text))
Se5 = Val(Trim(txtSe5.Text))
AlleSe = Se1 + Se2 + Se3 + Se4 + Se5
GemSe = AlleSe / 5
CE = 11 - GemSe
lblCeCijfer = CE
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.