Inputbox

När man vill att användaren skall mata in värden på till exempel variabler, men inte vill sätta ut någon TextBox i formuläret, kan man använda en InputBox. Den fungerar som en MsgBox, men det går att skriva i den.

Antag att vi vill mata i två tal och att programmet sedan skall utföra räkneoperationer på talen, beroende på vilket räknesätt som angivits.

Sätt ut 5 Labels och en Button i en Form. Sätt Label4.Text = "="

Koden för knappen blir:

Dim tal1, tal2 As Integer
Dim operator As Char
tal1 = InputBox("Ange första talet")
operator = InputBox("Ange räknesätt")
tal2 = InputBox("Ange andra talet")
Label1.Text = tal1
Label2.Text = operator
Label3.Text = tal2

Select Case operator
   Case "+"
   Label5.Text = tal1 + tal2
   Case "-"
   Label5.Text = tal1 - tal2
   Case "*"
   Label5.Text = tal1 * tal2
   Case "/"
   If tal2 <> 0 Then
      Label5.Text = tal1 + tal2
   Else
      MsgBox("Du försöker dividera med noll")
   End If
End Select

Först dimensioneras två variabler som det är meningen att man skall tilldela var sitt heltal. Observera att de är av typen Integer och man kan då inte tilldela dem decimaltal.

Variabeln operator dimensioneras som Char vilket innebär att den skall tilldelas tecken. När programmet körs kommer en ruta som anger att man skall mata in ett tal.

När detta är klart och man har tryckt på OK, har tal1 tilldelats det som angivits i InputBoxen. Därefter kommer nästa InputBox som vill att man skall ange ett räknesätt. Sist kommer en InputBox som vill vi skall ange ett andra tal och som tilldelas variabeln tal2.

I Select Case-satsen kollas vad som finns i variabeln operator och därmed utförs rätt räkneoperation på de två talen. Om räknesättet är division kan vi först kolla så vi inte dividerar med noll för det går ju inte.

SupportData.Net
©