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

Como fazer leitura de números informando as quatro operações.

Discussão em 'Programação' iniciada por Kaiowa, 10 de Abril de 2006. (Respostas: 0; Visualizações: 2133)

  1. Bom dia. Estou com uma dúvida. Fiz uma suntaxe onde eu procuro ler uma lista de números e (tento) informar sua soma,subtração, divisão e multiplicação. Ficou assim:

    Dim A,B,C,D as Integer
    Dim addition,subtraction,multiply,division as a Single

    A=val(txtA.text)
    B=val(txtB.text)
    C=val(txtC.text)
    D=val(txtD.text)

    Addition=A+B+C+D
    Subtraction=A-B-C-D
    Multiply=A*B*C*D
    Division = A/B/C/D

    No entanto creio eu que deveria criaar no Access uma lista, aleatória, de números para que pudessem ser lidos e calculados nas quatro operações. O que fiz; Abri o Access, fui no banco de dados vazio salvei o Banco de dados como MSF criei uma tabela como Lista. Em tools confesso que não lembro se eu coloquei como Lista ou Números. Mas a Lista, onde digitei os números ficou como Números.
    Criei 4 botões cmdasoma,cmdbsubtração e assim por diante sendo no caption o nome das 4 operações e um botão Label.
    Bem a nova sintaxe ficou assim:

    Option Explicit
    Dim Areadados As Database
    Dim Lista As Recordset
    Dim soma, subtracao, multiplicacao As Integer
    Dim divisao As Currency
    Dim total As Currency

    Public Sub Abrir_Bancodados()
    Set Areadados = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\MSF.mdb")
    Set Lista = Areadados.OpenRecordset("Lista", dbOpenTable)
    Lista.Index = "PrimaryKey"
    End Sub

    Private Sub cmdoksoma_Click()
    Call Abrir_Bancodados
    total = 0
    While Not Lista.EOF
    If Lista("numeros") = 1 Then
    total = total + soma("valor")
    End If
    Lista.MoveNext
    Wend
    LbrespostaA.Caption = total
    End Sub

    mostro aí só o da soma, porém, não me mostra o erro e não dá o resultado.

    Poderia me ajudar. Estou no caminho certo?
     

Partilhar esta Página