[DUDA] Hacer frase aleatoria

[coku]

Buenas,

Quisiera hacer que ene l load del form, apareciesen, cada vez que el exe se carga, una frase aleatoria que yo pondria. No me imagino como deberia aserlo ya que es la 1º vez que hago algo asin :S

Y tambien me gustaria saber comoo hacer para que el user que habr el exe, al darle a un boton, la frase que hay en el text1 se meta en el codigo y se quede hay. No se si esto ultimo es posible epro si no lo fuese pos ya vere como lo podria haer.

Desde ya gracias a todos^^

[Mad Antrax]

Supongo que lo que quieres hacer es algo parecido a la "Sugerencia del día" o en inglés: "Tip of the day".

Hay muchos ejemplos, te dejo un link rápido de pscode.com: http://www.pscode.com/vb/scripts/BrowseCategoryOrSearchResults.asp?lngWId=1&?lngWId=1&grpCategories=&txtMaxNumberOfEntriesPerPage=10&optSort=Alphabetical&chkThoroughSearch=&blnTopCode=False&blnNewestCode=False&blnAuthorSearch=False&lngAuthorId=&strAuthorName=&blnResetAllVariables=&blnEditCode=False&mblnIsSuperAdminAccessOn=False&intFirstRecordOnPage=1&intLastRecordOnPage=10&intMaxNumberOfEntriesPerPage=10&intLastRecordInRecordset=65&chkCodeTypeZip=&chkCodeDifficulty=&chkCodeTypeText=&chkCodeTypeArticle=&chkCode3rdPartyReview=&txtCriteria=tip+of+the+day

[coku]

Muchisimas gracia^^ MadAntrax, ya he hecho que aparezcan por si solo, mas o menos le cogi la logica XDD

Ahora me faltaria, si algiuien sabe, como hago para que lo que se escribe en un textbx al darle click se añada al code.

En la pag que me diste nu encontre

[CesarTkgo69]

Holanda,

Mira por ahi, uno de estos dias postiaron
el tema de la funcion Rnd, y lo encontre
interesante ... entonces usando Case
quedaria mas o menos asi :

Código (vb) [Seleccionar] Expandir


Dim Tips As Integer   'Si no es entero(integer) no funcionara

Private Sub Form_Load()
Randomize
Tips = Rnd * 5   'Generas un numero aleatorio
End Sub

Private Sub Form_activate()
' Y aqui, segun el numero aleatorio
' te muestra en una caja de texto
' el tips para cada Case, siiiiiiiii :xD

Select Case Tips
    Case 0
        Text1 = "Hoy es el dia para suicidarse"
    Case 1
        Text1 = "Esta de moda martillarse los dedos ;)"
    Case 2
        Text1 = "No tomes viagra"
    Case 3
        Text1 = "Chuchuca!"
    Case 4
        Text1 = "Tu novia no te desea... puaaj"
    Case 5
        Text1 = "Muerdete la lengua... (8)"
End Select
End Sub


Ahora bien, lo ejecute en mi pc, y la mayoria de las veces
salian los mensajes que estan en medio, osea...
salian mas veces el Case 2, 3 y 4 que el 1 y el 5
Espero te sirva y sino, que encuentres uno mejor
Suerte

Chauuuuz

[coku]

pues ya habai conseguido hacer estoi pero la verdad, este es mucho mas sencllo que el que  yo consegui^^

Pero lo que yo quisiera ahora esque en un texbox se escriba lo que se quiera y luego se añada al code, nuse si s podra hacer :S si no se puede pos weno, no pasa nada

[vivachapas]

jeje a mi tb se me habia ocurrido mientras leia hacer como dice Cesar...

[CesarTkgo69]

pues ya habai conseguido hacer estoi pero la verdad, este es mucho mas sencllo que el que  yo consegui^^

Pero lo que yo quisiera ahora esque en un texbox se escriba lo que se quiera y luego se añada al code, nuse si s podra hacer :S si no se puede pos weno, no pasa nada

Es que no entendi nunca lo que quieres
lei como tres veces la explicacion y no entendi,
desde un texbox al code :S

Quizas si fueras ma especifico, o quizas
con algun ejemplo

Suerte
Chauuuz

[coku]

ok me explicare mejor,

Hay un textbox (text1) y un commandbutton(command1). Bien, escribo la frase que quiero que salga aleatoria en el textbox, y al darle al command1 que haga algo asin:

Código [Seleccionar] Expandir

Dim Tips As Integer   'Si no es entero(integer) no funcionara

Private Sub Form_Load()
Randomize
Tips = Rnd * 5   'Generas un numero aleatorio
End Sub

Private Sub Form_activate()
' Y aqui, segun el numero aleatorio
' te muestra en una caja de texto
' el tips para cada Case, siiiiiiiii :xD

Select Case Tips
    Case 0
        Text1 = "Hoy es el dia para suicidarse"
    Case 1
        Text1 = "Esta de moda martillarse los dedos ;)"
    Case 2
        Text1 = "No tomes viagra"
    Case 3
        Text1 = "Chuchuca!"
    Case 4
        Text1 = "Tu novia no te desea... puaaj"
    Case 5
        Text1 = "Muerdete la lengua... (8)"
     Case 6
        Text1 = "lo que haya escrito en el text1"
End Select
End Sub


Lo que querria es que lo que escriba se añada al code para que cuando se apague y se vuelva a cargar el form, pueda aparecer aleatoriamente la frase escrita junto a las dmas.

Es algo asin, tal vez se lo añada o no a mi programa, peo tan bien es para aprender, seguramente se lo añada

[Hans el Topo]

la guardas en un archivo y al encender el programa cargas el archivo si no sabes hacer eso busca por el foro que esta trilladisimo el tema

[coku]

ok, pues muchas gracias a todos a ver si ecneuntro el tema^^