SoloCodigo

ya que para inicializar el puerto se usa en efecto el servicio : AH=0 pero en AL debemos poner los parametros del puerto como por ejemplo velocidad de tranmision, paridad, bit de parada y longitud de la palabra.

  si cometi un error ahi deberia ser funcion 1, me equivoque a la hora de postearlo confundi la funcion para enviar con la de inicializar el puerto realmente queria poner solo la rutina de como enviar por el puerto serial no como configurarlo porque eso se lo dejo a el porque no se como lo necesite,   ,  

pero por si acaso aqui dejo como deberia de ser:
configuracion:
envio de un dato por el puerto

Necesito sacar pulsos de la computadora para mover un carrito con motores stepper,
manejado con el teclado, por el puerto serial com1 en assembler, lo unico que me falta es saber como sacar el pulso,

pues para sacar un dato por el puerto serial tienes que hacer lo siguiente:

y que se sostenga mientras se mantenga la tecla presionada, por que mi circuito solo necesita dos bits de entrada.

con respecto a esto no se me ocurre como , porque al enviar el dato por el puerto serial al leerlo tu dispositivo, el dato se borra. talvez se nos ocurra algo si explicas con mas detalle como va a trabajar tu carro.

por cierto solo por curiosidad ¿que controlador estas usando para manejar un motor mediante ordenes enviadas desde un puerto serie?

hola programadore solicito su ayuda para poder resolver un pequeño programa que me resuelba la formula general es pero contar con su ayuda

  es muy simple simplemente tienes que poner:

probe el codigo que me posteaste pero no lo pude hacer funcionar, lo probe tal como lo pusiste y cambiando de posicion mi codigo porque creo que por lo menos una parte va arriba de la siguiente sentencia que es la que me da el error

If FileExists(strFname) Then

al llegar aqui me pone el siguiente mensaje de error:

Error de compilacion:
El tipo de argumento de ByRef no coincide

 

ayudaaaaaaaa

Hola, estoy haciendo un proyecto donde finalmente guardo un archivo .txt, la duda que tengo ahora es que quisiera poner el mensaje de advertencia de: "el archivo tal ya existe ¿desea remplazarlo?"

la rutina con la que guardo el archivo es la siguiente:

funciona perfecto, pero si guardo un archivo con un nombre que ya existe simplemente lo remplaza sin preguntar ¿que se le pone para que haga la pregunta?

cualquier ayuda sera bienvenida

gracias

me marca la palabra archivo como variable no definida

Private Sub Form_Load()
  Dim archivo, mdl, bandera
  mdl = 1
  bandera = 1
 
End Sub

   que raro si aqui la definimos, podrias intentar definirla afuera de las rutinas, asi:

 mdl = 1 y bandera =1 se dejan en form_Load

, osea no se bien q poner ahi.

Ahi tienes que poner el sonido que quieres escuchar, por ejemplo quisieras escuchar el sonido de cierre de sesion (si usas XP) tendrias que poner
tendria que funcionar  

la solucion que yo te di fue:

poner un modulo (proyecto--->agregar modulo---->nuevo) y poner este codigo

Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal variable1 As String, ByVal modulo1 As Long, ByVal banderas As Long) As Long

y luego en tu programa

Private Sub Form_Load()
   Dim archivo, mdl, bandera
   mdl = 1
   bandera = 1
   
End Sub

y donde dices que debe ir el sonido

   archivo = "C:\SONIDO.wav"
   Call PlaySound(archivo, mdl, bandera)

esto tiene que funcionar, si no funciona se debe a dos cosas, una de ellas es que en la carpeta system32 no este la libreria que se necesita que es "winmm.dll" y la otra razon es que el archivo de sonido que quieras ejecutar NO sea extension .wav

¿que sucede cuando llegas a la rutina donde debe salir el sonido?, te da error?? o que sucede ??


saludos  

yo llege por google  

por lo que veo nadie ha oido hablar de este virus o spyware

No quiero generar una guerra santa contigo pero veamos lo que me respondiste.

  No, yo no me presto a discuciones sin sentido, como dije si quieren creer o no ese es asunto de cada quien, yo aqui no vengo a convencer a nadie solo a dar mi opinion. y de la misma forma a mi no me podran convencer de lo contrario

como dije

para los cristianos, los ateos algun dia se darán cuenta de su error y para los ateos los cristianos nunca sabran de su error porque cuando mueran ahi se acabara todo

Mmmmm. no me respondiste la pregunta. ¿De donde nace la rebeldia?, si te das cuenta la naturaleza es agresiva, todos los animales, de alli nuestra agresion y rebeldia somos animales los cuales desarrollamos (como el León sus colmillos y garras) el cerebro para sobrevivir .

  esa rebeldia es parte de la imperfeccion de las personas y animales, nadie dijo que eramos perfectos y si tu pregunta es como un ser perfecto hizo seres imperfectos la respuesta es sencilla porque nos dio libre albedrio, porque sino mejor hubiera hecho robots que siguieran un programa.

La necesidad de dar explicacion a lo que no entienden solo eso. y porque no se le apareció a los egipcios, japoneses, Hindues??? Algunos de ellos han cambiado su religion pero no porque dios se les apareciera sino que el hombre los influencio.

eso es tu opinion, si eso fuera cierto actualmente ya solo hubieran ateos porque la ciencia ya lo explica todo y como dijeron por ahi:

Como vemos todavia hay mucha gente en el mundo que vive en la edad de piedra 

si demasiada, 99.5 % acepta creer en un ser superior y solo el 0.5 % es ateo declarado, cuanto Ingenuo y tan pocos sabios   .  
 
y con respecto a lo otro, eso lo hizo porque los unicos que se mantuvieron fieles fueron los israelitas, los demas fueron siguiendo idolos eso esta escrito porque eligio a Israel

Me he leido gran parte de la biblia y hay una parte donde Jesús dice: Si tu enemigo te golpea una mejilla, ponle la otra. Que pendejada, que un hombre me golpee la mejilla para que veas que lo que le voy a poner es un ojo morado. 

  eso no lo puso literal eso es mas que obvio, lo que eso quiere decir es que no debe haber venganza, que debe haber perdon para una convivencia en paz.


saludos y agradezco que esta discucion se mantenga con respeto.  

Hola, yo me converti hace unos meses al cristianismo, aun ahora tengo muchas dudas, me he hecho mil y una preguntas,  a  muchas dudas ya les encontre respuestas y a otras aun no, por lo que humildemente sin creerme sabia y sin querer ofender a nadie   , doy mi opinion sobre:  

Si el cielo es lo mejor, la maravilla, el unico objetivo del hombre, porque entonces el diablo se rebeldizó???

Donde nace esa rebeldia si Dios lo creó??
En un principio eso no debió existir.

Esta respuesta es muy sencilla, todos somos rebeldes, todos, acaso nunca fuiste rebelde con tus padres o con tus maestro, hay gente que se ha hecho atea porque Dios no sano a alguien de su familia, es rebelde en cuanto a la voluntad de Dios, es natural que lo hagan ¿quien no lo haria? pero acaso vivira mas feliz insultando a Dios y amargado o vivira mejor resignandose ???

El problema que veo es que muchas personas se dejan hacer daño o dejan que abusen de ellas, los pobres son conformistas y todo por algo que van a recibir

  error, las personas que se dejan hacer daño o dejan que abusen de ellas no son cristianas son estupidas, hay que hacer una diferencia Jesus dijo perdonar y amar, pero hay limites

No deberia ser lo contrario, es decir porque no nos demuestra que existe con hechos.
Una parte en la biblia dice que el que cree sin haber visto es mejor que el que cree habiendo visto.

Supuestamente lo que Dios quiere es que nazca la parte espiritual en el ser humano y eso se logra por FE, sino mejor apareciera de una vez.

Exacto, esa es la idea principal, ademas que el los siglos el hombre tiende a adorar a cosas superiores.

  ¿No te parece extraño?, que TODAS las culturas hayan adorado algo ¿por que tienen ese vacio? ¿Cual es la necesidad?

No lo soy porque todas las religiones en este mundo son sectas, y la iglesia es el negocio más rentable que ha creado el hombre, todo es una mentira.

Esto es muy cierto, si alguien a alejado a los creyentes es la misma iglesia, y eso desde tiempos antiguos, para mencionar la peor atrocidad "la santisima inquisicion" ¿como poder disculpar esto? por eso no culpo a quien no cree en la RELIGION

Aunque hace tiempo leí un libro cristiano llamado "Escalera al infierno"

Yo seré cristiana pero algo que no puedo asimilar es el infierno y los demonios, y estoy totalmente en desacuerdo en tratar de convertir a la gente asustandola, si existen o no a mi me tienen sin cuidado yo creo en Dios y Jesus y eso me basta

por si a alguien le interesa   , muchas de las dudas que tenia me las respondieron aqui preguntas y respuestas
es interesante ver las respuestas que da el pastor, en unas estoy de acuerdo pero en otras para nada  

  creer o no creer   , es cuestion de cada quien
para los cristianos, los ateos algun dia se darán cuenta de su error y para los ateos los cristianos nunca sabran de su error porque cuando mueran ahi se acabara todo

La pregunta es: Existe un procedimiento o metodo para comprimir los dibujos en una carpeta .zip y luego extraerlos cuando ejecuto el programa????


Gracias por su ayuda amigos.

Aqui te dejo un enlace donde hay 2 ejemplos de como comprimir y descomprimir archivos ZIP

  Comprimir/descomprimir archivos Zip

espero te sirva  


saludos

hola! q tal? necesito ayuda, hice un juego en visual basic y kiero agregarle sonidos, pero no se como se hace, por ej si kiero q un boton haga un sonido cada vez q se lo ejecuta.. si alguien me puede ayudar, desde ya muchas gracias por su atencion!

bueno, para un sonido simple esta la sentencia "beep", que creo que ya la debes conocer pero si lo que quieres es ponerle un sonido especial, debes poner en un modulo (.bas) lo siguiente

y en el formulario principal
con esto al presionar el boton Command1 suena el archivo SONIDO

En este caso he puesto la ruta en el disco C:, puede ser cualquiera pero ahi debe estar el archivo de sonido.


espero esto te sirva.

suerte