Hallo kan iemand me helpen?

[codingmonkey]

Hallo,

Mijn naam is Wilfred en ik moet voor informatica een rekenmachine maken op Visual Basic 6.
Ik heb al een paar codes geprobeerd en het merendeel werkt, alleen de volgende punten werken nog niet.
Zouden jullie zo vriendelijk willen zijn om te helpen?
Wat nog niet lukt
2,5 + 2,5
2,5 + 2,5 = 5 dan 2,5
2,5 + 2,5 = 5 + 5 =10
0,001 intypen
0,10000 nu op de = drukken hoort 0,1 te worden
-9 + 8 = -1
-1
-9x-9

Mijn code is als volgt

Dim op As String
Option Explicit
Dim i As Integer
Dim exp1 As Double
Dim exp2 As Double
Dim Result As Double
Dim count1 As Integer
Dim scitype As String
Private X As Double
Dim mem As Variant
Dim komma As String

  
Private Sub cmd0_Click()
If lblLabel = "0" Then
lblLabel.Caption = "0"
Else
lblLabel = lblLabel + "0"
End If
End Sub

Private Sub cmdKomma_Click()
If komma = "," Then
lblLabel.Caption = lblLabel.Caption
Else
lblLabel = lblLabel + ","
End If
komma = ","

End Sub

  Private Sub Command1_Click(Index As Integer)

If count1 = 0 Then
lblLabel = " "
MsgBox ("Zet rekenmachine aan")

End If

If count1 = 1 Then
lblLabel = " "
count1 = count1 + 1
End If

If count1 > 1 Then
lblLabel = lblLabel & command1(Index).Caption
Else

lblLabel = lblLabel


End If




End Sub

Private Sub Command10_Click()

 lblLabel = mem
End Sub

Private Sub Command2_Click()
lblLabel = -Val(lblLabel)
End Sub

Private Sub Command3_Click()
If count1 > 0 Then
exp2 = Val(lblLabel)
Select Case (op)
Case "+"
        Result = exp1 + exp2
        lblLabel = Result
        count1 = 0
Case "-"
        Result = exp1 - exp2
        lblLabel = Result
        count1 = 0
Case "*"
        Result = exp1 * exp2
        lblLabel = Result
        count1 = 0
Case "/"
        Result = exp1 / exp2
        lblLabel = Result
        count1 = 0
        

End Select
End If
End Sub

Private Sub Command4_Click(Index As Integer)
Result = exp1
exp1 = Result + Val(lblLabel)
lblLabel = " "
op = Command4(Index).Caption
End Sub

Private Sub Command5_Click()
Result = 0
exp1 = 0
exp2 = 0
lblLabel = " "
count1 = 1
End Sub

Private Sub Command6_Click()
count1 = 0
lblLabel = ""
End Sub

Private Sub Command7_Click()
Result = 0
exp1 = 0
exp2 = 0
count1 = 1
lblLabel = "0"
End Sub

Private Sub UpdateLog()
Trim (Form1.lblLabel)
        
End Sub
Private Sub Command9_Click()
mem = lblLabel
End Sub


Private Sub Form_Load()

End Sub

Ik zou het ontzettend waarderen als jullie mij zouden kunnen helpen tot een goed cijfer!
Alvast bedankt!!

 

[wampier]

Gecondoleerd dat je met VB6 nog moet werken, terwijl dat al 15 jaar niet echt meer relevant is. Het heeft in dat geval ook niets met vb.net te maken ben ik bang.

Er is bovendien duidelijk regelgeving op dit forum met betrekking tot huiswerk/schoolopdrachten.

In het algemeen wil ik nog wel meegeven dat je beter een parser kunt schrijven die meerdere bewerkingen kan herkennen en dan de verschillende elementen als groepjes kan bewerken. Een oplossing per knop maken is op de lange termijn niet de oplossing

 

[gast0660]

Hoi,
Welkom op dit forum
Idd, jammer dat je nog in vb6 moet werken, ik ben inmiddels 54 en werk al meer dan tien jaar niet meer met vb6
Zoals wampier al aangaf zijn hier strikte regels wat betreft hulp met studieopdrachten.
Maar met een beetje googelen.
Gezien ik een beetje medelijden heb (omdat je met vb6 moet lopen klooien en omdat je nieuw bent op dit forum), hier alvast twee linkjes
https://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?txtCriteria=calculator&lngWId=1
http://www.vb6.us/source-code/simple-calculator-written-vb6
Succes met uw studie.
Greetz

 

[codingmonkey]

Hallo,

Bedankt voor jullie reacties en jullie aangeboden hulp.
Ik vind het persoonlijk heel raar dat mijn school nog werkt met Visual Basic 6..... Ik denk dat de leraar een béétje achterloopt op zijn zachts gezegd.
Ik heb een rekenmachine weten te coderen met die linkjes en een beetje hulp van buitenaf.\

Bedankt!!!

 

[gast0660]

Hoi,
Mooi zo
Succes verder met uw studie, en de volgende oplossingen, Ik loop al meer dan dertig jaar me rot te zoeken naar oplossingen
(vb6 zal wel aan het budget van de school liggen, (vb blijft wel een goede basis)

Greetz