Beiträge von VSimon

  • Org01 Aufgabe 8

    Hallo, ich finde irgendwie keinenAnsatz zu frage 8.
    In einem Unternehmen steht die einführung von SAP an. Dies soll im Rahmen eines Projekts erfolgen. Die Geschäftsführung steht nun vor der Frage, ob für die Dauer des Projekts eine eigene Projektorganisation eingerichtet werden soll, deren Mitarbeiter sich aussschliesslich um die Einführung von SAP kümmern.
    Welche Proejktorganisationsform empfelen sie der Unternehmensführung.


    Da ich auch noch nie in einem Unternehmen war das mit SAP arbeitet,
    bin ich bei der Aufgabe völlig ratlos.

  • VBDN 06C Anwendungswentwickler

    Also es soll am ende in der Konsolenanwendung einfach nur die einträge so angezeigt werden.

    Zeit: 10:24:36
    Zeit: 11:14:36
    Zei: 11:17:11

    das ganze soll in etwa so wie oben aussehen, einige Teile vov code sind vorgegeben wie z.B

    Dim z As New Zeit(10, 24, 36)
    z.Anzeigen()
    z.Addieren(50,     Zeiteinheit.Minute)
    z.Anzeigen()
    z.Addieren(155,     Zeiteinheit.Sekunde)
    z.Anzeigen()

    und

    PrivateSub zuZeit(ByVal Sekunde AsInteger)
    m_sek = Sekunde     Mod 60
    m_min = (Sekunde \ 60)     Mod 60
    m_std = Sekunde \ 60 * 60

    Timespan und so sachen sollen noch nicht verwendet werden, allerdings raffe ich absolut nicht wie ich die teile zusammenfüge da auch in den Heften sogut wie garkeine sinnvolle erklärung dazu steht.

  • VBDN 06C Anwendungswentwickler

    Hallo,
    ich versuche mich gerade am Anwendungsentwickler der SGD und hänge schon bei der Einsendeaufgabe von VBDn06
    genau geht es um das Programm das man einsenden muss, hat das jemand gelöst und kann sich mit mir austauschen?

    Also ich war soweit aber nach ewiger zeit hin und her probieren kam ich auch nicht weiter.

    Imports System.Console
    Enum Zeiteinheit As Short
    Stunde = 1
    Minute = 60
    Sekunde = 3600
    End Enum
    Class     Zeit
    Private m_std As Short = 0
    Private m_min As Short = 0
    Private m_sek As Short = 0
    Public Sub New(ByVal Stunde As Short, ByVal Minute As Short, ByVal Sekunde As Short)
    m_std = Stunde
    m_min = Minute
    m_sek = Sekunde
    End Sub
    Sub Anzeigen()
    WriteLine(    "Zeit: {0}:{1}:{2}", m_std, m_min, m_sek)
    End Sub
    Private Function zuSekunden() As Integer
    zuSekunden = CInt(m_std * 3600) + (m_min * 60) + (m_sek)
    End Function
    Sub Addieren(ByVal Anzahl As Short, ByVal Einheit As Zeiteinheit)
    Select Case Einheit
    Case Zeiteinheit.Sekunde
    m_sek += Anzahl
    Case Zeiteinheit.Minute
    m_min += Anzahl
    Case Zeiteinheit.Stunde
    m_std += Anzahl
    End Select
    End Sub
    Private Sub zuZeit(ByVal Sekunde As Integer)
    m_sek = Sekunde     Mod 60
    m_min = (Sekunde \ 60)     Mod 60
    m_std = Sekunde \ 60 * 60
    End Sub
    End     Class
    Module     abc
    Sub Main()
    　
    Dim z As New Zeit(10, 24, 36)
    z.Anzeigen()
    z.Addieren(50,     Zeiteinheit.Minute)
    z.Anzeigen()
    z.Addieren(155,     Zeiteinheit.Sekunde)
    z.Anzeigen()
    ReadLine()
    End Sub
    End     Module
    　
    wäre nett wenn mir jemand eine PM schicken könnte was ich falsch gemacht habe, vielen dank