Private Sub Command7_Click(Index As Integer)
Select Case Index
Case 15
Text1.Text=cos(val(Text1.text))
А слабо без встроенных функций сделать синус/косинус и т.д.?
Хакер писал(а):А слабо без встроенных функций сделать синус/косинус и т.д.?
Каков смысл? Сложение тоже реализовывать вручную, побитно?
Разве что только если калькулятор считает какие-нибудь 128-битные FP-числа.
Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 64