CLASSLIBRARY E WEBAPPLICATION

DIAS 14/04/2012 22:56:35
#399896
Pessoal, to tentando fazer um exercicio de aula. Mas tah complicadinho...
To utilizando o Visual Studio 2010, utilizando Visual Basic.

Criei um projeto do tipo CLASSLIBRARY, simples.
Nele tenho uma unica Class1.vb
Nessa Class1.vb eu tenho exatamente isso:
Citação:

Public Class Class1

Dim v1 As Integer = 1
Dim v2 As Integer = 3
Dim resultado As Integer

Sub calcula(ByVal vv1 As Integer, ByVal vv2 As Integer, ByVal res As Integer)
Me.v1 = vv1
Me.v2 = vv2
Me.resultado = res
End Sub

Sub mostra()
Me.resultado = Me.v1 + Me.v2

Console.Write(resultado)

End Sub


End Class



Fechei essa aplicação e criei uma WEBAPPLICATION, em ASP.NET
Nessa WEBAPPLICATION eu add um item um Web Form. com o nome Default.aspx
Nesse Default.aspx eu tenho o seguinte código:

Citação:

Public Class _Default
Inherits System.Web.UI.Page



Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim cal As New ClassLibrary1.Class1()
cal.mostra()


End Sub




End Class



Salvei e fechei a WEBAPPLICATION.

Voltei ao projeto CLASSLIBRARY, e add a minha WEBAPPLICATION, agora tenho tudo em uma mesma Solution.

A minha grande duvida é apenas mostrar 4 o valor da soma v1 + v2 quando carregar o meu Default.aspx.
Tudo o que jah tentei ateh agora não funciona ele carrega a pagina em branco.

Agradeço desde jah quem puder me ajudar.

Obrigado!
FILMAN 15/04/2012 01:01:57
#399899
Bom vamos primeiro não estou com o VS instalado aqui no momento mais vai uma dica vc não precisa criar separadamente e depois juntar tudo

vc pode iniciar um projeto novo em WEBAPPLICATION e ficar inserindo projetos dentro do mesmo para cada inserção basta clicar com o botão direito em cima
da solution ir em ADD > NEW Project e escolher o tipo de projeto que queres.

mais respondendo sua pergunta se eu não estiver errado creio que seja assim
no projeto principal onde consta as página abra o arquivo DEFAULT.ASPX.VB que é onde vc vai programar
vai ficar assim projeto webapplication nome: PaginaASP
Imports ClassLibrary

Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim cal As New ClassLibrary1.Class1(2,2)
        cal.mostra()
    End Sub
End Class


Seu projeto classe fica assim nome do projeto: ClassLibrary
Public Class Class1
    Dim v1 As Integer = 1
    Dim v2 As Integer = 3
    Dim resultado As Integer

    Sub calcula(ByVal vv1 As Integer, ByVal vv2 As Integer)
        v1 = vv1
        v2 = vv2
    End Sub

    Sub mostra()
        resultado = v1 + v2
        Response.Write(resultado)
    End Sub
End Class


Lembrando que o nome dos projeto fica de acordo com o que vc achar melhor desde que referencie os mesmo corretamente

espero ter ajudado
DIAS 15/04/2012 13:18:49
#399916
Bom dia.
FILMAN, não mostrou o resultado ao carregar a pagina asp, mesmo fazendo as alterações. :\
DIAS 15/04/2012 13:26:58
#399917
Eu consigo montar as funções somar e mostrar na Class e dar o resultado em um formulario quando ele é carregado. Mas não consigo montar as funções soma e mostrar na Class e dar o resultado em uma pagina asp. é isso o que preciso. montar numa class e mostrar o resultado final na pagina aspx.

Agradeço desde ja pela ajuda!
DIAS 16/04/2012 11:11:05
#399956
Bom dia, alguma possibilidade de ajuda?
FILMAN 16/04/2012 11:43:24
#399959
Tenta assim

Imports ClassLibrary

Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim cal As New ClassLibrary1.Class1(2,2)
        Response.Write(cal.mostra())
    End Sub
End Class


Public Class Class1
    Dim v1 As Integer = 1
    Dim v2 As Integer = 3
    Dim resultado As Integer

    Public Sub calcula(ByVal vv1 As Integer, ByVal vv2 As Integer)
        v1 = vv1
        v2 = vv2
    End Sub

    Public Function mostra() as Integer
        return resultado = v1 + v2
    End Sub
End Class
DIAS 16/04/2012 11:56:49
#399961 
 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim cal As New ClassLibrary1.Class1(2,2)
        Response.Write(cal.mostra())
    End Sub


ao carregar a pagina ele mostra a mensagem Expression does not produce a value. e refere a linha onde esta o Reponse.write...
FILMAN 16/04/2012 12:13:49
#399964
E Assim

Imports ClassLibrary

Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim cal As New ClassLibrary1.Class1(2,2)
        cal.mostra()
    End Sub
End Class



Public Class Class1
    Dim v1 As Integer = 1
    Dim v2 As Integer = 3
    Dim resultado As Integer

    Public Sub calcula(ByVal vv1 As Integer, ByVal vv2 As Integer)
        v1 = vv1
        v2 = vv2
    End Sub

    Public Sub mostra()
        resultado = v1 + v2
        Response.Write(resultado)
    End Sub
End Class
Tópico encerrado , respostas não são mais permitidas
Voltar