Mehrere Werte in einem einzigen Wert speichern und auch wieder auslesen

ErfinderDesRades · 28. Januar 2014, 14:42

@xtts02:: Warum so kompliziert, und so untypisiert? probierma:

VB.NET-Quellcode

<Flags()> Enum Wochentage
Kein = 0
Montag = 1
Dienstag = 2
Mittwoch = 4
Donnerstag = 8
Freitag = 16
Samstag = 32
Sonntag = 64
End Enum
Dim _AlleWochenTage As Wochentage() = DirectCast([Enum].GetValues(GetType(Wochentage)), Wochentage())
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles Me.Load
Me.ListBox1.DataSource = _AlleWochenTage
Me.ListBox1.SelectionMode = SelectionMode.MultiSimple
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim wts = Wochentage.Kein
For Each indx As Integer In ListBox1.SelectedIndices
wts = wts Or _AlleWochenTage(indx)
Next
MessageBox.Show(wts.ToString)
End Sub

probiers aus - enum.Tostring ist nett!

xtts02 · 28. Januar 2014, 14:44

ErfinderDesRades schrieb:

Warum so kompliziert

In der Tat. Danke für die Korrektur.

dive26 · 28. Januar 2014, 14:55

Danke VB1963,

Dein Beispiel hat mir den Knoten gelöst und meine Frage eigentlich schon beantwortet. Ich habs für mich mal ausprobiert und es funktioniert. Vom Prinzip her wusste ich, dass es eine logische Verknüpfung sein muss, aber an das einfache "AND" hatte ich dabei nicht gedacht. Vielen Dank für den Tipp. Und sorry Leute, dass ich nicht auf jede Eurer Posts reagiert habe.

VB.NET-Quellcode

<Flags()>
Public Enum WochenTage
No = 0
Montag = 1
Dienstag = 2
Mittwoch = 4
Donnerstag = 8
Freitag = 16
Samstag = 32
Sonntag = 64
End Enum
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Test Enumeration
Dim WochenTagSammlungWert As Integer = 12 'Mittwoch Donnerstag
If (WochenTagSammlungWert And WochenTage.Montag) = WochenTage.Montag Then MsgBox("montag")
If (WochenTagSammlungWert And WochenTage.Dienstag) = WochenTage.Dienstag Then MsgBox("Dienstag")
If (WochenTagSammlungWert And WochenTage.Mittwoch) = WochenTage.Mittwoch Then MsgBox("Mittwoch")
If (WochenTagSammlungWert And WochenTage.Donnerstag) = WochenTage.Donnerstag Then MsgBox("Donnerstag")
If (WochenTagSammlungWert And WochenTage.Freitag) = WochenTage.Freitag Then MsgBox("Freitag")
If (WochenTagSammlungWert And WochenTage.Samstag) = WochenTage.Samstag Then MsgBox("Samstag")
If (WochenTagSammlungWert And WochenTage.Sonntag) = WochenTage.Sonntag Then MsgBox("Sonntag")
End Sub

Jedoch werde ich dennoch bei meiner allerersten "If-Then" Version bleiben, da der Code nicht wirklich weniger ist und ich mir diese ENUM-Geschichte zudem noch spare.

LG Roland

sonne75 · 28. Januar 2014, 15:01

dive26 schrieb:

Jedoch werde ich dennoch bei meiner allerersten "If-Then" Version bleiben, da der Code nicht wirklich weniger ist und ich mir diese ENUM-Geschichte zudem noch spare.

Wenn du meine "irrelevante" Frage beantworten würdest, was du mit den Werten weiter machst, dann könntest du einen Tipp bekommen, wie du diese ganzen If-Abfragen sparen kannst. Denn 7 Mal MessageBox willst du ja wohl nicht rausgeben...

affrop · 28. Januar 2014, 15:03

da du was mathematisches wolltest hier mal ein ansatz:

die matrix folgt der von dir numerisch vorgegebenen reihenentwicklung. je mehr tage deine zahl bilden desto größer wird die matrix.
über determinanten kannst du die koeffizienten-matrix lösen.
a,b,c,d,e,f,g sind die anzahl der tage die anderen werte sind deine codierungswerte für die wochentage.

ErfinderDesRades · 28. Januar 2014, 15:07

prophetisch, odr?

sonne75 schrieb:

Aber gut, du bist ja bekannt dafür, dass du gar keine Lösungen haben willst...

naja - wenigstens haben die anneren was davon gehabt.
Es gibt übrigens eine einfachere Möglichkeiten als "And", aber das mögen die nachgucken, die sich für interessieren.

dive26 · 28. Januar 2014, 15:09

MsgBox deswegen:

dive26 schrieb:

'Test Enumeration

Auch wenn ich immer noch der Meinung bin, dass es für die Frage nicht relevant ist wie die Daten eingegeben werden und was danach mit denen geschieht, habe ich Dir mal einen Screenshot erstellt, wo Du siehst, wie man die Daten eingibt und wie diese BEIM EINGEBEN angezeigt werden.

Die Daten selbst werden später in einer eigenen (NOCH ZU SCHREIBENDEN) Routine auf den aktuellen Tag angewandt. Happy-Hour Funktion müsste jedem der schon mal in einem Lokal war etwas sagen.

Zum Beispiel wird jeden Montag und Dienstag zwischen 20:00 und 22:30 auf die Preisebene X umgeschaltet (sprich ein spezieller - meist günstigerer Preis berechnet). In meiner Anwendung wird es beliebig viele Preisebenen geben und beliebig viele Happy-Hour Zeitkonstellationen.

Ich hoffe, ich konnte Deine Frage nach dem Warum beantworten.

LG Roland

PS:

Es gibt übrigens eine einfachere Möglichkeiten als "And", aber das mögen die nachgucken, die sich für interessieren.

Ich übersetze einmal wie ich Deine Posts auffasse, ErfinderdesReases: Man stellt hier eine Frage um zu lernen. Deine Antwort ist "lerne zuerst" ?!
Ich kann mir schon vorstellen, dass es einem Profi nerven muss wenn immer wieder die selben "doofen" Fragen gestellt werden ... aber solche Antworten nützen ja keinem.

sonne75 · 28. Januar 2014, 15:19

ErfinderDesRades schrieb:

prophetisch, odr?

Er hat sich bei den meisten seiner Threads so benommen

Einfach Erfahrungswert.

@dive26
Die Frage ist, warum willst du überhaupt alle If-Abfragen einzeln auswerten?

dive26 · 28. Januar 2014, 15:23

@dive26

Die Frage ist, warum willst du überhaupt alle If-Abfragen einzeln auswerten?

Sorry, die Frage verstehe ich nicht ganz.

Er hat sich bei den meisten seiner Threads so benommen Einfach Erfahrungswert.

Entschuldige, ich hinterfrage einerseits sehr viel und möchte aber andererseits immer rasch zu einer Lösung meines Problems kommen. Dass ich dann wieder den (für mich) einfacheren Weg einschlage, anstatt die programmiertechnisch korrekte Lösung zu wählen wird mitunter von einigen hier als unhöflich aufgefasst. Auch die österreichische Schreibweise die ich oft an den Tag lege liest sich vielleicht negativer als es eigentlich sein soll. Wenn das so ist, dann bitte ich vielmals um Entschuldigung.

Ich habe ganz zu Beginn auch schon einmal geschrieben, dass ich kein Profiprogarmmierer bin und dass ich den einfachsten Weg gehe, solange das Endergebnis das ist was ich mir vorstelle. Dass sehr viele Harangehensweisen von mir noch an das VB6 angelehnt sind und bei einigen von Euch das Grauen aufsteigen lässt, dass gebe ich natürlich zu.

RodFromGermany · 28. Januar 2014, 15:25

dive26 schrieb:

an das einfache "AND" hatte ich dabei nicht gedacht.

Du meinst wahrscheinlich Or.

sonne75 · 28. Januar 2014, 15:26

Mir sagt dein Screenshot nicht viel in Bezug auf meine Frage, was du mit dem Wissen, welche Tage in dieser Zahl gespeichert wurden, genau anfangen willst (im Code). Was soll dann passieren? Wird ein Flag "günstiger Preis" damit aktiviert, wenn heutiger Tag ein günstiger Tag ist? Dann brauchst du doch überhaupt nicht alle Tage zu überprüfen, sondern nur, ob heutiger Tag in diesem Gesamtwert enthalten ist.
Es ist dann genau eine If-Abfrage, wenn ja, günstiger Preis, wenn nein, nicht. Oder?

@RodFromGermany
Da er VB1963 angesprochen hat, der ihm als Einziger "And" für Abfrage geliefert hat (alle anderen haben ihm die Zusammensetzung vom Wert geliefert, den hat er aber schon, er will ihn auseinandernehmen), würde ich sagen, dass er "And" meint - zur Abfrage, ob heutiger Tag enthalten ist.

dive26 · 28. Januar 2014, 15:36

@Sonne,

Der Gastronom soll verschiedene Zeiten definieren können in denen dann auf eine andere Preisebene umgeschaltet wird.

Du kannst Dir das so vorstellen:

1. Tischbuchung wird geöffnet
2. Es wird abgefragt (eigene Routine), ob zu diesem Zeitpunkt gerade eine Happy-Hour Zeit aktiv ist und welche Preisebene aktiviert werden soll.
3. Das Programm nimmt für diese Buchung also den in Punkt 2 definierten Preisbereich

So kann der Gastronom z.B. einstellen, dass am Montag und Dienstag jeweils in der Zeit zwischen 20:00 und 22:00 die Preisebene XY aktiviert werden soll, in der definiert ist, dass alle Preise einer bestimmten Artikelgruppe um 10% günstiger sind.

.. oder dass alle Preise für alle Artikel, ausgenommen eine bestimmte Artikelgruppe den beim Artikel hinterlegten Preis 2 verwendet ..

Also sehr viele Kombinationsmöglichkeiten.

Wird ein Flag "günstiger Preis" damit aktiviert

So in der Art, nur viel Umfangreicher. Es wird ein (meist) günsigerer Preis anhand von Preisebenendefinitionen aktiviert. In den Preisebenendefinitionen ist hinterlegt auf welche Artikel sich die Preismodifikation bezieht und ob einer der bei den Artikel hinterlegten Fixpreise (Preis1-6) oder ein auf Basis Prozentminderung (Preis1-Prozente) bezieht.

Ich hoffe ich konnte es verständlich erklären.

LG Roland

sonne75 · 28. Januar 2014, 15:41

Der Wochentag wirkt sich aber wohl genau so aus, wie ich sagte: wenn heute enthalten, dann Flag für weitere Bearbeitung setzen. Somit brauchst du exakt eine Abfrage, ob heute enthalten ist. Für weitere Sachen brauchst du andere Daten, welche Uhrzeiten enthalten sind und ob JETZT da drin enthalten ist. Usw. Immer das gleiche Schema, aber für diese Frage nach Wochentag brauchst du keine 7 Abfragen.

dive26 · 28. Januar 2014, 15:45

Immer das gleiche Schema, aber für diese Frage nach Wochentag brauchst du keine 7 Abfragen.

Das ist richtig.

Die 7 If-Abfragen brauchte ich nur um die Anzeige in der Spalte "Wochentag" zu generieren. (siehe Screenshot)

VB1963 · 28. Januar 2014, 15:45

sonne75 schrieb:

dass er "And" meint - zur Abfrage, ob ausgewählter Tag enthalten ist.

Ja ohne die Enums-Geschichte meinte ich das...
Zum Nachgucken eines ausgewählten Tages bietet sich bei den Enum's die .HasFlag() Funktion dann an...

sonne75 · 28. Januar 2014, 15:52

dive26 schrieb:

um die Anzeige in der Spalte "Wochentag" zu generieren.

Und da wurde dir doch schon mehrmals gezeigt, dass es in deinem Enum schon enthalten ist:

VB.NET-Quellcode

Dim wts = DirectCast(65, Wochentage)
MessageBox.Show(wts.ToString)

Da müsste jetzt Montag und Sonntag rauskommen...

affrop · 28. Januar 2014, 15:58

mir ist allerdings immer noch nicht klar, warum du die tage verschlüsseln willst?!?!?
wenn ich das richtig sehe können ja maximal 7 tage ausgewählt werden. wenn du die sieben tage einfach als string übergibts erzeugt das noch lange kein speicherproblem.
oder du umgehst das ganze und machst ne select case-abfrage für die jeweiligen checkboxes.

VB.NET-Quellcode

Select Case CheckBox1.Checked
Case True
...
Case False
...
End Select

und wegen deinen mobilen geräten:

auf dem mobilteil lass den kellner nur die tischnummer und die bestellten artikel eingeben. dann wird noch die aktuelle systemzeit und tag ermittelt. und nur dass wird an das hauptgerät gesendet und dann dort geprüft ob happy-hour ist oder nicht. und wenn der gast bezahlöen will, ruft gas mobile gerät einfach nur den rechnungsbetrag aus dem hauptgerät ab.
das ist nicht mahl 1MB an daten, was da umherschwirrt und ggf. temporär auf dem mobilen gerät gespeichert werden muss.

dive26 · 28. Januar 2014, 16:45

Hallo Leute,

vielen Dank für Eure zahlreichen Anregungen. Ich habe es jetzt komplett anders gelöst, also keinen Sammelwert mehr. Für jeden Tag habe ich ein eigenes Boolean Datenfeld erstellt. Wenn man alle (geplanten) Funktionen global betrachte ist das nun der einfachste Mittelweg.

Hier der Code für die Deklaration der Structur, die Anzeige der Daten im Listview und eine Funktion die ermittelt ob gerade Happy-Hour ist oder nicht. Der Rückgabewert ist 0 wenn keine Happy-Hour ist oder anderfalls einen Integerwert, der die zu verwendende Preisebene angibt.

Spoiler anzeigen

VB.NET-Quellcode

<Serializable()> _
Public Structure HappyHourStructure
Dim Nummer As Integer
Dim Preisebene As Integer
Dim Startzeit As DateTime
Dim Endzeit As DateTime
Dim Montag As Boolean
Dim Dienstag As Boolean
Dim Mittwoch As Boolean
Dim Donnerstag As Boolean
Dim Freitag As Boolean
Dim Samstag As Boolean
Dim Sonntag As Boolean
Dim aktiv As Boolean
End Structure
Public MaxHappyHourAnzahl As Integer = 101
Public HappyHour(MaxHappyHourAnzahl) As HappyHourStructure 'maximale Artikelanzahl fix 100
Public TempHappyHourStruct As HappyHourStructure
<Serializable()> _
Public Structure ArtikelGruppenStructure
Dim Nummer As String
Dim Name As String
Dim Zusatzinfo As String
Dim Steuersatz As Double
Dim Bondrucker As String
Dim Lieferant As String
End Structure
Public MaxArtikelGruppenEver As Long = 200
Public Artikelgruppen(MaxArtikelGruppenEver) As ArtikelGruppenStructure 'maximale Artikelanzahl in der Entwicklungszeit 10001
Public TempArtikelgruppenStruct As ArtikelGruppenStructure
''' <summary>
''' Übergibt 0 wenn keine Happy-Hour besteht und falls doch die Nummer der Preisebene auf die umgeschaltet werden soll
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function IstGeradeHappyHour() As Integer
Dim TagStimmtSchon As Boolean
For i As Integer = 1 To MaxHappyHourAnzahl - 1
If HappyHour(i).aktiv = True Then
TagStimmtSchon = False
If HappyHour(i).Montag = True And Now.DayOfWeek = 1 Then TagStimmtSchon = True
If HappyHour(i).Dienstag = True And Now.DayOfWeek = 2 Then TagStimmtSchon = True
If HappyHour(i).Mittwoch = True And Now.DayOfWeek = 3 Then TagStimmtSchon = True
If HappyHour(i).Donnerstag = True And Now.DayOfWeek = 4 Then TagStimmtSchon = True
If HappyHour(i).Freitag = True And Now.DayOfWeek = 5 Then TagStimmtSchon = True
If HappyHour(i).Samstag = True And Now.DayOfWeek = 6 Then TagStimmtSchon = True
If HappyHour(i).Sonntag = True And Now.DayOfWeek = 7 Then TagStimmtSchon = True
If Now.ToShortTimeString >= HappyHour(1).Startzeit And _
Now.ToShortTimeString <= HappyHour(1).Endzeit And TagStimmtSchon = True Then
'Happy-Hour aktiv
Return HappyHour(i).Preisebene
Exit For
End If
End If
Next i
Return 0
End Function
''' <summary>
''' Zeigt die Daten der einzelnen Happy-Hour Zeiteinstellungen im Listview an
''' </summary>
''' <remarks></remarks>
Public Sub ZeigeHappyHourInListView()
With ListView_HappyHour
.Clear()
.Columns.Add("ID", 30, HorizontalAlignment.Center)
.Columns.Add("Wochentag", 110, HorizontalAlignment.Left)
.Columns.Add("Startzeit", 60, HorizontalAlignment.Center)
.Columns.Add("Endzeit", 60, HorizontalAlignment.Center)
.Columns.Add("Preisebene", 130, HorizontalAlignment.Left)
.Columns.Add("aktiv", 40, HorizontalAlignment.Center)
End With
ListView_HappyHour.Items.Clear()
For i As Integer = 1 To MaxHappyHourAnzahl - 1
With ListView_HappyHour.Items.Add(HappyHour(i).Nummer)
.UseItemStyleForSubItems = False
If HappyHour(i).Preisebene <> 0 Then
Dim WochenTag As String = ""
If HappyHour(i).Montag = True Then WochenTag += "Mo "
If HappyHour(i).Dienstag = True Then WochenTag += "Di "
If HappyHour(i).Mittwoch = True Then WochenTag += "Mi "
If HappyHour(i).Donnerstag = True Then WochenTag += "Do "
If HappyHour(i).Freitag = True Then WochenTag += "Fr "
If HappyHour(i).Samstag = True Then WochenTag += "Sa "
If HappyHour(i).Sonntag = True Then WochenTag += "So "
WochenTag = Trim(WochenTag)
.SubItems.Add(WochenTag)
.SubItems.Add(HappyHour(i).Startzeit)
.SubItems.Add(HappyHour(i).Endzeit)
.SubItems.Add(Preisebenen(HappyHour(i).Preisebene).Bezeichnung)
.SubItems.Add(BoolToJaNein(HappyHour(i).aktiv))
Else
.SubItems.Add("")
.SubItems.Add("")
.SubItems.Add("")
.SubItems.Add("")
.SubItems.Add("")
End If
End With
Next i
End Sub

Danke und LG
Roland

Sirrus · 28. Januar 2014, 16:52

dive26 schrieb:

Der Gastronom soll verschiedene Zeiten definieren können in denen dann auf eine andere Preisebene umgeschaltet wird.

Du kannst Dir das so vorstellen:

1. Tischbuchung wird geöffnet
2. Es wird abgefragt (eigene Routine), ob zu diesem Zeitpunkt gerade eine Happy-Hour Zeit aktiv ist und welche Preisebene aktiviert werden soll.
3. Das Programm nimmt für diese Buchung also den in Punkt 2 definierten Preisbereich

So kann der Gastronom z.B. einstellen, dass am Montag und Dienstag jeweils in der Zeit zwischen 20:00 und 22:00 die Preisebene XY aktiviert werden soll, in der definiert ist, dass alle Preise einer bestimmten Artikelgruppe um 10% günstiger sind.

.. oder dass alle Preise für alle Artikel, ausgenommen eine bestimmte Artikelgruppe den beim Artikel hinterlegten Preis 2 verwendet ..

Also sehr viele Kombinationsmöglichkeiten.

Also für solch eine Anwendung brauchst du die Wochentage nicht zu kodieren um die ausgewählten Tage in einem Byte zu speichern. Eine Kodierung ist nur dann sinnvoll, wenn der durch die Kodierung eingesparte Speicherplatz deutlich größer ist, als der Platz den dein Programm zum codieren/dekodieren benötigt.
Das ist so ähnlich wie ein Programm, das ich mir kürzlich heruntergeladen hatte: Das selbstextrahierende Zip war größer als das entpackte Programm

Artentus · 28. Januar 2014, 16:58

Du sagst, du willsts dir nicht unnötig schwer machen und deshalb auf Enums verzichten. Du erziehlst aber gerade das exakte Gegenteil, es gibt nichts einfacheres als Enums, schon gar nicht das. Zudem sind Enums schneller, weil sie auf Basisoperationen deiner CPU basieren und sie sind bis zu 32 (64) Werten ohne Mehraufwand beliebig erweiterbar.

Mehrere Werte in einem einzigen Wert speichern und auch wieder auslesen

VB.NET-Quellcode

ErfinderDesRades schrieb:

VB.NET-Quellcode

dive26 schrieb:

sonne75 schrieb:

dive26 schrieb:

ErfinderDesRades schrieb:

dive26 schrieb:

sonne75 schrieb:

dive26 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

dive26 schrieb:

Benutzer online 1

Ähnliche Themen

7 Benutzer haben hier geschrieben