Sub btnm1_Click
mp1.Load(File.DirAssets,"click.wav")
mp1.Play
If txtcaricoeuro.Text="" Then
Msgbox("Devi associare un importo al prodotto prima di memorizzarlo","IMPORTANTE !!")
Else
If txtcaricoeuro.Text.Contains(",") = True Then ' verifico se nella casella di testo sono state messe virgole al posto del punto
txtcaricoeuro.Text.Replace(",",".")' sostituisco le virgole al posto del punto
End If
If txtmenu.Text="" Then
Msgbox("Devi inserire un prodotto prima di salvare","AVVISO !!")
Else
dbSQL.ExecNonQuery2("INSERT INTO field1 VALUES (?)", Array As String(txtmenu.Text & " - " & "Euro" & " " & txtcaricoeuro.Text )) ' inserisco il prodotto inserito sulla casella di testo txtmenu.text e aggiungo il testo euro ed aggiungo anche il valore in eurodel prodotto immesso sulla casella di testo txtcaricoeuro.text.
lswpizza.AddTwoLinesAndBitmap (txtmenu.Text & " " & "Euro" & " " & txtcaricoeuro.Text , txtingredienti.Text,LoadBitmap(File.DirAssets,"pizza.jpg")) ' inserisco il prodotto caricato su txtmenu.text, il testo euro ed il prezzo caricato su txtcaricoeuro.text sullo spinner mn1 e cioè su uno dei 8 menù disponibili
txtcaricoeuro.Text="" ' pulisco la casella di testo txtcaricoeuro.text
txtingredienti.Text=""
dbCursor.Close
pnlpizza.Visible=True
Msgbox("Prodotto aggiunto, tieni premuto qualche secondo il pulsante elimina se vuoi eliminarla","ESEGUITO")
txtmenu.Text="" ' pulisco la casella di testo txtmenu.text dove carico i prodotti.
mn1 ' carico la sub del menù mn1 per visualizzare il prodotto appena inserito.
End If
End If
phone1.HideKeyboard(Activity)
txtcaricoeuro.Text=0
End Sub