VB kennt sich einer damit aus

Diskutiere VB kennt sich einer damit aus im Programmierung Forum im Bereich Software Forum; hi leute will in prog coden habe schon eines gemacht was volumen und flächeninhalt rechnet geht super. nun breuchte ich ein rechen code in vb 6...
Status
Für weitere Antworten geschlossen.
E

elvis333

Threadstarter
Dabei seit
30.05.2007
Beiträge
64
hi leute will in prog coden habe schon eines gemacht was volumen und flächeninhalt rechnet geht super.


nun breuchte ich ein rechen code in vb 6

für ein prog was den satz des pytaguras außrechnet (C²=a²+b²)


hat da einer ne ide ?????:cheesy:cheesy
 
automatthias

automatthias

vernunftgeplagt
Dabei seit
21.04.2006
Beiträge
12.125
Abgesehen davon, dass das hier das falsche Forum ist (es gibt extra ein Winboard-Forum zum Thema Programmierung), sehe ich nicht wo das Problem ist.
Variablen a,b,c deklarieren und die Formel hast Du doch schon.
 
B

bagira

Dabei seit
29.06.2006
Beiträge
298
Ort
in Deutschland.
damit gehts:
Dim a As Long
Dim b As Long
Dim c As Long
Dim ab As Long


a = 10
b = 10

c = 14.143
ab = a ^ 2 + b ^ 2

If ab = c ^ 2 Then
MsgBox "Passt"
Else
MsgBox "Passt nicht"
End If
 
Mike

Mike

i7-6700HQ
Dabei seit
21.09.2006
Beiträge
24.387
Ort
Outdoor oder vorm Rechner
Statt LONG als Variablentyp solltest du allerdings SINGLE oder DOUBLE nehmen.

LONG kann mit Dezimalstellen nicht umgehen. Solltest du also Ausgangswerte mit Dezimalstellen haben bringt LONG falsche Ergebnisse
 
E

elvis333

Threadstarter
Dabei seit
30.05.2007
Beiträge
64
Cool thx
 
Cargo

Cargo

Dabei seit
18.11.2005
Beiträge
108
Ort
Wolfserwartungsgebiet
Hallo *,

evtl. kann man die Seitenlängen auch in Textfeldern oder mit der Inputbox abfragen.

Gruß Cargo
 
E

elvis333

Threadstarter
Dabei seit
30.05.2007
Beiträge
64
hir ist irgend wo nen fetter fehler drinne schauts euch mal an bitte
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
P = a * a + b * b = c
Ergebnis = "Fläche: " + Str(P) + Chr$(13) + Chr$(10)
MsgBox Ergebnis, 64, "Ergebnis"
End Sub
 
Mike

Mike

i7-6700HQ
Dabei seit
21.09.2006
Beiträge
24.387
Ort
Outdoor oder vorm Rechner
so gehörts:

Private Sub Command1_Click()
a = CDbl(Text1.text)
b = CDbl(Text2.text)
P = a ^ 2 + b ^ 2
MsgBox "Ergebnis: " & P
End Sub

-----

Du darfst/sollst nicht VAL nehmen sondern mit CDBL den Text gleich in Double umwandeln lassen, falls Dezimale vorkommen.

Hochrechnen tut man nicht mit A*A sondern A^2

-cu-
 
E

elvis333

Threadstarter
Dabei seit
30.05.2007
Beiträge
64
wo ist der unterschit und die bedeuutung von CDbl und Val ist?????
 
E

elvis333

Threadstarter
Dabei seit
30.05.2007
Beiträge
64
hä?! kein plan was de meinst :( sry
 
Bullayer

Bullayer

Schwergewicht
Dabei seit
19.07.2006
Beiträge
24.171
Ort
DE-RLP-COC
@elvis333, Dir scheinen schon die Grundlagen der Programmierung fremd zu sein. Wie willst Du dann anständige Programme schreiben, wenn die Basis schon Löcher aufweist. Am besten, du lernst eine Programmiersprache von Anfang an und fängst nicht mit Programmen an, die deine Kenntnisse überfordern.
 
E

elvis333

Threadstarter
Dabei seit
30.05.2007
Beiträge
64
wie soll ich das lehrnen wen es keine guten tuts gibt??? hä woher wisst ihr das den alles????
 
Zuletzt bearbeitet:
E

elvis333

Threadstarter
Dabei seit
30.05.2007
Beiträge
64
F1 die msdn deitein fehlen kommt bei f1 toll oder
---------------------------
Hilfesystem
---------------------------
Die MSDN-Sammlung existiert nicht. Bitte installieren Sie MSDN erneut.
---------------------------
OK
---------------------------

toll oder
 
Zuletzt bearbeitet:
E

elvis333

Threadstarter
Dabei seit
30.05.2007
Beiträge
64
haben kein vb net zeuch haben vb6
 
E

elvis333

Threadstarter
Dabei seit
30.05.2007
Beiträge
64
seit wan codest du (ihr?)
 
Status
Für weitere Antworten geschlossen.
Thema:

VB kennt sich einer damit aus

VB kennt sich einer damit aus - Ähnliche Themen

Rapoo 8000M 2,4Ghz Reset: Hallo Winboard Forum, lange ist es her das ich mal Probleme hatte, die ich dank euch immer lösen konnte ;) nun ist es aber wieder soweit. Ich...
Windows Update schlägt dauerhaft fehl: Hi Leute, ich hab ein ziemlich lästiges Problem. Ich kann das Funktionsupdate 1903 und alle darauf folgenden nicht installieren und habe keine...
WLAN weg nach Windows 10 Update auf 1909: So, das Thema mal wieder. Es gibt da ja schon viele Therapievorschläge, aber jetzt habe ich noch nicht den Arzttipp gefunden, der so etwas...
Windows BSOD CLOCK_WATCHDOG_TIMEOUT | Event-ID: 161 --> Ursache: volmgr: Hallo liebe Community, Ich habe leider ein kleines Problem. Ich hatte am 06.10.2020 einen BSOD mit dem Fehlercode COLCK_WATCHDOG_TIMEOUT ich kann...
Microsoft Store: App kann nicht heruntergeladen werden: Hi, ich hab bisher gute Erfahrungen mit dem Community Tab gemacht, deswegen hab ich mich entschlossen hier auch mal eine Frage zu stellen, die...
Oben