Coba code berikut ini............ Private Sub Command1_Click() hasilCos = Text1.Text * Cos(Text2.Text * (3.14159265358979 / 180)) Text3.Text = FormatNumber(hasilCos, 2) End Sub
--- In [email protected], "Hendri" <[EMAIL PROTECTED]> wrote: > > Rekan-rekan semua, > Mohon bantuanya untuk membuat rumus pada perkalian Cos60. > > Data1 : 8 > Data2 : cos 60 > > Hasil= 8 * cos60 > > Bagaimana caranya membuat dalam bentuk code VB6. > > Tks > > salam >
