Jump to content
Fórum Script Brasil

kalel

Membros
  • Posts

    16
  • Joined

  • Last visited

About kalel

Contatos

kalel's Achievements

0

Reputation

  1. fala galera do forum eu preciso apresentar uma proposta para desenvolver um sistema para uma agencia de cargas que vai controlar todo o administrativo da empresa mas eu ainda nem sei como começar, alguém por favor pode me mandar um modelo ?? vai quebra um galho bem grande pra mim preciso especificar quantas horas de desenvolvimento, valor da hora, tempo de entrega tudo isso. Por favor pessoal me ajudem ai eu só preciso de um modelo, isso eu não tive no colegio, só aprendi a pprogramar.... Valeu ai...
  2. E ai pessoal beleza? alguém sabe como programar voIP?Qual linguagem usada? Eu acho que deve ser em C/C++. Aonde posso encontrar bibliotecas para isso? Aonde posso encontrar tutoriais sobre esse assunto? Muito Obrigado!
  3. E ai pessoal tudo bem? Sou iniciante na área de sistemas e nai sei quanto devo cobrar por esse sistema. Vocês que têm mais experiência no assunto por favor me ajudem.? Uma pessoa me pediu para desenvolver o seguinte sistema: Crie um programa para: Eu conseguir indentificar a transportadora por código. Preenchendo nela data, quantia se e caminhão ou carreta, placa, romaneio, metragem e valor. No mesmo programa crie para Nota fiscal de prestação de serviço, Conhecimento, Folha de Pagamento e Olherite. Quanto devo cobrar pelo sistema? Obrigado!
  4. kalel

    Voip

    Olá como desenvolver voz sobre ip em C++? alguém sabe de algum link que explique? Valeu Pessoal!
  5. kalel

    Chat Em Asp

    Ola pessoal. alguém poderia me ajudar a montar um chat em asp? Valeu.!
  6. kalel

    Layout

    Ola Pessoal. alguém conhece algum link para layouts de cartao de visita em corel? Valeu.!
  7. olá pesoal sou estudante vb e gostaria de saber de ver alguns sistemas prontos em vb. alguém conhece um link para isso? Valeu.!
  8. Pessoal estava pensando na possibilidade de abrir uma assist. técnica e revenda de hardware e periféricos. alguém poderia me indicar algum fornecedor? Valeu!!
  9. kalel

    Player De Video Wms

    alguém pode me dar um link para algum software q faz isso ou o codigo fonte para fazer isso em asp?
  10. kalel

    Player De Video Wms

    Olá pessoal! Tenho uma dúvida!! Como faço para colocar video ao vivo dentro do meu website? Valeu !!
  11. kalel

    Pergunta Difícil!

    Bom se é pra ser amiguinho do Gates então continue usando Windows, pelo menos o Linux é free é bom para usuários que não tem R$ 350,00 para dar para uma coisa que vira e mexe tem que ser apagada do computador...
  12. kalel

    Imagem

    Olá aqui vai o codigo que eu usei para salvar fotos de clientes dentro do meu cadastro. Olá aqui vai o codigo para salvar imagens dentro de um campo do Access. 'Copie o texto integralmente e cole-o 'em um módulo .BAS novo. Será mais 'Fácil de entender já na IDE do VB. 'Não é necessário remover os remarks. 'Para salvar a imagem no campo adequado, 'tipo OLEDB(MS-Access) ou BLOB(Oracle) ou IMAGE(SQL SERVER), 'basta utilizar-se da função abaixo (é uma das formas, não a única). 'Não a utilize ainda, apenas leia e procure entender o 'funcionamento. 'Public Function SalvaImagem(ByRef oTabela As ADODB.Recordset, ByVal CampoImagem As String, ByVal ArquivoImagem As String) As Boolean ''Parâmetros obrigatórios: '' - oTabela = Objeto Recordset aberto e em uso, onde deverá ser gravada a imagem. '' - CampoImagem = Var. String, com o nome do campo onde a imagem deve ser armazenada. '' - ArquivoImagem = Var. String, com o caminho e o nome do arquivo de imagem á ser salva. ''Retornos: True/False, indicando sucesso ou falha na gravação do campo. 'On Error GoTo SIErr: 'Dim lRet As Boolean 'variável para retorno 'Dim oStream As ADODB.Stream 'variável para o Stream da imagem (algo como "imagem de arquivo em memória") 'lRet = True 'vai funcionar, retorna verdadeiro 'Set oStream = New ADODB.Stream 'instancia a var. do Stream (cria instância ativa) 'With oStream ' .Type = adTypeBinary 'tipo da leitura, para campos Image/BLOB/OLEDB deve ser binário ' .Open 'abre arquivo (memória) ' .LoadFromFile ArquivoImagem 'carrega desde o arquivo físico ' oTabela.Fields(CampoImagem).Value = .Read 'atribui o conteúdo ao campo passado como referência ' oTabela.Update 'salva a informação. ' .Close 'e fecha o arquivo, para permitir que seja eliminado, claro. 'End With 'GoTo SIExit: 'se chegou até aqui, ok. 'SIErr: 'MsgBox Err.Description 'mostra erro - desnecessário, se você tratar o retorno da função. 'Err.Clear 'limpa a matriz de erros 'lRet = False 'retorna falso 'SIExit: 'SalvaImagem = lRet 'Envia o retorno da função 'Set oStream = Nothing 'limpa a instância ativa, eliminando o espaço ocupado pela variável. 'lRet = Empty 'idem, para a var. de retorno. 'End Function 'Essa outra função permite carregar a imagem desde o campo da tabela e 'salvá-la em um arquivo (molezinha, nem vou comentar). 'Public Function CarregaImagem(ByRef oTabela As ADODB.Recordset, ByVal CampoImagem As String, ByVal ArquivoImagem As String) As Boolean 'On Error GoTo CIErr: 'Dim oStream As ADODB.Stream 'Dim lRet As Boolean 'Set oStream = New ADODB.Stream 'lRet = True 'With oStream ' .Type = adTypeBinary ' .Open ' .Write oTabela.Fields(CampoImagem) ' .SaveToFile ArquivoImagem 'End With 'GoTo CIExit: 'CIErr: 'MsgBox Err.Description 'Err.Clear 'lRet = False 'CIExit: 'SalvaImagem = lRet 'Set oStream = Nothing 'lRet = Empty 'End Function 'Agora, vamos caprichar um pouco mais? 'As duas funções acima tem sintaxe bastante similar. 'O que está variando é apenas a direção na qual a 'imagem "viaja". Oras, vamos criar uma função só, 'que faça ambos os trabalhos, certo? 'Para isso, seria interessante acrescentar mais 'um parâmetro, a direção, ok? Esse parâmetro, 'para facilitar o uso da função, vamos defini-lo 'em uma enumeração pública eDireção. Aproveitando a '"deixa", vamos implementar uma função extra, mais 'adiante. 'Mãos á obra? 'Teremos então, no módulo BAS, a seguinte aparência 'final, talvez: Public Function TrataImagem(ByRef oTabela As ADODB.Recordset, ByVal CampoImagem As String, ByVal ArquivoImagem As String, Direção As String) As Boolean On Error GoTo CIErr: Dim oStream As ADODB.Stream Dim lRet As Boolean Set oStream = New ADODB.Stream lRet = True With oStream .Type = adTypeBinary .Open If Direção = "[Arquivo Para Campo]" Then .LoadFromFile ArquivoImagem oTabela.Fields(CampoImagem).Value = .Read oTabela.Update .Close 'Kill ArquivoImagem ElseIf Direção = "[Campo Para Arquivo]" Then .Write oTabela.Fields(CampoImagem) .SaveToFile ArquivoImagem 'Kill ArquivoImagem End If End With GoTo CIExit: CIErr: MsgBox Err.Description Err.Clear lRet = False CIExit: TrataImagem = lRet Set oStream = Nothing lRet = Empty End Function 'Para ampliar as possibilidades, nem sempre 'queremos que a imagem seja trabalhada como arquivo 'físico, uma vez que eventualmente precisamos 'mostrá-la em uma tela, em uma célula do 'MSFlexiGrid, em um relatório ou qualquer outro 'objeto gráfico. Para essa tarefa, a função á 'seguir adapta a anterior ás novas necessidades. 'Estou usando o PictureBox, pois é o controle básico 'de imagens do próprio VB. Você pode adaptá-lo para 'que aceite vários outros controles, desde que 'possuam um dispositivo de contexto compatível, 'como um imagelist, um CellPicture etc. Public Function LigaImagem(ByRef oTabela As ADODB.Recordset, ByVal CampoImagem As String, ByVal ArquivoImagem As String, Direção As String, ByRef ObjetoGráfico As Image) As Boolean On Error GoTo CIErr: If ObjetoGráfico Is Nothing Then Exit Function Dim oStream As ADODB.Stream Dim lRet As Boolean Set oStream = New ADODB.Stream lRet = True With oStream .Type = adTypeBinary .Open If Direção = "[Controle Para Campo]" Then SavePicture ObjetoGráfico.Picture, ArquivoImagem .LoadFromFile ArquivoImagem oTabela.Fields(CampoImagem).Value = .Read oTabela.Update .Close 'Kill ArquivoImagem ElseIf Direção = "[Campo Para Controle]" Then .Write oTabela.Fields(CampoImagem) .SaveToFile ArquivoImagem Set ObjetoGráfico.Picture = LoadPicture() Set ObjetoGráfico.Picture = Nothing Set ObjetoGráfico.Picture = LoadPicture(ArquivoImagem) ObjetoGráfico.Refresh .Close 'Kill ArquivoImagem End If End With GoTo CIExit: CIErr: MsgBox Err.Description Err.Clear lRet = False CIExit: LigaImagem = lRet Set oStream = Nothing lRet = Empty End Function 'E, para finalizar, os exemplos de uso de ambas as funções, certo? '======================================================= 'Usando o Microsoft ADO 2.5 ou acima, ok? '======================================================= ' - No corpo do sistema, em um módulo (.bas), como uma var. 'global ou pública, você já deve ter um objeto ADODB.Connection. 'Como padrão, a Microled costuma usar DB para essa variável, 'então vamos adotá-la. 'Option Explicit '... 'Public DB As ADODB.Connection '... 'No módulo/formulário onde os dados da tabela serão tratados, 'o correto é que um ADODB.Recordset seja criado como Private 'Private oRS As ADODB.Recordset '...blá, blá, blá... 'oRS.Open "SELECT CAMPO00, CAMPO01, CAMPO02, CAMPO03 FROM ESQUEMA.TABELA WHERE CONDIÇÕES ORDER BY ORDEM", DB, adOpenDynamic, adLockOptimistic '...blá, blá, blá... 'Private Sub Form_Load() 'Dim oRS As ADODB.Recordset ''Abrindo o recordset em modo de edição... 'oRS.Open "SELECT CAMPO00, CAMPO01, CAMPO02, CAMPO03 FROM ESQUEMA.TABELA WHERE CONDIÇÕES ORDER BY ORDEM", DB, adOpenDynamic, adLockOptimistic ''Carregando a imagem em um PictureBox: 'If LigaImagem(oRS, "CAMPO03", "C:\Temp\TmpFile.~mp", [Campo Para Controle], Me.Picture1) = True Then ' MsgBox "Imagem carregada sem erros" 'Else ' MsgBox "Falha ao carregar a imagem" 'End If ''ou... 'X = "C:\Temp\TmpFile.~mp" 'Y = "CAMPO03" 'If LigaImagem(oRS, Y, X, [Campo Para Controle], Picture1) = True Then ' MsgBox "Imagem carregada sem erros" 'Else ' MsgBox "Falha ao carregar a imagem" 'End If ''... ''Salvando um arquivo de imagem no campo: 'If TrataImagem(oRS, "CAMPO03", "X:\NetUse\GraphicFolder\Shared\Imagem35.bmp", [Arquivo Para Campo]) = True Then ' MsgBox "Arquivo 'X:\NetUse\GraphicFolder\Shared\Imagem35.bmp' salvo co sucesso." 'Else ' MsgBox "Não foi possível salvar o Arquivo 'X:\NetUse\GraphicFolder\Shared\Imagem35.bmp'." 'End If ''ou... 'X = "X:\NetUse\GraphicFolder\Shared\Imagem35.bmp" 'Y = "CAMPO03" 'If TrataImagem(oRS, Y, X, [Arquivo Para Campo]) = True Then ' MsgBox "Arquivo '" & X & "' salvo co sucesso." 'Else ' MsgBox "Não foi possível salvar o Arquivo '" & X & "'." 'End If 'End Sub ----- // ----------- oRs.Open "SELECT Codigo,Nome,DataInclusao,Endereco,CEP,Bairro,Cidade,UF,Fone,RG,CPF,Imagem FROM Clientes WHERE Codigo = " + txtCodigoCliente, oCo, adOpenDynamic, adLockOptimistic SavePicture imgFoto.Picture, "arquivo.tmp" PATH_IMAGEM = "arquivo.tmp" If TrataImagem(oRs, "Imagem", PATH_IMAGEM, "[Arquivo Para Campo]") = True Then MsgBox "Arquivo salvo com sucesso." Else MsgBox "Não foi possível salvar o Arquivo." End If Kill "arquivo.tmp" oCo.CommitTrans
  13. Olá pessoal, como faço para mostrar video ao vivo dentro do meu Website? eu faço isso com Flash? Com Dream?
  14. Valeu Cara!!! Bom é bem mais dificil gravar estes filmes dentro do mesmo campo. De qualquer modo vou tentar com outra tabela puxar esses filmes e ai sim vai ser cada filme em um registro. Obrigado, Kalel
  15. eu tenho um unico campo no banco da tabela, quero salvar varios filmes nesse campo e depois carregar os filmes em uma listbox. Tipo assim o campo que é cdProduto vai salvar os filmes pelo codigo e quando eu carregar a form Locação quero carregar estes filmes salvos dentro de uma listbox. Carregar na listbox é facil mas eu não sei como faço para gravar estes filmes no mesmo campo já que vao ser salvos pelo codigo. Se eu fizer desse modo INSERT INTO Tb_Locacao (cdProduto) VALUES ( 1 + 2 + 3) vai ser salvo como 123!!
×
×
  • Create New...