Mensajes

En visual Basic

Código (vb) [Seleccionar] Expandir


'X y Y el centro, RX el radio en X, RY el radio en Y, IA angulo inicial, FA angulo final
Sub cCircle(ByVal X As Integer, ByVal Y As Integer, ByVal RX As Integer, ByVal RY As Integer, ByVal IA As Integer, ByVal FA As Integer)
   pi = 3.141654
   For I = FA To IA Step -1
       aux = 2 * pi * (I / 360)
       Me.PSet (X + RX * Sin(aux), Y - RY * Cos(aux))
   Next
End Sub


Espero y te ayude... saludos

Que donde sera la pisteada?, van a ir morritas tambien?, si no pa llevar una cuantas que no?

Yo tambien soy de mexico

No conozco nada de COM, tampoco la logica del programa, a ver corrigeme:

*El sistema recibira caracteres,
* despues de la recepcion de un caracter el timer se habilitara estableciendo un tiempo de espera
* y cada vez que se recibe un caracter el tiempo de espera se renueva.
* Si el tiempo de espera se agota entonces el siguiente caracter recibido sera miembro de una nueva cadena, el timer se deshabilitara hasta recibir un nuevo caracter.

estoy bien?

Código (vb) [Seleccionar] Expandir


Dim contador as integer
Dim s as string

private sub Comm1_OnComm()
    if comm1.commevent=comevreceive then 'Si se ha recibido un caracter.
        timer1.enabled = true    ' se habilita el timer.
        contador=0 'El tiempo de espera se renueva
        s = s & comm1.input 'Se obtiene el siguiente caracter
        'Aquí proceso el caracter recibido.
        ' Cuando se reciban tdos los caracteres se inhabilita el timer.
    end if
end sub

private sub timer1_Timer()
    contador=contador+1 'cada vez que de un Tick, aumentara en 1
    if contador=5 then ' el tiempo de espera se agoto, la cadena se reinicia
        s=""   ' Vacía la cadena de recepción.
        contador=0 'el tiempo de espera se renueva
        timer1.enabled=false 'Se desactiva el timer
    end if
end sub


espero haberte ayudado... suerte y feliz navidad

Código (vb) [Seleccionar] Expandir


dim cTime as Long

cTime=getTickCount + 100
while True
  doevents
  if getTickCount  >= cTime then
    Var=Var + 1
    cTime=getTickCount + 100
  end if
wend


asi?

me parece interesante, pero me baje la libreria con todo ejemplos y tutoriales, pero no puedo correr los ejemplos, siempre me da algun error  (Error de automatizacion)

Yo l  p dir  un t clado qu  l  sirva la l tra " "  (turumpazzzz!)

Feliz navidad!

que le pediran a santa? 

Ya ves que usas etiquetas para los "GOTO". Pues colocaste 2 veces la etiqueta "com2k" y era "com2h" en una... ya corregi tu codigo (con tu permiso) lo subo:

http://www.mediafire.com/?xteei8hb2b75754

aunque no le entendi al juego de que trata?, te recomiendo un poquito mas de orden en el codigo, no para que se vea lindo, si no para que te entiendas mas tu o que te entiendan "los que quieres que te entiendan"

Código (vb) [Seleccionar] Expandir


Dim konami As Byte

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If ((konami = 0 Or konami = 1) And KeyCode = 38) Or _
    ((konami = 2 Or konami = 3) And KeyCode = 40) Or _
    ((konami = 4 Or konami = 6) And KeyCode = 37) Or _
    ((konami = 5 Or konami = 7) And KeyCode = 39) Or _
    (konami = 8 And KeyCode = 66) Or (konami = 9 And KeyCode = 65) Then
        konami = konami + 1
        If konami = 10 Then MsgBox "Has activado el konami code!": konami = 0
    Else
        konami = 0
    End If
End Sub


emmm pues no veo alguna funcion especial del codigo, creo que no lo pusiste todo.

Pero la sola linea:

Código [Seleccionar] Expandir

counter = counter + 1

(Supongo) que esta para que en cada vuelta del ciclo se le sume 1 a counter... no se si eso es lo que preguntabas