Foro de elhacker.net

.

Bueno ya NO pueden decir que no se puede hacer un S.O.. en el lenguaje Basic ni denigrarlo tanto.

http://wiki.osdev.org/FreeBasic_Barebones

Dulces Lunas!¡.

:D! pues.. si buskar en google un codigo hecho en visual basic llamado "inkafarma" , observamos que ;) hasta sakaron una interfaz similar al winxp (todo en vbasic)

HOLA!!!

@yalosabes: Si, lo de la interfaz es cierto, pero no es un so de ningun tipo, simplemente es un exe que es ejecutado por W$.

GRACIAS POR LEER!!!

esa aplicación fue posteada aca...

   Sistema de una Farmacia (http://foro.elhacker.net/programacion_visual_basic/sistema_de_una_farmacia-t222487.0.html)

no es un sistema operativo, es una aplicacion que corre en windows, nada mas.

te recomiendo que leas lo que es un sistema operativo.

Creo que fui mal interpretado (en todo caso.. tuve una mala redaccion)...

Me referia que con  vbasic se puede obtener una buena interfaz grafica para el usuario =)

HOLA!!!

Black, perdon, pero tengo una pregunta...

 Const s = "Text"
 Dim pointer as Byte Ptr
 pointer = CPtr(Byte Ptr, @s)
 ' pointer[0] = Asc("T")
 ' pointer[1] = Asc("e")
 ' pointer[2] = Asc("x")
 ' pointer[3] = Asc("t")
 ' pointer[4] = 0
 

Me podes dar un ejemplo de como hacerlo en vb6 (si se puede obvio)

GRACIAS POR LEER!!!

ahora hagan el crisis con opengl =P

.
@SmogMX

Con Basic puedes manejar OpenGL, DirectX, Programar para Chips/MicroChips, Drivers, etc...

@79137913

Lo que hace ese codigo es que la variable pointer apunta al primer caracter de la constante s es como hacer esto, en vb6 el codigo es mas largo, pero en agun otro compilador de Basic como KBasic, ACE, GCBasic puedes hacer esto:

Me llamo la atención C/C++ para este tipo de cosas por ser mas rapidás aunque los compiladores de Basic actuales tambien ofrecen las ventajas de C/C++ y sinceramente al ver esto vb6 ya esta obsoleto ( Nunca pense decirlo ).

 
#include <stdio.h>
 
int main(int argc, char *argv[])
{
    char s[5] = "Text";     //  "Constante".
    char *pointer = &s[0];  //  Apuntamos al primer elemento de s.
    printf("%s",pointer);   //  Mostramos contenido.
    fflush(stdout);         //  Por si las moscas de que el buffer no se puestre.
    /*
    pointer[0] = T
    pointer[1] = e
    pointer[2] = x
    pointer[3] = t
    pointer[4] = /0 ( Byte = 0 , interpretado como fin de cadena ).
    */
    getchar();
    return 0;
}
 
 

mas omenos en vb6 seria algo asi:

 
Private Sub Form_Load()
Const s         As String = "Text" ' ten en cuenta que en vb6 cada letra esta separada por un byte nulo y 4 bytes antes del puntero al 1er elemento hay 4 bytes que indican la logitud de esta cadena (  bchar()  ).
Dim pointer     As Long
    pointer = StrPtr(s)
    ' Pointer pointer apunta a la letra T de la cadena s.
End Sub
 
 

Temibles Lunas!¡.