Volevo chiedervi di aiutarmi in questo piccolo progetto, la mia idea finale e di creare un'app per telefonini, ma anche solo per imparare.
Vi posto il codice e un'immagine del programma in esecuzione.
Ho aggiunto dei pulsanti per fare delle veloci traduzioni ma è tutto ancora da definire.
Public Class Form1
Private Sub googleSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles googleSearch.Click
Dim indirizzo As String
Dim x() As String
Dim r As Integer
'x(0) = "ciao"
'x(1) = "testo"
If TextBox1.Text = "" Then
indirizzo = "https://www.google.it/"
System.Diagnostics.Process.Start(indirizzo)
ElseIf TextBox1.Text <> "" Then
indirizzo = "https://www.google.it/search?q="
x = Split(TextBox1.Text, "")
'via del pebliscito
'x(0) = "via"
'x(1) = "del"
'x(2) = "pebliscito"
For r = 0 To UBound(x)
'UBound calcola
indirizzo = indirizzo + x(r) + ""
Next
indirizzo = indirizzo + "" + TextBox2.Text
System.Diagnostics.Process.Start(indirizzo)
End If
End Sub
Private Sub youtubeSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles youtubeSearch.Click
Dim indirizzo As String
Dim x() As String
Dim r As Integer
'x(0) = "ciao"
'x(1) = "testo"
If TextBox1.Text = "" Then
indirizzo = "https://www.youtube.com/?hl=it&gl=IT"
System.Diagnostics.Process.Start(indirizzo)
ElseIf TextBox1.Text <> "" Then
indirizzo = "https://www.youtube.com/results?search_query="
x = Split(TextBox1.Text, "")
'via del pebliscito
'x(0) = "via"
'x(1) = "del"
'x(2) = "pebliscito"
For r = 0 To UBound(x)
'UBound calcola
indirizzo = indirizzo + x(r) + ""
Next
indirizzo = indirizzo + "" + TextBox2.Text
System.Diagnostics.Process.Start(indirizzo)
End If
End Sub
Private Sub googleMaps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles googleMaps.Click
Dim indirizzo As String
Dim x() As String
Dim r As Integer
'x(0) = "ciao"
'x(1) = "testo"
If TextBox1.Text = "" Then
indirizzo = "https://www.google.it/maps"
System.Diagnostics.Process.Start(indirizzo)
ElseIf TextBox1.Text <> "" Then
indirizzo = "https://www.google.it/maps/place/"
'https://maps.google.it/maps?f=q&source=s_q&hl=it&qeocode=&q=
x = Split(TextBox1.Text, " ")
'via del pebliscito
'x(0) = "via"
'x(1) = "del"
'x(2) = "pebliscito"
For r = 0 To UBound(x)
'UBound calcola
indirizzo = indirizzo + x(r) + "+"
Next
indirizzo = indirizzo + "," + TextBox2.Text
'WebBrowser1.Navigate(indirizzo)
System.Diagnostics.Process.Start(indirizzo)
End If
End Sub
Private Sub wikipediaSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles wikipediaSearch.Click
Dim indirizzo As String
Dim x() As String
Dim r As Integer
'x(0) = "ciao"
'x(1) = "testo"
If TextBox1.Text = "" Then
indirizzo = "https://it.wikipedia.org/wiki/Pagina_principale"
System.Diagnostics.Process.Start(indirizzo)
ElseIf TextBox1.Text <> "" Then
indirizzo = "https://it.wikipedia.org/w/index.php?search="
'https://it.wikipedia.org/wiki/
x = Split(TextBox1.Text, "")
'via del pebliscito
'x(0) = "via"
'x(1) = "del"
'x(2) = "pebliscito"
For r = 0 To UBound(x)
'UBound calcola
indirizzo = indirizzo + x(r) + ""
Next
indirizzo = indirizzo + " " + TextBox2.Text
System.Diagnostics.Process.Start(indirizzo)
End If
End Sub
Private Sub telSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles telSearch.Click
Dim indirizzo As String
Dim x() As String
Dim r As Integer
'x(0) = "ciao"
'x(1) = "testo"
If TextBox1.Text = "" Then
indirizzo = "http://1254.virgilio.it/"
System.Diagnostics.Process.Start(indirizzo)
ElseIf TextBox1.Text <> "" Then
indirizzo = "http://mobile1254.virgilio.it/1254m/search1254?tipo=1&adv=true&cognome="
x = Split(TextBox1.Text, "")
'via del pebliscito
'x(0) = "via"
'x(1) = "del"
'x(2) = "pebliscito"
For r = 0 To UBound(x)
'UBound calcola
indirizzo = indirizzo + x(r) + "%20"
Next
indirizzo = indirizzo + "&dove=" + TextBox2.Text
System.Diagnostics.Process.Start(indirizzo)
End If
End Sub
Private Sub traduciSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles traduciSearch.Click
Dim indirizzo As String
Dim x() As String
Dim r As Integer
'x(0) = "ciao"
'x(1) = "testo"
If TextBox1.Text = "" Then
indirizzo = "https://translate.google.it/"
System.Diagnostics.Process.Start(indirizzo)
ElseIf TextBox1.Text <> "" Then
indirizzo = "https://translate.google.it/#it/en/"
x = Split(TextBox1.Text, "")
'via del pebliscito
'x(0) = "via"
'x(1) = "del"
'x(2) = "pebliscito"
For r = 0 To UBound(x)
'UBound calcola
indirizzo = indirizzo + x(r) + ""
Next
indirizzo = indirizzo + "" + TextBox2.Text
System.Diagnostics.Process.Start(indirizzo)
End If
End Sub
Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles telSearch.Click
End Sub
Private Sub ingItaliano_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ingItaliano.Click
Dim indirizzo As String
Dim x() As String
Dim r As Integer
'x(0) = "ciao"
'x(1) = "testo"
If TextBox1.Text = "" Then
indirizzo = "https://translate.google.it/"
System.Diagnostics.Process.Start(indirizzo)
ElseIf TextBox1.Text <> "" Then
indirizzo = "https://translate.google.it/#en/it/"
x = Split(TextBox1.Text, "")
'via del pebliscito
'x(0) = "via"
'x(1) = "del"
'x(2) = "pebliscito"
For r = 0 To UBound(x)
'UBound calcola
indirizzo = indirizzo + x(r) + ""
Next
indirizzo = indirizzo + "" + TextBox2.Text
System.Diagnostics.Process.Start(indirizzo)
End If
End Sub
Private Sub itaInglese_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles itaInglese.Click
Dim indirizzo As String
Dim x() As String
Dim r As Integer
'x(0) = "ciao"
'x(1) = "testo"
If TextBox1.Text = "" Then
indirizzo = "https://translate.google.it/"
System.Diagnostics.Process.Start(indirizzo)
ElseIf TextBox1.Text <> "" Then
indirizzo = "https://translate.google.it/#it/en/"
x = Split(TextBox1.Text, "")
'via del pebliscito
'x(0) = "via"
'x(1) = "del"
'x(2) = "pebliscito"
For r = 0 To UBound(x)
'UBound calcola
indirizzo = indirizzo + x(r) + ""
Next
indirizzo = indirizzo + "" + TextBox2.Text
System.Diagnostics.Process.Start(indirizzo)
End If
End Sub
End Class
[code]
Allegati:
16767_64051e958f75b104827e65e45e07ad72.png