Mensajes

Porque tienen menos idea aún xD...

Al final fui a otra oficina de correos y me dijeron que simplemente:

Nombre y apellido del titular
Apartado de Correo XXX
Cp ciiudad

(Donde cp es el codigo postal correspondiente a los aparatados de correos de la ciudad

Gracias por las respuestas!

[Apartado de Correos]

Hola, lo publico aquí porque no pega en ningun otro lado xD.

Verán, tengo una duda. Hace unos días he alquilado un Apartado de Correos, España... el caso es que me he dado cuenta que no me dijeron que dirección tengo que poner para que me envien las cartas ahí.

¿Alguno de vosotros tiene un apartado postal y podría decirme qué dirección ponen? ¿La del edificio de correos de mi ciudad? ¿Solo el nº del apartado y la ciudad? He oído además que se utilizan un Codigo Postal especial....

Bueno, a ver si alguien sabe algo porque en la web oficial de correos no vi nada...

Saludos!

PD.: Si este post está excesivamente fuera de contesto que me lo borren xD.

Hola!

Estoy creando un programa similar a un chat para usarlo entre un PC y una PDA pero enviando los mensajes cifrados en RC4.
El servidor está hecho en VB 6.0 y el cliente en EVB 3.0 para Pocket PC. Ambos con el control Winsock que proporciona Microsoft.

El problema es que cuando envio del servidor (PC) al cliente (PDA) cadenas de más de 83 caracteres, la PDA deja de recibir nada más. Al revés pasa igual, solo recibe 83 caracteres, pero a diferencia de la PDA el PC sigue recibiendo mensajes.

Los códigos usados son (solo pongo lo relacionado con este problema):

Código (vb) [Seleccionar] Expandir


'SERVIDOR
Private Sub enviar_Click()

Dim datosenviar As String
datosenviar = RC4(aenviar.text, "123456789")

wS.SendData datosenviar
pant.Text = pant.Text & "Yo digo (" & Format(Now, "dd/mm/yyyy hh:mm:ss") & "):" & vbCrLf _
& "   " & aenviar.Text & vbCrLf & vbCrLf
aenviar.Text = ""

End Sub


Código (vb) [Seleccionar] Expandir


'CLIENTE

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim datos As String

WinSock1.GetData datos, vbString

Text1.Text = Text1.Text & "Server dice:" & vbCrLf & "  " & RC4(datos, "123456789") & vbCrLf
   
datos = ""

End Sub

Puede alguien ayudarme a solucionar este error?

Salu2 

Para hacer eso podrías crearte un cicuito controlado por un PIC programado en C, BASIC o ASM, conectado al pulsador del scalextric y al ordenador por el puerto RS232. Luego en el PC te haces un programa en VB 6.0 que envie con el componente MSComm los datos que sean al PIC y que este sea el encargado de regular la corriente que pasa al scalextric.

No se si me entendiste. A lo que voy es a que tienes que poner algo entre el scalextric y el PC. Pasate por el foro de electronica para ver como podrías crearte ese "algo". Eso si, la conexión al PC yo la haría por RS232 en vez de por USB porque te va a costar encontrar información de como usar el USB en VB6.0.

salu2

¿Podrías poner fotos?

Más aún? xD

Al final lo he dejado sin soldar.... lo malo es que sin soldar eso SOLO lee copias de seguirdad, los orginiales no los hace ni caso...

salu2 

Hola,

Estoy siguiendo un manual de picsystems (http://www.picsystems.net/7502.php) para instalar en una PSX SCPH-7502 un PIC 12C508A con el 9002.hex grabado.

He conseguido soldar las patas 1, 4, 5 y 8... pero la 7 me es imposible.... porque la placa no lleva estaño ni nada a lo que soldarse en ese sitio... he intentado soldarlo tal cual está por si había algo y no lo veía pero imposible... que no se queda soldado. Les adjunto una foto de donde quiero soldarlo (está ya algo sucio de haberlo intentado varias veces)...

¿Qué puedo hacer? ¿No puedo soldarlo en otro punto alternativo (me es imposible ver si continua por algun lado puesto que no hay pista que seguir ni nada de nada...)?

Espero que alguien de aquí haya hecho esto alguna vez y pueda ayudarme, gracias.

Salu2 

Mi PSX:







Las soldaduras deberían ir así:

http://www.picsystems.net/software_psx.php

Salu2 

Agrega el componente MSComm y este codigo en el form_load. Lo que hace es comprobar infinitas vecs si el puerto com está abierto (si lo está lo cierra).

No se si funcionará porque no tengo el VB aquí para probarlo, pero sería algo así:

Código (vb) [Seleccionar] Expandir

Dim i as integer = 0

    while i = 0
          if msComm1.portopen = true then
              msComm1.portopen = false
          end if
    wend

salu2 

Prueba a poner un timer o un bucle para que esté constantemente cerrando los comm. (usa el control MSComm)

salu2 

Ok, muchas gracias, voy a probar