Mensajes

Estudia todos los lenguajes posibles, entiende que un sistema operativo es un conjunto de miles de cosas.

No dejes de estudiar ninguno de los lenguajes de programación y es indispensable que tengas un majo excelente de la electrónica de un computador
no te olvides que es SO es el punto de comunicación entre el hardware y los usuarios.

Una Pregunta verdad pretendes una guía paso a paso de cómo hacer un SO?
Sabes programar en algún lenguaje?

Yo te recomendaría que pienses primero en aprender %100 algún lenguaje de programación, eso te ayudara a entender las dimensiones del proyecto que planteas y veras en qué lugar estas parado.

No sirve que pidas como empiezo a crear mi sistema operativo.

Estudia Ingeniería en Electrónica,  Ingeniería en Informática, léete todos los libros que encuentres sobre ensamblado, C y todos los lenguajes de programación que encuentres por la net.

Después de hacer todo eso volve a este foro y te aseguro que serás vos quien se ría de nosotros.

Pero lo que planteas es como querer correr sin saber caminar.

Quieres una lista? acá va.

1_ Hace todo lo que te comente antes Tiempo estimado, Unos 30 o 40 años. si soy muy pero muy inteligente.

Si lograste el punto 1.

2_ sentate y en cosa de 10 años más o menos trabajando con unas 400 personas Podrías tener un sistema operativo.

Pero no quieras arrancar por el punto 2

Primero aprende a Caminar y después mandate a correr.

Saludos y suerte.

Hola me encuentro con el problema de que tengo que conectar dos aplicaciones que tenia funcionando hace mucho tiempo en red, pero ahora tengo Windows server2008 R2 en el servidor y Windows 7 x64 en el cliente.

Esta aplicación usa el control WinSock que estos sistemas no lo tienen ya intente descargarlo pero no funciona en versiones x64 por lo cual me quedo fuera de servicio esta aplicación.

Alguno tiene idea de como comunicarlos sin usar este control? o alguna manera de que se pueda usar. en definitiva no importa si lo uso o no lo que me interesa es hacerlo funcionar nuevamente en este esquema.

encontré algo por la net que habla de una clase que vincula con las API  y genera un control con el cual esto funcionaria pero no encuentro el código para implementar esto si es que fuera cierto.

Espero puedan ayudarme.

Gracias.

Gente logre resolver mi problema y me gustaria compartirlo ya que es posible que a alguno le venga bien.

estoy cargando los datos en cajas de texto para poder verlos pero la idea es usar los datos de las variables para trabajarlos no hace falta que los vea en pantalla.

les paso el codigo.

Con el modulo cargado y un formulario con 10 Texbox y 2 Button ponemos este codigo.

Código [Seleccionar] Expandir

    Dim DatosLPT1(7) As VariantType                                                                             'Es el valor del puerto con el que calculo los pines activos
    Dim Datos As String                                                                                         'Es el resultado despues de cada calculo


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Datos = Str(Inp(Val(&H378)))                                                                            'El valor inicial del puerto
        TextBox9.Text = Datos
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Calculo el estado del pin 8
        If Datos >= 128 Then
            DatosLPT1(7) = 128
            Datos = (Datos - 128)
            TextBox8.Text = 128
            TextBox9.Text = Datos
        Else
            TextBox8.Text = ""
        End If
        'Calculo el estado del pin 7
        If Datos >= 64 Then
            DatosLPT1(6) = 64
            Datos = (Datos - 64)
            TextBox7.Text = 64
            TextBox9.Text = Datos
        Else
            TextBox7.Text = ""
        End If
        'Calculo el estado del pin 6
        If Datos >= 32 Then
            DatosLPT1(5) = 32
            Datos = Datos - 32
            TextBox6.Text = 32
            TextBox9.Text = Datos
        Else
            TextBox6.Text = ""
        End If
        'Calculo el estado del pin 5
        If Datos >= 16 Then
            DatosLPT1(4) = 16
            Datos = Datos - 16
            TextBox5.Text = 16
            TextBox9.Text = Datos
        Else
            TextBox5.Text = ""
        End If
        'Calculo el estado del pin 4
        If Datos >= 8 Then
            DatosLPT1(3) = 8
            Datos = Datos - 8
            TextBox4.Text = 8
            TextBox9.Text = Datos
        Else
            TextBox4.Text = ""
        End If
        'Calculo el estado del pin 3
        If Datos >= 4 Then
            DatosLPT1(2) = 4
            Datos = Datos - 4
            TextBox3.Text = 4
            TextBox9.Text = Datos
        Else
            TextBox3.Text = ""
        End If
        'Calculo el estado del pin 2
        If Datos >= 2 Then
            DatosLPT1(1) = 2
            Datos = Datos - 2
            TextBox2.Text = 2
            TextBox9.Text = Datos
        Else
            TextBox2.Text = ""
        End If
        'Calculo el estado del pin 1
        If Datos >= 1 Then
            DatosLPT1(0) = 1
            Datos = Datos - 1
            TextBox1.Text = 1
            TextBox9.Text = Datos
        Else
            TextBox1.Text = ""
        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Out(&H378, (Val(TextBox10.Text))) 'Le doy un nuevo valor al puerto
        Datos = Str(Inp(Val(&H378)))      'Cargo el valor del puerto en la variable para poder calcularlo
        TextBox9.Text = Datos             'Le asigno el valor del puerto a un Text para poder verlo

    End Sub

Lo comente todo asi se entiende lo que intente hacer.
Seguramente a alguno que sepa mas que yo de esto se le ocurrira alguna forma de hacerlo en muchas menos lineas. si es asi agradeceria me lo comparta.

con esto logro identificar cual es el estado del puerto al momento de iniciar la aplicacion y asi poder mantenerlo despues de un cierre o salida.

Gracias a todos lo que me dieron una mano!!!
Salu2

Tokes
tu codigo me sirve pero jeje perdon por mi ignorancia pero en vb2010
no se como crear una matris de objetos en vb6 al copiar y pegar pregunta si queres armarla pero aca no y no tengo idea de como hacerlo.

mas alla de eso me gustaria asignar el valo a 8 variables y desde las variables trabajar.

gracias..

BlackZeroX Te comparto lo que tengo armado hoy dia depues puedo actualizarlo.

primero descargate la inpout.dll si la buscas en google la encontras por todos lados.

despues en el proyecto pones un modulo y le copias este codigo.

Código [Seleccionar] Expandir

Option Explicit
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)


una ves echo esto desde un formulario le asignas los valores que quieras al puerto.
con esta instruccion

Código [Seleccionar] Expandir

Out &H378, 0

El CERO es el valor que le asignas al puerto puede ser de 0 a 255.
por las dudas fijate en el administrador de dispositivos si la direccion del puerto esta correcta ya que dependiendo de la configuracion de tu pc podria ser otra.

la direccion del puerto es  &H378 y la de entrada es &H379 por lo general es asi pero confirmalo si queres leer el puerto pones algo como esto.

Código [Seleccionar] Expandir

Text3.Text = Str(Inp(Val(&H379)))
Con ese codigo le asignas al text3 el valor actual del puerto.


despues tengo una interface de potencia con la cual controlo las luces que si quieren comparto el circuito.

Hola gente. estoy armando una aplicacion con la que controlo el puerto paralelo para prender unas luces.

por ahora va todo bien tengo 8 botones con los cuales manejo los 8 pines del puerto.

y les cambio el color dependiendo de si la luz esta prendida o apagada.

pero cuando cierro el programa y vuelvo a abrirlo me aparecen (en la aplicacion) todas apagadas otra ves, por mas que est no sea asi ya que las luces estan prondidas.

me gustaria poder leyendo el estado del puerto el decimal pasarlo a binario y poder asignarle los valores de 0 o 1 a 8 variables para poder detectar si esa luz esta prendida o apagada y que el programa refleje el estado real de puerto al iniciarlo.

podran ayudarme?.

se me ocurre que tambien podria guardar el estado del puerto en un txt para despues leerlo pero no se como hacerlo.

si a alguno le interesa la aplicacion puedo poner aca el codigo fuente.

gracias.

Gente Como estan?

Les comento que tengo que cambiar el OBDC de 40 equipos y para no tener que ir uno por uno se me ocurre que ´podria colgar en el logon un script que modifique el OBDC.

No es nesesario que lo modifique se hay que eliminar el existente y crear uno nuebo no seria problema.

Buscando por el foro encontre este script que crea un dsn pero de usuario. pero tiene que ser de sistema.

Código [Seleccionar] Expandir




Dim oWshShell
Const cRegKey1 = "HKCU\Software\ODBC\ODBC.INI\Pubs\"
Const cRegKey2 = "HKCU\Software\ODBC\ODBC.INI\ODBC Data Sources\"

Set oWshShell = CreateObject ("WScript.Shell")

oWshShell.RegWrite cRegKey1 & "Driver","C:\\WINNT\\System32\\sqlsrv32.dll"
oWshShell.RegWrite cRegKey1 & "Server","Prueba01"
oWshShell.RegWrite cRegKey1 & "Database","Nueba1"


oWshShell.RegWrite cRegKey2 & "Pubs","SQL Server"

set oWshShell = Nothing




Otra cosa que es que este me lo crea teniendo que poner Usuario y clave de SQL y yo tendria que dejarlo con la autenticacion de Windows.

Esqpero puedan ayudarme.

Salu2

Hola muchas gracias por tu ayuda.

bueno el codigo no funciona asi tal cual me lo pasaste.

pero jugando un poco con el me di cuenta que no agregaba la variable al final de la ruta

cuando ponemos:

Código [Seleccionar] Expandir


"\\server\Homes\" & objshell.expandenvironmentstrings("%USERNAME%")


no se porque pero no arma la ruta completa.

despues de un rato de tratar de entender el porque no funcionaba intente este condigo. uniendo toda la ruta en una variable y mapeando asignando una sola variable en lugar de una suma de ellas.

Código [Seleccionar] Expandir


Set objnet = createobject("wscript.network")
Set objshell = createobject("wscript.shell")
USUARIO = "\\server\Homes\" & objShell.expandenvironmentstrings("%USERNAME%")

objnet.mapnetworkdrive "U:", USUARIO


asi me funciona perfecto.

Gracias nuevamente por la ayuda.

Salu2

gracias pero me responde con error 53 se esparaba final de la instruccion.