Udregning af trekanter med vb6

Det ville vi sagtens kunne hvis du kunne forklare hvad du skal have hjælp til

Hej.

Du må få kildekoden til mit gamle VB3-program, hvis det har interesse,

http://jkfsoft.dk/trekant.htm

M.v.h.  Jørn

Hej igen jeg har 12 formler jeg skal regne med de er her
det er (tan . sin . cos)

A TAN * B = X
A / B = 2ND TAN-1 = X
A / B SIN = X
A / B = 2ND COS-1 = X
A TAN * B = X
A / B = 2ND SIN-1 =X
A COS * B = X
A / B = 2ND SIN-1 =X
A SIN * B = X
A / B = 2ND COS-1 =X
A / B COS = X

Jeg har lavet programmet men jeg mangler at sætte koder ind
jeg kunde også mail programmet vis der var en der ville hjælpe med at få
dem sat ind rigtig

Hej igen jeg har 12 formler jeg skal regne med de er her
det er (tan . sin . cos)

A TAN * B = X
A / B = 2ND TAN-1 = X
A / B SIN = X
A / B = 2ND COS-1 = X
A TAN * B = X
A / B = 2ND SIN-1 =X
A COS * B = X
A / B = 2ND SIN-1 =X
A SIN * B = X
A / B = 2ND COS-1 =X
A / B COS = X

Jeg har lavet programmet men jeg mangler at sætte koder ind
jeg kunde også mail programmet vis der var en der ville hjælpe med at få
dem sat ind rigtig

Jeg forstår ikek hvad du skal have hjælp til

Sin, cos og Tan findes jo i VB, så det er bare at bruge dem...

Og dine formler ser da underlige ud - hvad betyder f.eks.

A SIN * B = X

Betyder det:

1) ASIN(B) = X (ASIN=ArcusSinus)
2) A * SIN(B) = X
3) SIN(A) * B = X
4) Måske betyder det noget helt andet?

Tror lige du skal bruge 3 minutter på at stille formlerne rigtigt op først. Dit spørgsmål kan ikke besvares som det står her

Hej martin moth

jeg er nybegynder i vb hvis jeg bruger en lommeregner og bruger formlen jeg har
kan jeg godt regne det ud
men vis jeg bruger samme formel i vb virker det ikke
skal det stilles op på en anden måde

eks
(A) er en vinkel i en trekant og (B) er en side på trekanten  (X) er det mål jeg skal regne ud

A=30 grader
B=40 mm


30 Tangent * 40 =  23.09

Jeg kunne mail programmet til dig
hvis du har tid til at kikke på det

med venlig hilsen
mvhansen

Der er ikke noget der hedder
30 Tangent * 40 =  23.09
Det hedder
Tangent(30) * 40

Og grunden til at du får forkert resultat er sikkert at du regner i grader og VB regner i radianer

Forholdet mellem grader og radianer er Pi/180, så det forhold kan du bruge for at omregne fra VB's radianer til grader

Altså:

Dim A As Double
Dim B As Double
Dim X As Double

A = InputBox("Intast vinkel i grader")
A = A / 180 * 3.14
B = InputBox("Intast længde i mm")
X = B * Tan(A)
MsgBox "resultet er " & X

Du bør nok sætte en mere præcis værdi for Pi ind

Jeg fatter ikke en meter

Jeg fatter ikke en meter

Så må du nok erkende, at trekantregning er for komplekst for dig - eller forklare hvad det er du ikek fatter!

Ovenstående svar beregner præcis det du har givet i eksemplet - du kan jo prøve copy-paste og køre koden

Et andet eksempel - den første formel du skriver:

Label6.Caption = Format (Val(Text1.Text)Tan * Val(Text2.Text), "#0.000")

Skal hedde:

Label6.Caption = Format (Tan(Val(Text1.Text)/180*3.14) * Val(Text2.Text), "#0.000")

Hej martin moth

ok det virker

kan jeg få dig til at vise hvordan de andre formler skal se ud
så jeg kan copy dem ind
jeg har selv prøvet men det virker ikke
på forhånd tak

kan man ikke bruge dette eks til de andre koder
det virker vær gang

Dim A As Double
Dim B As Double
Dim X As Double

A = InputBox("Intast vinkel i grader")
A = A / 180 * 3.14
B = InputBox("Intast længde i mm")
X = B * Tan(A)
MsgBox "resultet er " & X

Hvordan ser koden  'ianden' ud i vb6

Hej martin moth

jeg har problemer med når jeg skal regne vingelen X 
ud fra to sider
det er koderne i x=
ved du hvordan de skal se ud

Private Sub Command6_Click()
A = InputBox("Intast længde (A) i mm")
B = InputBox("Intast længde (B) i mm")
X = A / B  2nd Sin-1
End Sub

Hej martin moth

jeg har problemer med når jeg skal regne vingelen X ud
ud fra to sider
det er koderne i X= jeg mangler
ved du hvordan de skal se ud

Private Sub Command6_Click()
Dim A As Double
Dim B As Double
Dim X As Double

A = InputBox("Intast længde (A) i mm")
B = InputBox("Intast længde (B) i mm")
X = A / B = 2ND SIN-1
MsgBox "resultet er " & X

End Sub

a=4
a^2 = 16 '(i 2. potens)
sqr(a) = 2 '(kvadratrod)

Hvad betyder det du skriver:
X = A / B = 2ND SIN-1 ???

Tror du skal prøve at skrive formlerne som de skal se ud rent matematisk, og ikke som du taster dem ind på en eller anden lommeregner. Matematikken må du selv rode med :o)

EKS
A har en længte på 23,09
B har en længte på 46,18
X Er Vinkelen jeg vil regne ud

23,09/46,18= I anden Sinus = X

Her kan du se formlerne men jeg ved ikke hvordan koderne skal se ud i
vb6

www.forlaget-basis.dk/retvinkletweb.html

Jamen, der er sgu da ikke noget der hedder  "I anden Sinus" - det er rent volapyk.

Og jeg kan ikke se nogle formler i ovenstående link...


Men det er nu helt simpelt, og du burde selv sagtens kunne lave det når jeg nu forklarer følgende en gang til:

Hvis du vil tage sinus, cosinus eller tangens til en vinkel A, skriver du:

Sin(A)
Cos(A)
Tan(A)

Hvis du vil sætte et tal B i 2. potens skriver du

B^2

Kvadratroden til tallet C finder du ved:

Sqr(C)

Jeg ved ikke om du er klar over det, men der er jo forskellige måder at angive vinkler på - der er grader (0-360), radianer (0-2*Pi) og gon (0-400). Ligesom man kan måle den samme afstand i fod, tommer, cencimeter og meter.

Visual basic regner i Radianer, ikke grader!!!!!

Hvis du vil give input til programmet i grader, skal du derfor regne om fra Grader til radianer, før VB kan regne det ud.

F.eks. Hvis du har vinklen A, og den f.eks. er 30 grader, og du vil tage sinus til vinklen:

A_grad = 30 'Vinklens værdi i grader
A_radian = A_Grad / 180 * 3.141592 'Vinklen omregnet til radianer
Resultat = Sin(A_Radian) 'Sinus til vinklen A

Så er det bare at taste dine formler ind i VB, og du er kørende...

Svar

Jeg skal regne vinkelen ud jeg har kun to sider at gøre godt med
så jeg kan ikke sige

A_grad = 30 'Vinklens værdi i grader
A_radian = A_Grad / 180 * 3.141592 'Vinklen omregnet til radianer
Resultat = Sin(A_Radian) 'Sinus til vinklen A

Tager du pis på mig?

Prøv at læs indlægget 13/06-2005 08:50:53. Det viser hvordan du regner med vinkler i VB6, og hvordan du omregner fra grader til radianer, og hvordan du bruger potens.

Så er der oven i købet suppleret med et eksempel, der viser hvordan du kan tage sinus til en vinkel.

Og så siger du at du ikke kan bruge det til noget fordi du har "to sider og skal finde en vinkel"

DET ER ET EKSEMPEL!!!! E K S E M P E L !

Så er det meningen at du SELV - ved egen kraft - skal sætte dig ned, slå op i din formelsamling fra 8. klasse, og finde ud af hvilken formel du vil bruge til præcis dit problem...

Kan du overkomme det? - nu har du fået det hele serveret på et sølvfad, du skal bare taste dine formler ind.

Jeg vil aldrig kunne opstille en formel med de forudsætninger du giver - for HVILKE to sider er det du har - og HVILKEN vinkel skal du finde - og er trekanten retvinklet eller ej? Altsammen en forudsætning for at man kan besvare dit spørgsmål. Men i øvrigt er det ikke et forum for 8. klasses matematik, men for programmering!

Undskyld den halvhårde tone, men hvordan du er kommet til at beskæftige dig med noget, du har _SÅ_ lidt begreb om, kan jeg simpelthen ikke forstå... Og det er lidt irreterende at bruge en masse tid på at skære tingene ud i pap, og at du så stadig ikke fatter en meter af det hele, og afviser det ene svar efter det andet!

Du må Undskyld jeg er nok ikke så god til at forklar hvad det er jeg mener

Jeg forstår udemærket hvad du mener - men dine trekant beregninger må du selv lave. Alternativt forklare præcis hvad du vil - f.eks. "23,09/46,18= I anden Sinus = X" er total sort snak.

Jeg har vist dig hvordan du tager sin, cos, tan, laver potens osv. Hvad mere kan du have brug for?

gfdgdf

gdfgfd