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
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
26/0813:28 Findes der en brugsanvisning til : "ONKYO Stereo Casette - Tape Deck - R1" Af Ikke-ekspert i Musik & videoafspillere
24/0820:07 Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker
24/0811:24 Hvor kan jeg finde hjælp til at flytte fra min gamle Samsung Flip4 til min nye Samsung Galaxy S24 Af vbr i Apps til Android
24/0811:16 problem med mailbesked Af Pestilensen i Excel
White papers
Flere white papers »