Ligningsløser

Hmm......!

Lad os se din kode ...

du kan jo bruge

strVar = InputBox(\"Indtast ligning:\",\"\")

til at få indput fra brugeren af ..

Det virker ikke... Når forsøger at løse ligningen via input fra inputboxen skriver den \"Compile Error: ByRef argument mismatch\".

ahh .. den fejl kender jeg alt for godt ;-)
Det sker når du overfører en Variant variabel til en funktion der skal bruge en String.

Skriv f.eks.

MinSub (variabel)

istedet for

MinSub variabel

Og ellers så lad os se din kode .. så bliver det langt nemmere at hjælpe.
Men endnu bedre er hvis du f.eks. skriver:

Dim minvar As String

minvar = InputBox(\"Indtast ligning:\",\"\")

Øøøh... Det forstod jeg vist ikke helt...

jamen .. så lad os se din kode !! Det er sku svært at hjælpe når ikke man har noget at se på ..

Her er så koden:

Function Solve(X As Double, Num_Decimal As Double, Number As Integer)
Do
X = X + Num_Decimal
\' Round(X, n) afrunder X til n decimaler
Loop Until Round(\"HER SKAL INPUT FRA BRUGEREN STÅ (FX. (2 * X - 4))\", Number) >= 0
Select Case Number
Case Is < 14
  X = X - Num_Decimal
  Number = Number + 1
  Num_Decimal = 10 ^ (-1 * Number)
  Call Solve(X, Num_Decimal, Number)
Case Is = 14
  Call Solution(Round(X, Decimal_Num))
End Select
End Function

nååååå .. på den måde ... jamen det er fordi at du ikke kan udføre kode skrevet som input fra en bruger.

Dvs.

x = (12 * 10) / 4 i kode virker fint men hvis du siger
x = inputbox(\"bla bla\",\"\") og brugeren indtaster (12 * 10) / 4

så vil x indeholde TEKSTEN \"(12 * 10) / 4\"
Du kan ikke få det udregnet med mindre du finder noget kode der kan udregne det.

Ok. Tak skal du ha\'.