Das find ich eine Ausrede. Erklärt ihm doch, wie das funktioniert. Solche Aussagen nerfen mich schon seit beginn des Programmierens. Mein 1. großes Projekt wahr z.B. ne Windows-Ersatz-Oberfläche, die ich aber nie verwendet habe, da diese total unoptimiert war (wobei mir auch jeder abgeraten hat). Wenn aus diesem Projekt ja nichts werden sollte, hat PureBasic4.0 wenigstens in sachen API etwas gelernt. Bei mir kommen auch immer ganz lustige Projekt-Vorschläge, und ich würde Wetten, das 75% der Leute mich wegen dieser Projekte für verückt haten würde. Das beste an diesen Projekte ist, das man sich frei entfalten kann, und ihr solltet im Forum nicht jeden hier zurecheweisen, was er kann, und was er nicht kann (könnte). Jeder sollte mal selbst die grenzen der Programmierung für sich finden. Solche Bemerkungen kann man als "p.s." schreiben, also nur als hinweis.pogi02 hat geschrieben:Also so ein Projekt ist schon ein bisschen zu gross für nen Anfänger ...
Code: Alles auswählen
Event = WaitWindowEvent()
WindowID = EventWindow()
GadgetID = EventGadget()
EventType = EventType()
Select Event
Case #WM_MOUSEMOVE
Screen\MouseX=WindowMouseX(#Window_Main)-Screen\ScrX
Screen\MouseY=WindowMouseY(#Window_Main)-Screen\ScrY
Screen\MouseOnScreen = #False
If Screen\MouseX >=0 And Screen\MouseY>=0
If Screen\MouseX <= Screen\ScrW
If Screen\MouseY <= Screen\ScrH
Screen\MouseOnScreen = #True
NeedsRedraw = #True
EndIf
EndIf
EndIf
Case #WM_LBUTTONDOWN
If Screen\MouseOnScreen = #True
WndMain\LMB = #True
EndIf
Case #WM_LBUTTONUP
WndMain\LMB = #False
If Editor\ActualTool = #Button_Line
If Editor\FirstSelected
Für Doom und Warcraft braucht man ein 3Dimensionales Array, bei Photoshop reicht ein 2Dimensionales, oder?Zaphod hat geschrieben:Solche aussagen kommen halt weil die erfahrenen Programmierer generft sind von fragen wie: "Wie Programmiere ich Doom3 / World of Warcraft / Photoshop?"
Ein Array hat wenig mit 2D & 3D Grafik zu tunK.Putt hat geschrieben:Für Doom und Warcraft braucht man ein 3Dimensionales Array, bei Photoshop reicht ein 2Dimensionales, oder?
Und wie programmiere ich es dann?Deluxe0321 hat geschrieben:Ein Array hat wenig mit 2D & 3D Grafik zu tunK.Putt hat geschrieben:Für Doom und Warcraft braucht man ein 3Dimensionales Array, bei Photoshop reicht ein 2Dimensionales, oder?
Code: Alles auswählen
;************************************************************
;* WinAPI: Fenster erstellen und darin mit GDI zeichnen *
;* ======================================================== *
;* - mit der Maus einen rechteckigen Rahmen ziehen *
;************************************************************
;- Grundlage ist Beispiel aus WinAPI-Einführung von "www.red-inferno.de" und "www.willemer.de"
;- zeichnen im Zweig "WM_MOUSEMOVE"
Global hwnd, rc.RECT, startpt.POINT, endpt.POINT, *dc, returncode.l ;"hwnd" muss global definiert werden
Declare my_Drawframe()
Procedure WndProc(wnd,Message,wParam,lParam)
returncode=0
Select Message
Case #WM_LBUTTONDOWN
; invalidaterect_(hwnd, #null, #true); loescht vorheriges rechteck
startpt\x = lparam & $FFFF
startpt\y = lparam >> 16 & $FFFF
endpt\x = lparam & $FFFF
endpt\y = lparam >> 16 & $FFFF
; Debug Str(startpt\x) + " " +Str(startpt\y)
Case #WM_MOUSEMOVE
; Debug Str(endpt\x) + " " +Str(endpt\y)
If wparam & #MK_LBUTTON ;linke maustaste gedrueckt ?
*DC=GetDC_(hwnd)
my_drawframe()
endpt\x = lparam & $FFFF
endpt\y = lparam >> 16 & $FFFF
my_drawframe()
ReleaseDC_(hwnd,*DC)
EndIf
Case #WM_CLOSE
Debug "WM_CLOSE"
DestroyWindow_(hWnd);
Case #WM_DESTROY
Debug "WM_DESTROY"
; UnregisterClass_(appname,hInstance)
PostQuitMessage_(0)
Default
Returncode = DefWindowProc_(wnd, Message, wParam, lParam)
EndSelect
ProcedureReturn Returncode
EndProcedure
t$="MZ" ;classname
wc.WNDCLASS
wc\cbClsExtra = 0
wc\cbWndExtra = 0
wc\hbrBackground = #COLOR_BACKGROUND
wc\hInstance = hInstance
wc\hIcon = LoadIcon_(0,#IDI_APPLICATION)
wc\hCursor = LoadCursor_(0, #IDC_CROSS)
wc\lpszMenuName = 0
wc\lpszClassName = @t$
wc\lpfnWndProc = @WndProc()
wc\style = #CS_HREDRAW | #CS_VREDRAW
RegisterClass_(@wc)
hwnd = CreateWindowEx_(0,t$,"Zeichnen mit dem GDI",#WS_OVERLAPPEDWINDOW,150,350,600,350,0,0,hInstance,0)
ShowWindow_(hwnd, #SW_SHOWNORMAL)
UpdateWindow_(hwnd)
While GetMessage_(msg.MSG, #Null, 0, 0 )
TranslateMessage_(msg)
DispatchMessage_(msg)
Wend
End
Procedure my_Drawframe()
SetROP2_(*DC,#R2_NOT)
MoveToEx_(*DC,startpt\x,startpt\y,#Null)
LineTo_(*DC,endpt\x,startpt\y)
LineTo_(*DC,endpt\x,endpt\y)
LineTo_(*DC,startpt\x,endpt\y)
LineTo_(*DC,startpt\x,startpt\y)
ProcedureReturn 0
EndProcedure
; IDE Options = PureBasic v4.02 (Windows - x86)
; CursorPosition = 39
; FirstLine = 6
; Folding = -
