Let me know how this goes...

Public mpl As Double

Private Sub dodawanie_Click()
Dim b as Double, a As Double 'otherwise b is variant

If liczba1 = Empty Or liczba2 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If

If liczba1 < Empty And liczba2 < Empty Then

msgbox isnumeric(liczba1)
msgbox isnumeric(liczba2)
a = Cdbl(liczba1)
b = Cdbl(liczba2)

wynik = a + b

End If
End Sub

--
HTH...

Jim Thomlinson


" wrote:


first form:

Public mpl As Double

Private Sub dodawanie_Click()
If liczba1 = Empty Or liczba2 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If

If liczba1 < Empty And liczba2 < Empty Then

Dim b, a As Double
a = CSng(liczba1)
b = CSng(liczba2)

wynik = a + b

End If
End Sub

Public Sub odejmowanie_Click()
If liczba1 = Empty Or liczba2 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If

If liczba1 < Empty And liczba2 < Empty Then
Dim a, b As Double
a = CSng(liczba1)
b = CSng(liczba2)

wynik = a - b

End If
End Sub

Private Sub mnozenie_Click()
If liczba1 = Empty Or liczba2 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If

If liczba1 < Empty And liczba2 < Empty Then
Dim a, b As Double
a = CSng(liczba1)
b = CSng(liczba2)

wynik = a * b

End If

End Sub

Private Sub dzielenie_Click()

If liczba1 = Empty Or liczba2 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If

If liczba1 < Empty And liczba2 < Empty Then

Dim a, b As Double
a = CSng(liczba1)
b = CSng(liczba2)

If b = 0 Then
x = MsgBox("nie dzielimy przez 0", vbCritical + vbOKOnly,
"DEBILU!!!")
End If

If b < 0 Then
wynik = a / b
End If
End If
End Sub

Private Sub sin_Click()
If liczba1 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If

If liczba1 < Empty Then
Dim a As Double
a = CSng(liczba1)

wynik = Math.sin(a)
End If

End Sub

Private Sub cos_Click()
If liczba1 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If

If liczba1 < Empty Then
Dim a As Double
a = CSng(liczba1)

wynik = Math.cos(a)

End If
End Sub

Private Sub tan_Click()
If liczba1 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If
If liczba1 < Empty Then
Dim a As Double
a = CSng(liczba1)

wynik = Math.tan(a)
End If
End Sub


Private Sub ctg_Click()
If liczba1 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If
If liczba1 < Empty Then
Dim a As Double
a = CSng(liczba1)

wynik = 1 / Math.tan(a)
End If
End Sub


Private Sub CommandButton1_Click()
If liczba1 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If
If liczba1 < Empty Then
liczba1 = liczba1 * (-1)
End If
End Sub

Private Sub CommandButton2_Click()
If liczba1 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If
If liczba1 < Empty Then
Dim a As Double
a = CSng(liczba1)
If a <= 0 Then
x = MsgBox("nie pierwiastkujemy liczb mniejszych od 0", vbCritical +
vbOKOnly, "DEBILU!!!")
End If
If a 0 Then
wynik = Sqr(a)
End If
End If
End Sub

Private Sub cyferki1_Click()

cyferki.Show

End Sub

Private Sub na16_Click()
If liczba1 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If
If liczba1 < Empty Then
Dim a As Double, b As String

a = CSng(liczba1)

b = Conversion.Hex(a)

wynik = b
End If
End Sub


Private Sub silnia_Click()
If liczba1 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If
If liczba1 < Empty Then
Dim a As Double
Dim b As Double
a = CSng(liczba1)
b = 1
If a < 0 Then
x = MsgBox("nie ma silni z liczb mniejszych od 0", vbCritical +
vbOKOnly, "DEBILU!!!")
End If
If a = 0 And a <= 170 Then

For x = 1 To a

b = b * x

Next x
End If

If a 170 Then
x = MsgBox("nie policze silni z wiekszej liczby niz 170",
vbCritical + vbOKOnly, "SORRY!!!")
End If
wynik = b
End If
End Sub

Sub Mplus_Click()
If wynik = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If
If wynik < Empty Then
mpl = wynik
End If
End Sub

Private Sub Mr_Click()
Dim a As Double
a = Val(mpl)
liczba1 = a

End Sub

Private Sub xdoy_Click()
If liczba1 = Empty Or liczba2 = Empty Then
x = MsgBox("puste pole", vbCritical + vbOKOnly, "Uzupelnij!!!")
End If
If liczba1 < Empty And liczba2 < Empty Then
Dim a, b As Double
a = CSng(liczba1)
b = CSng(liczba2)
On Error Resume Next
wynik = a ^ b

If wynik 1E+301 Then
x = MsgBox("za duza wartosc", vbCritical + vbOKOnly, "DUPA!!!")
End If

End If
End Sub


second form:

Private Sub C_Click()

UserForm1.liczba2 = Empty
UserForm1.liczba1 = Empty

End Sub

Private Sub CommandButton2_Click()
Dim d As String
Dim a As Double

If wyb1 = True Then
d = UserForm1.liczba1

Dim CzyJest As Variant

CzyJest = InStr(d, ",")
If CzyJest = 0 Then

d = d & ","
Else
x = MsgBox("nie za duzo tych przecinkow?", vbCritical + vbOKOnly,
"COS PRZEGINASZ!!!")
End If

UserForm1.liczba1 = d
End If
If wyb2 = True Then
d = UserForm1.liczba2

CzyJest = InStr(d, ",")
If CzyJest = 0 Then

d = d & ","
Else
x = MsgBox("nie za duzo tych przecinkow?", vbCritical + vbOKOnly,
"COS PRZEGINASZ!!!")
End If

UserForm1.liczba2 = d
End If
End Sub

Private Sub cztery_Click()

Dim d As String
Dim a As Double

If wyb1 = True Then
d = UserForm1.liczba1
d = d & "4"


UserForm1.liczba1 = d
End If
If wyb2 = True Then
d = UserForm1.liczba2