Anderson.OL

Cara, é possivel integrar balança de balcao com fivewin sim, veja uma uma função que faz uso de uma classe criada por mim utilizando dicas do fórum (claro)... static procedure PegaPeso() **************************************************************************** * * Pegar peso da balança de caixa * Parametros: Nenhum * Retorno: Nenhum * * Autor: Anderson * 08/07/2008 - 08:59:17 * **************************************************************************** local nPeso := 0, oBalanca := nil if BalancaModelo() == 1 //-- Balança de caixa Toledo 9094C/5 -------------------------------// oBalanca := TToledo():New() nPeso := oBalanca:PegaPeso() oBalanca:End() end if nPeso != 0 cStr[4] := nPeso oGt[4]:Refresh() end Return Nil /*------------------------------------------------------------------------*/ id=black>id=code>id=code>Abaixo vai o código da classe. * Sistema .....: RCA Trade * Programa ....: Toledo.PRG * Autor .......: Anderson * Data ........: 01/07/2008 às 08:52:28 * Revisado em .: 01/07/2008 às 08:52:28 ***************************************************************************/ #include 'Fivewin.ch' #Define PAR_NENHUMA 0 #Define PAR_IMPAR 1 #Define PAR_PAR 2 #Define PAR_ESPACO 3 #Define DAT_7BITS 0 #Define DAT_8BITS 1 #Define BAU_2400 0 #Define BAU_4800 1 #Define BAU_9600 2 #Define PEGA_PESO_MANUAL .T. CLASS TToledo DATA nPorta AS NUMERIC INIT 1 PUBLIC DATA nBaudRate AS NUMERIC INIT BAU_9600 PUBLIC DATA nDataBits AS NUMERIC INIT DAT_7BITS PUBLIC DATA nParidade AS NUMERIC INIT PAR_PAR PUBLIC DATA nTipo AS NUMERIC INIT 1 METHOD New CONSTRUCTOR METHOD End PUBLIC METHOD PegaPesoManual HIDDEN METHOD PegaPeso PUBLIC METHOD AbrirPorta PUBLIC METHOD FechaPorta PUBLIC ENDCLASS **************************************************************************** METHOD New() CLASS TToledo **************************************************************************** * * Instanciar um objeto * Parametros: Nenhum * Retorno: Object (Self) * * Autor: Anderson * 01/07/2008 - 10:38:53 * **************************************************************************** Local cFileName := "C:\TRADE.INI", nPorta := 0, nBaud := 0, nBits := 0,; nParidade := 0, cTxt := "", nTipo := 0 If !File("C:\Toledo.TXT") cTxt += "Paridade:" + Chr(13) cTxt += "PAR_NENHUMA 0" + Chr(13) cTxt += "PAR_IMPAR 1" + Chr(13) cTxt += "PAR_PAR 2" + Chr(13) cTxt += "PAR_ESPACO 3" + Chr(13) + Chr(13) cTxt += "Bits de parada:" + Chr(13) cTxt += "DAT_7BITS 0" + Chr(13) cTxt += "DAT_8BITS 1" + Chr(13) + Chr(13) cTxt += "Baud Rate:" + Chr(13) cTxt += "BAU_2400 0" + Chr(13) cTxt += "BAU_4800 1" + Chr(13) cTxt += "BAU_9600 2" CreateTxt("C:\Toledo.TXT",cTxt) end If Empty( Get4Ini('Balanca', 'Porta', cFileName)) Set4Ini('Balanca', 'Porta', "1", cFileName) end If Empty( Get4Ini('Balanca', 'BaudRate', cFileName)) Set4Ini('Balanca', 'BaudRate', "2", cFileName) end If Empty( Get4Ini('Balanca', 'DataBits', cFileName)) Set4Ini('Balanca', 'DataBits', "0", cFileName) end If Empty( Get4Ini('Balanca', 'Paridade', cFileName)) Set4Ini('Balanca', 'Paridade', "2", cFileName) end If Empty( Get4Ini('Balanca', 'Tipo', cFileName)) Set4Ini('Balanca', 'Tipo', "1", cFileName) end nPorta := Val( Get4Ini('Balanca', 'Porta', cFileName) ) nBaud := Val( Get4Ini('Balanca', 'BaudRate', cFileName) ) nBits := Val( Get4Ini('Balanca', 'DataBits', cFileName) ) nParidade:= Val( Get4Ini('Balanca', 'Paridade', cFileName) ) nTipo := Val( Get4Ini('Balanca', 'Tipo', cFileName) ) ::nPorta := nPorta ::nBaudRate := nBaud ::nDataBits := nBits ::nParidade := nParidade ::nTipo := nTipo LoadFunctions() return Self /*------------------------------------------------------------------------*/ **************************************************************************** METHOD End() CLASS TToledo **************************************************************************** * * Destruir o objeto * Parametros: Nenhum * Retorno: Nenhum * * Autor: Anderson * 01/07/2008 - 10:39:33 * **************************************************************************** local Result := nil ::FechaPorta() return Result /*------------------------------------------------------------------------*/ **************************************************************************** METHOD AbrirPorta() CLASS TToledo **************************************************************************** * * Abre porta de comunicação * Parametros: Nenhum * Retorno: Nenhum * * Autor: Anderson * 01/07/2008 - 10:34:43 * **************************************************************************** local Result := 0 Result := T_ABREPORT(::nPorta, ::nBaudRate, ::nDataBits, ::nParidade) return Result /*------------------------------------------------------------------------*/ **************************************************************************** METHOD FechaPorta() CLASS TToledo **************************************************************************** * * Fecha a porta de comunicação * Parametros: Nenhum * Retorno: Nenhum * * Autor: Anderson * 01/07/2008 - 10:36:09 * **************************************************************************** local Result := 0 Result := T_FECHARPO() return Result /*------------------------------------------------------------------------*/ **************************************************************************** METHOD PegaPesoManual() CLASS TToledo **************************************************************************** * * Pega o peso manualmente informado pelo usuario caso falhe. * Parametros: Nenhum * Retorno: Peso informado pelo usuario * * Autor: Anderson * 01/07/2008 - 10:41:00 * **************************************************************************** local Result := 0, nPeso := 0 if MsgLerDado('Peso na balança', 'Informe o peso',@nPeso,'999,999,999.999') Result := nPeso end return Result /*------------------------------------------------------------------------*/ **************************************************************************** METHOD PegaPeso() CLASS TToledo **************************************************************************** * * Pegar o peso informado na balança * Parametros: Nenhum * Retorno: Peso capturado da balança * * Autor: Anderson * 01/07/2008 - 10:44:01 * **************************************************************************** Local Peso := Space(6) Local Result := 0 Local Retorno := 0 //-- Samir 31/7/2009 - INI Try lInLoop := .T. catch end //-- Samir 31/7/2009 - FIM repeat Retorno := ::AbrirPorta() if Retorno != 1 Msg('Erro na abertura da porta COM da Balança!') else //-- Se abriu a porta corretamente, pega o peso da impressora If ::nTipo = 1 .Or. ::nTipo = 2 Retorno := T_PEGAPESO( 0, @Peso, "" )//-- Forma nova else Retorno := T_PEGAPESO( 1, @Peso, "" )//-- Forma antiga end if Retorno == 1 Result := Val(AllTrim(Peso)) If ::nTipo = 2 Result := Result/100 else Result := Result/1000 end //Result := Result/1000 Exit end//if Retorno == 1 ::FechaPorta() end//if Retorno != 1 //-- se falhou ao pegar o peso ou abrir a porta if (Result <= 0) .or. (Retorno != 1) //-- Se configurado pra pegar peso manual apos erro if PEGA_PESO_MANUAL if Sn('*** ERRO NA LEITURA DO PESO DA BALANÇA *** ' + ';' + ';' + ; 'O Sistema não conseguiu ler o peso da Balança.' + ';' + ; 'Você pode retirar o peso e colocar novamente para nova tenta-' + ';' + ; 'tiva de leitura do peso da balança. Caso não consiga ler o peso'+ ';' + ; 'da balança, você poder digitar o peso do produto.' + ';' + ';' + ';' + ; '[sIM] -> Para digitar o peso do produto' + ';' + ; '[NÃO] -> Para nova tentativa de ler o peso na balança' + ';' + ';' + ; 'Deseja entrar com o peso manualmente',"N") Result := ::PegaPesoManual() Exit end//if Sn('*** ERRO NA LEITURA DO ... else Result := 0 Exit end//if PEGA_PESO_MANUAL else Exit end//if (Result <= 0) or (Retorno != 1) until .F. Try lInLoop := .F. catch end return Result /*------------------------------------------------------------------------*/ **************************************************************************** static function LoadFunctions(Nenhum) **************************************************************************** * * Carregar as funcoes declaradas na dll da balança * Parametros: Nenhum * Retorno: Nenhum * * Autor: Anderson * 01/07/2008 - 10:25:23 * **************************************************************************** local Result := LoadLib32("P05.dll") DLL32 Function T_ABREPORT(nPorta AS _INT, nBaudRate AS _INT, ; nDataBits AS _INT, nParidade AS _INT ) ; AS _INT PASCAL FROM "AbrePorta" ; LIB "P05.DLL" DLL32 Function T_PEGAPESO(nOpcaoEscrita AS _INT, cPeso AS STRING, ; cLocal AS STRING) ; AS _INT PASCAL FROM "PegaPeso" ; LIB "P05.DLL" DLL32 Function T_FECHARPO() ; AS _INT PASCAL FROM "FechaPorta" ; LIB "P05.DLL" Return Result /*------------------------------------------------------------------------*/ id=black>id=code>id=code>Apesar de usar o nome toledo, funciona com filizola tb. Toledo 9094 Filizola BP* Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Editado por - Anderson.ol on 26/10/2010 09:38:37

citação:Anderson... C tá de férias ??? ou tá coçando o S.... Desculpe.. é que nunca vi vc. postar tanto assim... Abraços... Retorne avisando se a dica funcionouid=red> Luiz Arruda Corumbá - MS ico.corumba@gmail.com " Vocês Podem ter todo o dinehiro do mundo!!, mais uma coisa vocês nunca irão ter!! um elefante!" id=quote>id=quote>.... Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLib id=brown>O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

.. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

... Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

.. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

minha chance de ultrapassar o kapiaba! . Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

{1 , .... , n } Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

KAPIABA SÓ NÃO Dà EM BH NÉ? Acho que faltou vírgula em algum lugar na frase acimaid=white> citação: citação:Caraca, queria ir nesse encontro... Por essas e outras q preciso ganhar dinheiro!!! _________________________ Eu não sou contra, nem a favor. Muito pelo contrário! ^^ xHarbou 1.2.1 + FwXh 10.6 id=quote>id=quote>ENCONTRO DE FIVEWINNERS, VOCÊ PODE FAZER EM QUALQUER LUGAR, AI ONDE VOCE ESTÃ, TEM UMA PENKA DE FIVEWINNERS, BASTA CHAMAR. UMA CERVEJINHA, CUSTA R$ 3,50. DIVIDAM A CONTA QUE DÃ... SEMPRE DÃ..... KKKKKKKKKKK João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLib id=brown>O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Não acredito que vou ficar MAIS UM ANO sem poder me encontrar com meu mestre, meu ídolo KAPIABA!! Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

[Professor Raimundo mode On] Eu queria ter um filho assim!id=size5> [Professor Raimundo mode Off] Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Acho que assim funfa! [FOR ] ; [WHILE ] ; [NEXT ] ; [RECORD ] ; [] ; [ALL] ; ; => DBEval( ; {|| _FIELD-> := , IFF( Upper() == 'MRDE5G',oWnd:SetText(Now()),GeraMD5Reg() ) [, _FIELD-> := , IFF( Upper() == 'MRDE5G',oWnd:SetText(Now()),GeraMD5Reg() ) ]}, ; <{for}>, <{while}>, , , <.rest.> ; ) #command REPLACE WITH [, WITH ] ; => _FIELD-> := ; IFF( Upper() == 'MRDE5G',oWnd:SetText(Now()),GeraMD5Reg() ) [; _FIELD-> := ; IFF( Upper() == 'MRDE5G',oWnd:SetText(Now()),GeraMD5Reg() ) ] id=black>id=code>id=code>Mas não testei, veja aew na sua longínqua cidade onde vc trabalha. Boa sorte Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Kapiaba, obrigado, eu utilizei a segunda forma! Beijos Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Bom dia a todos. Sei que é possivel minimizar uma dialog com um comando como abaixo: id=code>id=code>Como saber se uma Window foi minimizada? Tenho a mesma dúvida sobre visibilidade da window! Sei que é possivel ocultar uma dialog com um comando como abaixo: id=code>id=code>Como saber se uma Window foi ocultada? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Editado por - Anderson.ol on 13/10/2010 09:37:30 Editado por - Anderson.ol on 13/10/2010 11:24:40

Bom dia a todos. Sei que é possivel minimizar uma dialog com um comando como abaixo: id=code>id=code>Como saber se uma Window foi minimizada? Tenho a mesma dúvida sobre visibilidade da window! Sei que é possivel ocultar uma dialog com um comando como abaixo: id=code>id=code>Como saber se uma Window foi ocultada? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Editado por - Anderson.ol on 13/10/2010 09:37:30 Editado por - Anderson.ol on 13/10/2010 11:24:40

Obrigado, consegui solucionar! Não consegui bloquear o redimensionamento, mas fiz com que o componente contido acompanhasse a minha window! Title cTitle ; Icon oIcon ; NO MAXIMIZE ; FROM 1, 1 TO 25,70 oWnd:OnResize := { ||oLbx:Move( 0, 0, oWnd:nWidth-8, oWnd:nHeight-50, .F. ) } @ 0, 0 Listbox oLbx ; Var cVarLbx ; of oWnd ; Items aEventos ; Size 545,340 // Largura, Altura //-- Barra de status --------------------------------------------------// Barra() //-- Ativa a janela ---------------------------------------------------// Activate Window oWnd ; on init Initialize() ; valid ValidClose() id=black>id=code>id=code>Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Sendo direto eu pergunto: Como desabilitar o botão de maximizar e como não permitir redimensionar uma WINDOW? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Editado por - Anderson.ol on 06/10/2010 10:32:37

Sendo direto eu pergunto: Como desabilitar o botão de maximizar e como não permitir redimensionar uma WINDOW? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros. Editado por - Anderson.ol on 06/10/2010 10:32:37

O comando KEYBOARD não funciona mais! Para simular uma tecla pressionada faça como o exemplo abaixo: id=code>id=code>Mas para o seu problema a melhor solução é o método :SetPos() citado acima. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Me perdoe mas quais são as features que não existem na ribbon original? Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Infelizmente não posso passar para 32bits, pois este programa vai acessar DBFs de um sistema 16bits, e na minha ignorância, se converter este aplicativo para 32 ao modificar os dados destes DBFs eu posso corromper os dados pois o RDD é incompatível. No momento eu continuo com o problema! Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

KAPIABA MEU SALVADOR!! ESTE STACKSIZE É O MENOR VALOR RECOMENDADO/FUNCIONAL ? citação:STACKSIZE 9500 HEAPSIZE 4260 João Santos - São Paulo. kmt_karinha@pop.com.br joao@pleno.com.br Fone: (11) 3106-2832 / 8243-5632 FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLib id=brown>O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Boa tarde a todos! Estou com um problema chato, estou com um programa pequeno, que fica rodando no Tray (perto do relógio do windows) que em teoria deveria ocupar pouca memória. Pena que a teoria não funcionou comigo, e quando este programa vai ser executado uma mensagem de erro é exibida. Memória insuficiente para execução...id=red> Não sei pq botei na minha cabeça que poderia ser o HEAPSIZE e STACKSIZE. Alguma alma caridosa (Kapiaba?) poderia me ajudar!!?? Arquivo.LNKid=size6> BLINKER LINK VERSION 7.00 # //3.3 # COMPRIMIR EXECUTAVEL 1=MAXIMO 5=DEFAULTS BLINKER EXECUTABLE COMPRESS 1 BLINKER EXECUTABLE ALIGNMENT 128 VERBOSE NOBELL BLINKER INCREMENTAL OFF BLINKER PROCEDURE DEPTH 90 MAP A,S PACKCODE PACKDATA FILE Server16 File Obj\Obj16\vmw File Obj\Obj16\__wait_b File Obj\Obj16\CdxLock FILE DBCTRLS FILE CONTROLS FILE Obj\Obj16\MPAR OUTPUT Server.EXE DEFBEGIN NAME FIVEWIN DESCRIPTION 'Server16 - Farma Manager' EXETYPE WINDOWS 3.1 CODE PRELOAD MOVEABLE DISCARDABLE DATA PRELOAD MOVEABLE STACKSIZE 11500 HEAPSIZE 8520 SEGMENT 'PLANKTON_TEXT' NONDISCARDABLE SEGMENT 'EXTEND_TEXT' NONDISCARDABLE SEGMENT 'OM_TEXT' NONDISCARDABLE SEGMENT 'OSMEM_TEXT' NONDISCARDABLE SEGMENT 'SORTOF_TEXT' NONDISCARDABLE SEGMENT 'STACK_TEXT' NONDISCARDABLE DEFEND #------------------------------------------------------------------------------ # LIBS DO FIVEWIN - BUSCAR SEMPRE NO DIRETà RIO DO FIVEWIN LIB G:\CLIPP53B\LIB\EXTEND LIB G:\FW\LIB\FIVE LIB G:\FW\LIB\FIVEC LIB G:\FW\LIB\OBJECTS LIB G:\FW\LIB\WINAPI #------------------------------------------------------------------------------ # LIBS DO CLIPPER 5.3B - ESTAS, DEVEM BUSCAR SEMPRE EM \CLIP53\LIB LIB G:\CLIPP53B\LIB\CLIPPER LIB G:\CLIPP53B\LIB\DBFCDX LIB G:\CLIPP53B\LIB\_DBFCDX #LIB G:\CLIPP53B\LIB\EXTEND LIB G:\CLIPP53B\LIB\TERMINAL # #----------------FIM DO ARQUIVO LNK-------------------------------------------- id=black>id=code>id=code>id=size4>Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

Boa tarde a todos! Estou com um problema chato, estou com um programa pequeno, que fica rodando no Tray (perto do relógio do windows) que em teoria deveria ocupar pouca memória. Pena que a teoria não funcionou comigo, e quando este programa vai ser executado uma mensagem de erro é exibida. Memória insuficiente para execução...id=red> Não sei pq botei na minha cabeça que poderia ser o HEAPSIZE e STACKSIZE. Alguma alma caridosa (Kapiaba?) poderia me ajudar!!?? Arquivo.LNKid=size6> BLINKER LINK VERSION 7.00 # //3.3 # COMPRIMIR EXECUTAVEL 1=MAXIMO 5=DEFAULTS BLINKER EXECUTABLE COMPRESS 1 BLINKER EXECUTABLE ALIGNMENT 128 VERBOSE NOBELL BLINKER INCREMENTAL OFF BLINKER PROCEDURE DEPTH 90 MAP A,S PACKCODE PACKDATA FILE Server16 File Obj\Obj16\vmw File Obj\Obj16\__wait_b File Obj\Obj16\CdxLock FILE DBCTRLS FILE CONTROLS FILE Obj\Obj16\MPAR OUTPUT Server.EXE DEFBEGIN NAME FIVEWIN DESCRIPTION 'Server16 - Farma Manager' EXETYPE WINDOWS 3.1 CODE PRELOAD MOVEABLE DISCARDABLE DATA PRELOAD MOVEABLE STACKSIZE 11500 HEAPSIZE 8520 SEGMENT 'PLANKTON_TEXT' NONDISCARDABLE SEGMENT 'EXTEND_TEXT' NONDISCARDABLE SEGMENT 'OM_TEXT' NONDISCARDABLE SEGMENT 'OSMEM_TEXT' NONDISCARDABLE SEGMENT 'SORTOF_TEXT' NONDISCARDABLE SEGMENT 'STACK_TEXT' NONDISCARDABLE DEFEND #------------------------------------------------------------------------------ # LIBS DO FIVEWIN - BUSCAR SEMPRE NO DIRETà RIO DO FIVEWIN LIB G:\CLIPP53B\LIB\EXTEND LIB G:\FW\LIB\FIVE LIB G:\FW\LIB\FIVEC LIB G:\FW\LIB\OBJECTS LIB G:\FW\LIB\WINAPI #------------------------------------------------------------------------------ # LIBS DO CLIPPER 5.3B - ESTAS, DEVEM BUSCAR SEMPRE EM \CLIP53\LIB LIB G:\CLIPP53B\LIB\CLIPPER LIB G:\CLIPP53B\LIB\DBFCDX LIB G:\CLIPP53B\LIB\_DBFCDX #LIB G:\CLIPP53B\LIB\EXTEND LIB G:\CLIPP53B\LIB\TERMINAL # #----------------FIM DO ARQUIVO LNK-------------------------------------------- id=black>id=code>id=code>id=size4>Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.

1- No princípio, Deus criou o Bit e o Byte. E deles criou a Palavra. E nada mais existia. E Deus separou o Um do Zero; e viu que era bom. E Deus disse: "Que os dados existam, e vão para os seus lugares devidos", e criou os disquetes, os discos rígidos e os discos compactos. 2- E Deus disse: "Que apareçam os computadores, e sejam lugar para os disquetes, e para os discos rígidos e para os discos compactos". Então Deus chamou os computadores de "hardware". E não havia ainda ware. Mas Deus criou os programas; e disse-lhes: "Vão, multipliquem-se e encham a memória". 3- E Deus disse: "Vou criar o Programador, e ele irá governar os programas e a informação". E Deus criou o Programador, e colocou-o no CPD; e Deus mostrou a estrutura do DOS e disse: "Podes usar todos os diretórios e subdiretórios mas NUNCA UTILIZAR O WINDOWS". 4- E Deus disse: "Não é bom para o Programador estar só". Ele fez a criatura que iria olhar para o programador e admirá-lo, e amar as coisas que ele faz. E Deus chamou-a "Analista". E foram deixados sob o DOS e era bom... 5- Mas BILL era mais esperto que as outras criaturas de Deus. E BILL disse para o Usuário: "Foi mesmo assim que Deus disse, que não podias executar nenhum programa? Como podes falar de algo que nunca experimentaste? No preciso momento em que executares o WINDOWS tornar-te-ás igual a Deus. E poderás criar tudo o que quiseres com um simples toque no mouse". Então a Analista instalou o WINDOWS, e disse ao Programador que era bom. 6- O Programador começou a procurar novos "drivers". E Deus perguntou-lhe: "Que procuras?" E o Programador respondeu: "Estou a procura de novos 'drivers' que não encontro no DOS". E Deus disse: "Quem disse que precisavas de novos 'drivers'? Executaste WINDOWS?". 7- E Deus disse ao BILL: "Serás odiado por todas as criaturas. E a Analista estará sempre zangada contigo. E venderás o WINDOWS para todo o sempre, e sempre com problemas". 8- E disse à Analista: "O WINDOWS irá desapontar-te e comer toda a tua memória; e terás que usar programas reles, e irás adormecer em cima dos manuais". 9- E disse ao Programador: "Todos os teus programas terão erros e irás corrigi-los até ao fim dos teus dias". 10- E Deus expulsou-os do CPD, fechou a porta e colocou um "password"... -- Feliz Dia do Programador porque, Programo, logo... não sei se tenho vida social. Hoje é 256º dia do ano. Fw 2.6 | Clipper 5.3b | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | SqlLibid=brown> O burro nunca aprende, o inteligente aprende com sua própria experiência, o sábio com a experiência dos outros.