Haz una pregunta
  Foros de Electrónica » Diseño digital » Interfaces y Programación
Foros Registrarse ¿Olvidaste tu contraseña?

Temas similares

18/02/2011 #1

Avatar de COSMICO

marquesina con pic y vb6
Saludos amigos.
debo crear una marquesina desplazandose con pic y vb6.
la idea es recibir un número aleatorio por puerto serie, y segun el numero, escojer
un mensaje de un array, comenzar a desplazarlo por la pantalla del pc de derecha a izquierda.
Pero tengo un problema con el código de vb6.
ahy le dejo a ver que me aconsejan.
Gracias por la ayuda

Option Explicit

Dim strText As String

Dim conta As Long

Dim longitud As Integer

Dim palabra As String

Private Sub cmdScroll_Click()

conta = 0 strText = String(140, " ") + "el señor es mi pastor; nada me faltara. En lugares de delicados pastos me hará descansar; junto a aguas de reposo me pastoreara"

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

strText = Mid(strText, 2) & Left(strText, 1)

txtMessage = strText txtMessage.FontName = "Arial"

txtMessage.FontSize = 40' si cambio este valor a 10 por ej el mensaje aparece en la mitad del textbox y ahy comienza el desplazamiento y si el valor es mayor, parece que comienza mas atras demorandose demasiado en aparecer

End If

End Sub
21/02/2011 #2

Avatar de Meta

Puede que te de ideas este tutorial.

http://electronica-pic.blogspot.com/...ual-basic.html

Saludo.
Respuesta
¿Tienes una mejor respuesta a este tema? ¿Quieres hacerle una pregunta a nuestra comunidad y sus expertos? Registrate

Buscar más temas sobre:
Lupa Interfaces y Programación

Lenguajes de programación, gestión y manejo de puertos

Cerrar
Foros de Electrónica » Diseño digital » Interfaces y Programación

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO ©2011, Crawlability, Inc.