 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
arduno
Anmeldungsdatum: 12.05.2011
Beiträge: 252
|
 Verfasst am: 18.10.2014, 14:20 Titel: Ausgabe von Daten auf 2. Screen |
 |
|
Hallo, guten Tag. Ich lese hier über eine Textmenü Daten ein von einem File:
Get #dnr1,,daten
Nun möchte bitte ich die Daten nicht auf meinem Screen ausprinten sondern auf einen anderen Screen. Ich möchte nicht , das mein Textmenü zertsört wird.
Wie kann bitte ich den Printscreen in den Screenres mit einrichten?
Danke.
Gruss
| Code: |
#Define WIN_INCLUDEALL
#Include "windows.bi"
#Include "fbgfx.bi"
SCREENRES 480, 320, 32
Declare Function file_getname( ByVal hWnd As HWND ) As String
Declare Sub datei_laden()
Declare Sub byte_text()
Declare Sub text_byte()
Dim Shared As HWND hWnd
Dim Shared As String datei_komplett,datei_endung,datei
Dim Shared As Integer laenge,laenge1,laenge2
DIM Shared As INTEGER dnr1,dnr2
Dim Shared As ubyte daten
Dim Shared As UShort ergebnis
dnr1=freefile
Width 480/8, 320/16
PAINT (0, 0), &hf0f0f0
Color &hff0000
DRAW STRING (5, 10), "1 = Datei laden"
Draw STRING (5, 25), "2 = Byte > Text"
Draw STRING (5, 40), "3 = Text > Byte"
draw STRING (5, 55), "4 = Ende"
anfang:
ergebnis = GetKey
If ergebnis=49 Then
datei_laden
draw STRING (5, 70),"Datei : "+datei_komplett
ElseIf ergebnis=50 Then
byte_text()
draw STRING (5, 90),""
draw STRING (5, 90),"Datei : "+datei+" umgewandelt Byte>Text "
ElseIf ergebnis=51 Then
text_byte()
draw STRING (5, 90),""
draw STRING (5, 90),"Datei : "+datei+" umgewandelt Text>Byte "
ElseIf ergebnis=52 Then
GoTo ende
EndIf
Sleep 100
GoTo anfang
ende:
End
Sub text_byte()
End Sub
Sub byte_text()
OPEN datei_komplett FOR Binary As #dnr1
DO UNTIL EOF(dnr1)
Get #dnr1,,daten
loop
Close #dnr1
End Sub
Sub datei_laden()
datei_komplett = file_getname(hWnd)
laenge = InStrRev(datei_komplett, "\")
datei_endung = Mid(datei_komplett, laenge+1)
laenge1=Len(datei_endung)
datei=Mid(datei_endung,1,laenge1-4)
End Sub
Function file_getname( ByVal hWnd As HWND ) As String
Dim ofn As OPENFILENAME
Dim filename As ZString * MAX_PATH+1
With ofn
.lStructSize = SizeOf( OPENFILENAME )
.hwndOwner = hWnd
.hInstance = GetModuleHandle( NULL )
.lpstrFilter = StrPtr( !"All Files" )
.lpstrCustomFilter = NULL
.nMaxCustFilter = 0
.nFilterIndex = 1
.lpstrFile = @filename
.nMaxFile = SizeOf( filename )
.lpstrFileTitle = NULL
.nMaxFileTitle = 0
.lpstrInitialDir = NULL
.lpstrTitle = @"File Open Test"
.Flags = OFN_EXPLORER Or OFN_FILEMUSTEXIST Or OFN_PATHMUSTEXIST
.nFileOffset = 0
.nFileExtension = 0
.lpstrDefExt = NULL
.lCustData = 0
.lpfnHook = NULL
.lpTemplateName = NULL
End With
If( GetOpenFileName( @ofn ) = FALSE ) Then
Return ""
Else
Return filename
End If
End Function
|
Zuletzt bearbeitet von arduno am 18.10.2014, 15:59, insgesamt einmal bearbeitet |
|
| Nach oben |
|
 |
nemored
Anmeldungsdatum: 22.02.2007
Beiträge: 4699
Wohnort: ~/
|
| Verfasst am: 18.10.2014, 14:34 Titel: |
|
|
Ich denke mal, am einfachsten wäre es, die Daten mit OPEN CONS in das Konsolenfenster umzuleiten. SCREENRES öffnet nach wie vor ein einziges Fenster; wenn, dann müsstest du die weiteren Fenster über andere Bibliotheken öffnen und ansteuern.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1. |
|
| Nach oben |
|
|
arduno
Anmeldungsdatum: 12.05.2011
Beiträge: 252
|
| Verfasst am: 18.10.2014, 15:59 Titel: |
|
|
Jup, danke für "Open Cons".
Gruss |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
