SoloCodigo

Buenas a todos.

Aver os comento una cosilla. Tengo una aplicacion que lela un contador cada que recibo datos por elpuerto serie. COmo esta aplicacion , en teoria, se debe de tirar funcionando hasta varios dias, tengo el siguiente problema.

El contador es una variable tipo long, y cada vez qeu recibo un dato por el puerto serie, lo aumento en uno. El problema esta en que llegara un momento en qeu supere el valor tope (2147483647) y entonces me dara un mensaje de desbordamiento. Me han dicho que hay algo llamado lista (nunca llegue a verlas en c++) que me puede solucionar el tema

Alguien sabe com ova esto. Es facil o requiere mucho codigo???

Un saludo y gracias

Aver, vayamos por parte.

- Para Scorpion25. La verdad que en lo de enviar archivos entero por el puerto seri eme pillas. No obstante algo lei de como configurar el puerto serie como si se tratara de un modem, por lo que creo qeu es posible. Igual se puede hacer como dice Brroz, que lo que hagas es acceder al fichero e ir enviando su contenido segun lo vas leyendo y a la vez se va escribiendo en la maquina de destino. LA verdad, esto no lo he probado, tendria que verlo, si encuentro algo os lo digo, pero en principio seria buscar informacion sobre lo que ha planteado brroz.


- Para dannyhar.

Si no he entendido mal, lo que tu realmente tiene qeu hacer en tu aplicacion es recibir datos por el puerto serie.  

Veamos, enviar es sumamente facil, tan solo tienes qeu definir una variable tipo byte y utilizar el mscomm.output. Creo qeu lo explique mas arriba. Si por ejemplo quieres enviar el numero binario 1010, este numero en decimal corresponde al 10, por lo tanto, tu variable tipo byte la pones a valor 10 y cuando la mandes, lo que realmente mandas sera la secuencia 1010.

Para recibir, tienes que usar la propiedad OnComm y despues seleccionar el commEvent. Es muy facil. TE coger una variable tipo byte y en ellas metes el buffer de entrada.
por ejmplo

Private Sub MSComm1_OnComm()
Dim Rec() As Byte
Select Case MSComm1.CommEvent
    Case MSCOMM_EV_RECEIVE
    Rec() = MSComm1.Input
en esa variable ya tienes lo qeu recoges del puerto serie y luego puedes utilizarla como tu quieras .

No se si esto te valdara de ayuda.

Mirate el ejemplo que adjunto, creo que ya lo subi uan vez. Metete en el codigo y repasalo, veras qeu es muy sencillo. Lo que no tengo claro es si tu quieres coger lo qeu te llega y ay esta, o si lo que quieres representar en tu programa es si te llegan 0  y 1 y en el caso de qeu te lleguen 0 poner un cero, y si te llegan 1 poner un 8.

De momento haz lo que te digo de recibir. Despues, si lo logras, orta cosa que se puede hacer es la siguiente. A ti te llegara a tu variable tipo byte un numero decimal. Pasas ese numero de decimal a binario con una funcion (si no sabes hacerla yo ya la tengo hecha). es decir, suponte que te envian la secuencia 1010 igual que antes, pero ahora te la envian a ti, no la envias tu. En tu variable byte del evento de recepcion tu recibes un numero, el 10, con lo cual no puedes saber si son 0 o 1, 0 v u 9v. Pues pasas el 10 a binario, es decir, 1010, y a aprtir de ahi te mueves pos la cadena de 0 y 1 y sabes si recibes 0 voltios u 8 voltios.

No se si te he podido ayudar o no pero en cualquier caso, dime lo qeu sea y si hace falta me escribes en una hoja todo detallado lo qeu necesitas y lo miramos mas profundamente. Un saludo.

Mu buenas a todos. A ver, tengo una aplicacion en al que cargo una imagen en un picturebox. En ese formulario tengo un commonfialog para poder imprimirla. EL caso es qeu el dialogo de imprimir me lo muestra bien,si le doy a imprimir me lo imprime, pero..... si le doy a cancelar tambien, jejejeje

COmo resulevo esto?? este es el codigo, es pequeñito

Public Sub Imprimir()
Dim var As String
var = Label1.Caption
On Error Resume Next

With dlgCommonDialog
        .DialogTitle = "Print"
        .CancelError = True
        .Flags = cdlPDReturnDC + cdlPDNoPageNums
        .Orientation = cdlLandscape
        .ShowPrinter
     
Printer.Print var
Printer.PaintPicture Picture1.Image, 0, 200
Printer.EndDoc
End With
End Sub

A ver si alguien me echa una manilla. Ciao

Si te das cuentas, en el evento OnComm del puerto serie hay un select case.
Para eso sirven las lineas que dies mas arriba. El evento recibir le asignas el 2, el evento mandar el 1 y el resto son otros eventos, que si error en el envio, activacion de un flag de no se que, etc etc, eso es ya mucho mas especifico no creo que te haga falta. Respecto a lo de la WebCam no se como hacerlo, pero en este foro he buscado y hay varios post que dicen como hacerlo, echalos un vistazo

MMMM a ver, no he pillado muy bien tu pregunta, pero es qeu acabo de llegar de curra ry estoy reventado. En el text tu has de poner un numero entre 0 y 255, ya que luego es lo que le pasas por el puerto serie y si se sale de ahi, pos casca. Tambien puedes poner una letra o simbolo cualquiera y con la funcion Chr(numero que sea) el ya coge el valor. Por ejemplo si le metes una a, te pone el 97 (creo que es el 97 , en cualquier, el numero que le corresponde). Lo que no puedes hacer es ponerle el numero en binario.

Bueno si, lo puedes poner, hacer una funcion intermedia que te pase ese numero binario a decimal, y luego ese numero decimal ponerlo en el puerto. Es bastante sencillo, si no te sale una funcion para pasar de binario a decimal me lo dices y te la mando.

Respecto al cable, yo uso un cable null modem. En cualquier tienda de electronica lo tienes. Solo tienes que decir que es un cable para conectar dos puertos serie, por ejemplo los dos del ordena para hacer prueba en transmision entre ellos.


Espero haber ayudado. Un saludo.

Muy buenas gente.

Ahora si qeu si, juro por dios que si me ayudan en esto, ya no les pregunto nada mas en una temporada, esto ya es lo ultimo para el PFC y si me sale les dejo un temporada en paz (solo un tiempo, que a lo tonto a lo tonto, me he enganchado con el visual basic este).

Vereis, con el wizard del basic una aplicacion con menus etc etc. Yo luego le fui metiendo formularios, mas menus etc.

El caso, es que el tipico menu de Save, Open, etc, me lo creo el , y ahroa quiero hacerlo funcionar y no lo logro.

Esto es lo que el me crea para el Save As

Private Sub mnuFileSaveAs_Click()
    Dim sFile As String
   

    If ActiveForm Is Nothing Then Exit Sub
   

    With dlgCommonDialog
        .DialogTitle = "Save As"
        .CancelError = False
        'Pendiente: establecer los indicadores y atributos del control common dialog
        .Filter = "Todos los archivos (*.*)|*.*"
        .ShowSave
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
    End With
    ActiveForm.Caption = sFile
    ActiveForm.rtfText.SaveFile sFile
    'DataForm.Spreadsheet1.SaveFile sFile

End Sub


Pero yo lo que quiero, es que si por ejemplo, en uno de los menus de mi aplicacion tenia un comboboz y de entre todos sus valores, por ejemplo seleccione el tercewro, se lo guarde para que cuando lo vuelva a cargar, no salga el valor por defecto sino el que yo habia seleccionado. Igualmente tengo otros formularios con datos y quiero que esos datos se guarden.

Como puedo hacer esto???

Aunque no me sepais decir como se hace dadme pista o decidem si sabeis de algun sitio en el que me puedan ayudar.

Un saludo y mil gracias

perdona por no responder antes, pero estoy de curro hasta las cejas, y ademas tengo el proyecto fin de carrera.
Esta noche cuando llegue a casa miro lo que dices  yte digo como se puede hacer. Un saludo

Muchisimas gracias Seek20, funciono a la perfeccion.

Una cosa mas que ya se. Mil gracias

Muy buenas a todos.

A ver, esto ya es para que la aplicacion que estoy haciendo quede chachi del todo.

Resulta que uno de mis formularios lo uso como dialogo para introducir la condiguracion del puerto serie. Es decir, tengo varios combo box, y cada uno de ellos para una cosa, la paridad, la velocidad, et etc, de tal forma que si algun dia quiero cambiar la velocidad de transmision del programa o el puerto que usa por defecto, no tendria mas que venirme a este dialogo y configurarlo como quiera.

El problema esta en que, si por ejemplo, selecciono en un combobox una de las velocidades, por ejempoo, 19200 baudios y la guardo en la variable "speed",cuando luego pongo mscomm1.settings="speed,8,n,1", pues me dice que no vale, que no puedo poner speed. Luego entonces o dejo la propiedad settings fijada y entonces no puedo hacer cambios o nada

Alguien sabe como puedo hacer un dialogo y pasarle los parametros que yo elijo al settings del puerto serie?????


Un saludo y muchas gracias.

Genial cpmario. Colosal. Mu profesional. La verdad, y no es porque lo este haciendo yo, pero me esta quedando una GUI la mar de maja. Jejeje, todo hay que decirlo, sin la ayuda de este foro habria sido imposible. Prometo que ya queda poco y no dare mas el coñazo. Jejejeje, ademas, os incluire a todo el foro en la memoria de proyecto. Ademas, si no me ponen la matricula, me acompañais a reclamar en masa.

En serio, mucha gracias, la cosa esta mu maja y me estais ayudando mazo. Saludos.

Confirmado.


Funciona  a las mil maravillas. Ahoar voy a ver como hago para meterlo dentro de mi aplicacion y que comienze a transmitir el puerto serie cuando yo le diga y que pare cuando se lo diga.

Mil gracias.

Muy buenas.

A ver, para variar tengo una dudilla que me corroe y com de constumbre recurro al foro. A ver si alguien conoce los OWC12. Office XP web components. Para el que no los conozca, con este componente puedes meter directamente en un form una tabla de excel (spreadsheet) y con los datos de ella, dibujar graficas (chartspace)

Veamos, mi problema es el siguiente. Por el puerto serie de mi aplicacion me lelgan datos, que yo voy metiendo en columnas de mi spreadsheet, una digamos para el eje de las x y otra para el de las Y. Mi chartspace usa como origen de los datos esta spreadsheet y em dibuja la grafica que yo quiera dibujar.

Hasta auqi todo muy bonito. Pero resulta que tengo que imprimir tanto al tabla de excel como el grafico, y no hay manera, he probado de todas las maneras. ME vale incluso con imprimir todo el formulario, pero resulta, que del formulario me impirmer todo, textos, botones, cualquier control que tenga puesto menos estos dos. EL caso es que con los office web componenes, usease el OEC9, le dices que imprima el formulario y lo hace, con todo dentro, tanto al tabla como la grafica, pero con este no hay manera.

Alguno habeis trabajado con estos componente y sabeis como hacerlo?? o que puedo hacer para de alguna manera poder imprimirlos??

Un saludo a todos y gracias de antemano.

Hola ebolo muchas gracias.

Sin embargo no consigo dar con ello. Creo qeu me falla la estructura del programa, vamos qeu a pesar de saber com ousar una variable date y una time, no se como puedo hacer para que ejecute algo a partir de una fecha que yo le introduzca. Podrias ponerme un ejemplo o decirme donde puedo encontrar alguno??.

Muchas gracias.