Skoleprosjekt, program som beregner inntekter

[x871kx6167ss7]

Hei!

 

Jeg har prosjekt på skolen og har valgt å lage et programm i vb, som bl.a. beregner inntekter...

 

Jeg har lagd en listbox med alle summene i. hvordan kan jeg få lagt sammen de?

 

 

Bruk helst enkle koder...

 

*Emnetittel redigert av moderator - minst tre ord i tittelen, ikke ett*

Endret 17. september 2004 av psilocybe

[abcd423417984]

du må lage en variabel (integer?), så loope gjennom listboxen og plusse det på variabelen. Da loopen er ferdig sitter du igjen med resultatet.

[x871kx6167ss7]

du må lage en variabel (integer?), så loope gjennom listboxen og plusse det på variabelen. Da loopen er ferdig sitter du igjen med resultatet.

Kan noen vise meg hvordan denne koden blir dersom man bruker "Totalinntekt" som variabel og "lstInntekter" som listbox?

[Jonas]

Dim total, i

for i = 0 to list1.listcount - 1

total = total + list1.list(i)

next i

msgbox total

[x871kx6167ss7]

Dim total, i

for i = 0 to list1.listcount - 1

total = total + list1.list(i)

next i

msgbox total

hmm... tror ikke det ble helt riktig... 5200+104=5200104 Hva kan jeg gjøre for å fikse det?

[Nostop]

Dim total, i

Private Sub Command1_Click()
   List1.AddItem Val(Text1.Text)
End Sub

Private Sub Command2_Click()
   For i = 0 To List1.ListCount - 1
   total = total + Val(List1.List(i))
   Next i
MsgBox total
End Sub

 

Tok meg friheten å legge inn noen command's

[Jonas]

Skift ut "Dim total" med "Dim total as double". Da tror jeg det fikser seg.

[x871kx6167ss7]

Skift ut "Dim total" med "Dim total as double". Da tror jeg det fikser seg.

nope...

[x871kx6167ss7]

Dim total, i

Private Sub Command1_Click()
   List1.AddItem Val(Text1.Text)
End Sub

Private Sub Command2_Click()
   For i = 0 To List1.ListCount - 1
   total = total + Val(List1.List(i))
   Next i
MsgBox total
End Sub

 

Tok meg friheten å legge inn noen command's

[Moskus]

Hva med dette?

 

total = total + CDbl(Val(List1.List(i)))

[x871kx6167ss7]

Ingen ting går!?!?!

[d0ppler]

av bare ren nyskjerrighet, hvorfor skal du lage et program i et språk du ikke kan noe som helst om på skolen?

 

Hva med å lære språket først?

[Jonas]

Skift ut "Dim total" med "Dim total as double". Da tror jeg det fikser seg.

nope...

Nei? Det funker veldig fint her:

Private Sub Form_click()
Dim total As Double, i

For i = 0 To List1.ListCount - 1

total = total + List1.List(i)

Next i

MsgBox total
End Sub

Private Sub form_load()
List1.AddItem 34
List1.AddItem 753
List1.AddItem 1
End Sub

[Klette]

kanskje han har lagt inn tallene som string inn i listboxen - da kan merkelige ting skje mener jeg

[aadnk]

kanskje han har lagt inn tallene som string inn i listboxen - da kan merkelige ting skje mener jeg

AddItem legger kun inn data som streng, men VB kan konvertere teksten tilbake til nummer ved bruk av f.eks Val eller å bruke en numretisk datatype. Men har han derimot lagt inn bokstaver og andre tegn MÅ Val brukes.

[toss]

skal det ikke være CInt noe sted i koden?

hvis jeg ikke tar feil skal

   total = total + Val(List1.List(i))

bli til

   total =CInt(total) + CInt(Val(List1.List(i)))

eller har jeg missforstått?

[aadnk]

Den interne funksjonen CInt konverterer til datatypen Integer, mens Val returnerer Double. Begge disse datatypene holder tall, og med mindre du helt klart ikke ønsker høyre tall enn 32768 eller mindre enn -32768, er ikke dette nødvendig. Integer kan, som navnet tilsier, ikke holde annet en heltall.

[x871kx6167ss7]

Beklager, det var min feil... Alt går bra!

[x871kx6167ss7]

Hei alle sammen! Nå trenger jeg hjelp igjen!

 

Jeg lurer på hvordan jeg kan korte ned desimalene, slik at det bare blir 2 desimaler.

 

Håper noen kan hjelpe meg! Helst med lette koder!

 

MVH

Peter

Endret 16. september 2004 av Blackslash

[GeirGrusom]

Round(Number, NumDigitsAfterDecimal)

 

Forresten så er det lurt å bruke Currency når det er snakk om cash (currency er 64 bit, altså kan det inneholde et statsbudsjett eller fjorten)