Division with remainders

[Snowfox]

I made this for my mom to check my sisters math homework

Option Explicit
Dim a As Double
Dim sd As Double
Dim sc As Double

Private Function RoundOff(ByVal value As Double, ByVal digits As Integer) As Double
Dim move As Double

    move = 10 ^ digits
    RoundOff = CInt(value * move) / move
End Functiona

Private Sub Command1_Click()
On Error Resume Next

sc = Text1.Text / Text2.Text
sd = RoundOff(CSng(sc), CInt(0))

If sd > sc Then
sd = sd - 1
End If

a = Text1.Text Mod Text2.Text
Label1.Caption = sd & " r " & a
Command2.Enabled = True
net:
Resume Next
End Sub

Private Sub Command2_Click()
On Error Resume Next
Text3.Text = sd & " * " & Text2.Text & " = " & Val(Text2.Text * sd)
Text3.SetFocus
SendKeys Text3.Text & "{Enter}"
Text3.Text = Val(Text2.Text * sd) & " + " & a & " = " & Val(Text2.Text * sd + a)
End Sub


Private Sub Text1_Click()
Text1.Text = ""
End Sub


Private Sub Text2_Click()
Text2.Text = ""
End Sub

Project files

Also: i would like someone to tell me how to use the enter key with text1.text = "Enter"?

[Mark Gambo]

Also: i would like someone to tell me how to use the enter key with text1.text = "Enter"?

Use the Textbox's KeyUp Event:

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then 'Check if return Key was pressed
        Call Command1_Click
    End If
End Sub

But you will have to build in some sort of error tapping just in case the user does enter a value in either of the Textboxes. Otherwise a nice piece of code.

[Snowfox]

Thats not what i meant, i mean like in a multi line enabled textbox how do i use Text1.text = "{enter}" Which would skip a line.

[Mark Gambo]

Thats not what i meant, i mean like in a multi line enabled textbox how do i use Text1.text = "{enter}" Which would skip a line.

I don't understand? If you hold down the Control Key and Press the Return key the cursor will then go to the next line in the textbox provided that the Multiline property is set to True.

[manavo11]

Text1.Text = Text1.Text & vbCrLf

this? To add a line change to the textbox?

[Ellis Dee]

This seems overcoded to me. Much simpler would be:

Private Sub Command1_Click()
    Dim lngDividend As Long
    Dim lngDivisor As Long
    Dim lngQuotient As Long
    Dim lngRemainder As Long

    lngDividend = Val(Text1.Text)
    lngDivisor = Val(Text2.Text)
    lngQuotient = lngDividend \ lngDivisor
    lngRemainder = lngDividend Mod lngDivisor
    Label1.Caption = lngQuotient & " r " & lngRemainder
    Text3.Text = lngQuotient & " * " & lngDivisor & " = " & lngQuotient * lngDivisor & vbNewLine & _
        lngQuotient * lngDivisor & " + " & lngRemainder & " = " & lngQuotient * lngDivisor + lngRemainder
End Sub