Sono un principiante....studio visual basic.net a scuola da poco .
Avevamo un esercizio. Inserire una data e calcolarne il segno zodiacale. ne ho creato uno inventato, però mi da errore "prevista fine dell'istruzione". se potreste aiutarmi. ecco il codice
codice:
Public Class Form1 Private Sub btnSegno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSegno.Click Dim Data As Date Dim Segno As String Data = txtData.Text Select Case Data Case Date.FromOADate(1 / 1) To Date.FromOADate(20 / 1) Segno = "Talpa" Case Date.FromOADate(21 / 1) To Date.FromOADate(20 / 2) Segno = "Puzzola" Case Date.FromOADate(21 / 2) To Date.FromOADate(20 / 3) Segno = "Suricato" Case Date.FromOADate(21 / 3) To Date.FromOADate(20 / 4) Segno = "Ramarro" Case Date.FromOADate(21 / 4) To Date.FromOADate(20 / 5) Segno = "Canguro" Case Date.FromOADate(21 / 5) To Date.FromOADate(20 / 6) Segno = "Cinghiale" Case Date.FromOADate(21 / 6) To Date.FromOADate(20 / 7) Segno = "Elefante" Case Date.FromOADate(21 / 7) To Date.FromOADate(20 / 8) Segno = "Scorpione" Case Date.FromOADate(21 / 8) To Date.FromOADate(20 / 9) Segno = "Serpentola" Case Date.FromOADate(21 / 9) To Date.FromOADate(20 / 10) Segno = "Caccola" Case Date.FromOADate(21 / 10) To Date.FromOADate(20 / 11) Segno = "Salipice" Case Date.FromOADate(21 / 11) To Date.FromOADate(31 / 12) Segno = "Tarantola" End Select MsgBox(Segno),MsgBoxStyle.Information, "IL TUO SEGNO") End Sub End Class