Category: Programmering
Hits: 3974

   

Heltall --> INTERGER / BYTE(8 Bit)/ SBYTE(kan ha minus) / SHORT /LONG

    Flyttall --> DOUBLE / SINGLE

    Bolske verdier --> TRUE / FALSE

    Tekst --> STRING / CHAR(ett tegn) : Tekst må stå i hermetegn

 

Lager random tall mellom 1 og 5:

        Dim RandomClass As New Random()

        Dim test As Integer

        test = RandomClass.Next(1, 6)

        MessageBox.Show(CStr(test))

 

 Lager random tall mellom 1 og 6:

      Dim randomvalue As Integer

      Randomize()

      randomvalue = CInt(Math.Floor((6 - 1 + 1) * Rnd())) + 1

      MessageBox.Show(CStr(randomvalue))

 

 For å nullstille alle tekstbokser i VB, kall opp denne subrutinen:

    Sub nullstill()

        For Each Ctrl As Control In Me.Controls

            If TypeOf Ctrl Is TextBox Then

                CType(Ctrl, TextBox).Clear()

            End If

        Next

    End Sub

 

Lager tilfeldig desimaltall:

    Function lagTilfeldig2(ByVal min As Single, ByVal max As Single) As Single

        Dim tilfeldig As Single

        Randomize()

        tilfeldig = ((max - min) * Rnd()) + min 'lager tilfeldig desimal tall mellom max og min.

        tilfeldig = CSng(Math.Round(tilfeldig, 2)) 'gjør om "tilfeldig" til svar med 2 desimaler

        Return tilfeldig

    End Function

 

 

vbCrLf = Linje skift i VB

vbTab = Tabulatortegn i VB