Mensajes

Una alternativa seria:

con un Arreglo (Array)

Código (vb) [Seleccionar] Expandir


Dim str as string
str = Join(arreglo, Chr(255))
winsock.send str, vbString



De una tabla a un arreglo bidimencional (lo use en seudocodigo y basic):

Código [Seleccionar] Expandir


Dim str() as string
Redim str(NumeroColumnas-1,NumeroFilas-1)
Desde X = 0 hasta NumeroColumnas-1
   Desde Y = 0 hasta NumeroFilas-1
       str(x,y) = TextoCelda en coordenada x,y
   fin desde Y
   'Aquì podrias enviarias ya el arreglo Str()
fin desde X
   ' O Aquì enviarlo de forma completael arreglo Str()


Dulces Lunas

yo tengo el windows 7 x86 y no tengo problemas con el Visual Basic:)

a mi me causa un problema con el dibujado de controles, va re lento xP

instr()

si es = 0 no existe en el string

dulces lunas

esto ya estaposteado me parece pero aun asi hay una forma y es con el metodo burbuja o uno que dicen "divide y venceras"

http://es.wikipedia.org/wiki/Algoritmo_divide_y_vencer%C3%A1s
http://es.wikipedia.org/wiki/Ordenamiento_de_burbuja

hay mas metodos... el que mas me gusta es dividir para ordenarar xP, es rapido.!¡

por metodo burbuja:

Código (vb) [Seleccionar] Expandir


Sub ORDENAR()
Dim X As Integer
Dim I As Integer
Dim y As Double
Dim j As Integer

X = 1
For I = 1 To 10
Cells(I, 1) = Rnd
Next I

For I = 1 To 9
For j = I + 1 To 10
If Cells(I, 1) < Cells(j, 1) Then
y = Cells(j, 1)
Cells(j, 1) = Cells(I, 1)
Cells(I, 1) = y
End If

Next j
Next I

End Sub


buble sort

Código (vb) [Seleccionar] Expandir


Public Function BubbleSort() As Integer
Dim Vec(1 To 10) As Integer
Dim aux As Integer

  For i = 1 To 10 - 1
    For j = 1 To 10 - 1
      If (Vec(j) > vec (j+1))
        aux = vec(j)
        vec(j) = vec (j+1)
        vec(j+1) = aux
      End If
    Next j
  Next i


entonces tu problema no es con vb6 si no mejor dicho algo relacionado con macromedia... aaa que bien!¡.

el dir() se me pasa por alto, igual con, es mas facil xP

en el evento click (en su correspondiente proceso)

Consejo: En todo caso si estas realmente perdido en programaciòn lee un manual al lenjuage correspondiente del lenguaje

Dulces Lunas.

si es un router manejalo por medio de winsock con el respectivo protocolo hacia el router simulando la navegacion por la web.

Dulces Lunas

1 Antes que nada esto NO ES NET.
2 No importa el lenguaje si no mas bien como lo simularias, cual seria tu logica de la dicha simulaciòn (En esto implica otras caracteristicas del personaje como son agilidad,vitalidad,poderes,etc que se yo).

P.D.: si tomas como consideracion solo una caracteritica no se hace un random por solo usar una caracteristica el que tenga mayor fuerza gana y punto, encabio si se toman 4 caracteristicas como ejemplo te pongo:

PJ 1
Fuerza=2
Agilidad=10
Vitalidad=100
destreza=5

PJ 2
Fuerza=10
Agilidad=5
Vitalidad=100
destreza=10

quien de los dos pjs ganaria? solo hay que hacer que pequeños random de agilidad con respecto a la dexztreza del otro pj

En este la agilidad querria decir la probabilidad de esquive
Y la destreza la probabilidad de golpeo

y posteriormente la influencia del golpe, tipo de ataque, vulnerabilidade, etc...

Solo te pongo esta teoria, por que la programacion es solo probabilidades, reglas de tresetc... matematicas y logica aplicada!¡.

Encabio si solo cuenta la fuerza gana quien tenga mas fuerza y ya xP.

Funcion en VB6.0

Código (vb) [Seleccionar] Expandir


rnd()



En .NET la desconozco

P.D.: no nesesitas bdd ni nada primero creo el motor de simulacion despues ya siquieres usar una bdd o mejor aun variables es a tu consideracion.

Dulces Lunas

solo te dejo este links, las apis hay estan con un ejemplo.

http://allapi.mentalis.org/apilist/f.shtml

Dulces Lunas