1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Problema com programa vb

Discussão em 'Programação' iniciada por ButterSpt, 21 de Junho de 2012. (Respostas: 0; Visualizações: 787)

  1. Boas , preciso de resolver um problema com um programa de Visual Basic e gostaria de ter a vossa ajuda.
    O programa é muito basico se só seleccionarmos um radio button irá aparecer as Inputbox’s para pedir os valores correctos para calcular a area, só como estámos a aprender classes e classes derivadas , tive de fazer uma classe derivada para o volume de cada um...
    [​IMG]
    Problemas:
    1-A primeira parte das areas tava 100% funcional só que para eu poder tirar a area de cada um dos objectos tive de por variaveis diferentes da mesma textbox em cada IF de objecto... e agora já não apresenta o valor...
    2- o código já está todo bem na classe derivada , só que acaba por dizer END OS STATEMENT ESPECTED... ( acho que não estão a ver a classe derivada , vou desponibilizar o programa em win-rar e criam a classe e eu dou aqui o codigo... Ou basta carregar onde diz erro de designer e do lado direito carregar e sellecionar NEXT ERROR e apareçera o código da classe derivada




    Maneira nrº1


    Public Class volume
    Inherits area
    Dim p As Double


    #If chkvolume.checked and RadQuadrado.cheked Then
    p = inputbox("Qual a profundidade do Quadrado")
    txtaltura.text = ca*p
    #End If
    #If chkvolume.checked and RadRectangulo.cheked Then
    p = inputbox("Qual a profundidade do Rectângulo")
    txtaltura.text = cb*p
    #End If
    #If chkvolume.checked and Radtriangulo.cheked Then
    p = inputbox("Qual a profundidade do Triangulo")
    txtaltura.text = cc*p
    #End If
    #If chkvolume.checked and RadCirculo.cheked Then
    p = inputbox("Qual a profundidade do Circulo")
    txtaltura.text = cd*p
    #End If
    End Class


    Dame só 4 erros de END OF STATEMENT ESPECTED... Quanto ao ter astericos foi o proprio programa a pedir..
    Programa em WINRAR : http://www.multiupload.nl/V9U68YSBY3








    Maneira nrº2


    Public Class volume
    Inherits area
    Dim p, ap As Double
    ap =txtaltura .text


    If chkvolume.checked and RadQuadrado.cheked Then
    p = inputbox("Qual a profundidade do Quadrado")
    ap = ca*p
    End If


    If chkvolume.checked and RadRectangulo.cheked Then
    p = inputbox("Qual a profundidade do Rectângulo")
    ap = cb*p
    End If


    If chkvolume.checked and Radtriangulo.cheked Then
    p = inputbox("Qual a profundidade do Triangulo")
    ap = cc*p
    End If


    If chkvolume.checked and RadCirculo.cheked Then
    p = inputbox("Qual a profundidade do Circulo")
    ap= cd*p
    End If


    End Class
     

Partilhar esta Página