Foro de elhacker.net

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

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

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 :(

Holanda,

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

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 ;)

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

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

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

Quizas si fueras ma especifico, o quizas
con algun ejemplo ;D

Suerte
Chauuuz

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:

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 :P

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

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

sobre manejo de archivos mira este link... (lo es todo para mi xD) jja

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico7.htm

SALUDOS

incrustarlo en el code lo hallo inexistente :xD
para darte nuevas ideas, otros caminos,
igual de interesante :) te dejo el codigo
de como leer y escribir archivos INI  ;D

En un Modulo inserta el siguiente codigo:

Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
 
Function ReadINI(strSection As String, strSetting As String, strDefault As String, strRuta As String)
    Dim lngReturn As Long, strReturn As String, lngSize As Long
    lngSize = 255
    strReturn = String(lngSize, 0)
    lngReturn = GetPrivateProfileString(strSection, strSetting, strDefault, strReturn, lngSize, strRuta)
    If strReturn = "" Then
        ReadINI = strDefault
        WriteINI strSection, strSetting, strDefault
    Else
        ReadINI = LeftOf(strReturn, Chr(0))
    End If
End Function
 
Function WriteINI(strSection As String, strLValue As String, strRValue As String, strRuta As String)
    Dim lngReturn As Long
    lngReturn = WritePrivateProfileString(strSection, strLValue, strRValue, strRuta)
End Function
 
Function LeftOf(strData As String, strDelim As String) As String
    Dim intPos As Integer
 
    intPos = InStr(strData, strDelim)
    If intPos Then
        LeftOf = Left(strData, intPos - 1)
    Else
        LeftOf = strData
    End If
End Function
 

En el Form:

Private Sub Command1_Click()
' Esta es la funcion para guardar el tip en el ini
 
WriteINI "Tips", "ID", Text1, App.Path & "Tips.ini"
 
End Sub
 
Private Sub Command2_Click()
' Y con este boton obtenemos los datos en el Text1
 
Text1 = ReadINI("Tips", "ID", "1", App.Path & "Tips.ini")
 
End Sub
 

Ahi para que te entretengas adaptandolo jajajaja
duro trabajo xD

Suerte, Chauuuuuz ;D