Temas

hola a todos le quisiera hacer una consulta: quiero conectar un lector biometrico de huella digital con una aplicacion .net , encontre un codigo http://www.elguille.info/colabora/NET2006/IvanElias_ControlAcceso_VB.htm , pero lo malo que solo reconoce para equipos con conexion via USB , lo que yo quiero hacer es mediante TCP/IP lo cual no encuentro mucha informacion.

hola a todos estoy haciendo un trabajo y veo que todo esta bien no c si tendre error sintactico o semantico haber si me pudieran ayudar a encontrar el error ante todo gracias
NOTA : EL ERROR K ME MANDA ES Notice: Undefined offset: 4 on line 95

Código (php) [Seleccionar] Expandir

<?php
function operacions(){
$w = array();
$n=array();
$s=array();

$w[0] = 0;
$w[1] = $_POST['textfield'];
$w[2] = $_POST['textfield2'];
$w[3] = $_POST['textfield3'];
$w[4] = $_POST['textfield4'];
$w[5] = $_POST['textfield5'];
$w[6] = $_POST['textfield6'];
$w[7] = $_POST['textfield7'];
$w[8] = $_POST['textfield8'];
$w[9] = $_POST['textfield9'];

$p[0][0] = -1.2235799146141384;
$p[0][1] = -0.70010651874909657;
$p[0][2] = -1.7731918655820678;
$p[0][3] = -1.5251175021147345;
$p[0][4] = -1.4204655443213379;
$p[1][0] = -0.97597916371135185;
$p[1][1] = -0.61944032134122518;
$p[1][2] = -1.3252910059416212;
$p[1][3] = -1.1613073466706523;
$p[1][4] = -1.1000196116669476;
$p[2][0] = -0.26297697272996906;
$p[2][1] = -0.23017656306151368;
$p[2][2] = -0.28660735736717136;
$p[2][3] = -0.30506804246600422;
$p[2][4] = -0.28507216010282443;
$p[3][0] = -0.58127450390378232;
$p[3][1] = -0.40312099212301156;
$p[3][2] = -0.667891032602475;
$p[3][3] = -0.59683006060119459;
$p[3][4] = -0.5576844603158182;
$p[4][0] = -0.88082840385755279;
$p[4][1] = -0.64670843710188453;
$p[4][2] = -1.1407131043566223;
$p[4][3] = -1.0190595034999201;
$p[4][4] = -0.98346546463809648;
$p[5][0] = 0.39415634038838759;
$p[5][1] = 0.21275458581178319;
$p[5][2] = 0.57452929355071458;
$p[5][3] = 0.45308581253591212;
$p[5][4] = 0.4460237495227507;
$p[6][0] = -0.40963368809392037;
$p[6][1] = -0.32399833966230368;
$p[6][2] = -0.45218994859103551;
$p[6][3] = -0.43632639215123181;
$p[6][4] = -0.43120076440125027;
$p[7][0] = -0.5316008907672557;
$p[7][1] = -0.47966253065162245;
$p[7][2] = -0.76002669669074152;
$p[7][3] = -0.65185665139227611;
$p[7][4] = -0.610677578929192;
$p[8][0] = -0.19786829015470639;
$p[8][1] = -0.17679641652232761;
$p[8][2] = -0.1864234465185225;
$p[8][3] = -0.1573874225682983;
$p[8][4] = -0.14823125113185592;
$p[9][0] = -0.36780995956956208;
$p[9][1] = -0.3123170582785918;
$p[9][2] = -0.48843241496346657;
$p[9][3] = -0.39673206878632694;
$p[9][4] = -0.45742531757471755;
$m[0][0] = -3.1574236408363991;
$m[0][1] = 3.1541461024381205;
$m[1][0] = 1.2461274535765703;
$m[1][1] = -1.2724099490193193;
$m[2][0] = 0.62839610446573657;
$m[2][1] = -0.611180041896025;
$m[3][0] = 2.0484161759032462;
$m[3][1] = -2.0648648115959993;
$m[4][0] = 1.6570006755376996;
$m[4][1] = -1.6324609140925035;
$m[5][0] = 1.5278432097144548;
$m[5][1] = -1.5227543035639044;
for($i=0;$i<4;$i++){
   $neta=0;
for($j=0;$j<9;$j++)
{
  $ne = $w[$j] * $p[$j][$i];
  $neta = $neta + $ne;
  
}
$n[$i] = $neta;
}
$n[0] = 1;
for($i=0;$i<1;$i++){
   $neta1=0;
for($j=0;$j<5;$j++)
{
   $ne1 = $n[$j] * $m[$j][$i];
  $neta1 = $neta1 + $ne1;
   if($neta1 > 0)
   {
      $sa=1;
   }
   else
   {
      $sa = 0;
   }  
}
$s[$i] = $sa;
}
if(($s[0] == 0) && ($s[1] == 0))
{
   echo "Si tiene Cancer";
}
else
{
   if(($s[0] == 0) && ($s[1] == 1))
   {
   echo "Si tiene Cancer";
    }
else
{
    if(($s[0] == 1) && ($s[1] == 0))
          {
             echo "No tiene Cancer";
       }
   else
   {
      echo "No tiene Cancer";
   }
}
}
}
?>

hola a todos en internet estuve navegando y encontre este ejercicio en java lo que trata con sockets pero ahora me dio la curiosidad k con  la direc ip enviamos mensajes la tarea es k el servidor pueda recepcionar el envio de 3 maquina.

tendria que usar hilos ?

SERVIDOR

Código (java) [Seleccionar] Expandir

public static void main(String[] args) throws IOException {
        // TODO code application logic here
        ServerSocket servidor_UTEA=new ServerSocket(5000);
        System.out.println("Servidor Iniciando");
        Socket cliente=servidor_UTEA.accept();
        DataInputStream leer=new DataInputStream(cliente.getInputStream());
        System.out.println("El mensaje recibido fue : " + leer.readUTF());
        cliente.close();
       

    }

CLIENTE

Código (java) [Seleccionar] Expandir


  public static void main(String[] args) throws IOException {
        // TODO code application logic here
      Socket cliente=new Socket("10.0.1.82",5000);
      System.out.println("Cliente Iniciado");
      DataOutputStream envio=new DataOutputStream(cliente.getOutputStream());
      envio.writeUTF("hola amigos del Foro el Hacker.net:");     

  }

Hola a todos llevo varios dias de solucionar este pequeño problemita que me tiene super loco y es lo siguiente.

TENGO 3 TABLAS:
tabla1(id,descripcion)
tabla2(id,id2,descripcion)
tabla3(id2,id3,descripcion)

en mi diseño tengo un combobox donde cargo la tabla 1
hasta ahi todo bien
despues tengo un datagridview donde tengo 3 columas las 2 primeras columnas son de tipo combobox (celdas).

lo que quiero hacer es cuando escoga en el combobox me carge la informacion relacionada a la celda 1 donde esta el combobox y cuando yo elija una opcion de ese combobox de la celda del datagridview me carge la informacion relacionada a la celda 2 de su combox y taba tratando de hacerlo de la siguiente manera.

Código (vbnet) [Seleccionar] Expandir

Private Sub FrmRegistro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        enlace.Abrir("", "", "", "")
        tabla = enlace.AbrirSql("Select * from tabla1")
        Me.ComboBox1.DisplayMember = tabla.Columns(1).ToString
        Me.ComboBox1.ValueMember = tabla.Columns(1).ToString
        Me.ComboBox1.DataSource = tabla     
       
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        ComboBox1.ValueMember = tabla.Columns(0).ToString
        codigored = ComboBox1.SelectedValue
        Try
            DataGridView1.RowCount = 0
            Dim comboboxcolun As DataGridViewComboBoxColumn
            comboboxcolun = DataGridView1.Columns(3)
            tabla2 = enlace.AbrirSql("select * from tabla2 where id = " & codigored)
            comboboxcolun.DisplayMember = tabla2.Columns(2).ToString
            comboboxcolun.ValueMember = tabla2.Columns(2).ToString
            comboboxcolun.DataSource = tabla2
            Me.DataGridView1.DataSource = tabla2.Columns(2).ToString

        Catch ex As Exception

        End Try
        Catch ex As Exception

        End Try

    End Sub


bueno sale normal pero despues cuando en el combobox general quiero cambiar de opcion ahi se loquea mi programa ,alguna ayudita porfaaaaaaa

Hola a todos quiero ver como puedo hacer procesamiento de imagenes en php como ejemplo binarizar , negativdad , escala de grises .
no se si me pudieran dar links , enlaces o algunos codigos fuentes si no fuera mucha molestia y gracias , toda ayuda es bien recibida

Hola a todos lo que encontre este codigo donde lo cambia a esclas de grises , peroa hora como hago para cambiar a blanco ynegro (binarizar) , pq creo que primero se cmbia a escala de grises si alguien pudiera ayudar seria de mucho agradecimiento .

Código (java) [Seleccionar] Expandir

public boolean escalaDeGrises()
{
     boolean estado = true;
  int p, promedio, rojo, verde, azul;
  int a = imagenBase.getWidth(this);  //Ancho
     int h = imagenBase.getHeight(this); //Alto
     int totalDePixeles = a * h;
  int pixeles[] = new int[totalDePixeles];   //Arreglo de pixeles
  PixelGrabber pg = new PixelGrabber(imagenBase,0,0,a,h,pixeles,0,a);
  try
  {
   pg.grabPixels();
   for(int i = 0; i < totalDePixeles; i++)
   {
    p = pixeles[i]; //Valor de un pixel
    rojo = (0xff & (p>>16));  //Desplaza el entero p 16 bits a la derecha y aplica la operacion AND a los primeros 8 bits
    verde = (0xff & (p>>8));  //Desplaza el entero p 8 bits a la derecha  y aplica la operacion AND a los siguientes 8 bits
    azul = (0xff & p) ;        //Aplica la operacion AND a los siguientes 8 bits
    promedio = (int) ((rojo+verde+azul)/3);
    pixeles[i]=(0xff000000|promedio<<16|promedio<<8|promedio);
   }
   imagenModificada  = createImage(new MemoryImageSource(a,h,pixeles,0,a));
  }catch(InterruptedException e)
  {
   //JOptionPane.showMessageDialog((Component)null,"Error del sistema : "+e.getMessage(),"Error de Imagen",JOptionPane.OK_OPTION);
   estado = false;
   this.mensajeDeError = e.getMessage();
  }
  return estado;
}

Hola a todos quiero ver si me pueden facilitar links sobre el uso del JAI API para java y  como instalarlo y de donde descargarlo , les agradeceria

hola a todos estoy haciendo una aplicacion de java con mysql , donde el Servidor se encuentra en la Ciudad A y las aplicaicones en diferentes Ciudades , lo que quiero hacer es como conectarme.
debo usar socket , rmi ?
si me sacaran de duda seria de mucha ayuda.
y cual seria la manera mas rapida y segura de conectarse.

Hola a todos estaba haciendo la serie fibonacci de forma recursiva  y normal me calculo el enesimo termino , pero ahora quiero hacer la suma de la serie ejemplo
n = 5 la suma es =  7 , pero quise hacerlo con este mismo codigo  y queria ver si se podia o cual seria una forma mas facil para desaroollarla.

// serie finonacci 0,1,1,2,3,5

Código (csharp) [Seleccionar] Expandir

static void Main(string[] args)
        {
            int n;
            Console.Write("Ingrese el Termino:");
            n = int.Parse(Console.ReadLine());
            Console.WriteLine("El Termino {0} es:{1}", n, fibo(n));
            Console.ReadLine();
        }
        static int fibo(int n)
        {
            int fib;
            if (n <= 2)
                fib = n - 1;
            else
                fib = fibo(n - 1) + fibo(n - 2);
            return fib;
        }

HOLA A TODOS TENGO BACKUP DEL SQL 2000 Y QUIERO RESTAURARLO AL 2005 Y ME VOTA ERROR ABRA ALGUNA FORMA .. ?

hola a todos tengo una super dudasa y quisiera saber el porque , me eh bajado el no-ip y me eh direccionado a mi pc todo , cuando hago ping desde mi pc al dominio que me asigno el no-ip por ejemplo : ping choclito.sytes.com normal recibo los datos sin perdida de los paquetes, pero cuando hago ping desde una cabian de internet: ping choclito.sytes.com todo los datos se pierden y quisiera saber el porque ??

Hola a Todos a mi me gusta programar en C# y hize interseccion de 2 conjuntos , pero ahora quiero hacerlo en java pq esta de moda y no quisiera quedarme atras con los graficos haber si este codigo me pueden ayudar a llevar a java o darme las pautas oh comparaciones de los codigos , porque hasta una parte es igual pero cuando quise Usar GraphicsPath en Java no hay u busque y no tienen los mismos valores ... ! desde hay me queme y ya no pude avanzar + .

Código (csharp) [Seleccionar] Expandir

Graphics g = pictureBox1.CreateGraphics();
                   Rectangle rect0 = new Rectangle(20, 20, 100, 100);
                   Rectangle rect1 = new Rectangle(70, 20, 100, 100);
                   //establesemos los trazados
                   GraphicsPath trazado0 = new GraphicsPath();
                   trazado0.AddEllipse(rect0);
                   GraphicsPath trazado1 = new GraphicsPath();
                   trazado1.AddEllipse(rect1);
                   Region reg = new Region(trazado1);
                   reg.Intersect(trazado0);
                   g.DrawEllipse(Pens.Blue, rect0);
                   g.DrawEllipse(Pens.Blue, rect1);
                   g.FillRegion(Brushes.Red, reg);
                   g.DrawString("A", new Font("Arial", 12), Brushes.Blue, 15, 10);
                   g.DrawString("B", new Font("Arial", 12), Brushes.Blue, 150, 10);

hola a todos quisiera saber como manipular el api del google maps con C# para escritorio , no quiero que sea web  y poder buscar rutas y asignar puntos de encuentro mediante una busqueda , busque en varios sitios  pero no dan el codigo fuente pero si el ejecutable y me quede con las ganas de hacerlo pero no tengo idea por donde empezar, si no fuera mucha molestia se los agradeceria

Hola a todos , toy habilitando mis puertos y nada eh usado PFPortChecker para comprar si mi puerto esta abierto y me vota que no esta habilitado y eso que yo lo llege a habilitar  la marca de mi router huawei hg520s y segui los pasos para habilitar puertos en el internet :NAT-> VIRTUAL SERVER ,etc pero = nada no se habilita a que se debe eso ?

Hola a todos, me gustaria saber si ( al igual que en el listbox ) se pueden mostrar varios campos de un registro en el combobox..( sin recurrir a concatenar campos).
Gracias por su interes.
Saludos a todos

el codigo con que yo cargo los datos es asi :

Código (vbnet) [Seleccionar] Expandir

ComboBoxEx2.DataSource = Table
       ComboBoxEx2.ValueMember = Table.Columns(0).ToString
       ComboBoxEx2.DisplayMember = Table.Columns(0).ToString

bueno amigos vuelvo abrir el tema ya que no pude  solucionarlo intente de toda las formas conectarme de una Aplicacion de una Ciudad  A al Servidor de una Ciudad B,
yo uso el sql 2000 , lo instale local no se si se instale de alguna otra forma para que se conecte o algo , uso visual basic 2005, habilite puertos , desactive el firewall hize casi todo y nada siempre me vota el mensaje SERVIDOR NO ENCONTRADO y ya no se que hacer alguna recomendacion que me daria porfavor lo siguentes codigo que use fue lo siguiente.

Código (vbnet) [Seleccionar] Expandir

Public Function Abrir(ByVal server As String, ByVal DB As String, ByVal usuario As String, ByVal clave As String) As Boolean
       Try
           cadenaconexion.ConnectionString = "Server=[ip publica servidor,puerto];Database=[nombre bd];uid=[usuario]pwd=[password];"
           cadenaconexion.Close()
       Catch ex As Exception
           MessageBox.Show(ex.Message.ToString())
       End Try
   End Function

TAMBIEN USE OLEDB PARA CONECTARME :  ESTA CADENA DE CONEXION

Código (vbnet) [Seleccionar] Expandir

Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=myDataBase;User ID=myUsername;Password=myPassword;

WENO DENME ALGUNAS PAUTAS PORFAVOR YA ME ROMPI LA CABEZA DE TODA LAS FORMAS

Hola a todos la vez pasada taba viendo un sistema y vi que tenia la opcion de configurar sus reportes, osea del mismo programa podia diseñar su reporte , y me quede sorprendido , no se si me pudieran dar las pautas para poderlo hacer lo mismo en visual basic 2005 , seria de mucha utilidad

Hola a todos , estoy desarrollando un sistema de almacen en VB 2005 y me tope con la ocacion de hacer reconocer el codigo de barra y mis dudas es lo siguienets.

1.-como hago para reconocer el codigo de barra
2.-se necesita codigo o algo
3.-si tuvieran enlaces,link porfavor les agradeceria bastante
si me pudieran ayudar de como manejar la mquina del reconocedor de codigo de barras

hola a todos , miren yo tengo un ancho de banda de  1 mb y cuando hago la prueba con un testeador me llega sol la mitad , y mi linea esta lenta y eso k nadie usa mi linea tengo el networ magic y controlo y alguien mas se esta conectando a mi linea pero no hay nadi ey asi k raro yo me hago la pregunta y eso k recien lo formatee y todavia no sta infectado mi pc ???????

Hola a todos , miren quiero hacer una aplicacion para que descargue videos de youtube  sea en visual basic o en C# si tienes link , enlaces o algunas pautas , todo vale porfavor , ya se que existe programas para descargar videos pero no satisface la necesidad , por eso quiero tener la idea de como descargar videos de yotube mediante una aplicacion y de ahi yo poder moldealo a mi gusto , si no fuera mucha molestia gracias

Hola a todos instale Centos 5 y no funciona mi buscador quiero abrir pero no carga la pagina mejor dicho ni abre.
me falta configurar algo ?

Hola a todos quiero modificar :WELCOME TO CENTOS RELEASE 5(FINAL) supongo que estara asi:Printf("WELCOME TO CENTOS RELEASE 5 (FINAL)");cuando recien esta iniciando, y quisiera saber si tengo k descargar su codigo o ya esta ahi y en que directorio lo encuentro,si no fuera mucha molestia gracias

hola a todos no se si me pudieran dar algunas pautas o referencias link o algo
para ver como poder conectarme remoamente a Centos desde Windows xp con el SSH y como configurar su iptables para su acceso kreo taba leendo un poco y queria ver si estaba llendo por el camino correcto toda ayuda es bienvenida gracias.

hola a todos de nuevo taba desarrollando un proyecto y me tope con la generacion de codigo de un alumno y quisiera saber como genero su letra.
Ejemplo : mi nombre es Carlos Rodriguez Torvisco
ya y mi codigo Generado es = 071405D pero mi pregunta es como se genero la D si alguien tiene alguna pautas o algun link seria de mucha utilidad

no importa si es en visual basic 2005 o C#

hola a todos.
soy nuevo en esto y quiero que me den pautas  para poder realizarlo.
quiero modificar el kernel de cualquier distribucion ,por ejemplo quiero cambiar de idioma. quiero llevar a un idioma que no tenga , crear un nuevo idioma  para esa distribuccion.
y que pautas necesitaria para eso gracias:

Hola  a todos estaba desarollando y en el transcurso me tope con algo medio raro
tengo un datagridview con menos de 10 columnas,aplico el siguiente codigo y normal mi datatable ya tiene almacenado los datos que habian en el DataGridviewX1

Código (vbnet) [Seleccionar] Expandir

Dim dd As New DataTable()
dd = CType(Me.DataGridViewX1.DataSource, DataTable)

 y ahora cuando quiero almacenar mi Otra dataGrivdiew que tiene 36 columnas ahi  me vota Error que dice lo siguiente:
"Referencia a objeto no establecida como instancia de un objeto".
pero que raro digo si mis demas Data normal lo acepta y justo con ese data de ahi tengo el problema.Tiene que ver algo la cantidad de colmunas que tiene ?? y cualquiera ayuda gracias ^^

hola a todos tengo una duda en visual basic.net no se si me pueden dar ideas para poder realizarlo como hago para que en las columnas del datagridwied su HeaderText  aparezca de la siguiente manera:
o
g
i
d
o
c
taba buscando alguna opcion para poder rotar su texto pero no encuentro , otra solucion que queria dar era buscarme el tipo de letra que tenga ese formato o bien dibujarlo esa letra en las coordenadas de sus cabezales pero abria otra forma mas facil ?, ojala que me haya explicado bien

HOla a todos hace poco hize un analizador Lexico y me dio curiosidad de compartirlo y si tienen alguna mejora mucho mejor podriamoz compartir.
y en el siguiente enlace hize unos videitos sobre los patrones de las variables y/o palabras reservadas: http://www.youtube.com/watch?v=X50-vn-5h0E
bueno si les agrada buen provecho

Código (csharp) [Seleccionar] Expandir

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace AnalizadorLexico
{
    public partial class Form1 : Form
    {
        int x;//Declaro una Variable Publica para Guardar las Posicones
        //Declaro 3 Arreglos Mas Para Guardar mis Simbolos
        bool Erro = false;
        public static int[] Codigo=new int[61];
        public static string[] Tokens = new string[61];
        public static string[] Simbolo = new string[61];
        public Form1()
        {
            InitializeComponent();
            for (int i = 0; i < Codigo.Length; i++) // Inicializamos los Codigos
                Codigo[i] = i + 1;
            Simbolo[0] = "Procedimiento"; Tokens[0] = "PALABRA RESERVADA - PR";
            Simbolo[1] = "Funcion"; Tokens[1] = "PALABRA RESERVADA - PR";
            Simbolo[2] = "Principal";Tokens[2] = "PALABRA RESERVADA - PR";
            Simbolo[3] = "Entero";Tokens[3] = "PALABRA RESERVADA - PR";
            Simbolo[4] = "Decimal";Tokens[4] = "PALABRA RESERVADA - PR";
            Simbolo[5] = "Doble";Tokens[5] = "PALABRA RESERVADA - PR";
            Simbolo[6] = "Caracter";Tokens[6] = "PALABRA RESERVADA - PR";
            Simbolo[7] = "Cadena";Tokens[7] = "PALABRA RESERVADA - PR";
            Simbolo[8] = "Booleano";Tokens[8] = "PALABRA RESERVADA - PR";
            Simbolo[9] = "Si";Tokens[9] = "PALABRA RESERVADA - PR";
            Simbolo[10] = "Entonces";Tokens[10] = "PALABRA RESERVADA - PR";
            Simbolo[11] = "Sino";Tokens[11] = "PALABRA RESERVADA - PR";
            Simbolo[12] = "Abrir";Tokens[12] = "PALABRA RESERVADA - PR";
            Simbolo[13] = "Caso";Tokens[13] = "PALABRA RESERVADA - PR";
            Simbolo[14] = "Quiebre";Tokens[14] = "PALABRA RESERVADA - PR";
            Simbolo[15] = "Defecto";Tokens[15] = "PALABRA RESERVADA - PR";
            Simbolo[16] = "Ira";Tokens[16] = "PALABRA RESERVADA - PR";
            Simbolo[17] = "Retornar";Tokens[17] = "PALABRA RESERVADA - PR";
            Simbolo[18] = "Para";Tokens[18] = "PALABRA RESERVADA - PR";
            Simbolo[19] = "Mientras";Tokens[19] = "PALABRA RESERVADA - PR";
            Simbolo[20] = "Hacer";Tokens[20] = "PALABRA RESERVADA - PR";
            Simbolo[21] = "Mostrar";Tokens[21] = "PALABRA RESERVADA - PR";
            Simbolo[22] = "Leer";Tokens[22] = "PALABRA RESERVADA - PR";
            Simbolo[23] = "Limpiar";Tokens[23] = "PALABRA RESERVADA - PR";
            Simbolo[24] = "Pausa";Tokens[24] = "PALABRA RESERVADA - PR";
            Simbolo[25] = "Abs";Tokens[25] = "PALABRA RESERVADA - PR";
            Simbolo[26] = "Mod";Tokens[26] = "PALABRA RESERVADA - PR";
            Simbolo[27] = "Exp";Tokens[27] = "PALABRA RESERVADA - PR";
            Simbolo[28] = "Sqrt";Tokens[28] = "PALABRA RESERVADA - PR";
            Simbolo[29] = "(";Tokens[29] = "SIGNO SEPARADOR";
            Simbolo[30] = ")";Tokens[30] = "SIGNO SEPARADOR";
            Simbolo[31] = "{";Tokens[31] = "SIGNO SEPARADOR";
            Simbolo[32] = "}";Tokens[32] = "SIGNO SEPARADOR";
            Simbolo[33] = "[";Tokens[33] = "SIGNO SEPARADOR";
            Simbolo[34] = "]";Tokens[34] = "SIGNO SEPARADOR";
            Simbolo[35] = "+";Tokens[35] = "OPERADOR - OP";
            Simbolo[36] = "-"; Tokens[36] = "OPERADOR - OP";
            Simbolo[37] = "*"; Tokens[37] = "OPERADOR - OP";
            Simbolo[38] = "/"; Tokens[38] = "OPERADOR - OP";
            Simbolo[39] = "&&"; Tokens[39] = "OPERADOR - OP";
            Simbolo[40] = "++"; Tokens[40] = "OPERADOR - OP";
            Simbolo[41] = "--"; Tokens[41] = "OPERADOR - OP";
            Simbolo[42] = "="; Tokens[42] = "SIGNO COMPARADOR - SC";
            Simbolo[43] = "=="; Tokens[43] = "SIGNO COMPARADOR - SC";
            Simbolo[44] = "<="; Tokens[44] = "SIGNO COMPARADOR - SC";
            Simbolo[45] = ">="; Tokens[45] = "SIGNO COMPARADOR - SC";
            Simbolo[46] = "<"; Tokens[46] = "SIGNO COMPARADOR - SC";
            Simbolo[47] = ">"; Tokens[47] = "SIGNO COMPARADOR - SC";
            Simbolo[48] = "!="; Tokens[48] = "SIGNO COMPARADOR - SC";
            Simbolo[49] = "!"; Tokens[49] = "SIGNO RELACIONADOR - SR";
            Simbolo[50] = "&"; Tokens[50] = "SIGNO RELACIONADOR - SR";
            Simbolo[51] = "|"; Tokens[51] = "SIGNO RELACIONADOR - SR";
            Simbolo[52] = ","; Tokens[52] = "SIGNO DE PUNTUACION - SP";
            Simbolo[53] = ";"; Tokens[53] = "SIGNO DE PUNTUACION - SP";
            Simbolo[54] = ":"; Tokens[54] = "SIGNO DE PUNTUACION - SP";
            Simbolo[55] = "\""; Tokens[55] = "SIGNO DE PUNTUACION - SP";
            Simbolo[56] = "'"; Tokens[56] = "SIGNO DE PUNTUACION - SP";
            Simbolo[57] = "."; Tokens[57] = "SIGNO DE PUNTUACION - SP";
            Simbolo[58] = "_"; Tokens[58] = "SIGNO SEPARADOR";
            Simbolo[59] = "FALSE"; Tokens[59] = "Booleano - BO";
            Simbolo[60] = "TRUE"; Tokens[60] = "Booleano - BO";
        }
        private void btnAnalizar_Click(object sender, EventArgs e)
        {
            if (dgvtokens.RowCount > 0) // Limpio Simpre y Cuando Hayga Datos en el DataGridWied
                dgvtokens.Rows.Clear();
            if (dgvErrores.RowCount > 0)
                dgvErrores.Rows.Clear();
            Erro = false;
            richTextBox2.Text = "";
            Analizar(); //LLamo ah mi Procedimiento Analizar
        }
        private void Analizar()
        {           
            char[] Cadena = richTextBox1.Text.ToCharArray();//Separo del Texto Fuente En Caracteres Separados y Almaceno en un Array de tipo Caracter
            string Texto = "";
            int i = 0; //Declaro mi Contador para Poder Recorrer toda la Cadena
            while (i < Cadena.Length)
            {
                if (i < Cadena.Length - 1)
                {
                    //Verificamos con que Letra Empiezza i
                    if (AnalizarLetra(Cadena[i]))
                    {
                        x = i;//Guardamos la Posicion Donde Empieza
                        while (AnalizarNumero(Cadena[i]) || AnalizarLetra(Cadena[i]) || Cadena[i] == '_')//Repetira Mientras Sea un Numero oh una Letra
                        {
                            Texto = Texto + Cadena[i].ToString();
                            i++;
                            if (i == Cadena.Length) break;//Si Llegamos ah la Ultina Posicion Salimos porque ya no hay nada por analizar
                        }
                        //Ver si es una Palabra Reservada oh es un Identificador
                        PR(Texto); //Llamamos ah un Procedimiento Palabra Reservada -PR para Confirmar si es una PR                   
                        Texto = "";
                    }
                    else if (AnalizarNumero(Cadena[i]) || (Cadena[i].ToString() == "-" && AnalizarNumero(Cadena[i + 1])))
                    {
                        x = i;//Guardamos la Posicion Donde Empieza     
                        string Ti = "E";
                        bool SolounPunto = true; //Inicializamos una Variable Aux que nos Va Indicar que la Concadenacion ya Tiene un Punto y no Puede Aceptar mas
                        if (Cadena[i].ToString() == "-") //si es que primero empieza con un -
                        {
                            Texto = Texto + Cadena[i].ToString();
                            i += 1;                           
                        }
                        while (AnalizarNumero(Cadena[i])) //Repetira mientras sea un Numero
                        {
                            Texto = Texto + Cadena[i].ToString();
                            i++;
                            if (i < Cadena.Length - 1) //entrara siempre y cuando no sea el ultimo Caracter del Texto fuente
                            {
                                if (Cadena[i] == '.' && AnalizarNumero(Cadena[i + 1]) && SolounPunto) // Si se Cumple las Reglas Seguimos Cancadenando
                                {
                                    Texto = Texto + Cadena[i].ToString();
                                    SolounPunto = false;
                                    Ti = "D";
                                    i++;
                                }
                            }
                            if (i == Cadena.Length) break;//Si Llegamos ah la Ultina Posicion Salimos porque ya no hay nada por analizar
                        }
                        //Mostrar el Numero 
                        if (Ti == "E") //Si es Entero
                        {
                            dgvtokens.RowCount = dgvtokens.RowCount + 1;
                            dgvtokens[0, dgvtokens.RowCount - 1].Value = "60";
                            dgvtokens[1, dgvtokens.RowCount - 1].Value = Texto.ToString();
                            dgvtokens[2, dgvtokens.RowCount - 1].Value = "NUMERO ENTERO - NE";
                            dgvtokens[3, dgvtokens.RowCount - 1].Value = (x + 1).ToString();
                            Texto = "";
                        }
                        else //Si es Decimal
                        {
                            dgvtokens.RowCount = dgvtokens.RowCount + 1;
                            dgvtokens[0, dgvtokens.RowCount - 1].Value = "61";
                            dgvtokens[1, dgvtokens.RowCount - 1].Value = Texto.ToString();
                            dgvtokens[2, dgvtokens.RowCount - 1].Value = "NUMERO DECIMAL - ND";
                            dgvtokens[3, dgvtokens.RowCount - 1].Value = (x + 1).ToString();
                            Texto = "";
                        }
                    }
                    else if (Cadena[i].ToString() == " " || Cadena[i].ToString() == "\n" || Cadena[i].ToString() == "\t")//si hay un espacio o un enter seguimos avanzando
                        i++;
                    else if (char.IsSymbol(Cadena[i]) || char.IsSeparator(Cadena[i]) || char.IsPunctuation(Cadena[i])) // ahora vemos si son simbolos
                    {
                        x = i;
                        if (i < Cadena.Length - 1)
                        {
                            if (Cadena[i].ToString() == "=" && Cadena[i + 1].ToString() == "=")
                            {
                                string Union = Cadena[i].ToString() + Cadena[i + 1].ToString();
                                AnalizarSimbolo(Union, x);
                                i = i + 2;
                            }
                            else if (Cadena[i].ToString() == "!" && Cadena[i + 1].ToString() == "=")
                            {
                                string Union = Cadena[i].ToString() + Cadena[i + 1].ToString();
                                AnalizarSimbolo(Union, x);
                                i = i + 2;
                            }
                            else if (Cadena[i].ToString() == ">" && Cadena[i + 1].ToString() == "=")
                            {
                                string Union = Cadena[i].ToString() + Cadena[i + 1].ToString();
                                AnalizarSimbolo(Union, x);
                                i = i + 2;
                            }
                            else if (Cadena[i].ToString() == "<" && Cadena[i + 1].ToString() == "=")
                            {
                                string Union = Cadena[i].ToString() + Cadena[i + 1].ToString();
                                AnalizarSimbolo(Union, x);
                                i = i + 2;
                            }
                            else if (Cadena[i].ToString() == "+" && Cadena[i + 1].ToString() == "+")
                            {
                                string Union = Cadena[i].ToString() + Cadena[i + 1].ToString();
                                AnalizarSimbolo(Union, x);
                                i = i + 2;
                            }
                            else if (Cadena[i].ToString() == "-" && Cadena[i + 1].ToString() == "-")
                            {
                                string Union = Cadena[i].ToString() + Cadena[i + 1].ToString();
                                AnalizarSimbolo(Union, x);
                                i = i + 2;
                            }
                            else if (Cadena[i].ToString() == "&" && Cadena[i + 1].ToString() == "&")
                            {
                                string Union = Cadena[i].ToString() + Cadena[i + 1].ToString();
                                AnalizarSimbolo(Union, x);
                                i = i + 2;
                            }
                            else if (Cadena[i].ToString() == "/" && Cadena[i + 1].ToString() == "/") // Para los Comentarios de Linea
                            {
                                string Union = "";
                                x = i;
                                for (int j = i; j < Cadena.Length; j++)
                                {
                                    if (Cadena[i].ToString() != "\n")
                                    {
                                        Union = Union + Cadena[j];
                                        i += 1;//Incremento mi Contador
                                    }
                                    else
                                    {
                                        i = j;//Intercambio la Posicion Donde Estuvo el Enter
                                        break;
                                    }
                                }
                                dgvtokens.RowCount = dgvtokens.RowCount + 1;
                                dgvtokens[0, dgvtokens.RowCount - 1].Value = "65";
                                dgvtokens[1, dgvtokens.RowCount - 1].Value = Union.ToString();
                                dgvtokens[2, dgvtokens.RowCount - 1].Value = "COMENTARIO DE LINEA - CL";
                                dgvtokens[3, dgvtokens.RowCount - 1].Value = (x + 1).ToString();
                            }
                            else if (Cadena[i].ToString() == "/" && Cadena[i + 1].ToString() == "*") // Para los Comentarios de Parrafo
                            {
                                x = i;
                                int flag = -1;
                                //Recorro Toda mi Cadena para Ver si se Encuentra * y el /
                                for (int j = i + 2; j < Cadena.Length; j++)
                                {
                                    if (j + 1 != Cadena.Length)
                                    {
                                        if (Cadena[j].ToString() == "*" && Cadena[j + 1].ToString() == "/")
                                        {
                                            flag = j + 1;
                                            break;
                                        }
                                    }
                                }
                                if (flag > -1)
                                {
                                    i = flag + 1;
                                    dgvtokens.RowCount = dgvtokens.RowCount + 1;
                                    dgvtokens[0, dgvtokens.RowCount - 1].Value = "65";
                                    dgvtokens[1, dgvtokens.RowCount - 1].Value = "/* */";
                                    dgvtokens[2, dgvtokens.RowCount - 1].Value = "COMENTARIO DE PARRAFO - CP";
                                    dgvtokens[3, dgvtokens.RowCount - 1].Value = (x + 1).ToString();
                                }
                                else
                                {
                                    AnalizarSimbolo(Cadena[i].ToString(), x);//Analizo el Simbolo Solo
                                    i = i + 1;
                                }
                            }
                            else if (Cadena[i].ToString() == "\"") //Cada Vez que encuentra una Comilla
                            {
                                int flag = -1;
                                string Union = "";
                                x = i;
                                //Recorrer Toda la Cadena Hasta Ubicar el ""
                                for (int j = i + 1; j < Cadena.Length; j++)
                                {
                                    if (Cadena[j].ToString() == "\"")
                                    {
                                        flag = j;
                                        break;
                                    }
                                    else if (Cadena[j].ToString() == "\n")//oh si llego ah fin de linea y no encontro nada
                                    {
                                        flag = -1;
                                        break;
                                    }
                                }
                                if (flag > -1)
                                {
                                    i = flag + 1;//Actualizamos la Nueva Posicion ah Buscar e Incrementado mas uno
                                    //Un Pequeño Recorrido para Concadenar
                                    for (int k = x; k < i; k++)
                                        Union = Union + Cadena[k];
                                    dgvtokens.RowCount = dgvtokens.RowCount + 1;
                                    dgvtokens[0, dgvtokens.RowCount - 1].Value = "62";
                                    dgvtokens[1, dgvtokens.RowCount - 1].Value = Union.ToString();
                                    dgvtokens[2, dgvtokens.RowCount - 1].Value = "CADENA - CA";
                                    dgvtokens[3, dgvtokens.RowCount - 1].Value = (x + 1).ToString();
                                }
                                else
                                {
                                    AnalizarSimbolo(Cadena[i].ToString(), x);//Analizo el Simbolo Solo
                                    i = i + 1;
                                }
                            }
                            else if (Cadena[i].ToString() == "'") //Cada Vez que Encuentre una Comilla Simple
                            {
                                x = i;
                                string Union = Cadena[i].ToString() + Cadena[i + 1].ToString();
                                i = i + 2;
                                if (i <= Cadena.Length - 1)
                                {
                                    if (Cadena[i].ToString() == "'") //Si Cumple la Condicion
                                    {
                                        dgvtokens.RowCount = dgvtokens.RowCount + 1;
                                        dgvtokens[0, dgvtokens.RowCount - 1].Value = "63";
                                        dgvtokens[1, dgvtokens.RowCount - 1].Value = Union.ToString() + Cadena[i].ToString();
                                        dgvtokens[2, dgvtokens.RowCount - 1].Value = "CARACTER - CR";
                                        dgvtokens[3, dgvtokens.RowCount - 1].Value = (x + 1).ToString();
                                        i++;
                                    }
                                    else
                                    {
                                        i = x;
                                        AnalizarSimbolo(Cadena[i].ToString(), x);
                                        i = i + 1;
                                    }
                                }
                                else //Regreso al Principio donde Almaceno mi Puntero
                                {
                                    i = x;
                                    AnalizarSimbolo(Cadena[i].ToString(), x);
                                    i = i + 1;
                                }
                            }
                            else //Si no se Cumple nada de las Condiciones Dada Analizo el Simbolo para Ver si es un Desconocido
                            {
                                AnalizarSimbolo(Cadena[i].ToString(), x);
                                i = i + 1;
                            }
                        }
                        else // Si Solo  Tengo un Simbolo
                        {
                            AnalizarSimbolo(Cadena[i].ToString(), x);
                            i = i + 1;
                        }
                    }
                }
                else //Si solo es una Cadena de Longitud 1
                {
                    x = i;
                    if (AnalizarNumero(Cadena[i]))
                    {
                        Texto = Cadena[i].ToString();
                        dgvtokens.RowCount = dgvtokens.RowCount + 1;
                        dgvtokens[0, dgvtokens.RowCount - 1].Value = "60";
                        dgvtokens[1, dgvtokens.RowCount - 1].Value = Texto.ToString();
                        dgvtokens[2, dgvtokens.RowCount - 1].Value = "NUMERO ENTERO - NE";
                        dgvtokens[3, dgvtokens.RowCount - 1].Value = (x + 1).ToString();                       
                    }
                    else if (AnalizarLetra(Cadena[i]))
                    {
                        Texto = Cadena[i].ToString();
                        PR(Texto); //Llamamos ah un Procedimiento Palabra Reservada -PR para Confirmar si es una PR                         
                    }
                    else
                    {
                        AnalizarSimbolo(Cadena[i].ToString(), x);
                    }
                    Texto = "";
                    i++;
                }
               
            }
            richTextBox2.Text = (Erro) ? "Analisis Lexico INCORRECTO" : "Analisis Lexico CORRECTO";
        }

        private void AnalizarSimbolo(string Union, int PosEmpieza)
        {
            int flag = -1;
            int Pos = -1;
            for (int i = 29; i < Simbolo.Length; i++)
            {
                if (Simbolo[i] == Union)
                {
                    flag = 1;
                    Pos = i;
                    break;
                }
            }
            //Verificamos si el Simbolo Pertenece al Lp
            if (flag > -1)
            {
                dgvtokens.RowCount = dgvtokens.RowCount + 1;
                dgvtokens[0, dgvtokens.RowCount - 1].Value = Codigo[Pos];
                dgvtokens[1, dgvtokens.RowCount - 1].Value = Union.ToString();               
                dgvtokens[2, dgvtokens.RowCount - 1].Value = Tokens[Pos];
                dgvtokens[3, dgvtokens.RowCount - 1].Value = (PosEmpieza + 1).ToString();               
            }
            else
            {
                Erro = true;
                dgvtokens.RowCount = dgvtokens.RowCount + 1;
                dgvtokens[0, dgvtokens.RowCount - 1].Value = "64";
                dgvtokens[1, dgvtokens.RowCount - 1].Value = Union.ToString();
                dgvtokens[2, dgvtokens.RowCount - 1].Value = "SIMBOLO DESCONOCIDO - SD";
                dgvtokens[3, dgvtokens.RowCount - 1].Value = (PosEmpieza + 1).ToString();
                dgvErrores.RowCount = dgvErrores.RowCount + 1;
                dgvErrores[0, dgvErrores.RowCount - 1].Value = "1";
                dgvErrores[1, dgvErrores.RowCount - 1].Value = Union.ToString();               
                dgvErrores[2, dgvErrores.RowCount - 1].Value = (PosEmpieza + 1).ToString();
            }
        }
        private void PR(string Texto)
        {
            int flag = -1;
            int Pos = -1;
            for (int i = 0; i < Simbolo.Length; i++)
            {
                if (Simbolo[i] == Texto)
                {
                    flag = 1;
                    Pos = i;
                    break;
                }
            }
            if (flag > -1) // Confirmamos si es una PR
            {
                dgvtokens.RowCount = dgvtokens.RowCount + 1;
                dgvtokens[0, dgvtokens.RowCount - 1].Value = Codigo[Pos];
                dgvtokens[1, dgvtokens.RowCount - 1].Value = Texto.ToString();
                dgvtokens[2, dgvtokens.RowCount - 1].Value = Tokens[Pos];
                dgvtokens[3, dgvtokens.RowCount - 1].Value = (x + 1).ToString();
            }
            else
            {
                dgvtokens.RowCount = dgvtokens.RowCount + 1;
                dgvtokens[0, dgvtokens.RowCount - 1].Value = "59";
                dgvtokens[1, dgvtokens.RowCount - 1].Value = Texto.ToString();
                dgvtokens[2, dgvtokens.RowCount - 1].Value = "VARIABLE O IDENTIFICADOR - ID";
                dgvtokens[3, dgvtokens.RowCount - 1].Value = (x + 1).ToString();
            }
        }               

        private bool AnalizarNumero(char p)
        {
            bool Estado;
            switch (p.ToString())
            {
                case "0":
                case "1":
                case "2":
                case "3":
                case "4":
                case "5":
                case "6":
                case "7":
                case "8":
                case "9": Estado = true; break;
                default: Estado = false; break;
            }
            return Estado;
        }

        private bool AnalizarLetra(char p)
        {
            return char.IsLetter(p) ? true : false;
        }
    }
}

Hola a todos yo trabajo realizando aplicaciones con conexiones locales mediante el siguiente codigo.
ahora quiero ver si se puede conectar por internet una aplicacion y ver si puedo seguir usando la siguiente forma de conectarse.. me estoy rompiendo la cabeza en intentar conectar mediante internet pero no tengo ni idea.. me gustaria si me pudieran dar algunas pautas o si tuvieran ejemplos seria mucho mejor.
me dijeron que busque DNS pero tuve buscando pero no encuentro ejemplos claros haber si me hechan una mano.

Código (vbnet) [Seleccionar] Expandir

Imports System.Data.OleDb
Imports System.Security.Cryptography

Public Class Cls_Conexion
    Public Conexion As New OleDb.OleDbConnection
    Dim ControlError As String

    Public Function Abrir(ByVal Servidor As String, ByVal BaseDatos As String, ByVal Usuario As String, ByVal Password As String) As Boolean
        Try
            Conexion.ConnectionString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= c:\trabajito; Extended Properties= ""Excel 12.0;HDR=YES;""")
            Conexion.Close()
            Conexion.Open()
            Conexion.Close()
            Abrir = True
        Catch ex As Exception
            Abrir = False
            MsgBox("Acceso no Permitido", vbCritical, "Módulo de Registro Civil")
        End Try
    End Function

    Public Function AbrirSql(ByVal Sql As String) As DataTable
        On Error GoTo ControlError
        Dim ObjDataSet As New DataSet
        Conexion.Open()
        Dim ConsultaSql As New OleDb.OleDbCommand(Sql, Conexion)
        'ConsultaSql.CommandType = CommandType.StoredProcedure
        Dim ObjDataAdapter As New OleDb.OleDbDataAdapter(ConsultaSql)
        Dim ObjDataTable As New DataTable
        ObjDataAdapter.Fill(ObjDataTable)
        AbrirSql = ObjDataTable
        Conexion.Close()
        Exit Function
ControlError: MsgBox(Err.Description & " No se Puede Realizar esa Operación", MsgBoxStyle.Critical, "Módulo Registro Civil")
        Conexion.Close()
    End Function

    Public Function EjecutarSqlOLEDB(ByVal cComando As OleDbCommand) As Boolean
        Dim transaction As OleDbTransaction
        Conexion.Open()
        transaction = Conexion.BeginTransaction()
        Try
            cComando.Transaction = transaction
            cComando.Connection = Conexion
            cComando.ExecuteNonQuery()
            transaction.Commit()
            Conexion.Close()
            EjecutarSqlOLEDB = True
        Catch ex As Exception
            transaction.Rollback()
            Conexion.Close()
            EjecutarSqlOLEDB = False
            MsgBox(Err.Description & " No se Puede Realizar esa Operación", MsgBoxStyle.Critical, "Módulo Registro Civil")
            'MessageBox.Show("No se puede realizar la conexion a la Base de Datos... Contáctese con el Administrador del Sistema", "SIGAF - ESCALAFON", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Function 

End Class

Como hago para obiar el error "Acceso denegado a la ruta de acceso 'G:\System Volume Information\'.", si deseo buscar un archivo que se encuentra en la unidad "G:\"

Código (vbnet) [Seleccionar] Expandir

Try
           If rdbuscar.Checked = True Then
               a = InputBox("Escriba el nombre del archivo a buscar", "Ingrese Datos")
               My.Forms.buscando.Show()
               For Each b As String In My.Computer.FileSystem.GetFiles("G:\", FileIO.SearchOption.SearchAllSubDirectories, a)
                   TextBox1.Text = b
                   acu = b
                   If rdbfilestream.Checked = True Then
                       filestren()
                       My.Forms.buscando.Close()
                       Exit For
                   End If
                   If rdbstreamreader.Checked = True Then
                       streanreader()
                       My.Forms.buscando.Close()
                       Exit For
                   End If
               Next
           End If
           If rdlistar.Checked = True Then
               opc.ShowDialog()
               TextBox1.Text = opc.FileName
               acu = opc.FileName
               If rdbfilestream.Checked = True Then
                   filestren()
               End If
               If rdbstreamreader.Checked = True Then
                   streanreader()
               End If
           End If
       Catch ex As Exception

       End Try

Como las putas

- Generalmente trabajas hasta tarde. ¡Como las putas!
- Generalmente eres más productivo por la noche. ¡Como las putas!
- Te pagan para mantener al cliente feliz. ¡Como las putas!
- Cobras por hora pero tu tiempo se extiende hasta que termines. ¡Como las putas!
- Si eres bueno, nunca estás orgulloso de lo que haces. ¡Como las putas!
- Te recompensan por satisfacer las fantasías de tus clientes. ¡Como las putas!
- Es difícil tener y mantener una familia. ¡Como las putas!
- Cuando te preguntan en qué trabajas no lo puedes explicar. ¡Como las putas!
- Tus amigos se distancian de ti y tú solo andas con otros iguales que tú. ¡Como las putas!
- El cliente paga tu cuenta del hotel y por horas trabajadas. ¡Como las putas!
- Evalúan tu "capacidad" con horribles pruebas. ¡Como las putas!
- El cliente siempre quiere pagar menos y encima quiere que hagas maravillas. ¡Como las putas!
- Cada día al levantarte dices "¡NO VOY A HACER ESTO TODA MI VIDA!". ¡Como las putas!
- Sin conocer nada de su problema los clientes esperan que les des el consejo que necesitan. ¡Como las putas!
- Si las cosas salen mal es siempre culpa tuya. ¡Como las putas!
- Tienes que brindarle servicios gratis a tu jefe, a tus amigos y familiares. ¡Como las putas!

La única diferencia es que como p**a ganaría mucho más (no se dejen engañar por las apariencias, con ropa pierdo mucho).






   

Ola amios solo kisiera saber si se puede krear aimbot o otras cosas en .net ??
o en k programa recomendaria hacer

hola amigos taba resolviendo unas consultas y no entiendo una masomenos me que aca mirenlo:

Select I.nombre
from Investigador I,Asignacion A,Proyecto P
where A.tipo_participacion <> 'principal' and I.departamento = 'tumbes'
and

La Consulta es lo Siguiente:
19.-Obtener el nombre de los investigadores que viven en tumbes y que no sean investigadores principales de proyectos en los cuales participen investigadores de cusco.

PROGRAMA(cod_programa,nombre,entidad_financiera)
INVESTIGADOR(dni_investigador,nombre,departamento,telefono)
PROYECTO(cod_proyecto,cod_programa,nombre,fecha_inicio,fecha_fin,presupuesto)
ASIGNACION(dni_investigador,cod_proyecto,fechainicio,fecha_fin,tipo_participacion)

y haber si me dan una mano con la siguiente consulta:
11.-Obtener el nombre de los investigadores que nunca han participado en proyecto que pertenezcan al programa de codigo "AGUA".

yo esta haciendo asi

Select I.nombre
from investigador I where I.Dni_investigador <> (Select A.Dni_investigador from Asignacion A where A.Cod_proyecto = (Select P.cod_proyecto from proyecto p
where P.cod_Programa="AGUA"))

hola ah todos miren taba restaurando mi base de datos desde mi aplicacion VB2005 y me genera un Error que no puedo Solucionarlo el Error es: No se pudo obtener acceso exlusivo porque la base de datos esta en uso Fin anomalo de RESTORE DATABASE

mostrare una parte de  mi aplicacion lo que toy haciendo lo que si no tengo problema es al guardar el backu pero para restaurar ahi ta el chongo :

mi clase clsconexion

Imports System.Data.SqlClient
Public Class clsConexion
   Public cadenaconexion As New SqlConnection
   Public Function conectar(ByVal server As String, ByVal DB As String, ByVal usuario As String, ByVal clave As String) As Boolean
       Try
           cadenaconexion.ConnectionString = "Data Source=.;Initial Catalog=BDBIBLIOTECA;Integrated Security=True"
           cadenaconexion.Close()
       Catch ex As Exception
           MessageBox.Show(ex.Message.ToString())
           cadenaconexion.Close()
       End Try
   End Function
   Public Function consultaBD(ByVal sentenciaSQL As String) As DataTable
       cadenaconexion.Open()
       Dim consulta As New SqlCommand(sentenciaSQL, cadenaconexion)
       Dim daBD As New SqlDataAdapter(consulta)
       Dim dtBD As New DataTable
       daBD.Fill(dtBD)
       consultaBD = dtBD
       cadenaconexion.Close()
   End Function
End Class

'el Programa

Private Sub FrmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       enlace.conectar("", "", "", "")      
End Sub

Private Sub RESTAURARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RESTAURARToolStripMenuItem.Click
       Dim cadena As String
       If (sfdrestaurar.ShowDialog() = Windows.Forms.DialogResult.OK) Then
           cadena = sfdrestaurar.FileName
           If restaurar_basededatos(cadena) = True Then
               MessageBox.Show("Base de Datos Restaurada", "Mensaje", MessageBoxButtons.OK)          
           End If

       End If
   End Sub
Private Function restaurar_basededatos(ByVal cadena As String) As Boolean
       Dim sBackup As String = "RESTORE DATABASE BDBIBLIOTECA  FROM DISK = '" & cadena & "'" & " WITH REPLACE"
       Dim conecsb As New SqlConnectionStringBuilder
       conecsb.DataSource = "(local)"
       conecsb.InitialCatalog = "master"
       conecsb.IntegratedSecurity = True
       Using con As New SqlConnection(conecsb.ConnectionString)
           Try
               con.Open()
               Dim cmdRestore As New SqlCommand(sBackup, con)
               cmdRestore.ExecuteNonQuery()
               restaurar_basededatos = True
           Catch ex As Exception
               restaurar_basededatos = False
               MessageBox.Show(ex.Message)
           Finally
               con.Close()
           End Try
       End Using
   End Function

   Private Sub GUARDARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GUARDARToolStripMenuItem.Click
       Dim cadena As String
       If (sfdguardar.ShowDialog() = Windows.Forms.DialogResult.OK) Then
           cadena = sfdguardar.FileName
           enlace.consultaBD("backup database BDBIBLIOTECA to disk = N'" + cadena + "'")
           MessageBox.Show("Base de Datos Guardada", "Mensaje", MessageBoxButtons.OK)
       End If
   End Sub

- Numeros Enteros:DD* Ekivalencia  D+
- Numeros Enteros con Signo : ($|+|-)D+
- Numeros Decimales : D+.D+
- Comentarios de Linea C# : //(L|D|S)*

Ahora yo taba intentado hacer
-Cadenas del alfabeto {x,y,z} donde no aparecen dos x ni dos z consecutivas

hola como hago para representar una gramatica , Tabla M en cualquier lenguaje
yo ya hize el analizador lexico.
Tengo mi Gramatica LL1:

E -T E'
E' + T E'
E' - $
T - F T'
T' - * F T'
T' - $
F - ( E )
F - id

ahora como represento la Tabla M en algun lenguaje de programacion de preferencia el C#

hola amigos miren quiero hacer un Sotware donde yo Ingrese una Expresion Regular y me Dibuje su Automata Finito no Deterministico  y  ademas me Determine la Cadena mas corta. (ER es hasta segundo Nivel).


haber si me pueden brindar sus ideas  y que pautas utilizar porfavor.
Responda no mas Tengo Tiempo Hasta el Sabado 27 de Fre

hola ah todos saben tengo aca un duda quiero ingresar el ancho y el alto de la impresion mediante 2 TEXTBOX aca esta mi codgo solo quiero aumentar como hago para darle ancho y alto ah la impresion.

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace WindowsApplication1
{
    public partial class Form1 : Form
    {
        public OpenFileDialog ofdImagen = new OpenFileDialog();
        public Form1()
        {
            InitializeComponent();
        }
        private void button2_Click(object sender, EventArgs e)
        {
            ofdImagen.Filter = "Ficheros BMP|*.bmp" +
                "|Ficheros documento |*.doc" +
                "|Ficheros JPG|*.jpg" +
                "|Ficheros PNG |*.png" +
                "|Ficheros EXIF|*.exif" +
                "|Ficheros TIFF|*.tiff" +
                "|Abrir Todos los Archivos|*.*";
            pictureBox1.ImageLocation = (ofdImagen.ShowDialog() == DialogResult.OK) ? ofdImagen.FileName : null;
        }
        private void printDocument1_PrintPage(object sender, System.Drawing.Printing.PrintPageEventArgs e)
        {
            e.Graphics.DrawString("MI VISTA PREVIA", new Font(txttexto.Font.FontFamily, txttexto.SelectionFont.Size), Brushes.Black, 250, 50);
            e.Graphics.DrawString(txttexto.Text, new Font(txttexto.Font.FontFamily, txttexto.SelectionFont.Size), Brushes.Black, 0, 100);
            e.Graphics.DrawImage(pictureBox1.Image, 400, 100, 435, 435);
        }

        private void button1_Click(object sender, EventArgs e)
        {
            printDocument1.PrinterSettings = printDialog1.PrinterSettings;
            printPreviewDialog1.Document = printDocument1;           
            printPreviewDialog1.ShowDialog();           
        }
    }
}

1.- hola quiero que me ayuden porque me vota mi error .porque cuando quiero trabajar con tipo string me vota un error
ERROR:no se puede adquirir la direccion,obtener el tamaño ni declarar un puntero a un tipo administrado.
pero cuando trabajo con double , int  normal trabaja quisiera que me ayuden ah analizar.

2.- es necesario liberar memoria aqui en el C# como en el c++ free(nodo) una checadita mi codigo gracias

Código (csharp) [Seleccionar] Expandir

using System;
using System.Collections.Generic;
using System.Text;
namespace ConsoleApplication7
{
    public unsafe class Program
    {         
        public struct Nodo
        {
            public string Nombre;
            public int Valor;
            public Nodo* siguiente;
        }
        static void Main(string[] args)
        {
            int op;
            Nodo* Lista;
            Lista = null;
            while (true)
            {
                Console.Clear();
                Console.WriteLine("1.-Ingresar Datos");
                Console.WriteLine("2.-Eliminar Datos");
                Console.WriteLine("3.-Mostrar Datos");
                Console.WriteLine("4.-Salir");
                Console.Write("Ingresa Opcion:");
                op = int.Parse(Console.ReadLine());
                Console.Clear();
                if (op == 1)
                {
                    Console.Write("Ingresa Edad:");
                    int v = int.Parse(Console.ReadLine());
                    Console.Write("Ingresa Nombre:");
                    string nom = Console.ReadLine();
                    Nodo* anterior;
                    //Se crea un nodo llamado Q
                    //y se le asigna espacio en memoria
                    Nodo* nuevo = stackalloc Nodo[1];
                    nuevo->Valor = v;
                    nuevo->Nombre = nom;
                    if (Lista == null)
                    {
                        nuevo->siguiente = Lista;
                        Lista = nuevo;
                    }
                    else
                    {
                        anterior = Lista;
                        while (anterior->siguiente != null)
                        {
                            anterior = anterior->siguiente;
                        }
                        nuevo->siguiente = anterior->siguiente;
                        anterior->siguiente = nuevo;
                    }
                }
                else if (op == 2)
                {
                    Nodo* Q;
                    Nodo* T=stackalloc Nodo[1];
                    if (Lista == null)
                        Console.WriteLine("Lista Vacia");
                    else
                    {
                        if (Lista->siguiente == null)
                            Lista = null;
                        else
                        {
                            Q = Lista;
                            while (Q->siguiente != null)
                            {
                                T = Q;
                                Q = Q->siguiente;
                            }
                            T->siguiente = null;
                            //free(Q);//Como hago esto en el C#
                            //como libero memoria
                        }
                        Console.WriteLine("Dato Eliminado");
                    }
                }
                else if (op == 3)
                {
                    Nodo* nodo;
                    if (Lista == null)
                        Console.WriteLine("Lista Vacia");
                    else
                    {
                        nodo = Lista;
                        while (nodo != null)
                        {
                            Console.Write("{0},{1}->", nodo->Valor,nodo->Nombre);
                            nodo = nodo->siguiente;
                        }

                    }
                }
                else if (op == 4)
                    System.Environment.Exit(0);
                string z = Console.ReadLine();
            }
        }
    }
}


hola no se si alguien tiene el codigo de como dibujar un octagono con el mouse ah la justas llego ah pentagono

hola no se si alguien tiene el codigo de como dibujar un octagono con el mouse ah la justas llego ah pentagono

hola a todoso mire el programa que toy haciendo es que yo ingrese un Limite Inferior y un Limite Superior y me Muestre todos los primos en ese intervalo
y despues los primos anteriores a este primo osea ejemplo masomenos

Li=1 Ls=12

me mostrara en el modo consola

1 2 3 5 7 11
  1 2 3 5  7
     1 2 3  5
         1 2 3
            1 2
               1

 NOTA:HACER ESTE PROGRAMA SIN ARREGLOS NI UsO DE SETCURSOTIONPOSITION

YO LO HIZE MASOMENOS ASI SI TIENES ESA SOLUCION ME GUSTARIA QUE LA COMPATIERAN GRACIAS

using System;
using System.Collections.Generic;
using System.Text;

namespace la_suma_de_primos
{
   class Program
   {
       static void Main(string[] args)
       {
           int[] arr = new int[50];
           int a, b, C = 0, i, j, cp = 0;            
           Console.WriteLine("\t\tSUMA DE NUMEROS PRIMOS");
           Console.Write("*INGRESAR PRIMER INTERVALO: ");
           a = int.Parse(Console.ReadLine());
           Console.Write("*INGRESAR SEGUNDO INTERVALO: ");
           b = int.Parse(Console.ReadLine());
           for (i = a; i <= b; i++)
           {
               for (j = 1; j <= i; j++)
               {
                   if (i % j == 0)
                   {
                       C = C + 1;
                   }
               }
               if (C <= 2)
               {                  
                   //contando primos
                   cp = cp + 1;
                   // Console.WriteLine("={0}",i);
                   arr[cp] = i;
               }
               C = 0;
           }        
           for (i = 1; i <= cp; i++)
           {
               Console.Write(" \t{0} ", arr);                
           }
           Console.WriteLine();      
           j = 1;
           int mayor = arr[cp] * cp;
           for (i = 1; i <= mayor; i++)
           {
               arr[j] -= 1;          
               arr[j] = CapturaPrimo(arr[j]);
               if (arr[j] > 0)
               {
                   Console.Write(" \t{0} ", arr[j]);                    
               }
               else
                   Console.Write(" \t ");
               if (j == cp)
               {
                   j = 1;
                   Console.WriteLine();
               }
               else
                   j++;
           }            
           Console.ReadLine();
       }

       private static int CapturaPrimo(int p)
       {
           while (p > 0)
           {
               if (EsPrimo(p))
               {
                   return p;
               }
               else
                   p--;
           }
           return p;
       }

       private static bool EsPrimo(int p)
       {
           int c = 0;
           for (int i = 1; i <= p; i++)
           {
               if (p % i == 0)
               {
                   c++;
               }                
           }
           if (c <= 2)
           {
               return true;
           }
           else
               return false;
       }
   }
}

hola yo hize esto  : X^N o basse^expo

static int Potencia(int basee, int expo)
        {
            int k;
            if (expo == 0)
                k = 1;
            else
                k = Potencia(basee, expo - 1) * basee;
            return k;
        }

bueno ahora quiero saber como puedo hacerlo de la siguiente manera
-X^-N;X^-N;-X^N

1^2+2^2+3^2+4^2 ... n^2

Yo lo hize de la siguiente manera.

static void Main(string[] args)
        {
            int numero;
            Console.Write("Ingresa Número:");
            numero = int.Parse(Console.ReadLine());
            Console.WriteLine("La Suma de la Expresion es:" + Evaluar(numero));
            Console.ReadLine();
        }
        static int Evaluar(int N)
        {
            if (N == 1)
                return 1;
            else
                return (N * N) + Evaluar(N - 1);
        }

1^2+2^2+3^2+4^2 ... n^2

Yo lo hize de la siguiente manera.

static void Main(string[] args)
        {
            int numero;
            Console.Write("Ingresa Número:");
            numero = int.Parse(Console.ReadLine());
            Console.WriteLine("La Suma de la Expresion es:" + Evaluar(numero));
            Console.ReadLine();
        }
        static int Evaluar(int N)
        {
            if (N == 1)
                return 1;
            else
                return (N * N) + Evaluar(N - 1);
        }

Yo quiero que me ayuden como hacerlo de la siguiente forma
Calcular la sumatoria de la siguiente serie.

1^1+2^2+3^3+4^4 ... n^n