FullScreen

por V-Force Dom 17 Out 2010, 19:19

~Requerimentos~
•Nivel de Programação = 2/5
•Eclipse Origins(Não sei se funfa em outras Engine)

~Descrição~
•Trata-se do Sistema de FullScreen elaborado por "Mitus" do Forum Internacional para o Eclipse Origins,com as dimensões em 800x600

~Tutorial~

\Server/

No modConstant procure por:

Código:: Public Const MAX_MAPX As Byte = 14 Public Const MAX_MAPY As Byte = 11

e mude para

Código:: Public Const MAX_MAPX As Byte = (800 / 32 - 1) Public Const MAX_MAPY As Byte = (608 / 32 - 1)

\Server Finalized/
/Client Side \

No modConstants procure por

Código:: Public Const MAX_MAPX As Byte = 14 Public Const MAX_MAPY As Byte = 11

mude para

Código:: Public Const MAX_MAPX As Byte = (800 / 32 - 1) Public Const MAX_MAPY As Byte = (608 / 32 - 1)

depois procure por

Código:: ' running at the same time will be allowed to access the screen as well. Call DD.SetCooperativeLevel(frmMainGame.hWnd, DDSCL_NORMAL)

e mude para

Código:: ' running at the same time will be allowed to access the screen as well. Call DD.SetCooperativeLevel(frmMainGame.hWnd, DDSCL_FULLSCREEN Or DDSCL_EXCLUSIVE) Call DD.SetDisplayMode(800, 600, 32, 0, DDSDM_DEFAULT)

Agora crie um novo modulo chamado "modResolution" e add dentro

Código:: Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lptypDevMode As Any) As Boolean Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lptypDevMode As Any, ByVal dwFlags As Long) As Long Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long 'Declarations Public Const CCDEVICENAME = 32 Public Const CCFORMNAME = 32 Public Const DM_BITSPERPEL = &H40000 Public Const DM_PELSWIDTH = &H80000 Public Const DM_PELSHEIGHT = &H100000 Public Const CDS_TEST = &H4 Type typDevMODE dmDeviceName As String * CCDEVICENAME dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer dmCollate As Integer dmFormName As String * CCFORMNAME dmUnusedPadding As Integer dmBitsPerPel As Integer dmPelsWidth As Long dmPelsHeight As Long dmDisplayFlags As Long dmDisplayFrequency As Long End Type

depois vai para o "frmMainGame" no topo ira encontrar por "Option Explicit "

embaixo dele coloque

Código:: Dim ScreenWidth As Integer Dim ScreenHeight As Integer

depois procure por

Código:: Private Sub Form_Load() picAdmin.Left = 10 picCurrency.Left = txtMyChat.Left picCurrency.Top = txtMyChat.Top Me.width = 10545 End Sub

mude para

Código:: Private Sub Form_Load() Dim typDevM As typDevMODE Dim lngResult As Long ScreenWidth = Me.ScaleWidth ScreenHeight = Me.ScaleHeight lngResult = EnumDisplaySettings(0, 0, typDevM) With typDevM .dmFields = DM_PELSWIDTH Or DM_PELSHEIGHT .dmPelsWidth = ScreenWidth 'ScreenWidth (640,800,1024, etc) .dmPelsHeight = ScreenHeight 'ScreenHeight (480,600,768, etc) End With ' Change the display settings to the specified graphics mode. lngResult = ChangeDisplaySettings(typDevM, CDS_TEST) picScreen.width = ScreenWidth picScreen.height = ScreenHeight picAdmin.Left = 10 picCurrency.Left = txtMyChat.Left picCurrency.Top = txtMyChat.Top End Sub

depois encontre "Private Sub imgExit_Click ()" e logo em seguida por

Código:: txtChat.text = vbNullString

e adicionar embaixo

Código:: Call DestroyGame

Vai em "frmMainGame" na ferramenta ao lado mude

Código:: BorderStyle = 0-None StarUpPosition = 2-CenterScreen WindowState = 2-Maximized

*Opticional*
Em "frmMenu" nas ferramenta ao lado mude

Código:: BorderStyle = 0-None BorderStyle = 0-None StarUpPosition = 2-CenterScreen WindowState = 2-Maximized

~Recomendações~
•Antes de fazer esse tutorial faça uma backup, e ao usa-lo no game não vai ter opção de deixar em Modo de Janela,mas tem como colocar essa opção com alguns if e tals,se usar esse tutorial plz da +1 CRED para mim =)

~Créditos~
•EnerXd (Por postar o Tutorial aqui)•
•Mitus (Por fazer o tutorial e postar no forum Internaciona)•

por Rio Absolut Dom 17 Out 2010, 19:29

Muito bom !

por **Lendário** Dom 17 Out 2010, 19:32

Belo tutorial +1 de CRED
Estou gostando muito de seu trabalho em nosso fórum.

por Lucas Roberto Dom 17 Out 2010, 20:25

Hum belo Tutorial

Quando alguem testa me avisa para dar o Credito

Agredito que funcione!!!!

por Cris~ Dom 17 Out 2010, 20:27

Boa Ae + 1 De Cred...
~~Nem Uso Eclipse AUhsuahs~~

por greeik Qui 21 Out 2010, 17:48

ou no meu deu um erro doideira ou não funfou =C

por Eliana Qui 21 Out 2010, 22:12

Ajuda rápido;

BorderStyle = 0-None
StarUpPosition = 2-CenterScreen
WindowState = 2-Maximized

nao acho esse código no client side

por greeik Sex 22 Out 2010, 10:50

@Eliana' isso aew não é codigo' isso vc faz nas configurações' é só clicar 2 vezes na frm e aew aparece do lado com essas opções' da uma olhada é do lado direito'

Aki não deu certo o full =C alguém testa favor e se consertar fla como fez isso'

por V-Force Sex 22 Out 2010, 10:58

pera ae vou tentar por novamente ake no EO

se eu acher o erro dai eu concerto, mas se n achar o problema eh alguma coisa q tu fez errado

por gin Sex 22 Out 2010, 15:24

no Super nova não deu certo X.X

por V-Force Sex 22 Out 2010, 16:36

xD no Super Nova creio que eh diferente depois eu posto um tutorial do Full Screen para as outras plataforma =) mas creio eu que ja tem

por greeik Sáb 23 Out 2010, 10:34

Alguém Ajuda favor'

eu fiz o tuto e tudo mas quando abro o client acontece isso:
FullScreen 47272365

aew eu dou alt+tab e faço login' então acontece isso no client:
FullScreen Er1v

dou cred a quem ajudar =S

nota¹: isso acontece em toda a tela!

por gin Seg 25 Out 2010, 08:13

Posta ai Ener (*-*), quem sabe futuramente eu coloquei in my game!

por St4rk Seg 25 Out 2010, 09:01

/\ o do super nova é HYPER MEGA ULTRA Simples, é só adicionar um comando '=' que a tela fica cheia, eu pus até um msgbox de sim ou não =D1

por gin Seg 25 Out 2010, 13:15

E cade? tu tens ele em algum link guri?

O tu quer me vender?

por St4rk Seg 25 Out 2010, 15:26

Eu não copio nada amigo, tudo é por conta propria fikdik, se quizer comprar '=', quando se paga ?

por Rio Absolut Qua 03 Nov 2010, 20:44

Ele é Bom porem tem Bug .

O Bug dele a Tela Fica normal mais ande com o player para ver ele não anda por toda tela .
Aconselho Não Usar , nen o da engine modificada do Dsh , mais isso já ajuda .

por playsson14z Qua 03 Nov 2010, 22:03

gostei do topico + 1 cred
funfo legal aki xD

por DshFox Qui 04 Nov 2010, 12:24

O "bug" pode ser arrumado fazendo a parte do

' map constant

no server tbm

troque pra
Public Const MAX_MAPX As Byte = 24
Public Const MAX_MAPY As Byte = 18

Não usei esse tuto mas pro meu, peguei uma parte do forum oficial.
e ta funcionando tranquilamente.
Laughing

por marcosni Qui 18 Nov 2010, 13:10

Olha quando vou procurar o :

Código:: ' running at the same time will be allowed to access the screen as well. Call DD.SetCooperativeLevel(frmMainGame.hWnd, DDSCL_NORMAL)

nao encontra pq ?

por SkyZero Sex 19 Nov 2010, 22:52

tentou procurar só por :

Código:: Call DD.SetCooperativeLevel(frmMainGame.hWnd, DDSCL_NORMAL)

O Eclipse origins tem 1 problema que algumas linhas no VB não são reconhecidas " Pelo menos comigo " Depois de procurar miudamente como disse no código provavelmente que ache oque procura

por bootsk8 Dom 06 Mar 2011, 16:17

não axei esses! tow tentando adc no PVO, da pra adc?

Código:

' running at the same time will be allowed to access the screen as well.
Call DD.SetCooperativeLevel(frmMainGame.hWnd, DDSCL_NORMAL)

Vai em "frmMainGame" na ferramenta ao lado mude
Código:

BorderStyle = 0-None
StarUpPosition = 2-CenterScreen
WindowState = 2-Maximized

por Conteúdo patrocinado

FullScreen

FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen

Re: FullScreen