[APORTE]Sistema de Viajes con lista (Configurable desde el server)(11.5)

Bueno ya lo dice el título.

En el servidor creamos un archivo de texto, como por ejemplo "viajes.txt". A partir de ahí el server lee los viajes que hay disponibles.
Es muy útil para servidores con gran cantidad de mapas, y todos muy separados

Formato del texto:

Citación :: [Pasaportes] 'formato predeterminado
Cantidad=2

[Pasaporte1]
Mapa=1
X=52
Y=54
Nombre=Runek

[Pasaporte2]
Mapa=1
X=49
Y=85
Nombre=Runek (Comercios)

Bueno, en ese ejemplo un poco exagerado por viajar 6 pasos muy pancho

Comenzamos:

En el código del servidor:

Crean un formulario con las siguientes propiedades:
Nombre=frmListV
Visible=Falso

Crean un Tiempo, con las propiedades de:
Intervalo=10000 (10 segundos, puedes cambiarlo, es el tiempo que tarda en actualizarles la lista de viajes a los usuarios, A TODOS, asi que no pongan menos de 500 porque van a explotar todos los paquetes )

En su código ponen:

Código:: Dim ListadoViajes As String
Dim PasaportesTotal As String
PasaportesTotal = GetVar (App.Path & "\viajes.txt", "Pasaportes", "Cantidad")
Dim i As Integer
For i = 1 To PasaportesTotal
If i = 1 Then
ListadoViajes = GetVar(App.Path & "\viajes.txt", "Pasaporte" & i, "Nombre")'puedes cambiar los nombres como quieran, pero cambialos también en el archivo del listado porque después vas a decir que no es funcional xD
Else
ListadoViajes = ListadoViajes & "," & GetVar(App.Path & "\viajes.txt", "Pasaporte" & i, "Nombre")
End If
Next
Call SendData(SendTarget.ToAll, 0, 0, "VLFASDA" & ListadoViajes)

Listo el formulario.

Creamos en el HandleData_1: (si ya lo tienen, como nightmare, reemplacen)

Invitado

Lindo Aporte Amigo.

Lindisimo aporte

Lindo aporte che , se ve que estas aprendiendo a programar.

Gracias si de apoco voy aprendiendo yo lo que pasa es que no tengo tiempo

Invitado

Pero si vos isiste un ao rre copado, porqué decis que recien estas aprendiendo ?

Muy buen aporte