Hej!
Jag håller på att göra en miniräknare med verken - eller * vill fungera korrekt.

Snälla hjälp mig någon :-)

<code>

Option Explicit
Dim operator
Dim tal1
Dim tal2
Dim svar


Private Sub cmdSum_Click()
'=-knappen
tal2 = Val(txtRakna.Text)
'*****************************************

If operator = "-" Then
txtRakna.Text = txtRakna & "="
svar = tal1 - tal2
lblTxt.Caption = "Summan blir: " & txtRakna & svar
End If
'*****************************************

If operator = "*" Then
txtRakna.Text = txtRakna & "="
svar = tal1 * tal2
lblTxt.Caption = "Summan blir: " & txtRakna & svar
End If
'****************************************
End If
End Sub
</code>

Var hämtar du tal1??? sätts inte i koden nedan

dina tidigare variabler var odeklarerade, vilket leder till massa onödigt
minne och att det inte är säkert att operationerna utförs korrekt.

ersätt med det här!
<code>
Option Explicit
Dim operator as string
Dim tal1 as double, tal2 as double
Dim svar as double

</code>

/Emma

Tack men det hjälpte inte.

Jag ser att jag skrev fel i rubriken - och / ska det vara.

tal1 och tal2 kommer från de tal som klickas in via nummerknapparna.

Kan du skicka med koden för hur du matar in tal och operator?

Här är koden...

<code>

Option Explicit
Dim operator As String
Dim tal1 As Double
Dim tal2 As Double
Dim svar As Double

Private Sub cmd0_Click()
'0-knappen
If Len(txtRakna) = 0 Then
txtRakna.Text = "0"
Else
txtRakna.Text = txtRakna & "0"
End If
End Sub

Private Sub cmd1_Click()
'1-knappen
If Len(txtRakna) = 0 Then
txtRakna.Text = "1"
Else
txtRakna.Text = txtRakna & "1"
End If
End Sub

Private Sub cmd2_Click()
'2-knappen
If Len(txtRakna) = 0 Then
txtRakna.Text = "2"
Else
txtRakna.Text = txtRakna & "2"
End If
End Sub

Private Sub cmd3_Click()
'3-knappen
If Len(txtRakna) = 0 Then
txtRakna.Text = "3"
Else
txtRakna.Text = txtRakna & "3"
End If
End Sub

Private Sub cmd4_Click()
'4-knappen
If Len(txtRakna) = 0 Then
txtRakna.Text = "4"
Else
txtRakna.Text = txtRakna & "4"
End If
End Sub

Private Sub cmd5_Click()
'5-knappen
If Len(txtRakna) = 0 Then
txtRakna.Text = "5"
Else
txtRakna.Text = txtRakna & "5"
End If
End Sub

Private Sub cmd6_Click()
'6-knappen
If Len(txtRakna) = 0 Then
txtRakna.Text = "6"
Else
txtRakna.Text = txtRakna & "6"
End If
End Sub

Private Sub cmd7_Click()
'7-knappen
If Len(txtRakna) = 0 Then
txtRakna.Text = "7"
Else
txtRakna.Text = txtRakna & "7"
End If
End Sub

Private Sub cmd8_Click()
'8-knappen
If Len(txtRakna) = 0 Then
txtRakna.Text = "8"
Else
txtRakna.Text = txtRakna & "8"
End If
End Sub

Private Sub cmd9_Click()
'9-knappen
If Len(txtRakna) = 0 Then
txtRakna.Text = "9"
Else
txtRakna.Text = txtRakna & "9"
End If
End Sub

Private Sub cmdAdd_Click()
'+-knappen
If Len(txtRakna) = 0 Then
Beep
lblTxt.Caption = "Du det blev fel. Klicka på ett nummer först, eller på +/- knappen."
Else
operator = "+"
'lblTxt.Caption = txtRakna & "+"
txtRakna.Text = txtRakna & "+"
tal1 = Val(txtRakna.Text)
'txtRakna.Text = Empty
End If
End Sub

Private Sub cmdDiv_Click()
'/-knappen
If Len(txtRakna) = 0 Then
Beep
lblTxt.Caption = "Du det blev fel. Klicka på ett nummer först, eller på +/- knappen."
Else
operator = "/"
'lblTxt.Caption = txtRakna & "/"
tal1 = Val(txtRakna.Text)
'txtRakna.Text = Empty
txtRakna.Text = txtRakna & "/"
End If
End Sub

Private Sub cmdMul_Click()
'*-knappe
If Len(txtRakna) = 0 Then
Beep
lblTxt.Caption = "Du det blev fel. Klicka på ett nummer först, eller på +/- knappen."
Else
operator = "*"
tal1 = Val(txtRakna.Text)
'lblTxt.Caption = txtRakna & "*"
txtRakna.Text = txtRakna & "*"
'txtRakna.Text = Empty
End If
End Sub

Private Sub cmdSub_Click()
'--knappen
If Len(txtRakna) = 0 Then
Beep
lblTxt.Caption = "Du det blev fel. Klicka på ett nummer först, eller på +/- knappen."
Else
operator = "-"
'lblTxt.Caption = txtRakna & "-"
txtRakna.Text = txtRakna & "-"
tal1 = Val(txtRakna.Text)
'txtRakna.Text = Empty
End If
End Sub

Private Sub cmdSum_Click()
'=-knappen
tal2 = Val(txtRakna.Text)
'****************************************

If operator = "+" Then
txtRakna.Text = txtRakna & "="
svar = tal1 + tal2
lblTxt.Caption = "Summan blir: " & txtRakna & svar
End If
'*****************************************

If operator = "-" Then
txtRakna.Text = txtRakna & "="
svar = tal1 - tal2
lblTxt.Caption = "Summan blir: " & txtRakna & svar
End If
'*****************************************

If operator = "*" Then
txtRakna.Text = txtRakna & "="
svar = tal1 * tal2
lblTxt.Caption = "Summan blir: " & txtRakna & svar
End If
'****************************************

If operator = "/" Then
svar = tal1 / tal2
txtRakna.Text = txtRakna & "="
lblTxt.Caption = "Summan blir: " & txtRakna & svar
End If
End Sub

Private Sub Command7_Click()
'Rensa textrutan
txtRakna.Text = ""
lblTxt.Caption = "Varsågod och klicka in ett tal som jag kan räkna på."
End Sub

Private Sub Form_Load()
lblTxt.Caption = "Varsågod och klicka in ett tal som jag kan räkna på."


End Sub

</code>

Jag skulle gjort något sånt här:
<code>
Option Explicit

Dim operator As String
Dim tal1 As Double
Dim svar As Double

Private Sub cmdNumber_Click(Index As Integer)
txtRakna.Text = txtRakna & Index
tal1 = tal1 & Index
End Sub

'+ knappen
Private Sub cmdAdd_Click()
If tal1 Then
Calculate "+"
Else
Beep
lblTxt.Caption = "Klicka på ett nummer först, eller på +/- knappen."
End If
End Sub

'/ knappen
Private Sub cmdDiv_Click()
If tal1 Then
Calculate "/"
Else
Beep
lblTxt.Caption = "Klicka på ett nummer först, eller på +/- knappen."
End If
End Sub

'* knappe
Private Sub cmdMul_Click()
If tal1 Then
Calculate "*"
Else
Beep
lblTxt.Caption = "Klicka på ett nummer först, eller på +/- knappen."
End If
End Sub

'- knappen
Private Sub cmdSub_Click()
If tal1 Then
Calculate "-"
Else
Beep
lblTxt.Caption = "Klicka på ett nummer först, eller på +/- knappen."
End If
End Sub

'= knappen
Private Sub cmdSum_Click()
If tal1 Then
Calculate "="
Else
Beep
lblTxt.Caption = "Klicka på ett nummer först, eller på +/- knappen."
End If
End Sub

Private Sub Calculate(Optional NewOperator As String)
Select Case operator
Case "+"
svar = svar + tal1
Case "-"
svar = svar - tal1
Case "*"
svar = svar * tal1
Case "/"
svar = svar / tal1
Case Else
svar = tal1
End Select

operator = NewOperator
If NewOperator = "=" Then
tal1 = svar
txtRakna.Text = txtRakna.Text & NewOperator & svar
Else
tal1 = 0
txtRakna.Text = txtRakna.Text & NewOperator
End If
End Sub

'Rensa textrutan
Private Sub cmdClr_Click()
svar = 0
tal1 = 0
operator = vbNullString
txtRakna.Text = ""
lblTxt.Caption = "Varsågod och klicka in ett tal som jag kan räkna på."
End Sub

Private Sub Form_Load()
lblTxt.Caption = "Varsågod och klicka in ett tal som jag kan räkna på."
End Sub




</code>
* Har gjort om cmd0 - cmd9 till en kontrollarray som heter cmdNumber

Tack så mycket jag ska prova detta.

Jag tänkte från början att göra nummerna till array med jag fick inte till det.

Jag är nybörjare som du kanske förstår.

Tack du är en ängel ( färgen får du bestämma själv).

Ha en bra dag.