Zum Inhalt springen

Elseif im Struktogramm?


Empfohlene Beiträge

Hi!

ich mach grad ein Struktogramm zum üben, allerdings steh ich vor nem problem:

Else-If - wie sieht das in nem struktogramm aus?!

die anweisung wäre in etwa so:


For Bedingung

   If Bedinung

      Anweisung 1 und 2

   Else

      If Bedinung

         If Bedinung

            If Bedinung

               Anweisung 1 und 2

            Else

               Bedinung 3 und 4

            End If

         End If

      ElseIf Bedingung

         Anweisung

      ElseIf Bedingung

         Anweisung 1 und 2

      End If

   End If

Next For   

Naja und unten bei den Else-If komm ich nimmer weiter ;)

Verwende Structorizer.

Link zu diesem Kommentar
Auf anderen Seiten teilen

und nenn ich den dann auch else-if oder wieder nur if?

//edit:

vielleicht kann das mal einer durchsehen auf richtigkeit.

geschrieben in vba für excel. das makro trägt einen wert "H" in leere zellen ein, die tabelle ist ein wochenplan. samstag und sonntag sind grau markiert, hier keine eintragung. feiertage sind ebenfalls grau, auch keine eintragung. die zeilen mit wert a, b, c oder d in spalte 3 erhalten ebenfalls keinen wert. nach einer kalenderwoche wird eine zeile nach unten gesprungen. ist die letzte zeile gefüllt und das blattende noch nicht erreicht, wird oben wieder begonnen.

quelltext:


Public Sub fuellen()

On Error GoTo Err_Handler


Dim lngCalc As Long

Dim i, zeile, spalte As Integer


lngCalc = Application.Calculation

Application.Calculation = xlCalculationManual

Application.ScreenUpdating = False

Application.EnableEvents = False


zeile = ActiveCell.Row

        For spalte = ActiveCell.Column To Cells(10, Columns.Count).End(xlToLeft).Column

            If zeile = Bereich_Ende + 1 Then

                zeile = Bereich_Anfang

                spalte = spalte - 1

            Else

                If Cells(zeile, spalte).Interior.ColorIndex = 2 Then

                    If Cells(zeile, spalte).Value = "" Then

                        If Cells(zeile, 3).Value = "a" Or Cells(zeile, 3).Value = "b" Or Cells(zeile, 3).Value = "c" Or Cells(zeile, 3).Value = "d" Then

                            zeile = zeile + 1

                            spalte = spalte - 1

                        Else

                            Cells(zeile, spalte).Value = "H"

                            Cells(zeile, spalte).Interior.ColorIndex = 41

                            'zeile = zeile + 1     ' Wenn der Hut TÄGLICH wechseln soll, einfach diese Zeile aktivieren

                        End If

                    End If

                ElseIf Weekday(Cells(10, spalte).Value) = vbSunday Then

                    zeile = zeile + 1

                ElseIf Cells(zeile, spalte).Interior.ColorIndex <> 2 And Cells(zeile, spalte).Interior.ColorIndex <> 15 Then

                    zeile = zeile + 1

                    spalte = spalte - 1

                End If

            End If

        Next

Application.Calculation = lngCalc

Application.EnableEvents = True

Application.ScreenUpdating = True

Err_Handler:

   If Err.Number Then MsgBox Err.Description, vbCritical, Err.Number

End Sub

mein diagramm dazu:

subhutfuellenus2.jpg

Bearbeitet von Cleriker
Link zu diesem Kommentar
Auf anderen Seiten teilen

1.geschachteltes if

if(...)

{

...

}else (){

if(){

....

}

}

2. if else

if(...)

{

...

}else if (){

...

}

diese beiden if kommen zu dem gleichen ergebnis ein else if ist nur ein verküsrzte schreib weise von einem geschachtelten if else.

also muss im Struktogramm das if im else fall sein.

mfg

Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...