Avatar billede slejpnir Nybegynder
12. april 2003 - 17:30 Der er 13 kommentarer og
1 løsning

Regne med label.caption

Ved hjælp af click på liste får jeg skrevet nedenstående tal ¨på min form1

Private Sub List1_Click()
If List1.Text = "Andersen" Then
Label4.Caption = 20.6
Label5.Caption = 11.7
Label6.Caption = 0.71
End If
End Sub

når jeg klikker på command1-knappen vil jeg gerne have returneret summen af ovenstående tal til label14 på formen. Jeg gør således
Private Sub Command1_Click()
Dim Sum As Currency
On Error Resume Next
Sum = Label4.Caption + Label5.Caption + Label6.Caption
Label14.Caption = Sum
End Sub
Jeg får tallet 0 i label14.caption.

Jeg har prøvet med val(labelx)mv. Hvad gør jeg forkert?
Avatar billede mortrr Praktikant
12. april 2003 - 17:37 #1
Virker det med:
Sum = cInt(Label4.Caption) + cInt(Label5.Caption) + cInt(Label6.Caption)

?
Avatar billede slejpnir Nybegynder
12. april 2003 - 17:53 #2
Ja, men jeg får tallet 34. Måske fordi cInt har noget med Integer at gøre? Jeg skal bruge en eksakt sammentælling med 2 decimaler.
Avatar billede kedde65 Praktikant
12. april 2003 - 17:55 #3
Du skal bruge følgende kode

Sum = CCur(Label4.Caption) + CCur(Label5.Caption) + CCur(Label6.Caption)

VH CK
Avatar billede mortrr Praktikant
12. april 2003 - 17:55 #4
Årh - jeg skal lære at åbne øjnene.

Sum = cDbl(Label4.Caption) + cDbl(Label5.Caption) + cDbl(Label6.Caption)
Avatar billede kedde65 Praktikant
12. april 2003 - 17:55 #5
CInt kan du ikke bruge da den omformatere til Integer som jo som bekendt er Heltal.

VH CK
Avatar billede slejpnir Nybegynder
12. april 2003 - 18:16 #6
tja mortrr det skal jeg også. Jeg ville give dig 15 point og forhøjede derfor points fra 30 til 45. 30 til kedde65 og 15 til dig. Men du har jo ikke svaret, blot kommenteret. Kedde er en rutineret bruger måske kan han finde ud af at give dig de 15 point?
Men tak for hjælpen begge dele virker. Men ok, kedde bruger vis Currency og du bruger double - så keddes er måske mest korrekt?
Eller får du lidt flere point næste gang du hjælper mig.:o)
Avatar billede mortrr Praktikant
12. april 2003 - 18:23 #7
Skidt med det.

cDbl og cCur konverterer til to forskellige variabel-typer.
Personligt ville jeg altid bruge en Double (og dermed cDbl).

Også fordi cCur er på vej ud.
Avatar billede mortrr Praktikant
12. april 2003 - 18:25 #8
"Også fordi cCur er på vej ud." -> Currency findes ikke i dokumentationen til VB.Net
Avatar billede kedde65 Praktikant
12. april 2003 - 18:33 #9
Bare lige for at afslutte, så giver jeg faktisk Mortrr ret i at man ligeså godt kunne have brugt CDbl og konverteret dem om til Double. De fylder begge 8 Byte så det ville af ren plads hensyn være ligegyldigt hvilken datatype man brugte.

Hvad angår Currency i .Net så er den erstatte at Decimal datatype den understøtter flere decimaler på begge sider af seperatoren.

VH CK
Avatar billede slejpnir Nybegynder
12. april 2003 - 19:46 #10
OK, det var såmænd ikke for at gøre mig klog - eller så'n.
Min tanke var at da jeg skulle bruge to decimaler var det mest korrekte nok currency. Men så lærte jeg lidt mere. Og jeg vidste jo ikke bedre!:o)
Avatar billede martin_moth Mester
13. april 2003 - 15:38 #11
Du kan jo også bare bruge
Sum = val(Label4.Caption) + val(Label5.Caption) + val(Label6.Caption)
;o)
Avatar billede slejpnir Nybegynder
13. april 2003 - 20:35 #12
Jeg har prøvet med val(labelx)mv. Hvad gør jeg forkert?
Sluttede jeg mit spørgsmål!
-Men jeg kan finde på at gøre mange ting forkert, åbenbart!
;o)
Avatar billede martin_moth Mester
14. april 2003 - 11:19 #13
Sum = val(Label4.Caption) + val(Label5.Caption) + val(Label6.Caption) virker - forudsat du har Dim'met Sum korrekt. Men det var bare et alternativ, brug bare Ccru, CInt eller hvad du vil i stedet for.
Du kan altid slå de forskellige funktioner og læse præcist hvordan de virker på msdn.microsoft.com, fx. http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbenlr98/html/vafctVal.asp
Avatar billede slejpnir Nybegynder
14. april 2003 - 22:42 #14
Tak for rådet martin moth.
vh
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Politiets Efterretningstjeneste

Teknisk IT-sikkerhedsspecialist i PET

Capgemini Danmark A/S

Client Partner

Capgemini Danmark A/S

AI Data Architect