Протестируете?

[_Мика_]

Вот друг попросил написать прогу, я написал, дал ему, а теперь он говорит что она как то кривао работает!
Не могли бы вы протестить ее?

[A.A.Z.]

Overflow часто выскакивает =/

[_Мика_]

Ну кроме этого, считает он правильно??

[A.A.Z.]

Вроде да

[_Мика_]

Спасибо

[skord]

_Мика_
Хороший калькулятор! Всегда хотел иметь такой!

[_Мика_]

Пажалуйста, только не знаю что внем такого хорошего!

[skord]

Как что хорошего? Ведь не каждый калькулятор имеет всего 2 цифры и не каждый умеет BIN -> HEX, BIN -> DEC!!!

[Джеффи]

Пажалуйста, только не знаю что внем такого хорошего!

Во именно ничего

Дизайн плоховат, для разнообразия поставил бы стиль XP...
Type mismatch при text1.text = ""

Так что добавь в функции текст:

Sub Command3_Click()
if text1.text = "" then exit sub
End Sub

Sub Command4_Click()
if text1.text = "" then exit sub
End Sub

Sub Text1_KeyPress(KeyAscii As Integer)
if text1.text = "" then exit sub
End Sub

Не удивляйся откуда я знаю какие у тя кнопки
Аля декомпилятор

[_Мика_]

Пажалуйста, только не знаю что внем такого хорошего!

Во именно ничего

Дизайн плоховат, для разнообразия поставил бы стиль XP...
Type mismatch при text1.text = ""

Так что добавь в функции текст:

Sub Command3_Click()
if text1.text = "" then exit sub
End Sub

Sub Command4_Click()
if text1.text = "" then exit sub
End Sub

Sub Text1_KeyPress(KeyAscii As Integer)
if text1.text = "" then exit sub
End Sub

Не удивляйся откуда я знаю какие у тя кнопки
Аля декомпилятор

НУ ТЫ КРУТОЙ!!!!