løkker og procedurer

Dim inteKor as Integer
' Opretter inteKort som integer variabel

' Kører løkke
For inteKort = 1 to text1.text
msgbox prompt:=intekort, title:="Løkke"
Next inteKort

Kan det bruges? 15p er nok hvis du accpetere mit svar.


Casper // www.ildstorm.dk

Jeg har lavet et meget simpelt program, "gæt hvilket tal".


Put denne kode ind i FormActivate:

Private Sub Form_Activate()
Dim yourNumber, comNumber As Integer
' Variablerne

igen:
comNumber = FindNumber
' Programmet går ind i proseduren "findnummer"

Do ''''''''løkken'''''''
DoEvents


yourNumber = Text1.Text
' Her skriver man et tal mellem 1 - 10.


If yourNumber = "" Then: GoTo ingental

If Int(yourNumber) = Int(comNumber) Then
    ' rigtigt
        Me.Caption = "Du gættede rigtig!"
        Exit Do
    Else
    ' forkert
        Me.Caption = "Du gættede forkert!"
End If



ingental:

DoEvents
Loop

Text1.Text = ""

MsgBox "Du gættede rigtigt!!", vbInformation
GoTo igen
End Sub


Kopier denne funktion ind i generel.
---------Funktion--------

Public Function FindNumber()
Dim Number As Integer

again:

Randomize ' helt tilfældigt tal

Number = Int(Rnd * 11)
' Giver nummer værdien mellem 1 og 10
' Der skal stå 11.

If Number = 0 Then: GoTo again
' Hvis nummeret er 0 gå til again

FindNumber = Number
' Denne funktion bliver værdien af number
End Function



/KantoRaZa\

Husk at oprette en textbox på din form også!!

Hvordan kan du lave et program uden at bruge løkker og procedure???
Hmmmmm!! Det lyder underligt!! Har du lavet AL kode i en funktion????

du må gerne se programmet hvis du vil?
kun - løkker?
har nemlig også et problem med at få savefunktionen til at du!