Jump to content
Fórum Script Brasil

Search the Community

Showing results for tags 'feito com asp classico'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

Found 1 result

  1. Boas Pessoa Estou com uma dificuldade. Encontrei probleminha, na função abaixo calcula o codigo de barras com um digito a mais, Se alguém puder ajudar encontrar o erro agradeço. Fiz diversas alterações porém não consegui chegar no resultado.. O valor que deveria ser apresentado é : 481115243200001 porém, apresenta : 4811152432000001 um zero a mais. estou usando esta rotina para o padrão 2 of 5 Sub fbarcode(Valor) Dim f, f1, f2, i Dim texto Dim p11 p11=11 Const fino = 0.4 Const largo = 0.7 Dim BarCodes(99) if isempty(BarCodes(0)) then BarCodes(0) = "00110" BarCodes(1) = "10001" BarCodes(2) = "01001" BarCodes(3) = "11000" BarCodes(4) = "00101" BarCodes(5) = "10100" BarCodes(6) = "01100" BarCodes(7) = "00011" BarCodes(8) = "10010" BarCodes(9) = "01010" for f1 = 9 to 0 step -1 for f2 = 9 to 0 Step -1 f = f1 * 10 + f2 texto = "" for i = 1 To 5 texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1) next BarCodes(f) = texto next next pdf.Text "30","225",texto end if xPos=55 p201=230 pdf.rect xPos, p201, fino, p11, "F" xPos = xPos + fino + fino pdf.rect xPos, p201, fino, p11, "F" xpos = xpos + fino + fino For n = 1 To Len(valor_barras) Step 2 cASC = cint(Mid(valor_barras, n, 2)) For i = 1 To 10 Step 2 If Mid(BarCodes(cASC), i, 1) = "0" Then F = fino Else F = largo End If pdf.rect xpos, p201, F, p11, "F" xpos = xpos + F If Mid(BarCodes(cASC), i + 1, 1) = "0" Then xpos = xpos + fino Else xpos = xpos + largo End If Next Next pdf.Text "30","235",xpos pdf.rect xpos, p201, largo, p11, "F" xpos = xpos + fino + largo pdf.rect xpos, p201, fino, p11, "F" end Sub Valeu Obrigado...
×
×
  • Create New...