January 20, 2003
Skrev in såhär nu (x = Text1 y = Text2 knappen man trcker på när beräkningen skall utföras = Command1)
Private Sub Command1_Click()
If (Val(Text1.Text) < 10) Then
Val(Text2.Text) = 1000 * Val(Text1.Text)
Else
Val(Text2.Text) = 1000 * 10 + 900 * (Val(Text1.Text) - 10)
End If
End Sub
men då står det:
Compile error:
Function call on left-hand side of assignment must return Variant or Object
what to do??
July 14, 2003
pompougnac wrote: Skrev in såhär nu (x = Text1 y = Text2 knappen man trcker på när beräkningen skall utföras = Command1)
Private Sub Command1_Click()
If (Val(Text1.Text) < 10) Then
Val(Text2.Text) = 1000 * Val(Text1.Text)
Else
Val(Text2.Text) = 1000 * 10 + 900 * (Val(Text1.Text) - 10)
End If
End Sub
men då står det:
Compile error:
Function call on left-hand side of assignment must return Variant or Objectwhat to do??
du kan inte köra val på textrutan och tilldela detta ett värde...däremot kan du tilldela ett värde på textrutan...asså ta bort det första val runt texten:
Text2.Text = 1000 * Val(Text1.Text)
likaså på den andra beräkningen.
January 20, 2003
desdecado wrote:
du kan inte köra val på textrutan och tilldela detta ett värde...däremot kan du tilldela ett värde på textrutan...asså ta bort det första val runt texten:Text2.Text = 1000 * Val(Text1.Text)
likaså på den andra beräkningen.
nu funkade det 🙂 tabbe...tack så hjärtligt 😀
November 27, 2001
en snyggare lösning borde ju vara att använda heltalsdivition och rest, kan nu inte tillräkligt med vb för att säga hur koden skall vara och om det finns. men om det finns så skull det kunna se ut ungefär så här:
svar= ((inmatade div 10) * 9000) + ((inmatade mod 10) *1000)
där mod ger rest talet och div heltals delen ex: 12, 12 mod 10 = 2, 12 div 10 = 1. eller 8 mod 10 = 8, 8 div 10 = 0.
3 Guest(s)