Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Sub Main()
- If Application.Args[1] = "" Then
- 'modo gráfico,ya que no se ha introducido ningun numero
- FMain.Show()
- Else
- 'generar imagen internamente...
- If Len(Application.Args[1]) <> 13 Then
- Print "Error: introduce un numero valido EAN-13 (" & Application.Args[1] & ")"
- Quit
- Else
- 'borro la imagen anterior si la hay.
- Try Kill "/tmp/codigoBarras.png"
- 'genero imagen del codigo y la guardo en
- imagen(Application.Args[1])
- Quit
- Endif
- Endif
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement