Imports System
Imports System.ComponentModel
Imports System.Threading
Imports System.Windows.Forms
 
Public Class Form1
    Inherits Form
 
    Delegate Sub delegado(ByVal [text] As String)
    Dim t As New Thread(AddressOf Me.hilo)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.t.Start()
    End Sub
 
    Private Sub hilo()
        Dim c As Integer = 0
        For c = 0 To 10000
            Me.addList("valor" & c)
            Thread.Sleep(500)
        Next
    End Sub
    Private Sub addList(ByVal [text] As String)
        If Me.ListBox1.InvokeRequired Then
            Dim d As New delegado(AddressOf addList)
            Me.Invoke(d, New Object() {[text]})
        Else
            Me.ListBox1.Items.Add([text])
        End If
    End Sub
End Class
 

IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'dce05_ejemplos_estrella1')
	DROP DATABASE [dce05_ejemplos_estrella1]
GO
 
CREATE DATABASE [dce05_ejemplos_estrella1]  
	ON 
	(NAME = N'dce05_ejemplos_estrella1_Data', 
	FILENAME = N'c:\dce05\dce05_ejemplos_estrella1_Data.MDF', 
	FILEGROWTH = 10%) 
	LOG ON (
	NAME = N'dce05_ejemplos_estrella1_Log', 
	FILENAME = N'c:\dce05\dce05_ejemplos_estrella1_Log.LDF', 
	SIZE = 1, FILEGROWTH = 10%)
	COLLATE SQL_Latin1_General_CP1_CI_AS
GO
 
USE [dce05_ejemplos_estrella1]
GO
 
/*  CREACION DE TABLAS */
CREATE TABLE [dbo].[Productos] ( 
	[Codigo] [INT] IDENTITY(1,1) NOT NULL,
	[Descripcion] [VARCHAR](30) NOT NULL,
	[Precio] [FLOAT] NOT NULL
) ON [PRIMARY]
 
CREATE TABLE [dbo].[ItemsVenta] ( 
	[Codigo] [INT] IDENTITY(1,1) NOT NULL,
	[CodigoVenta] [INT],
	[CodigoProducto] [INT],
	[Cantidad] [INT] DEFAULT 0
) ON [PRIMARY]
 
CREATE TABLE [dbo].[Ventas] ( 
	[Codigo] [INT] IDENTITY(1,1) NOT NULL,
	[Fecha] [datetime] DEFAULT getdate()
) ON [PRIMARY]
GO
 
DELETE [Ventas]
DELETE [ItemsVenta]
DELETE [Productos]
GO
 
/*  CREACION DE CONSTRAINTS */
ALTER TABLE Productos ADD CONSTRAINT PK_Productos 
PRIMARY KEY (Codigo) 
 
ALTER TABLE ItemsVenta ADD CONSTRAINT PK_ItemsVenta 
PRIMARY KEY (Codigo) 
 
ALTER TABLE Ventas ADD CONSTRAINT PK_Venta 
PRIMARY KEY (Codigo) 
 
ALTER TABLE ItemsVenta ADD CONSTRAINT FK_ItemsVenta_Productos 
FOREIGN KEY (CodigoProducto) REFERENCES Productos (Codigo)
 
ALTER TABLE ItemsVenta ADD CONSTRAINT FK_ItemsVenta_Ventas 
FOREIGN KEY (CodigoVenta) REFERENCES Ventas (Codigo)
GO
 
INSERT INTO Productos (Descripcion, Precio) VALUES ('MotherBoard PC333', 45.30);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Placa de Red 100 Mbps', 15.75);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Microprocesador 1GHz', 112.90);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Disco Rígido 7200 rpm', 84.10);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Access Point Wi-Fi 802.11g', 66.40);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Placa de Red PCMCIA', 25.00);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Hub USB 4 Puertos', 12.80);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Mouse óptico', 33.60);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Monitor 17 pulgadas', 175.50);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Gabinete Mid-Tower', 35.30);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Teclado Internet', 25.80);
INSERT INTO Productos (Descripcion, Precio) VALUES ('Placa de Video 128 MB', 45.70);
INSERT INTO Productos (Descripcion, Precio) VALUES ('DVD-ROM 8x', 45.00);
GO

Dim linea As String = ""
Dim def As Encoding = Encoding.Default
Dim sr As StreamReader = New StreamReader(Archivo.Text, def, False)
    While True
       linea = sr.ReadLine
       If linea = "" Then
       Exit While
       End If
       MsgBox(linea)
    End While
sr.Close()
sr.Dispose()
 

import os
def cortar(nomOriginal, nomNuevo, tamArchivo, tamCortar):
    with open(nomOriginal, 'r+b') as file1:
        f1 = file1.read (tamArchivo-tamCortar)
        file1.close()
    with open(nomNuevo, 'w+b') as file2:
        file2.write(f1)
        file2.close()
        print("Cortado Hecho y guardado en: " + nomNuevo)
 
direc = os.getcwd() + '\\'
dirList = os.listdir(direc)
for fname in dirList:
    if(fname.upper().endswith('.BIN')):       
        if(os.path.isfile(direc + fname)== True):
            if(os.path.exists(direc + fname + '.bak')== False):
                print ('Nombre de archivo: '+ fname)
                leno = os.path.getsize(direc + fname)
                print ("inciando cortado en: " + direc + fname)
                os.rename(direc + fname,direc + fname + '.bak')
                cortar(direc + fname + '.bak', direc + fname, leno, 131072)
            else:
                print ('Archivo: ' + direc + fname + ' ya fue cortado')

import os
def cortar(nomOriginal, nomNuevo, tamArchivo, tamCortar):
    with open(nomOriginal, 'r+b') as file1:
        f1 = file1.read (tamArchivo-tamCortar)
        file1.close()
    with open(nomNuevo, 'w+b') as file2:
        file2.write(f1)
        file2.close()
        print("Cortado Hecho y guardado en: " + nomNuevo)
 
direc = os.getcwd()
dirList = os.listdir(direc)
for fname in dirList:
    if(fname.upper().endswith('.JPG')):
        if(os.path.isfile(direc + fname)== True):
            if(os.path.exists(direc + fname + '.bak')== False):
                print ('Nombre de archivo: '+ fname)
                leno = os.path.getsize(direc + fname)
                print ("inciando cortado en: " + direc + fname)
                os.rename(direc + fname,direc + fname + '.bak')
                cortar(direc + fname + '.bak', direc + fname, leno, 20000)
            else:
                print ('Archivo: ' + direc + fname + ' ya fue cortado')