Ok, först vill jag bara säga hej och så...
sen så har jag ett problem. I skolan så har jag gjort en miniräknare och den funkar (+ - * /) men... själva inskrivningen blir helt jävla fel då jag först måste skriva in ett tal och därefter tala om om det ska vara just ett plus tal eller så. HUR SKA JAG lösa detta? JAG tror jag blir tokig.

Du får nog visa lite kod,eller förklara lite mer , du har väl en knapp + ?

Hej Michael!

Jag håller med SvenPon. Du måste nog förklara lite mer. Måste du tala om för applikationen om det första talet är ett positivt tal eller ett negativt?

/Per Ericsson

Private Sub cmd0_Click()
textRuta.Text = textRuta.Text + "0"
End Sub

Private Sub cmd1_Click()
textRuta.Text = textRuta.Text + "1"
End Sub

Private Sub cmd2_Click()
textRuta.Text = textRuta.Text + "2"
End Sub

Private Sub cmd3_Click()
textRuta.Text = textRuta.Text + "3"
End Sub

Private Sub cmd4_Click()
textRuta.Text = textRuta.Text + "4"
End Sub

Private Sub cmd5_Click()
textRuta.Text = textRuta.Text + "5"
End Sub

Private Sub cmd6_Click()
textRuta.Text = textRuta.Text + "6"
End Sub

Private Sub cmd7_Click()
textRuta.Text = textRuta.Text + "7"
End Sub

Private Sub cmd8_Click()
textRuta.Text = textRuta.Text + "8"
End Sub

Private Sub cmd9_Click()
textRuta.Text = textRuta.Text + "9"
End Sub

Private Sub cmdAterstall_Click()
textRuta.Text = ""
Label1.Caption = ""
Label2.Caption = ""
End Sub

Private Sub cmdDelat_Click()
rakne = "/"
Label1.Caption = Val(Label1.Caption) / Val(textRuta.Text)
textRuta.Text = ""
End Sub

Private Sub cmdGgr_Click()
rakne = "*"
Label1.Caption = Val(Label1.Caption) * Val(textRuta.Text)
textRuta.Text = ""
End Sub

Private Sub cmdMinus_Click()
rakne = "-"
Label1.Caption = Val(Label1.Caption) - Val(textRuta.Text)
textRuta.Text = ""
End Sub

Private Sub cmdPlus_Click()
rakne = "+"
Label1.Caption = Val(Label1.Caption) + Val(textRuta.Text)
textRuta.Text = ""
End Sub

Private Sub Form_Load()
Dim Tal1 As Integer, Tal2 As Integer
Dim rakne
End Sub

Private Sub Label1_Change()
Label2.Caption = Label2.Caption + Label1.Caption + " "
Label2.BackColor = vbWhite
End Sub

Private Sub Label2_Click()

End Sub



Detta är då koden, hoppas ni har nån bra ide på hur jag kan skriva om skiten.

Vad är själva problemet?

själva problemet är att jag måste skriva in ett tal och därefter på plus, minus, delat med eller gånger och inte tvärt om.

Du kan ju kolla in filen <url> http://www.pellesoft.se/login/tavling/calc/fx82.zip </url> för ideer på hur man kan göra.

//Fredde

ok, tack ska du ha.