[VB.NET] Sub per calcolo dell'area di un cerchio

[fraermejo]

ho cominciato a studiare la guida di Visual Basic su questo sito e ho scaricato il compilatore Visual Basic 2005... Provo a copiare dalla guida questo codice:
Sub AreaCerchio(Raggio As Double) MsgBox Raggio * Raggio * 3.14 End Sub

ma mi sottolinea da MsgBox fino a End Sub e mi dice: Prevista fine dell'istruzione...
Ho provato anche con altri codici, ma mi da sempre un errore... chi mi può aiutare?? ringrazio anticipatamente chi mi risponderà----

[king64]

Forse ti segnala l'errore perchè tutte le istruzioni stanno sulla medesima riga . Prova ad inserire un RETURN dopo ogni istruzione , tipo cosi :

Sub AreaCerchio(Raggio As Double)
    MsgBox Raggio * Raggio * 3.14
End Sub

Dovrebbe funzionare . Saluti

[MItaly]

Sub AreaCerchio(Raggio As Double)
    MsgBox(CStr(Raggio * Raggio * 3.14))
End Sub

Tra l'altro VB.NET viene trattato nell'apposita sottosezione.

[alka]

Originariamente inviato da MItaly
Tra l'altro VB.NET viene trattato nell'apposita sottosezione.

Quoto, segnalo il Regolamento per la lettura e sposto la discussione nell'area appropriata.

[fraermejo]

ho inserito il seguente codice:

Sub AreaCerchio(ByVal Raggio As Double)
    MsgBox(CStr(Raggio * Raggio * 3.14))
End Sub

...
ma mi da un altro tipo di errore...
mi sottolinea la prima riga e mi dice: Istruzione non valida in uno spazio dei nomi
...
cosa faccio???

[MItaly]

Tutte le Sub e le Function vanno inserite in un modulo o in una classe, mentre tu le stai inserendo semplicemente in un Namespace.

[mardok30]

Devi inserire la funzione nella classe che rappresenta la tua Form:

Imports System.IO
Imports System.Drawing 

public Class FormPrincipale
Sub AreaCerchio(ByVal Raggio As Double)
    MsgBox(CStr(Raggio * Raggio * 3.14))
End Sub
End Class

[fraermejo]

ora funziona.. grazie 1000

[fraermejo]

un nuovo problema ... scrivo il seguente codice:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Command1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
        Me.Print("E' stato premuto un tasto del mouse.")
    End Sub
    Private Sub Command1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
        Me.Print("E' stato rilasciato un tasto del mouse.")
    End Sub
End Class

ma mi sottolinea Me.Print dicendomi: Print non è un membro di WindowsApplication1.Form1
cosa devo fare???

[mardok30]

Dovresti aprire una nuova discussione per un nuovo argomento...
Cosa vorresti fare con Print?
Forse ti basta una cosa del genere:

Messagebox.Show("E' stato premuto un tasto del mouse.")
...