kvrod

Der er bare et lille problem: Den melder fejl hvis man skriver bogstaver, og jeg ved ikke hvordan man løser det problem.

Hey Michas Richter, det gør du sådan her:

Private Sub cmdBeregn_Click()
    If IsNumeric(txtTal.Text) Then
        lblResultat.Caption = Sqr(txtTal.Text)
    Else
        lblResultat.Caption = "Invalid indtastning"
    End If
End Sub

// Your brain is your weapon, do not waste it!!

Hej :-)

Hvordan kan man få den til at regne kvroden??

Hvis det er kvadrat-roden kan du lave dette:
Et textfelt (Navn: txtTal , Text: (ikke noget) ),
en label (Navn: lblResultat , Caption: (ikke noget))
og en CommandButton (Navn: cmdBeregn Caption: Beregn Kvadratrod).

I CmdBeregn indtaster du følgende kode:


Private Sub cmdBeregn_Click()

lblResultat.Caption = Sqr(txtTal.Text)

End Sub


Det vi gør er at sætte LblResultat´s Caption Propertie til kvadratroden af det der står i txtTal, når vi trykker på cmdBeregn.

Der er bare et lille problem: Den melder fejl hvis man skriver bogstaver, og jeg ved ikke hvordan man løser det problem.

Håber at du kan bruge det til noget.