Visual Basic 6 - parola chiave

Forum - Visual Basic 6 - parola chiave

Pagine: [ 1 2 ]

()
Newbie

Messaggi:
Iscritto:

Postato alle 1:00
Giovedì, 01/01/1970

Ciao a tutti, adesso ho un altro piccolo problemino: ho creato una text box chiamata txtrobot, una txtcmd e un comando chiamato cmd. adesso vorrei fare in modo che se inserisco in txtcmd una determinata parola (attenzione: parola non frase) premendo sul commandbutton esca una frase preimpostata da me in txtrobot.
N.B.
non mi serve il codice per inserire il testo in txtrobot, ma il codice per fare una determinata azione se nella txtcmd c'è una determinata parola (es. ho impostato cantante, scrivo sono un cantante, premo sul cmd e in txtrobot esce scritto: cantante? vorresti essere un cantante?

grazie in anticipo

Fr3d3R!K (Ex-Member)
Expert

Messaggi: 589
Iscritto: 17/08/2006

Postato alle 21:18
Mercoledì, 27/12/2006

Codice sorgente - presumibilmente VB.NET

Private Sub cmd_Click()
if txtcmd.text="parola" then
txtrobot.text="altraparola"
End if
End Sub

dovrebbe andare così...se il testo di txtcmd è parola cliccando su cmd viene scritto su txtrobot la parola altraparola...dimmi se è quello che ha richiesto...
ciau! :k:

Ultima modifica effettuata da Fr3d3R!K il 27/12/2006 alle 21:20

()
Newbie

Messaggi:
Iscritto:

Postato alle 22:17
Mercoledì, 27/12/2006

anche io avevo fatto così, ma io intendo una parola che sia contenuta in una frase! tipo se la parola è "cavolo" e scrivo " ieri sera ho mangiato un cavolo" e premo il commandbutton su txtrobot deve uscire "Un cavolo? Ti piacciono?" tuttò ciò innescato solamente dalla parola cavolo.. non so se mi spiego... 8-|

Fr3d3R!K (Ex-Member)
Expert

Messaggi: 589
Iscritto: 17/08/2006

Postato alle 10:13
Giovedì, 28/12/2006

e al programma mica possiamo dare l'intelligenza di riconoscere quali sono i sostantivi e quali no...a meno che non glieli memorizzi tutti!!! puoi memorizzare un numero finito di parole e lavorare su quelle...

()
Newbie

Messaggi:
Iscritto:

Postato alle 11:52
Giovedì, 28/12/2006

si dovrebbe lavorare parola per parola racchiudendo le lettere comprese tra spazi. il problema e che succede se c'è più di una parola codificante?
cmq

Codice sorgente - presumibilmente VB.NET

[b]
private sub cmd_click()
for x = 1 to len(txtcmd.text)
lettera = mid(textcmd.text,x,1)
if not lettera = " " then 
parola = parola & lettera
else
call leggiparola
parola = ""
end if
next x
call leggiparola [/b]   <--mi ero dimenticato che l'ultima parola non ha spazi
[b]
end sub
 
private sub leggiparola()
if parola = "grazie" then
txtrobot.text = "prego"
elseif parola = "blabla"
txtrobot= "blabla cosa?"
end if
end sub
 
[b] [/b]

Ultima modifica effettuata da il 28/12/2006 alle 11:55

()
Newbie

Messaggi:
Iscritto:

Postato alle 13:39
Giovedì, 28/12/2006

ci ho ripensato c'è una soluzione anche a questo problema basta incolonnare

[edit]non si incolonna in una textbox si scrive solo di seguito...[/edit]

Codice sorgente - presumibilmente VB.NET

private sub cmd_click()
for x = 1 to len(txtcmd.text)
lettera = mid(textcmd.text,x,1)
if not lettera = " " then
parola = parola & lettera
else
call leggiparola
parola = ""
end if
next x
call leggiparola
end sub
 
private sub leggiparola()
if parola = "grazie" then
txtrobot.text = [b]txtrobot.text &[/b] "prego"
elseif parola = "blabla"
txtrobot.text = [b]txtrobot.text &[/b] "blabla cosa?"
end if
end sub