Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Bild aus Zwischenablage holen
Gehe zu Seite Zurück  1, 2
 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Eternal_pain



Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA

BeitragVerfasst am: 26.08.2007, 18:32    Titel: Antworten mit Zitat

So, ein kleiner Test, sicher verbesserungswuerdig happy aber funktioniert so...

Das Programm erstellt die Bilder
Code:

''Programm A
'' Erstellt zufaellige 100x100 BMP uns speichert sie in temptest1.bmp

#Include "vbcompat.bi"

Randomize Timer
Screen 18,32

Dim TestImage as any ptr=ImageCreate(100,100)
Dim FileStatus as Integer
 Dim xs as integer
 Dim ys as integer
 Dim xe as integer
 Dim ye as integer
 Dim rc as integer

Do
   
    for l as integer=0 to 100
            xs=int(rnd*100)
            ys=int(rnd*100)
            xe=int(rnd*100)
            ye=int(rnd*100)
            rc=int(rnd*&hFFFFFF)
            line TestImage,(xs,ys)-(xe,ye),rc
     Next l
   
    Do
        FileStatus=FileExists("temptest1.bmp")
        If FileStatus=0 Then BSave "temptest1.bmp",TestImage
        If Multikey(1) Then exit Do
        sleep(50)
    Loop while FileStatus
Sleep(50)
Loop until multikey (1)
ImageDestroy(TestImage)



Das Program laedt die erstellten Bilder und zeigt sie an
Code:

#include "vbcompat.bi"
Screen 18,32

do
   
    If FileExists("temptest1.bmp") Then
        BLoad "temptest1.bmp"
        Kill "temptest1.bmp"
    End If
   
Sleep (50)
loop until multikey(1)

_________________
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen MSN Messenger
volta



Anmeldungsdatum: 04.05.2005
Beiträge: 1876
Wohnort: D59192

BeitragVerfasst am: 26.08.2007, 18:50    Titel: Antworten mit Zitat

atari hat Folgendes geschrieben:
wie könnte man ein mit "imagecreate" erstellten speicherbereich von 2 verschieden laufenden freebasicprogrammen benutzen?

mfg
da geht mir ein Licht auf!
Hallo Peter....
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
atari
gesperrt


Anmeldungsdatum: 26.08.2007
Beiträge: 144

BeitragVerfasst am: 26.08.2007, 18:56    Titel: Antworten mit Zitat

hallo volta, grüss dich !

freebasic muss mal wieder ran ! und opengl !

mfg peter
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
atari
gesperrt


Anmeldungsdatum: 26.08.2007
Beiträge: 144

BeitragVerfasst am: 26.08.2007, 19:07    Titel: Antworten mit Zitat

also Eternal_pain der test ist gut.

kann jetzt mit dem imagecreate-bereich auch texte übertragen.

ein ganz neues terrain was man jetzt betritt.

dieses clipboard-gebastele brauche ich nicht mehr, die quälerei hat ein ende .

lächeln zwinkern

mfg


Zuletzt bearbeitet von atari am 26.08.2007, 20:43, insgesamt einmal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
ytwinky



Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch

BeitragVerfasst am: 26.08.2007, 19:14    Titel: Antworten mit Zitat

[Ignorier-Modus]
_________________
v1ctor hat Folgendes geschrieben:
Yeah, i like INPUT$(n) as much as PRINT USING..
..also ungefähr so, wie ich GOTO..
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
Mao



Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1

BeitragVerfasst am: 26.08.2007, 20:08    Titel: Antworten mit Zitat

Hm, immer wenn sich jmd. mit so offensichtlichen (oder völlig sinnlosen) anmeldet, denk ich unweigerlich an dich. durchgeknallt
Und wie sich zeigt, nicht zu Unrecht. peinlich
_________________
Eine handvoll Glück reicht nie für zwei.
--
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Gehe zu Seite Zurück  1, 2
Seite 2 von 2

 
Gehe zu:  
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.

 Impressum :: Datenschutz