| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Elektronix
Anmeldungsdatum: 29.06.2006
Beiträge: 742
|
 Verfasst am: 27.10.2007, 20:03 Titel: [gelöst] Declare verursacht Fehler |
 |
|
Hallo, Forianer,
Ich habe beschlossen, den Code meines Menysystem etwas professioneller zu gestalten und bin dabei auf einen Fehler gestoßen, den ich nicht verstehe:
Folgender Code: | Code: | Type Win
Frame As String
Filling As String
XPos As Integer
YPos As Integer
Length As Integer
Hight As Integer
TextPos(2) As Integer
Title As String
Text As String
End Type
Dim MainWindow As Win
With MainWindow
.XPos = 1
.YPos = 1
.Length = 80
.Hight = 23
.Title = "Hauptfenster"
.Text = "Dies ist das Hauptfenster"
.Filling = " "
.Frame = Frame1
.TextPos(1) = TextPosX
.TextPos(2) = TextPosY
End With
Declare Sub DrawWin (Win) '<- Hier der erste Fehler
Sub DrawWin (Win) ' <- Hier der zweite Fehler
Do
Loop Until InKey <> ""
End Sub
|
Beim Compilieren mit -lang fb spuckt der Compiler folgende Fehlermeldung aus:
| Zitat: | FbTemp.bas(40) error 136: Default types or suffixes are only valid in -lang deprecated or qb, found ')' in 'Declare Sub DrawWin (Win)'
FbTemp.bas(41) error 136: Default types or suffixes are only valid in -lang deprecated or qb, found ')' in 'Sub DrawWin (Win)' |
obwohl ich doch gar keine Suffixe verwende  . Mit -lang depraced funzt das Prog tatsächlich bis dahin.
Zuletzt bearbeitet von Elektronix am 27.10.2007, 23:05, insgesamt einmal bearbeitet |
|
| Nach oben |
|
 |
stuner
Anmeldungsdatum: 29.06.2006
Beiträge: 45
|
| Verfasst am: 27.10.2007, 20:09 Titel: |
|
|
Du musst einen Typ angeben....
| Code: | Declare Sub DrawWin (MainWindow As win) '<- Hier kommt kein Fehler mehr
Sub DrawWin (MainWindow As win) ' <- Hier auch nicht
|
_________________
MfG Stuner
Zuletzt bearbeitet von stuner am 27.10.2007, 20:09, insgesamt einmal bearbeitet |
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
|
| Nach oben |
|
|
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4699
Wohnort: ~/
|
| Verfasst am: 27.10.2007, 20:09 Titel: |
|
|
Du brauchst ein DECLARE SUB (variable AS datentyp).
(und ich brauche länger zum schreiben als Sebastian  )
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
| Nach oben |
|
|
Elektronix
Anmeldungsdatum: 29.06.2006
Beiträge: 742
|
| Verfasst am: 27.10.2007, 22:32 Titel: |
|
|
Danke für die schnelle Antwort am Wochenende. 
Ich möchte aber die Sub DrawWindow zum Zeichnen verschiedener Fenster benutzen, nicht nur für das Hauptfenster. Wenn ich schon in der Deklaration MainWindow als Parameter festlege, ist die gesamte Sub auf MainWindow festgelegt. Das macht eigentlich keinen Sinn, weil ich dann für jeden Fenstertyp eine eigene Sub mit dem gleichen Inhalt schreiben müßte. |
|
| Nach oben |
|
|
Sebastian
Administrator
Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
|
| Verfasst am: 27.10.2007, 22:41 Titel: |
|
|
| Elektronix hat Folgendes geschrieben: | | Ich möchte aber die Sub DrawWindow zum Zeichnen verschiedener Fenster benutzen, nicht nur für das Hauptfenster. Wenn ich schon in der Deklaration MainWindow als Parameter festlege, ist die gesamte Sub auf MainWindow festgelegt. Das macht eigentlich keinen Sinn, weil ich dann für jeden Fenstertyp eine eigene Sub mit dem gleichen Inhalt schreiben müßte. |
Ja, dann mach doch sowas wie:
| Code: | DECLARE SUB DrawWin (IrgendeinFenster AS Win) '<- Hier der erste Fehler
SUB DrawWin (IrgendeinFenster AS Win) ' <- Hier der zweite Fehler
PRINT IrgendeinFenster.Eigenschaft
PSET (100,100), IrgendeinFenster.Wasauchimmer
DO
LOOP UNTIL INKEY <> ""
END SUB |
Damit ist die Sub nicht auf ein etwaiges MainWindow o.ä. festgelegt. Wie die Variable letztlich heißt, die du übergibst, spielt bei der Deklaration oben keine Rolle. Du kannst ja auch eine Variable namens Banane übergeben, wenn sie denn vom Typ Win ist.
_________________
Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen! |
|
| Nach oben |
|
|
Elektronix
Anmeldungsdatum: 29.06.2006
Beiträge: 742
|
| Verfasst am: 27.10.2007, 23:07 Titel: |
|
|
| Danke für den Tip, Sebastian. Ich habe es jetzt anders gelöst: Ich übergebe der Funktion nicht mehr das MainWindow direkt, sondern einen Pointer darauf. Den Pointer kann ich beliebig auf ein anderes Fenster setzen. |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
