[VB] FK Rate System Probleem

[Flitskikker]

Hoi,

Ik heb met Visual Basic 6 een rate programma gemaakt (om sigs te raten), alleen er is een probleem mee, hij rondt het hele totaal af op hele getallen. Dus ik kan sigs alleen maar een 1, 2, 3, 4, 5, 6, 7, 8, 9 of 10 geven. Hij geeft zelfs een 10 als ik één of twee 9's er in heb!

Hier is een screen:

En hier de code:

Private Sub Command1_Click()
MsgBox "FlitskikkerRateSystem - Signatures | ©Flitskikker, 2007. Alle rechten voorbehouden. All rights reserved. | FlitskikkerRateSystem(TM) is een handelsmerk van Flitskikker(TM). Flitskikker(TM) en de Flitskikker(TM) logo's zijn handelsmerken van Martijn Van Berkel Productions", vbInformation, "Over..."
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
MsgBox "Welkom, " + Form2.username.Text + "! Veel rate plezier!", vbInformation, "Welkom!"
Form3.Hide
End Sub


Private Sub Command2_Click()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim L As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim ABC As Integer
Dim DEF As Integer
Dim GH As Integer
Dim IJ As Integer
Dim ABCO As Integer
Dim DEFP As Integer
Dim GHQ As Integer
Dim IJR As Integer
Dim KS As Integer
Dim LT As Integer
Dim MU As Integer
Dim NV As Integer
Dim DL As Integer
Dim ABCDEFGHIJKLMN As Integer
Dim X As Integer
Dim Y As Integer



If Not fontplace(0).Text = "" Then A = fontplace(0).Text
If Not fontface(0).Text = "" Then B = fontface(0).Text
If Not fontcolor(0).Text = "" Then C = fontcolor(0).Text
If Not renderplace(1).Text = "" Then D = renderplace(1).Text
If Not renderbeautifulness(0).Text = "" Then E = renderbeautifulness(0).Text
If Not renderblendedin(1).Text = "" Then F = renderblendedin(1).Text
If Not border_style(0).Text = "" Then G = border_style(0).Text
If Not borderthickness(1).Text = "" Then H = borderthickness(1).Text
If Not colorstyle(1).Text = "" Then I = colorstyle(1).Text
If Not colordisortness(0).Text = "" Then J = colordisortness(0).Text
If Not backgroundstyle(0).Text = "" Then K = backgroundstyle(0).Text
If Not effects(0).Text = "" Then L = effects(0).Text
If Not others(0).Text = "" Then M = others(0).Text
If Not bonus(1).Text = "" Then N = bonus(1).Text





O = deelfont.Caption
P = deelrender.Caption
Q = deelborder.Caption
R = deelcolor.Caption
S = deelbackground.Caption
T = deeleffects.Caption
U = deelothers.Caption
V = deelbonus.Caption


ABC = A + B + C
DEF = D + E + F
GH = G + H
IJ = I + J

If Not deelfont.Caption = 0 Then ABCO = ABC / O
If Not deelrender.Caption = 0 Then DEFP = DEF / P
If Not deelborder.Caption = 0 Then GHQ = GH / Q
If Not deelcolor.Caption = 0 Then IJR = IJ / R
If Not deelbackground.Caption = 0 Then KS = K / S
If Not deeleffects.Caption = 0 Then LT = L / T
If Not deelothers.Caption = 0 Then MU = M / U
If Not deelbonus.Caption = 0 Then NV = N / V


DL = deel.Caption
ABCDEFGHIJKLMN = ABCO + DEFP + GHQ + IJR + KS + LT + MU + NV
X = ABCDEFGHIJKLMN / DL
Y = X / 2

If Not deelfont.Caption = 0 Then totfont.Caption = ABC
If Not deelrender.Caption = 0 Then totrender.Caption = DEF
If Not deelborder.Caption = 0 Then totborder.Caption = GH
If Not deelcolor.Caption = 0 Then totcolor.Caption = IJ
If Not deelbackground.Caption = 0 Then totbackground.Caption = K
If Not deeleffects.Caption = 0 Then toteffects.Caption = L
If Not deelothers.Caption = 0 Then totothers.Caption = M
If Not deelbonus.Caption = 0 Then totbonus.Caption = N

If Not deelfont.Caption = 0 Then fonttotal(0).Caption = ABC / O
If Not deelrender.Caption = 0 Then rendertotal(1).Caption = DEF / P
If Not deelborder.Caption = 0 Then bordertotal(0).Caption = GH / Q
If Not deelcolor.Caption = 0 Then colortotal(1).Caption = IJ / R
If Not deelbackground.Caption = 0 Then backgroundtotal(2).Caption = K / S
If Not deeleffects.Caption = 0 Then effectstotal(0).Caption = L / T
If Not deelothers.Caption = 0 Then otherstotal(0).Caption = M / U
If Not deelbonus.Caption = 0 Then bonustotal(2).Caption = N / V

total.Caption = X
code.Text = "Lettertype: [B]" & fonttotal(0).Caption & "[/B] [size=1][list][*]Plaatsing: [B]" & A & "[/B] [*]Face: [B]" & B & "[/B] [*]Kleur: [B]" & C & "[/B][/list][/size] | Render: [B]" & rendertotal(1).Caption & "[/B] [size=1][list][*]Plaatsing: [B]" & D & "[/B] [*]Mooiheid: [B]" & E & "[/B] [*]Ingeblend: [B]" & F & "[/B][/list][/size] | Border: [B]" & bordertotal(0).Caption & "[/B][size=1][list][*]Stijl: [B]" & G & "[/B] [*]Dikte: [B]" & H & "[/B][/list][/size] | Kleur: [B]" & colortotal(1).Caption & "[/B][size=1][list][*]Stijl: [B]" & I & "[/B] [*]Verdeling: [B]" & J & "[/B][/list][/size] | Achtergrond: [B]" & backgroundtotal(2).Caption & "[/B] | Effecten: [B]" & effectstotal(0).Caption & "[/B] | Overige: [B]" & otherstotal(0).Caption & "[/B] | Bonuspunten: [B]" & bonustotal(2).Caption & "[/B] | Commentaar: [B]" & comment.Text & "[/B] | [B]TOTAAL: [size=5]" & X & "[/size][/B] | Aantal sterren: [IMG=http://h1.ripway.com/flitskikker/gtaforum/ratesystem/stars/" & Y & "stars.PNG]"
End Sub

Private Sub Label10_Click()

End Sub

Private Sub Label12_Click()

End Sub

Private Sub Command3_Click()

Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim L As Integer
Dim M As Integer
Dim N As Integer
Dim O As Integer
Dim ABC As Integer
Dim DEF As Integer
Dim GH As Integer
Dim IJ As Integer
Dim ABCO As Integer
Dim DEFP As Integer
Dim GHQ As Integer
Dim IJR As Integer
Dim KS As Integer
Dim LT As Integer
Dim MU As Integer
Dim NV As Integer
Dim DL As Integer
Dim ABCDEFGHIJKLMN As Integer
Dim X As Integer
Dim Y As Integer

If fontplace(0).Text = "" Then deelfont.Caption = deelfont.Caption - 1
If fontface(0).Text = "" Then deelfont.Caption = deelfont.Caption - 1
If fontcolor(0).Text = "" Then deelfont.Caption = deelfont.Caption - 1

If renderplace(1).Text = "" Then deelrender.Caption = deelrender.Caption - 1
If renderbeautifulness(0).Text = "" Then deelrender.Caption = deelrender.Caption - 1
If renderblendedin(1).Text = "" Then deelrender.Caption = deelrender.Caption - 1

If border_style(0).Text = "" Then deelborder.Caption = deelborder.Caption - 1
If borderthickness(1).Text = "" Then deelborder.Caption = deelborder.Caption - 1

If colorstyle(1).Text = "" Then deelcolor.Caption = deelcolor.Caption - 1
If colordisortness(0).Text = "" Then deelcolor.Caption = deelcolor.Caption - 1

If backgroundstyle(0).Text = "" Then deelbackground.Caption = deelbackground.Caption - 1

If effects(0).Text = "" Then deeleffects.Caption = deeleffects.Caption - 1

If others(0).Text = "" Then deelothers.Caption = deelothers.Caption - 1

If bonus(1).Text = "" Then deelbonus.Caption = deelbonus.Caption - 1


If deelfont.Caption = 0 Then deel.Caption = deel.Caption - 1
If deelrender.Caption = 0 Then deel.Caption = deel.Caption - 1
If deelborder.Caption = 0 Then deel.Caption = deel.Caption - 1
If deelcolor.Caption = 0 Then deel.Caption = deel.Caption - 1
If deelbackground.Caption = 0 Then deel.Caption = deel.Caption - 1
If deeleffects.Caption = 0 Then deel.Caption = deel.Caption - 1
If deelothers.Caption = 0 Then deel.Caption = deel.Caption - 1
If deelbonus.Caption = 0 Then deel.Caption = deel.Caption - 1

Command3.Visible = False
End Sub

Trouwens, ik ben nog een beginner met VB, dus ik kan het nog niet allemaal zo goed, wel heb ik nog een MediaPlayer, InternetBrowser en een CITO ToetsScoreCalculator( ) gemaakt.

Hopelijk weten jullie een oplossing, daar doen jullie mij (en Rivel ) een groot plezier mee!

Mvg,

Flitskikker

[Bassiej]

Bláát

Dat komt om dat een 'Integer' een variabele is in de vorm van een geheel getal. Gebruik bijvoorbeeld eens 'Double' in plaats van 'Integer'.

Edit: Of 'Single' zoals JGuntherS hieronder zegt . 'Single' komt trouwens neer op 1 decimaal en 'Double' op twee decimalen .

Bewerkt: 17 april 2007 door Bassiej™

[JGuntherS]

Het is heel simpel, een integer-variabele kan alleen gehele getallen bevatten, en aangezien je alles als integers 'gedimt' hebt, rondt-ie automatisch af. Probeer de boel eens als 'Single' te dimmen .

[Flitskikker]

Ja heel simpel...

Dat wist ik dus echt niet...

Wat is het verschil dan tussen Single, Double, Long etc.?

Dan weet ik dat ook voor de volgende keer.

Ik maak mijn rate programma nog even op met wat plaatjes enzo, dan is ie klaar voor gebruik.

Thnx voor de hulp!

Mvg,

Flitskikker

[Bassiej]

Wat is het verschil dan tussen Single, Double, Long etc.?

Edit: Of 'Single' zoals JGuntherS hieronder zegt . 'Single' komt trouwens neer op 1 decimaal en 'Double' op twee decimalen .

'Long' houd volgens mij in dat er nog wat meer dan twee decimalen achter de komma te vinden zijn. Ik denk dat je het met 'Single' of 'Double' wel red met jou programma .

[Goudvis]

Wat is het verschil dan tussen Single, Double, Long etc.?

Edit: Of 'Single' zoals JGuntherS hieronder zegt . 'Single' komt trouwens neer op 1 decimaal en 'Double' op twee decimalen .

'Long' houd volgens mij in dat er nog wat meer dan twee decimalen achter de komma te vinden zijn. Ik denk dat je het met 'Single' of 'Double' wel red met jou programma .

Zowel double als single voldoen in dit geval...

Maar even voor de duidelijkheid

Integer = 16 bit geheel getal (ongeveer van -3200 tot 3200)

Long = 32 bit geheel getal (ongeveer van -2 miljard tot + 2 miljard)

Single = 16 bit decimaal getal

Double = 32 bit decimaal getal

Zowel Single en Double kunnen heel groot of klein worden, met heel veel cijfers achter de komma. 't Verschil zit hem in de naukeuringheid. Als je heel exacte berekeningen moet doen, met tientallen cijvers achter de komma, dan is single niet zo naukeurig. Met een Double wordt dat wat beter.

NOOT:

Een computer is niet gigantisch naukeurig met berekeningen met decimale getallen. Dit maakt normaal niet uit, maar als je bijvoorbeeld 0,000000001 bij 0,000000001 wilt optellen, dan kan het maar zo zijn dat er 0,000000003 uitkomt. En daar zit het verschil tussen de Single en Double, bij een Double wordt de kans dat het fout gaat kleiner. Maar zolang je maar twee decimalen hebt, en geen hele grote getallen gaat het altijd goed.

[King Room]

Waar kan je Visual Basic 6 krijgen?

Want ik heb de hele script opgeslagen in kladblok maar nu weet ik niet wat ik moet doen!!

Ik denk dat ik Visual Basic 6 moet downloaden van de site.

Wie wil me eventjes helpen?

MvG. Romano

[Flitskikker]

Waar kan je Visual Basic 6 krijgen?

Want ik heb de hele script opgeslagen in kladblok maar nu weet ik niet wat ik moet doen!!

Ik denk dat ik Visual Basic 6 moet downloaden van de site.

Wie wil me eventjes helpen?

MvG. Romano

Geopend met kladblok? Voor het script heb je wel VB6 nodig.

En als je het opent in VB, dan moet je ook wel alle components op je Form hebben.

Visual Basic 6 is wel betaald. Je kon geloof ik wel op de site van Microsoft een trial downloaden.

Mvg,

Flitskikker

BTW: Download het ratesysteem hier.

Bewerkt: 19 april 2007 door Flitskikker

[Flitskikker]

<bump, maar met nieuwe vraag>

Als ik in mijn ratesysteem de output wil genereren, kan ik geen enters plaatsen:

code.Text = "Lettertype: [B]" & fonttotal(0).Caption & "[/B] [size=1][list][*]Plaatsing: [B]" & A & "[/B] [*]Face: [B]" & B & "[/B] [*]Kleur: [B]" & C & "[/B][/list][/size] | Render: [B]" & rendertotal(1).Caption & "[/B] [size=1][list][*]Plaatsing: [B]" & D & "[/B] [*]Mooiheid: [B]" & E & "[/B] [*]Ingeblend: [B]" & F & "[/B][/list][/size] | Border: [B]" & bordertotal(0).Caption & "[/B][size=1][list][*]Stijl: [B]" & G & "[/B] [*]Dikte: [B]" & H & "[/B][/list][/size] | Kleur: [B]" & colortotal(1).Caption & "[/B][size=1][list][*]Stijl: [B]" & I & "[/B] [*]Verdeling: [B]" & J & "[/B][/list][/size] | Achtergrond: [B]" & backgroundtotal(2).Caption & "[/B] | Effecten: [B]" & effectstotal(0).Caption & "[/B] | Overige: [B]" & otherstotal(0).Caption & "[/B] | Bonuspunten: [B]" & bonustotal(2).Caption & "[/B] | Commentaar: [B]" & comment.Text & "[/B] | [B]TOTAAL: [size=5]" & X & "[/size][/B] | Aantal sterren: [IMG=http://h1.ripway.com/flitskikker/gtaforum/ratesystem/stars/" & Y & "stars.PNG]"

Deze code staat op één regel, als ik enters in de code doe, dan krijg ik errors.

Hoe kan ik wel enters plaatsen?

Mvg,

Flitskikker

Bewerkt: 31 mei 2007 door Flitskikker

[Goudvis]

<bump, maar met nieuwe vraag>

Als ik in mijn ratesysteem de output wil genereren, kan ik geen enters plaatsen:

code.Text = "Lettertype: [B]" & fonttotal(0).Caption & "[/B] [size=1][list][*]Plaatsing: [B]" & A & "[/B] [*]Face: [B]" & B & "[/B] [*]Kleur: [B]" & C & "[/B][/list][/size] | Render: [B]" & rendertotal(1).Caption & "[/B] [size=1][list][*]Plaatsing: [B]" & D & "[/B] [*]Mooiheid: [B]" & E & "[/B] [*]Ingeblend: [B]" & F & "[/B][/list][/size] | Border: [B]" & bordertotal(0).Caption & "[/B][size=1][list][*]Stijl: [B]" & G & "[/B] [*]Dikte: [B]" & H & "[/B][/list][/size] | Kleur: [B]" & colortotal(1).Caption & "[/B][size=1][list][*]Stijl: [B]" & I & "[/B] [*]Verdeling: [B]" & J & "[/B][/list][/size] | Achtergrond: [B]" & backgroundtotal(2).Caption & "[/B] | Effecten: [B]" & effectstotal(0).Caption & "[/B] | Overige: [B]" & otherstotal(0).Caption & "[/B] | Bonuspunten: [B]" & bonustotal(2).Caption & "[/B] | Commentaar: [B]" & comment.Text & "[/B] | [B]TOTAAL: [size=5]" & X & "[/size][/B] | Aantal sterren: [IMG=http://h1.ripway.com/flitskikker/gtaforum/ratesystem/stars/" & Y & "stars.PNG]"

Deze code staat op één regel, als ik enters in de code doe, dan krijg ik errors.

Hoe kan ik wel enters plaatsen?

Mvg,

Flitskikker

[spatie] [underscore] [enter]

if (a = 0) and _

(b = 1) then _

doeIets

dit ziet vb6 als 1 regel.

[JGuntherS]

@ Hierboven: volgens mij bedoelt hij dat er geen enters in de output zitten, dat de output op een enkele regel staat.

Een enter maak je in VB met de code 'vbCrLf', en die gebruik je zo:

Dim blabla as String
blabla = "hoi, leuke tekst he? nu gaat er een enter komen!" + vbCrLf + "wauw, kijk, er is een enter gekomen! had je niet gedacht he?"
MsgBox(blabla)

PS: ik weet niet of die laatste regel klopt, ik heb al heel lang niet meer in VB geprogrammeerd, maar die regel doet er toch niet toe .