---
title: "Får det inte random"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/67917-får-det-inte-random"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "roj"
published: "2003-02-11T08:51:07.000Z"
updated: "2003-02-11T10:14:18.000Z"
replies: 5
views: 324
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/67917-får-det-inte-random"
---

# Får det inte random

## #1 — roj, 2003-02-11T08:51Z

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 ?  :)

Permalänk: https://www.webforum.nu/p/67917

## #2 — @nders, 2003-02-11T08:52Z

Är du sugen på att bifoga lite kod?

mvh,

Permalänk: https://www.webforum.nu/p/945491

## #3 — roj, 2003-02-11T08:52Z

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
```

Permalänk: https://www.webforum.nu/p/945492

## #4 — Engine^, 2003-02-11T09:35Z

```
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?

Permalänk: https://www.webforum.nu/p/945519

## #5 — roj, 2003-02-11T09:43Z

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

Permalänk: https://www.webforum.nu/p/945532

## #6 — roj, 2003-02-11T10:14Z

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
```

Permalänk: https://www.webforum.nu/p/945556

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/67917-får-det-inte-random