At Fixya.com, our trusted experts are meticulously vetted and possess extensive experience in their respective fields. Backed by a community of knowledgeable professionals, our platform ensures that the solutions provided are thoroughly researched and validated.
- If you need clarification, ask it in the comment box above.
- Better answers use proper spelling and grammar.
- Provide details, support with references or personal experience.
Tell us some more! Your answer needs to include more details to help people.You can't post answers that contain an email address.Please enter a valid email address.The email address entered is already associated to an account.Login to postPlease use English characters only.
Tip: The max point reward for answering a question is 15.
I would suggest that you take off the needle plate and check if the bobbin holder, the black plastic bit you put the bobbin into, has become dislodged and moved out of alignment. This can happen if you have a jam up as the holder is held in place with a magnet.
Your manual should show how to remove and clean under it in the cleaning section and there is probably some thread in under it.
It should have a mark on it that needs to align with a mark on the stopper, on the right side I think, and you may find that yours have moved a little out of this alignment.
I'm hoping that this is the problem for you; as its easily solved. After you've put the holder back, just turn it off and wait a second, then switch on and hopefully it will reset. Also check the back of your manual, it should have troubleshooting at the rear which may give a diagnosis on the Error1 message.
Here is one solution. You might consider adding more robust error handling.
if the decimal numbers passed to the div function are multiples i will be a non-zero number of that multiple otherwise i will be zero.
Dim i As Integer i = div(12, 0) If i = 0 Then 'not multiple ' do this Else ' is multiple ' do something else End If
Function div(ByVal numerator As Object, ByVal denominator As Object) As Integer
dim n , d decimal Dim result As Decimal Dim remainder As Decimal
If IsNumber(numerator) Is True _ And IsNumber(denominator) Is True Then If numerator <> 0 Then n = numerator d = denominator Else GoTo error1 End If Else GoTo error1 End If
result = Decimal.divide(n, d) remainder = Decimal.remainder(n, d)
If remainder = 0 Then div = result Else div = 0 End If
Exit Function
error1: msgbox("Numbers must be non-zero numerics", , "Multiple check error") div = 0
End Function
×