Das deutsche QBasic- und FreeBASIC-Forum

[Revilo]

Hallo Leute,
vielen Dank für eure aufmunternden Worte.
Bei diesem Verständnis, macht das Lernen wieder Spaß.

Bei der Gestaltung von Zellen/Variablen mit selbstdefiniertem Datentyp tue ich mich allerdings
immer noch sehr schwer, gerade was die Indizierung betrifft.
Das habe ich noch immer nicht so richtig verstanden.

Vielleicht wird mein Problem anschaulicher, wenn ich es mal anhand eines konkreten Beispiels darlege.

Also:
Ich möchte eine Variable namens „Zelle“ mit einem selbst definierten Datentyp versehen.
Dafür würde ich den Type-Befahl verwenden, etwa wie folgt:

Type ZellType
Nr as integer Nummer der Zelle
z as integer Zeile der Zelle (lasse ihre Notwendigkeit erst mal offen)
s as integer Spalte der Zelle (lasse ihreNotwendigkeit erst mal offen)
w as integer gegebener bzw. im Programmablauf ermittelter Wert der Zelle
...t as integer Turm auf dieser Zelle
Hier liegt mein Problem:
Als Analogie möge ein Aufgang in einem 9 - stöckigem Haus dienen.
Nr ist die Nummer des Aufgangs, von denen es insgesamt 81 gibt.
w soll bedeuten, daß in diesem Turm die Wohung in der w.-ten Etage
bereits bewohnt ist.
Alle anderen Etagen (außer w) sind von diesem Mieter also nicht bewohnt.
Müssen somit für Ihn ausgeschlossen werden.
Daher muß dort also –w gelten, weil er dort eben nicht wohnt.
t muß also mind. 9 Einträge ermöglichen (einen tatsächlichen und acht
unmögliche), die aber alle gleichzeitig verwaltet werden müssen.
Schließlich kann man einem weiteren Interessenten ja keine bereits belegte
Wohnung zuweisen.
Ist in diesem Aufgang nur noch eine einzige Wohnung frei,
muß ein Interessent eben genau diese nehmen.
Sind alle Wohnungen belegt, kann es in diesem Aufgang keinen weiteren
„Mieter“ mehr geben.

End Type
Dim shared Zelle(---------------------------------) as ZellType.

Was muß für (------------------------------------) als Indizes geschrieben werden, damit das ganze wunschgemäß und sauber funktioniert?

Hallo nemored,
das war die Anfrage, die eigentlich bei dir ankommen sollte. Gott weiß, warum es nicht funktionierte. Offenbar ist dieser ganze digitale Kram doch nicht so sicher und störungsfrei, wie es den Nutzern „weißgemacht“ wird.

Gruß Revilo

[Revilo]

Hallo Leute,
hier noch mal eine Nachfrage zum Handling.

Wofür steht ganz unten die Schaltfläche "Los"? Welchen Zweck hat sie?

Gruß Revilo

[grindstone]

Das bezieht sich auf die Einstellung daneben "Beiträge der letzten Zeit anzeigen:". Wenn du dort etwas anderes ausgewählt hast als die Standardvorgabe, kannst du mit dem "Los" die Ansicht aktualisieren.

Gruß
grindstone
_________________
For ein halbes Jahr wuste ich nich mahl wie man Proggramira schreibt. Jetzt bin ich einen!

[nemored]

[Revilo]

Hallo nemored,
vielen Dank für deine schnelle Antwort.
Meine ultimative Zielstellung ist es, ein Sudoku zu lösen.
Normalerweise genieße ich den Reiz des Knobelns und mache es von Hand, mit Stift und Papier.
Meine Herausforderung ist es, dies meinem „Robby“ beizubringen.
Damit er mir auf Anfrage die Lösung liefern kann, aber eben auch nur auf persönlicher Anfrage.

Ein klassisches Sudoku besteht bekanntlich aus 81 Zellen.
Jede Zelle steht in einer von 9 mögl. Zeilen (1 - 9).
Jede Zelle steht in einer von 9 mögl. Spalten (1 - 9).
Jede Zelle gehört einem bestimmtem 3x3-Block an, je nach dem, wo sie konkret steht.
Es muß also auch 9 mögl. Blöcke geben. In einem davon steht du jeweilige Zelle.

Jede Zelle kann nur einen festen, gegebenen oder im Programmablauf ermittelten positiven Wert w
annehmen. Diese Werte w können ebenfalls nur zwischen 1 und 9 liegen.

Wenn ein fester Wert w in irgend einer Zelle(i, j) eingetragen wurde, heißt das automatisch:
In der Zeile i darf es kein weiteres w mehr geben.
In der Spalte j darf es auch kein weiteres w mehr geben.
In den Zellen des Blocks in dem Zelle(i, j) steht, darf es ebenfalls kein weiteres w mehr geben.

Das heißt also:
Bei jedem Eintrag eines festen, gesicherten, positven Wertes w in eine beliebige Zelle(i, j)
muß dieser Wert w für alle relevanten Zellen ausgeschlossen werden, die mit i, j ,oder dem Block um (i, j) zu tun haben.

Gelöst wäre das Sudoku also letztlich erst, wenn jede Zelle ihren eigenen, individuellen, positiven
Wert w hat.

Wie du mir nahelegtest, könnte man das also über ein entsprechend mehrdimensioniertes Feld lösen. Etwa nach dem Motto:
Dim Shared Zelle(Index1, Index2, Index3, Index4 ....) as integer. Leuchtet mir völlig ein.
Hier mögen z.B. Index1 für die Zeile, Index2 für die Spalte, Index3 für den Wert und Index4 für den
Block stehen.

Was ist aber, wenn ich bei der Indizierung andere Prämissen setzen möchte, je nach dem, was mir als wichtiger erscheint?
Etwa so: Index1 für den Wert, Index2 für die Spalte, Index3 für den Block und Index4 für die Zeile?
Dann könnte ich eine Zelle vom Syntax her genauso definieren
Dim Shared Zelle(Index1, Index2, Index3, Index4 ....) as integer.

Offenbar gibt es also einen allgemeinen Definitions-Syntax, aber mit mehreren möglichen
Index-Zuordnungen. Wie unterscheide ich sauber zwischen ihnen?

Jede beliebige Index-Zuordnung stellt bei generell gleichem Definitions-Syntax schließlich jedes mal einen anderen Sachverhalt dar. Im ersten Fall wird mit dem ersten Index die Zeile angesprochen, im zweiten Fall der jeweilige Wert. Das ist ja wohl kaum dasselbe.
Genau deswegen hielt ich einen selbstdefinierten Datentyp der Variablen „Zelle“ für zweckmäßig, wenn nicht sogar für zwingend notwendig oder denke ich dabei immer noch zu kompliziert bzw. umständlich?

Mit netten Grüßen Revilo

[nemored]

Welcher Index wofür steht, musst du für dich selbst festlegen und merken (bzw. ggf. im Quelltext als Kommentar notieren). Allerdings weiß ich nicht, woher die vielen Dimensionen kommen sollen.
Das klassische Sudoku hat genau 81 Felder von denen jedes eine von 9 Zahlen beinhalten kann. Daher reicht ein Feld mit 9x9x9 Einträgen vollkommen aus (oder 9x9x10, wenn man den letztendlich eindeutig berechneten Wert gesondert speichern will). Zu überlegen wäre, sich auf ein 9x9-Feld zu beschränken und die Belegungsinformationen in die TYPE-Daten zu schreiben - z. B. über diese Struktur:

[Revilo]

Hallo nemored,
vielen Dank für deine Antwort. Ich konnte vieles von dir lernen.

Zum Syntax mit „Type“ (eigener Datentyp):
'------------------------------------------------------
Du schreibst in dem übermittelten Code „Type Eintrag“, was ja offenbar ausreicht.
Ich hätte in dieser Zeile geschrieben: „Type EintragType“ , weil ich bisher glaubte, es würde so
zum korrekten Syntax gehören. (So steht es zumindest in der Fachliteratur).
Aber ist ja offenbar nicht so.
Besonders interessant fand ich, daß innerhalb eines Type-Befehls offenbar doch eine Indizierung umsetzbar ist. Sh. Zeile: „moeglichkeit(9) as integer“, eben für 9 verschiedene Einträge.
Das ist praktisch genau die „Etage“, die ich in meinem bildlichen Vergleich meinte.
Das war eines meiner „Sorgenkinder“.
Wie unterscheidest du hier zwischen „ noch moeglich“ und „nicht mehr moeglich“?
Ich würde das etwa so machen:
Steht in der „Etage (x)“ , also bei moeglichkeit(x) einer Zelle(i, j) eine 0, so ist der Wert „X“ dort noch möglich, weil eben noch nicht vergeben.

Ist in der „Etage(x)“ besagter Zelle(i, j) der Wert „X“ nicht mehr möglich, weil schon irgendwo in der Zeile i oder Spalte j ermittelt, steht statt der „0“ eben ein „minus X“, also < 0.

Zur Indizierung einer Zelle:
'---------------------------------
Ich habe dabei einfach zu kompliziert gedacht. Kein Wunder, wenn einem ein Problem dann auch als kompliziert erscheint. Du hast völlig Recht. Drei Indizes reichen allemal aus.
Also entweder:
Dim shared Zelle(1 to 9, 1 to 9, 1 to 9) as integer.

Oder mit nur 2 Indizes:
Dim shared Zelle(1 to 9, 1 to 9) as Eintrag.

Hierzu habe ich nochmal eine kleine Nachfrage:
Angenommen ich möchte die Zelle(2, 3) dahingehend überprüfen, ob dort noch eine 7 möglich ist.
Das würde ich etwa wie folgt machen:
IF Zelle(2, 3).moeglichkeit(7) = 0 then[/b]
print „Ja , 7 ist noch möglich“
ELSE 'also für < 0
print „Nein, 7 ist nicht mehr möglich“
END IF
Wäre das vom Syntax her erst mal korrekt, oder ist mir trotzdem noch ein Fehler unterlaufen?
Bei einem eventuellen Fehler bräuchte ich gar nicht erst zu versuchen, ob Qbasic damit klarkommt.
Also hinsichtlich des Syntaxes muß ich absolut sicher sein, daß er fachlich „sauber“ ist.
Und dann wird sich ja zeigen, ob Qbasic „meckert“ oder nicht.

Mit nettem Gruß

[nemored]

[Revilo]

Hallo nemored,

ich habe den von dir vorgeschlagenen Syntax:
TYPE Eintrag
wert as integer
moeglichkeit(9) as integer
END TYPE

mal ausprobiert.

Leider „meckert“ Qbasic dabei.
Das „as“ wird farblich hervorgehoben, und dann erscheint die
Fehlermeldung:
Erwartet: Ende-der-Anweisung. (Mit bei Aufruf der Hilfe kaum wirklich
helfenden Hinweisen).
So funktioniert es offenbar also nicht. Erfolgsmäßig bin ich also immer
noch bei „Null“.
Hast du irgend eine Idee, wie man das trotzdem „stricken“ kann, damit Qbasic es akzeptiert?

Gruß Revilo

[nemored]

Wahrscheinlich so herum:

[Revilo]

Hallo nemored,
da ich FreeBasic nicht installiert habe muß ich mich leider auf QBasic beschränken.

Deinen neuen Vorschlag werde ich auf jeden Fall ausprobieren, um zu sehen, wie Qbasic damit umgeht.

Das gehört zwar jetzt nicht unbedingt zum Thema, aber du solltest es zumindest wissen.
Offenbar gibt es in diesem Forum zwei verschiedene Wege, mit dir in Kontakt zu treten. Dieser, wo es offenbar funktioniert, aber auch einen anderen. In Ihm lautete deine zuletzt gesendete Antwort:
"Nein, nichts angekommen". Das nenne ich mal "Zugang 1".
Meine darauf erfolgten Mails landeten aber hier, also quasi im funktionierenden "Zugang 2", obwohl sie eigentlich für den "Zugang 1" als Antwort auf dein "Nein , nichts angekommen" gedacht waren.
Zum Glück, wie sich inzwischen herausgestellt hat.

Irgendwie muß ich bei "Zugang 1" also etwas anders gemacht haben
als bei "Zugang 2". Es muß also ein irgendwie unterschiedliches "Handling" gegeben haben. Aber ich habe keine Ahnung, worin sich beide unterscheiden. Mal kommt meine Mail bei dir an, mal landet sie quasi in einer "Sackgasse".
Solange mir dieser Unterschied nicht klar ist, kann ich mir nie sicher sein, ob meine Mail (auch diese) wirklich ankommt, und wenn ja, wo.
Momentan kommt mir das Ganze noch sehr schleierhaft vor.
Fast wie ein Roulett-Spiel oder ein Münzwurf.

Mit netten Grüßen

[nemored]

Dazu kann ich jetzt leider nichts sagen, weil ich nicht weiß, woran es gescheitert ist. Es gibt einmal das "normale" Forum - wenn du über "Antwort erstellen" eine Nachricht schreibst, kann sie jeder lesen. Dann gibt es noch die private Nachricht (PN). Diese ist dann nur für den Angeschriebenen lesbar. Die PN vom Ende letzten Jahres ist bei mir angekommen, neuere allerdings nicht.

Wenn du eine PN geschrieben hast, die nicht angekommen ist, vermute ich erst einmal, dass du vergessen hast, sie abzusenden (das ist schon öfters mal wem passiert). Wenn du übrigens zu deinen Nachrichten gehst, hast du dort die Bereiche "Posteingang" (das, was andere dir geschickt haben), "Gesendete Nachrichten" (Nachrichten, die du verschickt hast und die der Adressat bereits gelesen hat), "Postausgang" (Nachrichten, du du verschickt hast, die aber noch nicht gelesen wurden) und "Archiv" (bisher habe ich hier noch keine Notwendigkeit gesehen, Nachrichten zu archivieren). Im Postausgang könntest du beispielsweise kontrollieren, ob deine Nachricht wirklich verschickt wurde.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.