Får det inte random

5 svar · 304 visningar · startad av roj 11 feb. 2003

rojMedlem sedan apr. 2002179 inlägg

Frågan11 feb. 2003 08:51#1

Jag tycker att detta programet borde skapa en slumpad text men det gör den inte någon som har någon synpunkt på varför ? :)

@ndersMedlem sedan juni 200032 967 inlägg

11 feb. 2003 08:52#2

Är du sugen på att bifoga lite kod?

mvh,

rojMedlem sedan apr. 2002179 inlägg

11 feb. 2003 08:52#3

Hmm kanske borde lägga hit koden me hehe..

Private Sub Command1_Click()
Dim MyValue
Dim MyValue2
Dim bokstav
Open "c:\ola.txt" For Output As #1
Do While j < 1000
Randomize   ' Initialize random-number generator.

MyValue = Int((20 * Rnd) + 1)   ' Generate random value between 1 and 6.

Do While i < MyValue
Randomize

MyValue2 = Int((4 * Rnd) + 1)
If MyValue2 = 1 Then bokstav = "a"
If MyValue2 = 2 Then bokstav = "b"
If MyValue2 = 3 Then bokstav = "c"
If MyValue2 = 4 Then bokstav = "d"
text_input = text_input + bokstav
Label1.Caption = i
i = i + 1
Loop

Print #1, text_input

Label2.Caption = j
j = j + 1
Loop
Close #1
End Sub

Engine^Medlem sedan dec. 20003 887 inlägg

11 feb. 2003 09:35#4

Private Sub Command1_Click()
Dim MyValue
Dim MyValue2
Dim bokstav[b], text_input[/b]

[b]FileOpen (1, "c:\ola.txt" OpenMode.Output)[/b]

Do While j < 1000
    Randomize   ' Initialize random-number generator.

    [b]MyValue = Int((6 * Rnd) + 1)[/b]   ' Generate random value between 1 and 6.

    i = 0 ' Annars kommer bara första raden att innehålla tecken...?
    Do While i < MyValue
        Randomize

        MyValue2 = Int((4 * Rnd) + 1)
        If MValue2 = 1 Then bokstav = "a"
        If MyValue2 = 2 Then bokstav = "b"
        If MyValue2 = 3 Then bokstav = "c"
        If MyValue2 = 4 Then bokstav = "d"
        [b]text_input = text_input & bokstav[/b] ' Rekommenderat att använda & för strängar
        Label1.Caption = i
        i = i + 1
    Loop

    [b]Print (1, text_input)[/b]

    Label2.Caption = j
    j = j + 1
Loop

[b]FileClose (1)[/b]
End Sub

Jag blev lite osäker på mig själv nu. Var något av detta ditt problem? Skrevs det något alls till filen? Fick du något felmeddelande?

rojMedlem sedan apr. 2002179 inlägg

11 feb. 2003 09:43#5

Inget felmedelande och den skrev.. Men det blir inget slumpat den skriver samma textslinga hela tiden.. :P

rojMedlem sedan apr. 2002179 inlägg

11 feb. 2003 10:14#6

Lyckades så här blev resultatet för den intreserade.. :)

Dim MyValue
Dim MyValue2
Dim bokstav
Open "c:\ola.txt" For Output As #1
Do While j < 1000
Randomize Timer   ' Initialize random-number generator.

MyValue = Int((20 * Rnd) + 1)   ' Generate random value between 1 and 6.

Do While i < MyValue
Randomize Timer

MyValue2 = Int((4 * Rnd) + 1)
If MyValue2 = 1 Then bokstav = "a"
If MyValue2 = 2 Then bokstav = "b"
If MyValue2 = 3 Then bokstav = "c"
If MyValue2 = 4 Then bokstav = "d"

text_input = text_input & bokstav
Label1.Caption = i
i = i + 1
Loop
i = 0

Print #1, text_input

Label2.Caption = j
j = j + 1
text_input = ""
Loop
Close #1
End Sub