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:

PlgBlt in Freebasic nutzen.

 
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
arduno



Anmeldungsdatum: 12.05.2011
Beiträge: 252

BeitragVerfasst am: 25.11.2013, 14:01    Titel: PlgBlt in Freebasic nutzen. Antworten mit Zitat

Hallo, guten Tag.
Ich möchte bitte mal diese Routine benutzen:

Code:
Declare Function PlgBlt Lib "gdi32.dll" ( _
         ByVal hdcDest As Long, _
         lpPoint As POINTAPI, _
         ByVal hdcSrc As Long, _
         ByVal nXSrc As Long, _
         ByVal nYSrc As Long, _
         ByVal nWidth As Long, _
         ByVal nHeight As Long, _
         ByVal hbmMask As Long, _
         ByVal xMask As Long, _
         ByVal yMask As Long) As Long


Ich habe :
Code:
scr_auto=ImageCreate(100,100)       
src_auto=ImageCreate(100,100) 

Wie bringe ich die beiden Images in die Function als hSrc As Dword, hDest As Dword?

Wie wird bitte diese Function nach Freebasic umgesetzt :
Code:

Function RotateImage(winkel As Single, hSrc As Dword, hDest As Dword) As Long
    Dim PlgPts(0 To 2) As PointAPI
    Local XCenter, YCenter As Long

    XCenter = 149 : YCenter = 149
'   newx = XCenter + (x - XCenter) * Cos(theta) - (y - YCenter) * Sin(theta)
'   newy = YCenter + (x - XCenter) * Sin(theta) + (y - YCenter) * Cos(theta)
    PlgPts(0).X = XCenter + (0   - XCenter) * Cos(theta) - (0   - YCenter) * Sin(theta)  'upper-left in target
    PlgPts(0).Y = YCenter + (0   - XCenter) * Sin(theta) + (0   - YCenter) * Cos(theta)
    PlgPts(1).X = XCenter + (299 - XCenter) * Cos(theta) - (0   - YCenter) * Sin(theta)  'upper-right in target
    PlgPts(1).Y = YCenter + (299 - XCenter) * Sin(theta) + (0   - YCenter) * Cos(theta)
    PlgPts(2).X = XCenter + (0   - XCenter) * Cos(theta) - (299 - YCenter) * Sin(theta)  'lower left in target
    PlgPts(2).Y = YCenter + (0   - XCenter) * Sin(theta) + (299 - YCenter) * Cos(theta)

    PlgBlt(hDest, PlgPts(0), hSrc, 0, 0, 300, 300, 0&, 0, 0)  ' Draw rotated image
End Function


Ich möchte bitte einmal wissen, wie man so etwas in Freebasic machen kann.

Danke.

Gruss
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
grindstone



Anmeldungsdatum: 03.10.2010
Beiträge: 1208
Wohnort: Ruhrpott

BeitragVerfasst am: 25.11.2013, 23:24    Titel: Antworten mit Zitat

LONG = Integer (32 bit vorzeichenbehaftet)
DWORD = UInteger (32 bit ohne Vorzeichen)

Die freeBasic - Hilfe ist da ein nichtendenwollender Quell des Wissens, einfach mal nachlesen unter Datentypen und Deklarationen.

Gruß
grindstone
_________________
For ein halbes Jahr wuste ich nich mahl wie man Proggramira schreibt. Jetzt bin ich einen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden
arduno



Anmeldungsdatum: 12.05.2011
Beiträge: 252

BeitragVerfasst am: 26.11.2013, 17:44    Titel: Antworten mit Zitat

hdcDest vom Imagecreate...., darum geht es mir hauptsächlich....wie ich die erzeuge....
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
Seite 1 von 1

 
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