Søg
Avatar billede joha0147 Nybegynder
08. november 2001 - 18:34 Der er 8 kommentarer og
1 løsning

Cosinus problem!!!!

Jeg fandt det her kode på MS hjemmeside men jeg kan ikke få det til at virke er der en eller anden include fil man skal include eller er det kun i c++ man includere headerfiler???

Dim myAngle, mySecant

Private Sub Cos_Click()
myAngle = 1.3
mySecant = 1 / Cos(myAngle)
MsgBox (mySecant)
End Sub

På forhånd tak
Avatar billede joha0147 Nybegynder
08. november 2001 - 18:36 #1
Den kommer med en fejlmeddelelse hvor den siger at det er et forkert antal parametre i cos() funktionen! og så markere den den linie med cos() i!
Avatar billede jelzin101 Praktikant
08. november 2001 - 18:59 #2
det virker fint hos mig, husk at parameteren til cos skal være en double
Avatar billede jennemaan Nybegynder
08. november 2001 - 19:01 #3
Prøv

Private Sub Cos_Click()
Dim myAngle, mySecant
myAngle = 1.3
mySecant = 1 / Cos(myAngle)
MsgBox mySecant
End Sub

/Jennemaan
Avatar billede joha0147 Nybegynder
08. november 2001 - 19:38 #4
den siger:

wrong number of arguments or invalid property assignment!!!
Avatar billede jelzin101 Praktikant
08. november 2001 - 19:39 #5
prøv at lade være med at definere dine variabler...
Avatar billede joha0147 Nybegynder
08. november 2001 - 19:52 #6
den siger stadig det samme
Avatar billede sjh Nybegynder
08. november 2001 - 20:07 #7
\'Prøv at ændre Cos_Click() til Command1_Click() ;)

Dim myAngle, mySecant

Private Sub Command1_Click()
  myAngle = 1.3
    mySecant = 1 / Cos(myAngle)
  MsgBox (mySecant)
End Sub
Avatar billede joha0147 Nybegynder
08. november 2001 - 20:28 #8
jaw jeg har en god nyhed: DET VIRKER!!!! lol hvor er det godt! Men nu er jeg i tvivl om hvorfor! Men det var da jeg ændrede cos_click()
til Command1_click() så derfor får sjh mine point!

Tak for al hjælp 
Avatar billede sjh Nybegynder
08. november 2001 - 22:54 #9
selv tak ;)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
41 min siden Måned og år på graf Af mort1 i Excel
I dag 12:28 2 diske Af dcedata1977 i Andet hardware
I dag 12:06 Ekstra til TV 2 : "Tilkøb" + "TV2 Ude" Af Ikke-ekspert i Fjernsyn & projektorer
I dag 10:20 ASP classic kopiere database fil på server Af bsn i ASP
I går 15:04 Kan Medie Player overspille en CD ? - Hvordan Af Ikke-ekspert i Musik & videoafspillere
White papers
Flere white papers »