using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Data.OleDb;
 
namespace Excel
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
 
        private void button1_Click(object sender, EventArgs e)
        {
            try
            {
                DataTable dT = new DataTable();
                String sConect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Libro1.xls;Extended Properties=Excel 8.0;";
                OleDbConnection oConn = new OleDbConnection(sConect);
                OleDbDataAdapter oDa = new OleDbDataAdapter("SELECT * FROM [pru$]", oConn);
                //OleDbDataAdapter oDa = new OleDbDataAdapter("SELECT F1 FROM [pru$]", oConn);
                oConn.Open();
                oDa.Fill(dT);
                oConn.Close();
                dataGridView1.DataSource = dT;
            }
            catch (Exception er)
            {
                MessageBox.Show(er.Message);
            }
        }
    }
}
 

Ya lo entendí, en el programa principal donde muestra el resultado de la operación (Suma) llama a la subrutina o subprograma y le da los valores (A,B) que son los valores que ingresó el usuario a las variables del subprograma en este caso X e Y y efectúa la operación que contiene éste, la de sumar, y por eso pone el comando devolver

Ahora chicos, quise pasar esto a Visual basic y no me funciona me quedó así:

Programa principal:

Código

Private Sub Form_Load()
A = InputBox("Ingrese un valor para a:")
B = InputBox("Ingrese un valor para b:")
MsgBox "El resultado de la operación es:" & Suma(A, B)
End Sub

Subrutina o subprograma:

Código

Private Sub Suma(X As Integer, Y As Integer, Sumar As Integer)
Sumar = A + B
End Sub

No sé como tengo que hacer para igualar al comando devolver del pseudocódigo, trate de poner A+B sólo pero me saca el signo "+" y me deja A B, entonces le puse Sumar = A+B pero igual no funciona


Y después cuando trato de ejecutarlo me aparece esto y cuando le doy aceptar me marca en amarillo la línea


Private Sub Form_Load()



Gracias y espero que me puedan ayudar

PD: No sería mejor moverlo a VB ahora?

Private Sub Form_Load()
Dim A As Integer
Dim B As Integer
A = Val(InputBox("Ingrese un valor para a:"))
B = Val(InputBox("Ingrese un valor para b:"))
MsgBox "El resultado de la operación es: " & Suma(A, B)
End
End Sub
 
 
 
 
Private Function Suma(X As Integer, Y As Integer) As Integer
Suma = X + Y
End Function

byte[] leer = File.ReadAllBytes("C:\\1.txt");
FileStream fstream = new FileStream("C:\\2.txt", FileMode.Create, FileAccess.Write);
BinaryWriter escribir = new BinaryWriter(fstream);
for (int i1 = 1; i1 < leer.Length; i1++)
{
   escribir.Write(leer[i1]);
      if (i1 == 109)
       {
          for (int i = 93; i<111; i++)
             {
                escribir.Write(leer[i]);
              }
         }
}
escribir.Close();
fstream.Close();

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <configSections>
    </configSections>
    <connectionStrings>
        <add name="WindowsFormsApplication1.Properties.Settings.dbConnectionString"
            connectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\db.accdb"
            providerName="System.Data.OleDb" />
    </connectionStrings>
</configuration>
 

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <configSections>
    </configSections>
    <connectionStrings>
        <add name="WindowsFormsApplication1.Properties.Settings.dbConnectionString"
            connectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=db.accdb"
            providerName="System.Data.OleDb" />
    </connectionStrings>
</configuration>

byte[] leer = File.ReadAllBytes("C:\\1.txt");
FileStream fstream = new FileStream("C:\\2.txt", FileMode.Create, FileAccess.Write);
BinaryWriter escribir = new BinaryWriter(fstream);
int control = 0;
for (int i = 0; control < 4; i++)
{
   if (i == 17)
      {
         control++;
          i = 0;
       }
    escribir.Write(leer[i]);
}
for (int i1 = 1; i1 < leer.Length; i1++)
{
    escribir.Write(leer[i1]);
}
escribir.Close();
fstream.Close();

Hola, como andan? Yo bien, ¿y tú?

Hola, como andan?Hola, como andan?Hola, como andan?Hola, como andan?Hola, como andan? Yo bien, ¿y tú?

(@"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=db.accdb;Persist Security Info=False")

byte[] leer = File.ReadAllBytes("C:\\1.txt");
FileStream fstream = new FileStream("C:\\2.txt", FileMode.Create, FileAccess.Write);
BinaryWriter escribir = new BinaryWriter(fstream);
for(int i=15;i<leer.Length;i++)
   {
       escribir.Write(leer[i]);
    }
escribir.Close();
fstream.Close();