vb6 rekensom....

[kokkie20]

hallo, ik ben bezig met een programma aan het maken dat iets uitrekent voor een online game.
Ik zal het proberen uit te leggen.
een gebruiker kan dan een winkel maken, en kan hem upgraden.
Per upgrade komt er 200 bovenop de oude prijs.
hierbij een korte prijzenlijst:
1 - 2 = 200
2 - 3 = 400
3 - 4 = 600
4 - 5 = 800
5 - 6 = 1000
6 - 7 = 1200
7 - 8 = 1400
8 - 9 = 1600
9 - 10 = 1800
10 - 11 = 2000
11 - 12 = 2200
12 - 13 = 2400
13 - 14 = 2600
14 - 15 = 2800
15 - 16 = 3000

maar stel dat de gebruiker van grote 10 tot grote 14 wilt uitrekenen.
dan moet hij eerst uitrekenen hoeveel de laatste getal is van grote 10.
dat is dus 1800
dus als hij van 10 naar 14 moet, dan begint hij bij 2000 (omdat 10 naar 11 moet) tot en met 14 (2600).
maar die tussenliggende getallen, moeten er ook bij opgeteld worden.
dus :
2000+2200+2400+2600
en dan kom je op het uiteindelijke getal wat het moet kosten.
ik heb het aan een vriend van mij gevraagd, we kwamen tot nu toe hier, maar verder komen we op het moment niet.
de laatste klopt niet, de lbldifference moet dus laten zien hoeveel het totaal kost (zoals ik hierboven heb beschreven)

Dim strDifference As Long, I As Long, strCurrentCost As Long

Private Sub Command1_Click()
Dim addition As Long, addition2 As Long, x As Long, addition3 As Long, a As Long
I = 0
x = 0
a = 0
addition = 0
addition2 = 0
addition3 = 0

    Do Until I >= txtStart.Text
    I = I + 1
        addition = addition + 200
    Loop
    lbl1.Caption = addition

    Do Until x >= txtEnd.Text
    x = x + 1
        addition2 = addition2 + 200
    Loop
    lbl2.Caption = addition2
    
    Do Until a >= (txtEnd.Text - txtStart.Text)
    a = a + 1
        addition3 = addition3 + 200
    Loop
    Me.lblDifference = addition3
    lblDifference = addition2 - addition
    
    
End Sub

en heb ook de form bijgesloten als bijlage
ik hoop dat iemand me hiermee kan helpen.
bvd

kokkie20 :thumb:

 

[CoD_NL]

Ik heb hier geen VB6, dus ik kan je project sowieso niet openen. Maar hetgeen je wilt bereiken lijkt me nu niet heel erg lastig. Iets als onderstaande zou moeten werken.

dim i as integer, total as integer
total = 0

for i = cint(txtStart.text) to cint(txtEnd.text)
    total = total + i * 200
next i

edit:

De bovenstaande code berekent alleen het totaal van de kosten, om de prijs van de start- en eindwaarde te krijgen kun je ook gewoon waarde * 200 doen.

lbl1.caption = cstr(cint(txtStart.text) * 200)
lbl2.caption = cstr(cint(txtEnd.text) * 200)

 

[kokkie20]

ok hij werkt bijna ja :thumb:
ik ga nog even verder kijken met deze code om het verder uit te zoeken
zit nog kleine fout in de code maar iig bedankt voor de moeite :thumb:

 

[kokkie20]

heb het opgelost
dankzij jouw code en wat uitzoeken
kwam ik op deze code en gaf de correcte resultaat:

Dim strDifference As Long, i As Long, strCurrentCost As Long

Private Sub Command1_Click()
Dim addition As Long, addition2 As Long, x As Long, addition3 As Long, a As Long, total As Long
i = 0
x = 0
a = 0
addition = 0
addition2 = 0
total = 0
    Do Until i >= txtStart.Text
    i = i + 1
        addition = addition + 200
    Loop
    lbl1.Caption = addition

    Do Until x >= txtEnd.Text
    x = x + 1
        addition2 = addition2 + 200
    Loop
    lbl2.Caption = addition2

    For a = CLng(txtStart.Text) To CLng(txtEnd.Text)
    total = total + a * 200
    Next a
    lblDifference.Caption = total - addition2 & " neopoints"
    
    
End Sub