bitteschön:N_Gnom hat geschrieben:Kann mir jemand eine andere simple exe hier kurz senden?
Zum testen bitte.
http://rghost.net/51228439
bitteschön:N_Gnom hat geschrieben:Kann mir jemand eine andere simple exe hier kurz senden?
Zum testen bitte.
Code: Alles auswählen
#AppName$ = "Font"
#Appversion = 1 : Global AppV$ = StrF(#Appversion/100.0,2)
#ScreenWidth = 1024
#ScreenHeight = 768
; Please font from here:
; www.myfont.de/download.php?winfont=zeichen-hundert&type=zip
MP_Graphics3D (#ScreenWidth, #ScreenHeight,0,1) ; Erstelle ein WindowsFenster mit 3D Funktion #Window = 0
SetWindowTitle(0, #AppName$+" v"+AppV$ )
camera=MP_CreateCamera() ; Kamera erstellen
light= MP_CreateLight(1) ; Es werde Licht
OpenLibrary(0,"gdi32.dll")
; Entspricht CatchFont
fontid=CallFunction(0,"AddFontMemResourceEx",?font,?end_font-?font,0,@"1")
CloseLibrary(0)
mesh1 = MP_Create3DText ("Zeichen Hundert", "MP 3D Engine") ; Erstes Mesh erstellen aus Schriftart Times
; Entspricht FreeCatchFont
RemoveFontMemResourceEx_(fontid)
MP_PositionMesh (mesh1, -MP_MeshGetWidth(mesh1)/4 ,-MP_MeshGetHeight(mesh1)/2,-MP_MeshGetDepth(mesh1)/2) ; Mittelpunkt des Meshs erzeugen
If CreateImage(0, 255, 255) ; Etwas Farbe selber erzeugen
MP_CreateImageColored(0,0,RGB($FF,$FF,$00),RGB($FF,$FF,$FF),RGB($FF,$00,$00),RGB($00,$00,$FF)) ;
MP_EntitySetTexture (mesh1, MP_ImageToTexture(0))
FreeImage(0)
EndIf
x.f=0
y.f=0
z.f=6
While Not MP_KeyDown(#PB_Key_Escape) And Not WindowEvent() = #PB_Event_CloseWindow;
; nen bishen apielen und das Objekt drehen
If MP_KeyDown(#PB_Key_Left)=1 : x=x-1 : EndIf ;links Debug #PB_Key_Left
If MP_KeyDown(#PB_Key_Right)=1 : x=x+1 : EndIf ;rechts #PB_Key_Right
If MP_KeyDown(#PB_Key_Down)=1 : y=y-1 : EndIf ;Runter #PB_Key_Down
If MP_KeyDown(#PB_Key_Up)=1 : y=y+1 : EndIf ;rauf #PB_Key_Up
If MP_KeyDown(#PB_Key_Z)=1 : z=z-0.1 : EndIf ;y Vertauscht bei y-z bei deutscher tastatur
If MP_KeyDown(#PB_Key_A)=1 : z=z+0.1 : EndIf ;a #PB_Key_A
If mesh1 ; Objekt drehen
MP_PositionEntity (Mesh1,0,0,z)
MP_RotateEntity (Mesh1,x,y,0)
EndIf
MP_RenderWorld ()
MP_Flip ()
Wend
DataSection
font:
IncludeBinary "fonts/Zeichen Hundert.ttf"
end_font:
EndDataSection
Code: Alles auswählen
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts
Code: Alles auswählen
;Administratorrechte erforderlich
Define NewKey
Define KeyInfo
Define Pfad$
Pfad$ = "%windir%\System32\notepad.exe"
RegCreateKeyEx_(#HKEY_CLASSES_ROOT, "*\shell\notepadxyz\command", 0, 0, #REG_OPTION_NON_VOLATILE, #KEY_ALL_ACCESS, 0, @NewKey, @KeyInfo)
RegSetValueEx_(NewKey, "", 0, #REG_SZ, Pfad$, Len(Pfad$) + 1)
RegCloseKey_(NewKey)
MessageRequester("","Eintrag erstellt.",0)
RegDeleteKey_(#HKEY_CLASSES_ROOT, "*\shell\notepadxyz\command\")
RegDeleteKey_(#HKEY_CLASSES_ROOT, "*\shell\notepadxyz\")
MessageRequester("","Eintrag entfernt",0)
Code: Alles auswählen
Ergebnis$ = ProgramParameter()
MP_LoadV2M(Ergebnis$)
Code: Alles auswählen
OpenWindow(0, 732, 301, 540, 540, "", #PB_Window_ScreenCentered | #PB_Window_BorderLess)
;-SET WINDOW ALWAYS ON TOP
SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE)
StringGadget(1, 18, 310, 240, 20, "Test")
;-HANDLE 3D SCREEN
MP_ScreenToHandle(WindowID(0))
Code: Alles auswählen
OpenWindow(0, 732, 301, 540, 540, "", #PB_Window_ScreenCentered | #PB_Window_BorderLess)
;-SET WINDOW ALWAYS ON TOP
SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE)
StringGadget(1, 18, 10, 240, 20, "Test")
ButtonGadget(2, 300, 10, 80, 20, "Drückmich!")
;-HANDLE 3D SCREEN
MP_ScreenToHandle(WindowID(0))
camera=MP_CreateCamera(); 3d sachen, ist sonst langweilig
x = 0 : y = 40 : xw = 540 : yw = 510
MP_Viewport(x,y,xw,yw)
teapot = MP_CreateTeapot()
MP_EntitySetZ (teapot ,6 )
light=MP_CreateLight(1)
Repeat
Event = WindowEvent()
If Event = #PB_Event_Gadget
Select EventGadget()
Case 2 ; Test
MessageRequester("Info", "Ja drück mich weiter", 0)
EndSelect
EndIf
MP_TurnEntity (teapot,0.1,0.2,0.3)
MP_RenderWorld () ; Hier gehts los
MP_Flip () ;
Until Event = #PB_Event_CloseWindow Or MP_KeyDown(#PB_Key_Escape)