66 Mensagens de Visitantes

  1. Ver Conversa
    AMIGO EU PEGUEI O SCRIPT DO BRARCADE SÓ A PARTE DO MENU PRA COLOCAR NO ADVEMENU.RC POIS QUANDO EU ENTRAR NELE CONFIGURA 1 FICHA 2 CREDITOS COPILEI TA BONITO MAS NO ADVEMENU DA ERRO O SCRIPT VE AI PRA MIM O Q PODE SER EU ACHO Q PODE AUMENTAR MASI FUNÇOES TESTA AI

    #include <GUIConstants.au3>


    ;ajustas as opções

    AutoItSetOption("WinTitleMatchMode", 4)

    Global $aguarda=0


    ;cria a janela principal

    Local $WS_POPUP

    $brgui=GUICreate("CONFIGURAÇAO E LEITURA", 380,220, -1, -1, $WS_POPUP)

    ;GUISetBkColor(0xffffff, $brgui) ;troca a cor de fundo da janela


    ;largura dos campos

    $widthCell=300


    ;pega os dados

    $contador=IniRead("advmenu.ini","FICHEIRO","CONTAD OR","0")

    $fichas=IniRead("advmenu.ini","FICHEIRO","FICHAS", "0")

    $bloqueado=IniRead("advmenu.ini","CONFIGURACAO","B LOQUEADO","0")

    $tempoficha=IniRead("advmenu.ini","CONFIGURACAO"," TEMPOPORFICHA","0")


    $tempo_ficha=ConverteTempo($tempoficha)

    $qt_fichas=ConverteFichas($fichas, $tempoficha)


    ;fonte usada

    $font="Arial"

    GUISetFont (14, 400, -1, $font)


    ;labels

    GUICtrlCreateLabel ("TEMPO POR FICHA:", 5, 10, $widthCell)

    GUICtrlCreateLabel ("minutos", 250, 10, $widthCell)

    GUICtrlCreateLabel ("MENU BLOQUEADO:", 5, 50, $widthCell)


    ;combo1 = tempo por ficha

    $cmb1=GUICtrlCreateCombo ("5", 180,10, 70)

    GUICtrlSetData($cmb1,"10|15|20|25|30|35|40|45|50|5 5|60",String($tempo_ficha))


    ;combo2 = Menu bloqueado

    If $bloqueado="1" Then

    $estado="SIM"

    Else

    $estado="NAO"

    EndIf

    $cmb2=GUICtrlCreateCombo ("SIM", 180,50, 70)

    GUICtrlSetData($cmb2,"NAO",$estado)


    ;labels

    $lbl1=GUICtrlCreateLabel ("FICHAS ARMAZENADAS: " & StringFormat("%06d",$qt_fichas), 5, 100, $widthCell)

    $lbl2=GUICtrlCreateLabel ("CONTADOR GERAL.......: " & StringFormat("%06d",$contador), 5, 130, $widthCell)


    ;botoes

    $btn1 = GUICtrlCreateButton ("ZERAR", 290, 100, 80, 20)

    $btn2 = GUICtrlCreateButton ("ZERAR", 290, 130, 80, 20)

    $btn3 = GUICtrlCreateButton ("SALVAR",50, 170, 80, 20)

    $btn4 = GUICtrlCreateButton ("SAIR", 190, 170, 80, 20)

    GUISetState ()


    ;rotina de looping

    $msg = 0

    While $msg <> $GUI_EVENT_CLOSE

    $msg = GUIGetMsg()

    Select

    Case $msg = $btn1

    ZeraFicha($lbl1)

    Case $msg = $btn2

    ZeraContador($lbl2)

    Case $msg = $btn3

    SalvaOpcoes($cmb1, $cmb2)

    Case $msg = $btn4

    GUISetState (@SW_HIDE)

    exitloop

    EndSelect

    Sleep(100)

    Wend





    Func ZeraFicha($label1)

    IniWrite("advmenu.ini","FICHEIRO","FICHAS","0")

    GUICtrlSetData($label1,"FICHAS ARMAZENADAS: 000000")

    EndFunc


    Func ZeraContador($label2)

    IniWrite("advmenu.ini","FICHEIRO","CONTADOR","0")

    GUICtrlSetData($label2,"CONTADOR GERAL.......: 000000")

    EndFunc


    Func SalvaOpcoes($novo1, $novo2)

    Local $cb1, $cb2,$cv1, $cv2

    $cb1=GUICtrlRead($novo1) ;pega os valores do combo fichas

    $cv1=(number($cb1) * 60000)


    $cb2=GUICtrlRead($novo2) ;pega os valores do combo bloqueado

    If $cb2 ="NAO" Then

    $cv2=0

    Else

    $cv2=1

    EndIf

    IniWrite("advmenu.ini","CONFIGURACAO","TEMPOPORFIC HA",String($cv1))

    IniWrite("advmenu.ini","CONFIGURACAO","BLOQUEADO", String($cv2))

    SplashTextOn("OK","SALVANDO...",200, 40,-1, -1, 1, "", 18)

    Sleep(2000)

    ControlSetText("OK", "", "Static1", "SALVO...")

    Sleep(2000)

    SplashOff()

    EndFunc


    ;converte os milisegundos em minutos

    Func ConverteTempo($tempo)

    local $val

    if $tempo="0" Then Return 0

    $val=(Number($tempo) / 60000)

    Return $val

    EndFunc


    ;converte o tempo em fichas

    Func ConverteFichas($tempo, $valor)

    local $val, $tmp, $rlt

    $tmp=Number($tempo)

    $val=Number($valor)

    $rlt=($tmp / $val)

    Return int($rlt)

    EndFunc




    ;mostra a janela de configuração

    Func Menu()

    $aguarda=1

    EndFunc
  2. Ver Conversa
    Ai amogo vc tem face
  3. Ver Conversa
    alex da uma ajuda nao consigo colocar foto no perfil ja falei para os moderadores e nada como vc colocou
  4. Ver Conversa
    deixein quieto o menu pois o outro advemenu q o brbranco disponibilizou ja tem isso olha o video dela
    http://www.youtube.com/watch?v=SE0cOSi-mB0 agora estou interessado em colocar + de um programa no script.
  5. Ver Conversa
    alextecsony estou a tentar colocar + o hyperpin no script do advemenu mas nao sei onde coloca-lo eu sei q uso shelexecute pra chamar e processeclose pra fechar + combinar num script só ta foda poderia ajudar

    #include <GUIConstants.au3>


    ;ajustas as opções

    AutoItSetOption("WinTitleMatchMode", 4)




    Global $aguarda=0


    ;abre o joytokey que irá enviar as teclas para o menu de configuração

    $drive=StringLeft(@ScriptDir,2)

    If Not ProcessExists("joytokey.exe") Then

    $exe_joy = ShellExecute("joytokey.exe", "brmenu", $drive & "\arcade\joytokey")

    if @error Then

    SplashImageOn("", "..\auxiliar\image\mensa4.gif", 220, 40, -1, -1, 1)

    Sleep(10000)

    SplashOff()

    Exit(0)

    EndIf

    EndIf


    ;intala o hotkey, que irá verificar se o botão para mostrar o menu está pressionado

    HotKeySet("m","Menu")


    ;agurda 5 segundo pelo pressionamento da tecla

    $inicio=TimerInit()

    $final=0

    SplashTextOn("BRarcade","INICIANDO...",200, 40,-1, -1, 1, "", 18)

    While (TimerDiff($inicio) < 5000)

    $final=Int((TimerDiff($inicio)/1000))

    ControlSetText("BRarcade", "", "Static1", "INICIANDO..." & String(5-$final)) ;o 5 foi usado para fazer uma contagem regressiva

    Sleep(1000)

    If $aguarda <> 0 Then ExitLoop

    WEnd

    SplashOff()


    ;se não foi pressionado, fecha o joytokey, e chama o advmenu

    If $aguarda = 0 Then

    HotKeySet("m")

    FechaJoyToKey()

    FileChangeDir(@ScriptDir) ;seta o diretório corretente

    $adv= ShellExecute("advmenu.exe", "", @ScriptDir)

    if @error Then

    MsgBox(0,"Erro", "Ocorreu um erro ao tentar executar o advmenu.exe.", 30)

    EndIf

    Exit(0)

    EndIf


    ;REMOVE O HOTKEY

    HotKeySet("m")


    ;cria a janela principal

    Local $WS_POPUP

    $brgui=GUICreate("BRarcade Configuração", 380,220, -1, -1, $WS_POPUP)

    ;GUISetBkColor(0xffffff, $brgui) ;troca a cor de fundo da janela


    ;largura dos campos

    $widthCell=300


    ;pega os dados

    $contador=IniRead("advmenu.ini","FICHEIRO","CONTAD OR","0")

    $fichas=IniRead("advmenu.ini","FICHEIRO","FICHAS", "0")

    $bloqueado=IniRead("advmenu.ini","CONFIGURACAO","B LOQUEADO","0")

    $tempoficha=IniRead("advmenu.ini","CONFIGURACAO"," TEMPOPORFICHA","0")


    $tempo_ficha=ConverteTempo($tempoficha)

    $qt_fichas=ConverteFichas($fichas, $tempoficha)


    ;fonte usada

    $font="Arial"

    GUISetFont (14, 400, -1, $font)


    ;labels

    GUICtrlCreateLabel ("TEMPO POR FICHA:", 5, 10, $widthCell)

    GUICtrlCreateLabel ("minutos", 250, 10, $widthCell)

    GUICtrlCreateLabel ("MENU BLOQUEADO:", 5, 50, $widthCell)


    ;combo1 = tempo por ficha

    $cmb1=GUICtrlCreateCombo ("5", 180,10, 70)

    GUICtrlSetData($cmb1,"10|15|20|25|30|35|40|45|50|5 5|60",String($tempo_ficha))


    ;combo2 = Menu bloqueado

    If $bloqueado="1" Then

    $estado="SIM"

    Else

    $estado="NAO"

    EndIf

    $cmb2=GUICtrlCreateCombo ("SIM", 180,50, 70)

    GUICtrlSetData($cmb2,"NAO",$estado)


    ;labels

    $lbl1=GUICtrlCreateLabel ("FICHAS ARMAZENADAS: " & StringFormat("%06d",$qt_fichas), 5, 100, $widthCell)

    $lbl2=GUICtrlCreateLabel ("CONTADOR GERAL.......: " & StringFormat("%06d",$contador), 5, 130, $widthCell)


    ;botoes

    $btn1 = GUICtrlCreateButton ("ZERAR", 290, 100, 80, 20)

    $btn2 = GUICtrlCreateButton ("ZERAR", 290, 130, 80, 20)

    $btn3 = GUICtrlCreateButton ("SALVAR",50, 170, 80, 20)

    $btn4 = GUICtrlCreateButton ("SAIR", 190, 170, 80, 20)

    GUISetState ()


    ;rotina de looping

    $msg = 0

    While $msg <> $GUI_EVENT_CLOSE

    $msg = GUIGetMsg()

    Select

    Case $msg = $btn1

    ZeraFicha($lbl1)

    Case $msg = $btn2

    ZeraContador($lbl2)

    Case $msg = $btn3

    SalvaOpcoes($cmb1, $cmb2)

    Case $msg = $btn4

    GUISetState (@SW_HIDE)

    exitloop

    EndSelect

    Sleep(100)

    Wend

    FechaJoyToKey()


    ;chama o advmenu

    FileChangeDir(@ScriptDir) ;seta o diretório corretente

    $adv= ShellExecute("advmenu.exe", "", @ScriptDir)

    if @error Then

    MsgBox(0,"Erro", "Ocorreu um erro ao tentar executar o advmenu.exe.", 30)

    EndIf

    Exit(0)

    ;===============>fim


    Func ZeraFicha($label1)

    IniWrite("advmenu.ini","FICHEIRO","FICHAS","0")

    GUICtrlSetData($label1,"FICHAS ARMAZENADAS: 000000")

    EndFunc


    Func ZeraContador($label2)

    IniWrite("advmenu.ini","FICHEIRO","CONTADOR","0")

    GUICtrlSetData($label2,"CONTADOR GERAL.......: 000000")

    EndFunc


    Func SalvaOpcoes($novo1, $novo2)

    Local $cb1, $cb2,$cv1, $cv2

    $cb1=GUICtrlRead($novo1) ;pega os valores do combo fichas

    $cv1=(number($cb1) * 60000)


    $cb2=GUICtrlRead($novo2) ;pega os valores do combo bloqueado

    If $cb2 ="NAO" Then

    $cv2=0

    Else

    $cv2=1

    EndIf

    IniWrite("advmenu.ini","CONFIGURACAO","TEMPOPORFIC HA",String($cv1))

    IniWrite("advmenu.ini","CONFIGURACAO","BLOQUEADO", String($cv2))

    SplashTextOn("OK","SALVANDO...",200, 40,-1, -1, 1, "", 18)

    Sleep(2000)

    ControlSetText("OK", "", "Static1", "SALVO...")

    Sleep(2000)

    SplashOff()

    EndFunc


    ;converte os milisegundos em minutos

    Func ConverteTempo($tempo)

    local $val

    if $tempo="0" Then Return 0

    $val=(Number($tempo) / 60000)

    Return $val

    EndFunc


    ;converte o tempo em fichas

    Func ConverteFichas($tempo, $valor)

    local $val, $tmp, $rlt

    $tmp=Number($tempo)

    $val=Number($valor)

    $rlt=($tmp / $val)

    Return int($rlt)

    EndFunc


    ;fecha o joytokey

    Func FechaJoyToKey()

    If ProcessExists("joytokey.exe") Then

    if Not WinActive("classname=TApplication") Then

    WinActivate ("classname=TApplication")

    EndIf

    Send("{LALT}FX")

    EndIf

    EndFunc


    ;mostra a janela de configuração

    Func Menu()

    $aguarda=1

    EndFunc
    eu queria chamar o hyperpin e fechar ele.
  6. Ver Conversa
    sera q da pra chamar + programas no script do advemenu eu queria chamau o hyperpin sera q da e como vc sabe.
  7. Ver Conversa
    testou o pinball ai
  8. Ver Conversa
    o do brbranco q eu tenho tem essa funçao mas nao é igual mas como aciona-lo no meio do advemenu sem precisar sair e depois entar no brarcade.exe e apertar m pra entrar no menu tem como.
  9. Ver Conversa
    vc saberia onde posso achar aquele menu pois nao acho ele+ se tiver o link ai passa pra mim.
  10. Ver Conversa
    isso como o do tutorial aqui eu ja vi mas nao sei onde tem dela e nem como montar poderia me ajudar ta no meio do tuto
    http://www.multijogos.com.br/manual.pdf
Exibindo Mensagens de Visitantes 21 a 30 de 66
Página 3 de 7 PrimeiroPrimeiro 1 2 3 4 5 6 7 ÚltimoÚltimo
Página 3 de 7 PrimeiroPrimeiro 1 2 3 4 5 6 7 ÚltimoÚltimo
Sobre alextecsony

Informações Básicas


Sobre alextecsony
Biografia
https://www.facebook.com/lex.prata
Localização
São Paulo
Ocupação
tec. eletrônica e Info

Assinatura


Contato


Esta Página
http://www.arcadebr.com/members/8429-alextecsony?s=d499077e8dbc782ade8a6172dae2ef96
Mensagens Instantâneas

Enviar Mensagem Instantânea a alextecsony Usando...

Estatísticas


Mensagens Totais
Mensagens Totais
170
Mensagens Por Dia
0,07
Último Post
Artigo: Aprenda como instalar o Recalbox no Raspberry Pi 11/01/2019 02:49
Mensagens de Visitantes
Total de Mensagens
66
Mensagem Mais Recente
17/03/2018 15:33
Informações Gerais
Última Atividade
4 Dias Atrás
Data de Ingresso
01/06/2012
Referências
2

7 Amigos

  1. airheadairhead está desconectado

    > Usuário VIP

    airhead
  2. CAPACITORCAPACITOR está desconectado

    Mestre dos Arcades Caseiros

    CAPACITOR
  3. esiocostaesiocosta está desconectado

    Mestre dos Arcades Caseiros

    • Enviar mensagem por MSN para esiocosta
    esiocosta
  4. FLIPER-MANIAFLIPER-MANIA está desconectado

    Jogador de Street Fighter IV (2009)

    FLIPER-MANIA
  5. lindersonlinderson está desconectado

    Jogador de Halo (2001)

    linderson
  6. michel almeidamichel almeida está desconectado

    > Usuário VIP

    michel almeida
  7. vargas310vargas310 está desconectado

    Jogador de Enduro (1983)

    vargas310
Exibindo Amigos 1 a 7 de 7
Página 3 de 9 PrimeiroPrimeiro 1 2 3 4 5 6 7 ... ÚltimoÚltimo

25/04/2016


24/04/2016


09/12/2015


26/11/2015


02/11/2015


01/11/2015


12/05/2015


09/05/2015


06/05/2015


05/05/2015


23/04/2015


15/04/2015


07/04/2015



Página 3 de 9 PrimeiroPrimeiro 1 2 3 4 5 6 7 ... ÚltimoÚltimo
No results to display...
Página 3 de 8 PrimeiroPrimeiro 1 2 3 4 5 6 7 ... ÚltimoÚltimo

04/04/2015


28/03/2015


27/03/2015


14/03/2015


07/03/2015


27/02/2015


23/02/2015


11/02/2015


31/01/2015


30/01/2015


20/01/2015


16/01/2015


14/01/2015


13/01/2015


08/01/2015



Página 3 de 8 PrimeiroPrimeiro 1 2 3 4 5 6 7 ... ÚltimoÚltimo