EQUIPAMENTO PARA LEITURA DE GABARITO
                    Olá, pessoal! Alguem conhece algum equipamento (marca, modelo, etc) para leitura de gabaritos?
                
            
                    Leitora de Cartões LC3000
http://www.automatica.com.br/leitora.htm
por causa dos custos acabei construindo meu proprio leitor de cartão resposta.
                
            http://www.automatica.com.br/leitora.htm
por causa dos custos acabei construindo meu proprio leitor de cartão resposta.
                    olha não sei o tamanho do projeto, mas com um escaner comum vc poderá desenvolver um programa, para fazer  a leitura do gabarito, usando bitblt, ou seja o programa identifica apenas a cor preta oou uma cor escura e sua podição e pronto.
                
            
                    Marcelo, detalhe sua idéia? pode ser?
                
            
                    não sei o tamanho do projeto, ou do uso, se não forem milhares de gabaritos, voc pode fazer o seguinte, existem variuos exemplo de como usar bitblt para se localizar uma cor espécifica em uma imagem, e retornar a posição dela, então estedude este método e use em seu projeto.
vou procurar algum exemplo de te envio
                
            vou procurar algum exemplo de te envio
                    veja este exemplo de capturar a cor de um determinado ponto da imagem
[ô]Para saber a cor de um ponto em uma imagem usando API
altere o exemplo acima para fazer uma varredura na imagem escaneada, e ele mostrará tos 'pontos escuros da imagem e suas posições
mas vamos a alguns detalhes, este método é bem mais devagar que um equipamento especifico, porem bem mais rápido que manualmente
                
            [ô]Para saber a cor de um ponto em uma imagem usando API
Private Declare Function GetPixelRGB Lib [Ô]gdi32[Ô] Alias [Ô]GetPixel[Ô] (ByVal hdc As Long, _
ByVal X As Long, ByVal Y As Long) As RGB32
Private Type RGB32
    Red As Byte
    Green As Byte
    Blue As Byte
    Pad As Byte
End TypePrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim color As RGB32
    color = GetPixelRGB(Picture1.hdc, X, Y)
    with color
        label1.caption = .Red
        label2.caption = .Green
        label3.caption = .Blue    
        Picture2.BackColor = RGB(.Red, .Green, .Blue)
        label4.caption = Hex$(Picture2.BackColor)
    end with
End Subaltere o exemplo acima para fazer uma varredura na imagem escaneada, e ele mostrará tos 'pontos escuros da imagem e suas posições
mas vamos a alguns detalhes, este método é bem mais devagar que um equipamento especifico, porem bem mais rápido que manualmente
                        Tópico encerrado , respostas não são mais permitidas
                    
                

