Salve popolo!
Siete su Lorenzo's Software e state leggendo una guida nella sezione software!
Questa guida riguarda la programmazione in Visual Basic.
Allora, mi raccomando, scaricate ed installate Visual Studio, altrimenti non potete fare niente di tutto questo (vi metto il link alla fine della guida).
Oggi vedremo come creare una "mini intelligenza artificiale", tipo Siri, ma non potente come lei.
Prima cosa, aprite Visual Studio
E create un form come questo inserendo un button, una textbox ed una RichtextBox (in quest'ultima mettete la proprietà ReadOnly)
Siete su Lorenzo's Software e state leggendo una guida nella sezione software!
Questa guida riguarda la programmazione in Visual Basic.
Allora, mi raccomando, scaricate ed installate Visual Studio, altrimenti non potete fare niente di tutto questo (vi metto il link alla fine della guida).
Oggi vedremo come creare una "mini intelligenza artificiale", tipo Siri, ma non potente come lei.
Prima cosa, aprite Visual Studio
E create un form come questo inserendo un button, una textbox ed una RichtextBox (in quest'ultima mettete la proprietà ReadOnly)
Non guardate le scritte all'interno.
Adesso fate doppio click nel button rispondi e scrivete questo
If TextBox1.Text = "ciao" Then
RichTextBox1.Text = "Ciao, come va? " & vbCrLf
TextBox1.Text = ""
End If
Provate ad eseguire scrivendo "ciao" nella textbox vicino al button rispondi e guardate la magia! Il programma vi risponde "ciao, come va?". Adesso fate nuovamente doppio click su rispondi e scrivete:
If TextBox1.Text = "bene e te?" Or TextBox1.Text = "bene,te?" Or TextBox1.Text = "male e te?" Or TextBox1.Text = "male,te?" Or TextBox1.Text = "abbastanza bene, te?" Or TextBox1.Text = "Insomma, te?" Then
RichTextBox1.Text = "Mai stato meglio, come ti chiami? " & vbCrLf
end if
Provate ad eseguire e scrivere una di quelle frasi del codice, ad esempio "bene e te?". Il programma vi risponde "Mai stato meglio, come ti chiami?".
Ed ecco che il programma inizia a svilupparsi. Inserite tutte le frasi che volete nel codice come ho fatto io, e inventatevi anche una risposta dal programma
Adesso fate doppio click nel button rispondi e scrivete questo
If TextBox1.Text = "ciao" Then
RichTextBox1.Text = "Ciao, come va? " & vbCrLf
TextBox1.Text = ""
End If
Provate ad eseguire scrivendo "ciao" nella textbox vicino al button rispondi e guardate la magia! Il programma vi risponde "ciao, come va?". Adesso fate nuovamente doppio click su rispondi e scrivete:
If TextBox1.Text = "bene e te?" Or TextBox1.Text = "bene,te?" Or TextBox1.Text = "male e te?" Or TextBox1.Text = "male,te?" Or TextBox1.Text = "abbastanza bene, te?" Or TextBox1.Text = "Insomma, te?" Then
RichTextBox1.Text = "Mai stato meglio, come ti chiami? " & vbCrLf
end if
Provate ad eseguire e scrivere una di quelle frasi del codice, ad esempio "bene e te?". Il programma vi risponde "Mai stato meglio, come ti chiami?".
Ed ecco che il programma inizia a svilupparsi. Inserite tutte le frasi che volete nel codice come ho fatto io, e inventatevi anche una risposta dal programma
Voi starete pensando, e per le altre frasi che il programma non conosce?
Avete assolutamente ragione, per fare tutte le frasi possibili ci vorrebbero millenni, infatti, almeno che non vivete mille anni, l'unica soluzione è scrivere così
if Textbox1.text <>"ciao" or Textbox1.text <> "come stai?" or Textbox1.text <> "Io sono Lorenzo" then
RichTextbox1.text="Non riconosco la tua frase"
end if
Così abbiamo messo che se colui che prova il programma mette una frase che non sia
"ciao", "come stai?" o "Io sono Lorenzo", ti dice che non riconosce la tua frase.
Per far venire bene questo programma vi vuole solo tanto tempo, ogni frase che ti viene in mente la scrivi, così avrai una varietà di risposte più grande.
Io vi ho spiegato solo le basi per costruire una roba tipo Siri o CleverBot.
Godetevi queste immagini