Private Sub bConvertir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bConvertir.Click
        Dim numdecimal As Integer = TextBox1.Text
        Dim numbasenueva As Integer = TextBox2.Text
        Dim r As String = ""
        Do
            r = (numdecimal Mod numbasenueva) & r
            numdecimal = numdecimal \ numbasenueva
        Loop Until (numdecimal \ numbasenueva) <= 0
        r = (numdecimal Mod numbasenueva) & r
        Label3.Text = "Respuesta en base " & numbasenueva & " : " & r
    End Sub

integer total_registro
string nombre
 
DECLARE c_producto CURSOR FOR
select descripcion from productos;
select count(*) INTO :total_registro from productos;
 
OPEN c_producto;
integer indice
for indice=1 to total_registro
	FETCH NEXT c_producto INTO :nombre;
	lb_1.insertitem( nombre, indice)
next
CLOSE c_producto;

    private void jButton1_actionPerformed(ActionEvent e) {
        int n=Integer.parseInt(jTextField1.getText());
        String fila="";
        for (int x=1; x <= n; x++)
        {   int s=0;
            for(int i=0; i < x*2 -1; i++)
            {
               if(x <= (i))
                { 
                    s--;
                    // JOptionPane.showMessageDialog(this,"x="+ String.valueOf(x) + "   i="+ String.valueOf(i) + "   s="+ String.valueOf(s*2)  );
                     fila  = fila +  String.valueOf(x + i + s*2 ) + " "; 
                }
                else
               {
                    //JOptionPane.showMessageDialog(this,"x="+ String.valueOf(x) + "   i="+ String.valueOf(i) + "   s="+ String.valueOf(s)  );
                     fila  = fila +  String.valueOf(x + i + s ) + " "; 
                }
            }
            list1.add(fila);   
            fila="";
        }   
    }

public class cBuscaPersona {
    public cBuscaPersona() {
    }
public String BuscarApellido( DefaultTableModel jDatos , String buscar_nombre)
{
        String nombre_encontrado="";
        String resultado="";
        for (int i=0;i < jDatos.getRowCount(); i++)
        {
            nombre_encontrado=jDatos.getValueAt(i,0).toString();
        if (nombre_encontrado.equalsIgnoreCase(buscar_nombre))
            {
                resultado=jDatos.getValueAt(i,1).toString();
                break;
            }
        }
        return resultado;
}
}

    DefaultTableModel jDatos = new DefaultTableModel();
 
    private void jbGuardar_actionPerformed(ActionEvent e) {
        String[] dato={jtfNombres.getText(),jtfApellidos.getText()};
        jDatos.addRow(dato);
        jtfNombres.setText("");
        jtfApellidos.setText("");
        jtfNombres.requestFocus();
    }
 
    private void this_windowOpened(WindowEvent e) {
        jDatos.addColumn("nombres");
        jDatos.addColumn("apellidos");
    }
 
    private void jbBuscar_actionPerformed(ActionEvent e) {
        cBuscaPersona obj=new cBuscaPersona();
        jlApellidos.setText("Apellido buscado: " + obj.BuscarApellido(jDatos,jtfCriterio.getText()));
        JOptionPane.showMessageDialog(this,"Operación de búsqueda finalizada"); 
    }

    DefaultListModel lista= new  DefaultListModel();
    private void jbAgregar_actionPerformed(ActionEvent e) {
      lista.addElement(jtNumero.getText());  
    jList1.setModel(lista);
    jtNumero.setText("");
    jtNumero.requestFocus();
    }
 
    private void jbProcesar_actionPerformed(ActionEvent e) {
        cEjercicioJava obj=new cEjercicioJava();
        obj.Procesar(lista);
        jlnumPar.setText("Total de números pares: " + String.valueOf(obj.totalNumeroPar()) + " Números:" + obj.NumerosPares());
        jlMulti3.setText("Total de números Multiplos de 3: " + String.valueOf(obj.totalMultiplo3()) + " Números:" + obj.NumerosMultiplo3());
        jlMulti5.setText("Total de números Multiplos de 5: " + String.valueOf(obj.totalMultipo5()) + " Números:" + obj.NumerosMultiplo5());
}

import javax.swing.DefaultListModel;
 
public class cEjercicioJava {
    cEjercicioJava() {
    }
    private int ctotalNumeroPar;
    private int ctotalMultiplo3;
    private int ctotalMultipo5;
    private String cNumerosPares = "";
    private String cNumerosMultiplo3 = "";
    private String cNumerosMultiplo5 = "";
    private int num;
 
    public void Procesar(DefaultListModel lista) {
        /*numeros pares*/
        for (int i = 0; i < lista.size(); ++i) {
            num = Integer.valueOf(lista.getElementAt(i).toString());
            if (num % 2 == 0) {
                ctotalNumeroPar++;
                cNumerosPares += "/" + String.valueOf(num);
            }
 
            /*multiplos de 3*/
            if (num % 3 == 0) {
                ctotalMultiplo3++;
                cNumerosMultiplo3 += "/" + String.valueOf(num);
            }
            /*multiplos de 5*/
            if (num % 5 == 0) {
                ctotalMultipo5++;
                cNumerosMultiplo5 += "/" + String.valueOf(num);
            }
        }
    }
 
    int totalNumeroPar() {
        return ctotalNumeroPar;
    }
 
    String NumerosPares() {
        return cNumerosPares;
    }
 
    int totalMultiplo3() {
        return ctotalMultiplo3;
    }
 
    String NumerosMultiplo3() {
        return cNumerosMultiplo3;
    }
 
    int totalMultipo5() {
        return ctotalMultipo5;
    }
 
    String NumerosMultiplo5() {
        return cNumerosMultiplo5;
        }
}

    DefaultListModel ListaNumero = new DefaultListModel();
 
    private void jbAgregar_actionPerformed(ActionEvent e) {
        ListaNumero.addElement(jtfNumero.getText());
        jlNumeros.setModel(ListaNumero);
        jtfNumero.setText("");
        jtfNumero.requestFocus();
    }
 
    DefaultListModel listaTemp = new DefaultListModel();
 
    private void jbPar_actionPerformed(ActionEvent e) {
        listaTemp.clear();
        for (int i = 0; i < ListaNumero.getSize(); i++) {
            String num = ListaNumero.elementAt(i).toString();
            if ((Integer.valueOf(num) % 2) == 0) {
                listaTemp.addElement(ListaNumero.getElementAt(i).toString());
            }
        }
        jlResultado.setModel(listaTemp);
    }
 
    private void jbImpar_actionPerformed(ActionEvent e) {
        listaTemp.clear();
        for (int i = 0; i < ListaNumero.getSize(); i++) {
            String num = ListaNumero.elementAt(i).toString();
            if ((Integer.valueOf(num) % 2) != 0) {
                listaTemp.addElement(ListaNumero.getElementAt(i).toString());
            }
        }
        jlResultado.setModel(listaTemp);
    }
 
    private void jbQuitar_actionPerformed(ActionEvent e) {
        ListaNumero.removeElementAt(jlNumeros.getSelectedIndex());
    }

Public Class Categoria
    Private cCodigo As Short
    Private cDescripcion As String
 
    Public Property Codigo() As Short
        Get
            Return cCodigo
        End Get
        Set(ByVal value As Short)
            cCodigo = value
        End Set
    End Property
 
    Public Property Descripcion() As String
        Get
            Return cDescripcion
        End Get
        Set(ByVal value As String)
            cDescripcion = value
        End Set
    End Property
End Class

Public Class Form1
    Dim lCategoria As New List(Of Categoria)
    Private Sub bAgregar_Lista_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bAgregar_Lista.Click
        Dim iCategoria As New Categoria
        iCategoria.Codigo = TextBox1.Text
        iCategoria.Descripcion = TextBox2.Text
        lCategoria.Add(iCategoria)
        Label3.Text = "Total de item: " & lCategoria.Count
    End Sub
 
    Private Sub bCargar_Combobox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCargar_Combobox.Click
        cobCategoria.DataSource = Nothing
        cobCategoria.DataSource = lCategoria
        cobCategoria.DisplayMember = "Descripcion"
        cobCategoria.ValueMember = "Codigo"
    End Sub
 
    Private Sub cobCategoria_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cobCategoria.SelectedIndexChanged
        Try
            TextBox3.Text = cobCategoria.SelectedValue
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub bCargar_Gridview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCargar_Gridview.Click
        DataGridView1.DataSource = Nothing
        DataGridView1.DataSource = lCategoria
    End Sub
End Class

'Hacer la referencia a la capa negocios (CapaNegocios.dll)
Imports CapaNegocios
Module Module1
    Sub Main()
        Dim can As New Empleado_Neg
        Console.WriteLine("Total de empleados: " & can.Total_de_Empleados)
        Console.ReadLine()
    End Sub
End Module

Imports CapaNegocios
Public Class frmEmpleado
    Private Sub bAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bAceptar.Click
        Dim cont As New Empleado_Neg
        TextBox1.Text = cont.Total_de_Empleados
    End Sub
End Class

Imports CapaAccesoDatos
Imports CapaEntidad
Imports System.Data.SqlClient

Public Class Empleado_Neg
    Dim cn As AccesoDatos
    Public Function Total_de_Empleados() As Integer
        Dim cTotalEmp As Integer
        cn = New AccesoDatos
        Dim cmdTotalEmp As New SqlCommand
        cmdTotalEmp.Connection = cn.Conexion
        cmdTotalEmp.CommandType = CommandType.Text
        cmdTotalEmp.CommandText = "Select count(IdEmpleado) from Empleado"
        cmdTotalEmp.Connection.Open()
        Try
            cTotalEmp = cmdTotalEmp.ExecuteScalar
            Return cTotalEmp
        Catch ex As Exception
            Throw
        Finally
            cn.Conexion.Close()
        End Try
    End Function
End Class