Mensajes

El control winsock es para conectar aplicaciones por internet, por ejemplo chats, juegos online, troyanos.... Siempre con la estructura cliente servidor, o mezclando estas en el caso de un chat por ejemplo.

En el proximo mensaje pon las letrS NEGRAS POR FAVOR...

saludos.

ooooo Yo estudio la misma carrera que tu y tmb e exo esa assignatura, por cierto la e suspendido y aora la repetire jajajajajajja.

Aclaro:

El db-25 es el conector del puerto paralelo, PARALELO. y tiene 25 pines.. 8 control, massa, alimentacion y algunos con funciones ya predeterminadas.

No es del puerto serie

Uffff puedes intentarlo con diodos zener, pero aguantan mas o menos sobre los 2 amperios si mal no recuerdo.... yo de ti iria auna tienda de electronica y preguntaria si tienen zeners de esa magnitud de corriente.

saludos.

Yo instalaria compiladores antiguos (si sabes programar) y los disfrutaria... to en mi pentium 75 tengo las primeras versiones de pascal que corren en MS-Dos y esta muy xulo... tambien puedes aprovechar para jugar o emular juegos antiguos...

Saludos.

No se puede, olvidate de ello.

Podrias probar otros juegos online y son mucho mejores que el FFXI. Te recomiendo lineage 2 o ragnarok.

Gracias... yo tenia el mismo pero en vez de
open "c:\archivo.txt" for append as #1
tenia
open "c:\archivo.txt" for output as #1

Los dos són validos pero tienen usos diferentes... el output es para crear el archivo de nuevo, y el append es si existe escribir informacion en el.

Eso busca info sobre "guardar archivos en vb" veras que hay otros tipos como el Random... guardar en binario...

Suerte

Winsock.Count

Mira, este sirve para contar el numero de controles que tienes en la matriz... pa que entiendas, si tienes un cliente por ejemplo com muchas conexiones y las tienes controladas con una matriz de winsock. winsock.count podras manejar todo el numero de conexiones hechas con la matriz del control winsock que tengas creada.

Aqui u ejemplo de un cliente de chat donde lo usan.

Código [Seleccionar] Expandir

Option Explicit

Dim boolServer As Boolean

Private Sub cmdClient_Click()
    ' Als Client identifizieren und die Möglichkeiten vorgeben
    boolServer = False
    cmdServer.Enabled = False
    cmdClient.Enabled = False
    cmdGo.Enabled = True
End Sub

Private Sub cmdGo_Click()
    Dim I As Integer
    ' Loge ich mich gerade ein ?
   
    If cmdGo.Caption = "Go" Then
        ' Erst mal die Einstellungen eifrieren
        txtNick.Enabled = False
        txtHostIP.Enabled = False
        txtPort.Enabled = False
        cmdGo.Caption = "Stop"
       
        ' Bin ich Server ?
        If boolServer = True Then
            WinSock(0).LocalPort = txtPort.Text
            WinSock(0).Listen
            stBar.SimpleText = "Status: Listening"
        Else
            WinSock(0).RemotePort = txtPort.Text
            WinSock(0).RemoteHost = txtHostIP.Text
            WinSock(0).Connect
            stBar.SimpleText = "Status: Connecting to " &  _
            txtHostIP.Text & ":" & txtPort.Text
        End If
       
       
    ' Ich logge mich gerade aus
    Else
        ' Bin ich Server ?
        If boolServer = True Then
            ' Erst mal alle Verbindungen schließen und unnötige 
' WinSocks entladen
            For I = 1 To WinSock.Count - 1
                WinSock(I).Close
                Unload WinSock(I)
            Next I
        Else
            WinSock(0).Close
        End If
       
        ' Jetzt wieder alles in den Urzustand versetzen
        txtNick.Enabled = True
        txtPort.Enabled = True
        txtHostIP.Enabled = True
        cmdGo.Caption = "Go"
        cmdGo.Enabled = False
        cmdClient.Enabled = True
        cmdServer.Enabled = True
        stBar.SimpleText = "Status: Offline"
    End If
End Sub

Private Sub cmdSend_Click()
Dim strMessage As String
   
    strMessage = "{" & txtNick.Text & "}:" & rtfSend.Text
   
    ' Bin ich Server
    If boolServer = True Then
        SendMessage strMessage
        rftReceive.Text = rftReceive.Text & vbCrLf & strMessage
    Else
        If WinSock(0).State = 7 Then WinSock(0).SendData strMessage
    End If
   
    rtfSend.Text = ""
   
End Sub

Private Sub cmdServer_Click()
   
    ' Erst mal die Buttons ändern
    cmdClient.Enabled = False
    cmdGo.Enabled = True
    cmdServer.Enabled = False
   
    ' Jetzt bin ich Server
    boolServer = True
End Sub

Private Sub WinSock_Close(Index As Integer)
    If Index = "0" Then
        stBar.SimpleText = "Status: Offline"
    Else
        stBar = "Status: Verbunden mit " & WinSock.Count - 1 & " " & _
        "Client(s)."
    End If
End Sub

Private Sub WinSock_Connect(Index As Integer)
   
    ' Jetzt soll man ja wissen, daß man drinnen ist
    stBar.SimpleText = "Status: Connected to " & txtHostIP.Text & ":"  _
    & txtPort.Text
End Sub

Private Sub WinSock_ConnectionRequest(Index As Integer, ByVal  _
requestID As Long)
    ' Ein neues WinSock laden und die Verbindung übernehmen lassen
    Dim intZähler As Integer
   
    intZähler = WinSock.Count
    Load WinSock(intZähler)
    WinSock(intZähler).LocalPort = txtPort.Text
    WinSock(intZähler).Accept requestID
    stBar.SimpleText = "Status: Verbunden mit " & WinSock.Count - 1 &  _
    " Client(s)."
End Sub

Private Sub WinSock_DataArrival(Index As Integer, ByVal bytesTotal As Long)

    Dim strMessage As String

    ' Nachricht holen
    WinSock(Index).GetData strMessage

    ' Bin ich der Server? Dann weiterleiten
    If boolServer = True Then SendMessage strMessage

    ' Ich mags auch sehen
    rftReceive.Text = rftReceive.Text & vbCrLf & strMessage
End Sub

Private Sub SendMessage(Message As String)
    Dim I As Integer
   
    ' Weiterleiten an die anderen clients
    For I = 1 To WinSock.Count - 1
       
        ' Erst mal schauen ob die Verbindung steht
        If WinSock(I).State = 7 Then WinSock(I).SendData Message
    Next I
End Sub

Private Sub WinSock_Error(Index As Integer, ByVal Number As Integer,  _
Description As String, ByVal Scode As Long, ByVal Source As String,  _
        ByVal HelpFile As String, ByVal HelpContext As Long,  _
        CancelDisplay As Boolean)
    If Index < 0 Then
        WinSock(Index).Close
        Unload WinSock(Index)
        rftReceive.Text = rftReceive.Text & vbCrLf & "{System}: " & _
        "Verbindung zu einem Host abgebrochen."
    Else
        WinSock(Index).Close
        rftReceive.Text = rftReceive.Text & vbCrLf & "{System}: Dich " & _
        "hats gerade gegrillt."
        cmdServer.Enabled = True
        cmdClient.Enabled = True
        cmdGo.Caption = "Go"
        cmdGo.Enabled = False
        stBar.SimpleText = "Status: Offline wegen Verbindungsproblem."
    End If


Fuente --> Aqui


Saludos, atte skapunky

Mira, hoy mismo acabo de acabar el mio, jejejeej un cronometro programable de cuenta atras.

A continuación te pongo algunos elementos los cuales te serviran pa hacer la alarma:

Display (catodo comun) --> Si quieres ingresar un numero pa desactivarla...

Array 8 resistencias 220 ohms --> Para el display.

convertidor 7448 --> Convierte binario - 7 segmentos. este sirve para displays catodo comun. Para display de anodo comun usa el 4747 ya que este se activa en estado bajo (0).

multiplexor --> Este por si usas codigo para comparar el codigo pre-programado con el que inserta el usuario, usa uno de 8 entradas con una única salida. Existe pero ahora no recuerdo el numero.

7476--> Esto son vasculas con reset+clear ya que posiblemente necesites.

diodo/zumbidor --> Este es la señal de alarma, si usas diodo la tension que le llegue ha de ser de unos 2 volts, asi que ponle en serie una resistencia de 220 aprox.

Teclado/preselectores --> Este es el sistema para introducir el codigo, el teclado si usas compra uno de punto comun. Los preselectores son cacharritos mecanicos que selecionas un numero del 0 al 9 y tiene la salida con 4 patitas que te da directamente el numero binario.

555 -> Este es un temporizador pos si kieres poner que se inserte el codigo en un cierto tiempo.. o algo dure un cierto tiempo... Utilizalo en modo monoestable, es facil y por internet hay info de como hacerlo.

Bueno espero haberte ayudao, pa dudas postea.

Saludos. Atte Skapunky.

Oye aex, en mi universidad me pidieron tmb un proyecto.. y entre ellos una alarma... De hecho hago otros pero se mas o menos como hacer la alarma

(haber si iremos a la misma xd). Enviame un post privado y haber donde estudias.