Coba... Command1_Click( ) Dim Data1, Data2, Hasil 'buat sebagai variable Data1 = val(Text1.text) 'textbox Data2 = val(Text2.text) Hasil = Data1 * Cos(Data2) hasil akhir tercatat di label Label1.caption = Hasil End Sub
thanx n regards - NikoJona / freaky - freaky ----- Original Message ---- From: Hendri <[EMAIL PROTECTED]> To: [email protected] Sent: Wednesday, May 21, 2008 1:49:16 PM Subject: [Programmer-VB] Cos 60 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
