Søg
Avatar billede zelebris Nybegynder
09. december 2000 - 16:12 Der er 5 kommentarer og
1 løsning

Random Text

Jeg er igang med et lille program der skal sende en text udvalgt fra en masse strings som ser nogenlunde sådan ud, ned i en output string:

string1 = \"Text1\"
string2 = \"Text2\"
string3 = \"Text3\"
string4 = \"Text4\"

Hvordan laver jeg det sådan at jeg får en random string(f.eks. string3) ned i en output string??

/Zelebris
Avatar billede jakoba Nybegynder
09. december 2000 - 17:58 #1
lave et array hvor hvert element i arrayet er en af dine strenge.

så bruger du ramdom funktionen (nok sammen med truncate funktionen) til at generere et tal mellem 0 og 3.

og det tal bruger du så til at vælge strengen i arrayet.
Avatar billede zelebris Nybegynder
09. december 2000 - 20:06 #2
Hvis du gider at lave et script der kan give et randomtal mellem nul og lad os sige 24 så bliver jeg glad!

/Zelebris
Avatar billede tdaugaard Nybegynder
09. december 2000 - 22:19 #3
Dim strItems(24)

For intIndex = 0 To 24
  strItems(intIndex) = \"Text\" & intIndex
Next

Randomize
intRandom = Int(Rnd * UBound(strItems))

strOutput = strItems(intRandom)

Så nemt var det!
Avatar billede tdaugaard Nybegynder
09. december 2000 - 22:22 #4
strItems arrayet indeholder dine \"strenge\"..
For..Next løkken er bare for at smide noget i dem så du kan teste ..

faktisk skal

Randomize

nok stå i din Form_Load og ikke hver gang denne funktion bliver udført!
Avatar billede zelebris Nybegynder
10. december 2000 - 14:12 #5
Pflanks
Avatar billede tdaugaard Nybegynder
10. december 2000 - 14:14 #6
Your welcome!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
27/1222:02 Låse brugt iPad op Af drstein i iOS, iPhone & iPad
27/1219:21 Hvor finder jeg en oversigt over mine spørgsmål Af KurtG i Hjælp og fejl
27/1211:31 TP-Link Wifi extender opsat som accesspoint giver 50% up- og download, Af Uvanga i Wifi
26/1213:05 Hvorfor bliver tiff-filer større ved konvertering til samme format Af KurtG i Billedbehandling
23/1221:36 Gøre Ikonerne lidt større i proceslinjen (Windows 10) Af Ikke-ekspert i Windows
White papers
Flere white papers »