| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Stammgast
Anmeldungsdatum: 12.02.2006
Beiträge: 10
Wohnort: Berlin
|
 Verfasst am: 13.02.2006, 20:51 Titel: File Not found. .bi |
 |
|
Ja ich bins schon wieder. Ich versteh folgendes nicht. Ich schreibe
'$include: 'win\user32.bi' <--- ist ja nix falsch geschrieben oder?
Und der Sagt mir: File Not found. Das macht er übrigens mit allen .bi datein.
Habe die Zweitneuste Version von FB (also die vor dieser neuen Beta Version) 
_________________
visit www.simet.de.vu (at the moment under Construction) |
|
| Nach oben |
|
 |
jb
Anmeldungsdatum: 14.01.2005
Beiträge: 2010
|
| Verfasst am: 13.02.2006, 20:53 Titel: |
|
|
Du musst schauen, ob das Unterberzeichnis win besteht.
Könnte sein, dass alle .BIs unter /inc zu finden sind..
Benutz mal die Forensuche, das Thema gabs hier schonmal 
jb |
|
| Nach oben |
|
|
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 13.02.2006, 21:00 Titel: |
|
|
win\user32.bi gibt's wirklich nicht.
inc muss/darf nicht angeben werden.
Hier einige Aufrufe die bei mir gehen:
#include once "win/winsock.bi"
#include once "GL/gl.bi"
#include once "GL/glu.bi"
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight |
|
| Nach oben |
|
|
Stammgast
Anmeldungsdatum: 12.02.2006
Beiträge: 10
Wohnort: Berlin
|
| Verfasst am: 13.02.2006, 21:17 Titel: |
|
|
ja gut aber wie soll ich folgendes realsieren (Auszug aus den WinAPI Toturial):
| Code: | 'Hier wollen wir Funktionen aus der User32.Dll nutzen, daher folgender Code:
'(nicht so einfach zu erklären, aber die nächste Zeile ist kein Kommentar!!!)
'$include: 'win\user32.bi'
Dim Erg As Integer
'wir nutzen die Winapi Funktion MessageBox () und werten das Ergebnis der Abfrage aus
Erg = MessageBox (0,"Hast du das Listing verstanden?",_
"Frage", MB_ICONQUESTION or MB_YESNO )
' wenn auf Ja (Yes) Button gedrückt wurde
If Erg = IDYES Then
' gib diesen Text aus
MessageBox (0,"Dann kannst du ja weiter machen. ",_
"schön..",MB_OK )
' sonst
Else
' gib diesen Text aus
MessageBox (0,"Nein? Dann ließ es doch nochmal...",_
"Hmpff..",MB_ICONWARNING Or MB_OK )
' Ende der Abfrage.
End If
|
_________________
visit www.simet.de.vu (at the moment under Construction) |
|
| Nach oben |
|
|
Michael712
aka anfänger, programmierer
Anmeldungsdatum: 26.03.2005
Beiträge: 1593
|
| Verfasst am: 13.02.2006, 21:35 Titel: |
|
|
Hallo.
Mach einfach "#include windows.bi" und dann hast du fast alle winapi header drin. Für wirklich alle musst du davor noch "#define WIN_INCLUDEALL" schreiben.
Michael
_________________
| Code: | | #include "signatur.bi" |
|
|
| Nach oben |
|
|
Stammgast
Anmeldungsdatum: 12.02.2006
Beiträge: 10
Wohnort: Berlin
|
| Verfasst am: 13.02.2006, 21:53 Titel: |
|
|
Oder mal was anderes. Wie kann ich ein Windows Fenster erscheinen Lassen wo ein Text steht und wo man auf OK klicken kann (Message Box). 
_________________
visit www.simet.de.vu (at the moment under Construction) |
|
| Nach oben |
|
|
MisterD
Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt
|
|
| Nach oben |
|
|
Mecki
Igel
Anmeldungsdatum: 10.09.2004
Beiträge: 985
Wohnort: Niederbayern
|
|
| Nach oben |
|
|
Stammgast
Anmeldungsdatum: 12.02.2006
Beiträge: 10
Wohnort: Berlin
|
| Verfasst am: 13.02.2006, 22:41 Titel: |
|
|
Thx danke es geht 
_________________
visit www.simet.de.vu (at the moment under Construction) |
|
| Nach oben |
|
|
volta
Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192
|
| Verfasst am: 15.02.2006, 13:48 Titel: |
|
|
Hi Stammgast,
den zitierte Auszug aus den WinAPI Toturial hatte ich leider noch nicht auf die neuen bi-Dateien von FB 0.15 umgeschrieben.
Wenn ich wieder auf die Seite komme (freeBASIC.de ist gerade umgezogene) werde ich es ändern:
Hier vorab:
| Code: | 'auf freeBASIC ab 0.15b umgeschrieben.
'Hier wollen wir Funktionen aus Windows (API) nutzen, daher folgender Code:
#include once "windows.bi"
Dim Erg As Integer
'wir nutzen die Winapi Funktion MessageBox () und werten das Ergebnis der Abfrage aus
Erg = MessageBox (0,"Hast du das Listing verstanden?", "Frage", MB_ICONQUESTION or MB_YESNO)
' wenn auf Ja (Yes) Button gedrückt wurde
If Erg = IDYES Then
' gib diesen Text aus
MessageBox (0,"Dann kannst du ja weiter machen. ", "schön..",MB_OK)
' sonst
Else
' gib diesen Text aus
MessageBox (0,"Nein? Dann ließ es doch nochmal...", "Hmpff..",MB_ICONWARNING Or MB_OK)
' Ende der Abfrage.
End If |
Die notwendigen Änderungen sind dir ja schon von netten Forumsteilnehmern genannt worden. 
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater. |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
