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

Conversor em VB

Discussão em 'Programação' iniciada por ButterflyEffect, 27 de Março de 2008. (Respostas: 0; Visualizações: 565)

  1. ButterflyEffect

    ButterflyEffect Power Member

    [FONT=&quot]CONVERSOR[/FONT]
    [FONT=&quot]Contem 1label,1textbox e um botao para converter[/FONT]
    [FONT=&quot]1 botao para sair[/FONT]

    [FONT=&quot]Public[/FONT][FONT=&quot] Class form1[/FONT]
    [FONT=&quot] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttconverter.Click[/FONT]
    [FONT=&quot]Dim[/FONT][FONT=&quot] valorinicial As Integer ' define valor de inicio[/FONT]
    [FONT=&quot] valorinicial = txtvalor.Text 'valorinicial e = valor k ta na caixa de texto[/FONT]
    [FONT=&quot] Dim valorFinal As Integer ' define variavel valorfinal[/FONT]
    [FONT=&quot] valorFinal = txtvalor.Text * 200.482[/FONT]
    [FONT=&quot] MsgBox("o valor em escudos é de :" & valorFinal)[/FONT]
    [FONT=&quot] End Sub[/FONT]
    [FONT=&quot]End[/FONT][FONT=&quot] Class[/FONT]

    [FONT=&quot] Private Sub bttend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttend.Click 'fecha programa[/FONT]
    [FONT=&quot]End[/FONT]
    [FONT=&quot] End Sub[/FONT]
    [FONT=&quot]End[/FONT][FONT=&quot] Class[/FONT]
     

Partilhar esta Página