om udregning Med Option

jeg forstod ikke helt hva det var du lavede så jeg lavede det li selv i Visual Basic 6.0 ... for det første skal du ikke hele tiden lave else du skal lave end if ved dem alle sammen... du bruger else hvis du kun har 2 værdier eller noget

og jeg flyttede dine dims op i general.... og option 9 - 12 flyttede jeg ind i en frame så man kunne vælge en af dem uden at den man har valgt på de 3 første options ville forsvinde... og jeg flyttede alle dine If blah balh = blah blah then ind i en timer som jeg satte på interval = 50

det her burde virke :P


(GENERAL)
Dim Tal1 As Long
Dim Tal2 As Long
Dim Tal3 As Long
Dim Tal4 As Long



Private Sub Command1_Click()
Text1.Text = Tal2 * 1000 / 3.14 / Tal1
Text2.Text = Text1.Text * Tal3 * Tal4

End Sub



Private Sub Timer1_Timer()

If Option1 = True Then
Tal1 = 2
Tal3 = 0.05
Tal4 = 3
End If

If Option2 = True Then
Tal1 = 3
Tal3 = 0.1
Tal4 = 3
End If

If Option3 = True Then
Tal1 = 4
Tal3 = 0.15
Tal4 = 3
End If

If Option9 = True Then
Tal2 = 200
End If

If Option10 = True Then
Tal2 = 150
End If

If Option11 = True Then
Tal2 = 100
End If

If Option12 = True Then
Tal2 = 500
End If
End Sub

Hej gangstaprog


Hvorfor timer  interval = 50 ??
Jeg får ingen udregning i Textbox2
Text2.Text = Text1.Text * Tal3 * Tal4

mvh

mvhansen

Jeg mener hvorfor ligge den ind i en timer

mvh

mvhansen

fordi så ved den hva talne er ... og det blir opdatret konstant

og text2 virker ikke fordi din udregning ikke dur

Jeg har lavet en på en anden form som ser sådan ud
Label6.Caption = Format(Val(Text3.Text) * Val(Text4.Text) * Val(Text5.Text), "#.00")

Hvorfor skulde denne så ikke virke
Text2.Text = Text1.Text * Tal3 * Tal4

Er det fordi den ikke når at få hvad vadien er i Text1.Text

mvh

mvhansen

hmmm jeg tjekker det li 2 sek

Den kan ikke regne med komma tal
den kan regne med hele tal

hvis jeg endre så virker det

Dim Tal1 As Single
Dim Tal2 As Single
Dim Tal3 As Single
Dim Tal4 As Single


mvh

mvhansen

Du får mange tak for hjælpen
Kan du ligge et svar

mvh

mvhansen

jeg tror nok fordi long er 9 tegn

du skal bare fjerne dim as long.... og bare taste

Dim Tal1
Dim Tal2
Dim Tal3
Dim Tal4

hjalp det?

Ja
25/02-2006 14:16:36

Du får mange tak for hjælpen
Kan du ligge et svar

mvh

mvhansen

Hej gangstaprog

Ligger du et svar så vi kan få lukket spørsmålet

mvh

mvhansen

YEP... QUESTION DONE!