Hallo,

ich habe eine Programm Routine mit mehreren Do - Loop Schleifen programmiert.

Bisher lief alles einwandfrei, nun habe ich nach einer Änderung (leider vergessen was das war, es waren viele..) beim Neustart des Programms die Meldung bekommen "Fehler beim Kompilieren: Loop ohne Do". Wenn ich aber im Code nach oben gehe, dann steht da brav das erforderliche Do. Nun weiß ich aus Power Basic, dass in der Schleife eventuell eine If - Then Schleife nicht korrekt ist, also alle If-Then Schleifen mit Strichen verbunden - alles o.K., nur das Programm will immer noch nicht. Also die anderen Do Loop Schleifen in gleicher Weise getestet - alles o.K.. - Was kann das sein?

Ich habe noch ein weiteres Problem gehabt. Beim Programm-Start wurde moniert, dass im Modul 1 das Projekt-Formular XXX.vbP fehlerhaft sei, der Code wurde angezeigt - alles rot. Dieses Modul war aber bisher nicht vorhanden, aber der Inhalt der Projekt-Datei XXX.vbp ist brav im Code weiterhin vorhanden. Ich habe deshalb das Modul 1 aus dem Programm mit Anklicken und rechte Maustaste entfernt.

Beim Vergleich mit früheren Versionen des Programms kann ich in der Projekt-Datei XXX.vbp keinen Unterschied entdecken, nur die Anordnung der Programmeteile ist etwas geändert (es war eine sehr alte Version). Wo finde ich Hinweise, was dieses Modul tut (der Hinweis bei msdn-microsoft.. war etwas knapp, der sagt mir nix)? Kann ich im Inhalt etwas ändern (beispielsweise Reihenfolgen der Programm-Formulare (spielt die Reihenfolge eine Rolle - außer bei der Übersichtlichkeit beim Kontrollieren?)), nach welchen Kriterien muss ich vorgehen?

Ich habe keinen Quell-Code beigefügt, weil ich das verfahren noch nicht durchschaue..

Mein Wissen über VB 6 ist eher knapp, ich kam von Power Basic her und habe mir Einiges erklären lassen.

Wer kann mir auf die Sprünge helfen, ich bin arg im Druck.

Herzlichen Dank im Voraus.

speidergutt


Verschoben nach sonstige Problemstellungen
-Artentus

dersuchende schrieb:

Was kann das sein?

Möglicherweise hast Du 2 Block-Begrenzer getauscht, von:
nach

Danke für den Tipp, Programmator, an das hätte ich nicht gedacht..

aber das ist es nicht, die If-Then Schleifen enden innerhalb der Do-Loop Schleifen.

Speidergutt

Mach dir eine Kopie von dem Code und lösche einen Do-Loop Block nach dem Anderen. So sollte am Ende das "Fehlerhafte" übrig bleiben.

dersuchende schrieb:

Ich habe keinen Quell-Code beigefügt, weil ich das verfahren noch nicht durchschaue..

Interesse? Bitte VB-Tag benutzen - aber richtig

Außerdem: if-schleife.de/

Hallo Schamash,

Danke für den Tipp: ich habe den ersten Do-Loop Strang auskommentiert, nun wäre der Fehler eingekreist, am Ende dieses Codeteils stand auch die Fehlermeldung.

ABER: ich kann in dem Teil keinen Fehler entdecken: alle If-Then sind in sich geschlossen, das Do steht am Anfang und am Schluss Loop, ich habe auch Do und Loop jeweils gelöscht und an gleicher Stelle nochmals eingetippt, beide Worte stehen exakt 13 Stellen vom Rand (weil ich dachte, vielleicht moniert das Programm unterschiedliche Randabstände..).

Ich bin weiter ratlos.

dersuchende

ABER: ich kann in dem Teil keinen Fehler entdecken:

Ich kann da auch keinen Fehler sehen.

@dersuchende
in der .frm gibt es keinen Code.

@dersuchende Jou. Dies ist die VB-Projektdatei, nicht aber die betreffende fehlerhafte.

Tja, da habe ich das Video wohl nicht ganz verstanden..

Ich versuch's mal mit Copy and Paste.
Hat geklappt, hier ist das fragliche Code-Schnipsel:

Do
' Hier wird nur Phase 1 und 2 berechnet, Auffüllen Tasse

' dt = 1 / 10000 ' Normalversion
' dt = 1 / 20 ' Test-Versionen
dt = 1 / 5

n = n + 1
t1 = n * dt

flaeche = lange * quer
lange1 = langex
quer1 = querx

If n > 1 Then
mpunkrlee = 1.2 * 10 ^ (-10) * (windgeschw * 100) ^ 0.78 * (langex * 100) ^ 0.89 * _
(querx * 100) * ((mglache * partdruck * 10 ^ 3) / betemp) ' CGS-System
End If

mla = mla + ms * dt - (mpunkrlee * dt) / 1000
flaechew = mla * 1000 / (rhoflache * hpf) ' 1000 weil hpf in mm
ein = ein + ms * dt
mpunkt = mpunkt + mpunkrlee * dt / 1000

If mla = 0.999 * mpunkt And mla < 1.001 * mpunkt Then
hpfx = mla * 1000 / (rhoflache * flaechew)
flaechew = flaechew
te = t1
Stop
Exit Do
End

If flaechew < flaeche Then
hpfx = mla * 1000 / (rhoflache * flaechew)
If hpfx > 5 Then
hpfx = 5
flaechew = mla * 1000 / (rhoflache * 5)
End If
ElseIf flaechew >= flaeche Then
flaechew = flaeche
hpfx = mla * 1000 / (rhoflache * flaeche)
End If

If t1 < 30 And lachesec >= 30 Then
md30 = md30 + mpunkrlee / 1000 * dt
ElseIf lachesec < 30 And t1 < lachesec Then
md30 = md30 + mpunkrlee / 1000 * dt
End If

If flaechew < flaeche Then ' Anfang, Tassenboden nicht bedeckt, Quadrat
a1 = 1
B = 0.5 * (lange + quer)
c = -(mla + ms * dt / 2 - mpunkrlee * 1 / 1000) / (rhoflache * hpf)
a = ((-B + Sqr(B ^ 2 - 4 * a1 * c)) / (2 * a1))

langex = langex + a
querx = querx + a ' Formeln mit a aus Phase 5
hpfx = mla * 1000 / (rhoflache * flaeche)

ElseIf flaechew = flaeche Then
' Tassenboden ganz bedeckt, Rechteck

querx = quer
langex = lange
hpfx = mla * 1000 / (rhoflache * flaeche)

If hpfx > 0.9999 * hta And hta < 1.0001 * hta Then
' Tasse läuft über, freie Lache,
tv = t1
End If

If hpfx >= hta + 10 Then ' Tasse ist übergelaufen, freie Lache,
hpfx = hta ' Ausstiegskriterium
langex = lange
querx = quer
flaechew = flaeche
Exit Do
End If
End If

If mla < 0.001 And n > 10 Then
flaechew = 0
hpfx = 0
mpunkrlee = mpunkrlee
Exit Do
End If

If t1 > 0.999 * lachesec Then
flaechew = flaechew
mpunkrlee = mpunkrlee
hpfx = hpfw
tv = t1
Exit Do
End If

If (t1 > 10 And t1 < 20) Then
Printer.Print " 1- t1 ="; t1; " tv = "; tv; " mla ="; mla; " md30 ="; md30
Printer.Print " mpunkrlee ="; mpunkrlee; " flaechew ="; flaechew; " hpfx = "; hpfx
End If
Loop


speidergutt

@dersuchende Kannst Du mal alle Variablendeklarationen zu diesem Code posten?
-----
Da ist eine Zuweisung im If-Statement, das ist in Basic nicht möglich.
----
Vor dem Loop ganz unten oder halt an der richtigen Stelle fehlt ein End If.

RodFromGermany schrieb:

Da ist eine Zuweisung im If-Statement, das ist in Basic nicht möglich.

Das ist keine Zuweisung sondern ein normaler Vergleich
Und funktioniert deswegen schon.


lg

fichz schrieb:

normaler Vergleich

Korrekt.
Ich hab da ein C/C++/C#-== erwartet.

dersuchende schrieb:

If mla = 0.999 * mpunkt And mla < 1.001 * mpunkt Then
hpfx = mla * 1000 / (rhoflache * flaechew)
flaechew = flaechew
te = t1
Stop
Exit Do
End

hinter dem "End" muss ein "If" ran ... Dann sollte es doch gehen ...

@Noyne Die Idee hatte ich auch, das ist aber nicht so, weil das End If weiter unten in der Source steht. An die Stelle muss ein Else hin. Dann sollte es gehen (wenn ich den Quellcode richtig gelesen habe, ist schwierig ohne VB-Tag...)

ichduersie schrieb:

weil das End If weiter unten in der Source steht

Ne, ich seh kein End If weiter unten, dass mit einem Else zu tun haben könnte. Das End If weiter unten gehört meiner Meinung nach zu dem vorherigen Else
Ich bleib dabei ... Das müsste End If heißen und nicht nur End

Ich stimme @Nyone zu

siehe "formatierter Code"

Hi an Alle,

Noyne hat recht, ich habe das End an der genannten Stelle (Zeile 31) geistig einfach mit If ergänzt, der PC leider nicht..

Zum Mitlachen:

Meine Frau hat mich auf den Trichter gebracht, obwohhl sie kein VB 6 versteht.. Vier-Augen Prinzip hat doch was für sich..

Herzlichen Dank an alle Mit-Grübler

speidergutt