rekenmachine maken

[g4m3v3rsl44fd]

Hallo, helpmijers

Ik ben nu bezig een rekenmachine te maken met Visual Basic.NET alleen ik snap niet helemaal welke code ik nu voor +, -, /, * moet gebruiken.

 

[Mr Wolf]

Dim getal1 As Integer = 9
Dim getal2 As Integer = 7
Dim ResultPlus As Integer
Dim ResultMin As Integer
Dim ResultKeer As Integer
Dim ResultDeel As Integer
Private Sub Button1_Click() Handles Button1.Click
     ResultPlus = getal1 + getal2
     ResultMin = getal1 - getal2
     ResultKeer = getal1 * getal2
     ResultDeel = getal1 / getal2
End Sub

Mr. Wolf

 

[MsTrMind]

je kan je variabelen van diezelfde klasse declareren in diezelfde lijn

'Variabelen declareren
dim intGetal1, intGetal2, som, product, quotient, verschil as integer
'Variabelen invullen
intGetal1 = Inputbox ("Geef een 1e getal")
intGetal2 = inputbox("Geef een 2e Getal")
'optellen
som = intgetal1 + intgetal2
'aftrekken
verschil = intgetal1 - intgetal2
'delen
quotient = intgetal 1 / intgetal2
'vermenigvuldigen
product = intgetal1 * intgetal2

'resultaten laten zien
messagebox.show ("De som is: " & som & " het verschil is: " & verschil & " het quotient is: " & quotient & " het product is: " & product)

lichte verandering, maar kvind het ietwat handiger

 

[g4m3v3rsl44fd]

als ik die code invul dan komt er dus een extra schermpje maar ik wil hetzelfde als dat je bij een rekenmachine van windows zelf hebt, dus als je een getal invoert + een ander getal en dat in datzelfde schermpje het antwoord komt, en met de eerste code die gegeven is telt hij niks bij elkaar op als ik bijvoorbeeld 3 + 3 doe komt er gewoon 33 te staan

 

[MsTrMind]

ik heb 2 textboxen, een label en een button
naam texboxen: Textbox1, textbox2
naam label: lblResultaat
naam button: btnBerekenen

dit is veruit de simpelste code die ik kan schrijven voor een rekenmachine ...

Public Class Form1

    Private Sub btnBerekenen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBerekenen.Click
        Dim intgetal1, intgetal2 As Integer
        Dim strResultaat As String
        intgetal1 = Integer.Parse(TextBox1.Text)
        intgetal2 = Integer.Parse(TextBox2.Text)
        strResultaat = "De som is: " & intgetal1 + intgetal2 & vbCrLf
        strResultaat &= "Het verschil is: " & intgetal1 - intgetal2 & vbCrLf
        strResultaat &= "Het Product is: " & intgetal1 * intgetal2 & vbCrLf
        strResultaat &= "Het quotient is: " & intgetal1 / intgetal2
        lblResultaat.Text = strResultaat
    End Sub

greetzz,

MsTrMind:thumb:

 

[g4m3v3rsl44fd]

ok bedankt

 

[MsTrMind]

no problemo