Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Código Fuente » 2010

Mostrar los tags: 2010

Volver
Agregar Código Fuente
Mostrando del 11 al 20 de 40 coincidencias
<<>>
Se ha buscado por el tag: 2010
Imágen de perfil

Procesador de imagenes en vb.net 2010


Visual Basic.NET

estrellaestrellaestrellaestrellaestrella(1)
Actualizado el 22 de Mayo del 2017 por Administrador (718 códigos) (Publicado el 8 de Mayo del 2013)
10.400 visualizaciones desde el 8 de Mayo del 2013
Este procesador de imagenes te permite abrir una imagen en los formatos gif,png,jpg,tif, dar contorno,resaltar suavizar y dar el efecto difuso de igual forma te permite rotarla izquierda, rotar derecha, voltear horizontal, voltear vertical y por ultimo reducir y aumentar.
Desarrollado en VB.NET 2010.
Imágen de perfil

Generador de Combinaciones


C sharp

Publicado el 3 de Mayo del 2017 por Tito (3 códigos)
4.796 visualizaciones desde el 3 de Mayo del 2017
Combinaciones
Genera las posibles combinaciones de textos o numero y entrega un listado de las misma ademas del calculo del numero de combinaciones. se puede agregar el separado para exportarlo a archivo.

se puede implementar para multiples usos.

saludos espero les sirva
Imágen de perfil

Una Funcion que Arroja Multiples Datos


Visual Basic.NET

estrellaestrellaestrellaestrellaestrella(6)
Publicado el 8 de Diciembre del 2016 por Mauricio Antonio (7 códigos)
2.649 visualizaciones desde el 8 de Diciembre del 2016
Hola Amigo, me habia retirado de molestar con la programación a raiz de los cambios de Visual Basic 6 al .NET, y me dedique un tiempo al HTML CSS y algo de PHP, pero vuelvo a meterme en esto ya que me gusta mucho.

En esta ocasión les traigo un Procedimiento de Funcion que toma los datos de un Combobox y arroga multiples resultado atra bes de una variable personalizada de estructura.

Decidi subir ester ejemplo de codigo por que no he visto ninguno, y habran personas que queran hacer un procedimiento o funciona que le de multiples resultados, espero que les guste.
sin imagen de perfil

Scanner de Red Local


Visual Basic.NET

estrellaestrellaestrellaestrellaestrella(3)
Publicado el 5 de Agosto del 2016 por Edmundo (2 códigos)
6.839 visualizaciones desde el 5 de Agosto del 2016
El siguiente proyecto es un pequeño escanea de red local que trabaja a partir de un archivo de texto ubicado en la raíz del disco local C es muy simple:

trabaja con dos listbox uno para cargar la lista de los no conectados y el otro para los conectados tiene dos timer que ejecutan el código cada 2 minutos en ambos listbox para saber si en ese tiempo se conecto o desconecto alguno emitiendo un sonido, se puede mandar un comando de apagado o reinicio marcando el listbox y presionando el botón correspondiente (maquina remota previamente preparada o configurada). En el archivo de texto van los numero ip con la siguiente forma:

nombre del archivo: Lista IP RPK.txt
contenido:
192.168.3.2│ pc1
192.168.3.3│pc2

igual todo eso lo pueden cambiar en el código que les dejo
espero les sirva.

atento a cualquier consulta o sugerencia
Imágen de perfil

Macro Excel cuando no existe comdlg


Excel

estrellaestrellaestrellaestrellaestrella(1)
Actualizado el 28 de Julio del 2016 por Hugo Arturo (4 códigos) (Publicado el 15 de Julio del 2016)
1.920 visualizaciones desde el 15 de Julio del 2016
hola

en otras macros que he realizado necesito el comdlg para obtener la ruta de los archivos, txt, excel, o bases de access y así poder manipular la información

no quería meterme a macros de excel de 2003, 2007 y menos de 2010, pues en lugar de mejorar, "el proveedor" quita lo que no le gusta y pumm, tuve que hace una macro en excel 2010.

no tiene el comdlg, y buceando un poco en excel encontre esta alternativa

buscar el archivo Application.GetOpenFilename, de esta manera abre una versión de comdlg

1
2
3
4
cells(12, 6).Value = Application.GetOpenFilename( _
     "Excel Files(*.xls;*.xlsx;*.xlsm;*.xla;*.xlam),*.xls;*.xlsx;*.xlsm;*.xla;*.xlam", , _
     "Selecccione el archivo Accountentry Blotter a cargar:")
RutaArch1 = Cells(12, 6).Value

en la celda (12,6) pongo la ruta para que el proto usuario valide que es corecta la ruta
y ese valor lo muevo a una variable RutaArch1, ya que con esa ruta abro el excel correspondiente

una delas cosas buenas es que si necesitaba 4 o mas archivos para no hacerce bola se tenia que tener nas de un comdlg, con esta opcion con Application.GetOpenFilename lo manipulas, en mi caso a 8 archivos diferentes

ya con la ruta del archivo ese excel lo abro como una tabla de base de datos y dependiendo de la version de excel se abre diferente proveedor

1
2
3
4
5
6
7
8
9
10
11
12
13
If VBA.Val(Application.Version) < 12 Then
ExcelStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = '" & RutaArch1 & "''';" & _
"Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";"
ElseIf VBA.Val(Application.Version) < 14 Then
ExcelStr = "Provider=Microsoft.Jet.OLEDB.12.0;" & _
"Data Source = '" & RutaArch1 & "';" & _
"Extended Properties=""Excel 12.0;HDR=No;IMEX=1"";"
Else
ExcelStr = "Provider=Microsoft.ACE.OLEDB.12.0;;" & _
"Data Source = '" & RutaArch1 & "';" & _
"Extended Properties=""Excel 12.0;HDR=YES;\"";"
End If

lo demas es abrir un objeto excel y un recorset
Imágen de perfil

Numeros perfectos


C sharp

Actualizado el 16 de Julio del 2016 por Tito (3 códigos) (Publicado el 12 de Julio del 2016)
6.186 visualizaciones desde el 12 de Julio del 2016
Algoritmo calculo de numeros perfectos optimizado usando AsParallel() en base a la búsqueda los recorre todos y los obtiene
Imágen de perfil

Sistema de Matrículas


Visual Basic.NET

estrellaestrellaestrellaestrellaestrella(33)
Actualizado el 12 de Julio del 2016 por Administrador (718 códigos) (Publicado el 10 de Junio del 2014)
66.485 visualizaciones desde el 10 de Junio del 2014
Completo sistema de matrículas, el cual posee los módulos de Registro de Estudiantes, Registro de Matrículas, Registro de Cursos y Registro de Usuarios.
Desarrollado con VB .NET 2010 con base de datos MySQL

codigo-sistema-matricula-VB-2010-1

codigo-sistema-matricula-VB-2010-2
Imágen de perfil

Anexar un reporte en Crystal Report


Visual Basic.NET

estrellaestrellaestrellaestrellaestrella(3)
Actualizado el 2 de Junio del 2016 por Hugo (2 códigos) (Publicado el 27 de Mayo del 2016)
17.316 visualizaciones desde el 27 de Mayo del 2016
Crear un reporte en VB.net 2010 con Crystal Report

Crea un DATASET, presionar ADD

1

Creara el DATASET

2

Seleccionar la table y arrastrarla para que realice la conexión

3

Adicionar CRYSTAL REPORT, presionar el botón ADD

4

Deja USING THE REPORT WIZARD/STANDARD, presiona OK

5

Se visualizara la pantalla del wizard, selecciona la table y pasarla a SELECTED TABLES, presionar SIGUIENTE

6

Seleccionar los campos que aparecerán en el reporte, presionar siguiente

7

En caso de querer agruparlo seleccionar los campos, presionar siguiente

8

En caso de querer hacer una selección de campos con formula, presionar siguiente

9

Seleccionar algún estilo para el reporte, presionar Finalizar

10

Por último acomodar los campos y titulo

11

Crear un form donde llamaremos el reporte, presionar ADD

12

Arrastramos un CRYSTALREPORTVIEWER

13

Seleccionamos las propiedades del CRYSTALREPORTVIEWER1 , en el REPORTSOURCE seleccionamos el reporte creado y creara un REPORTDOCUMENT

14

Dentro de la form que llama el reporte copiar el código:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Imports System.Data.SqlClient
Imports System.Data
Private Sub ingresos_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
	Cnn.open
	Try
		Dim Ds As New dsingresos
		Dim Da As New SqlClient.SqlDataAdapter("Select * From TABLA " & _
		"where FECHA_INGRESO >= '" & CAMPO_INGRESO.DateTimePicker11.Text & "' and FECHA_INGRESO <= '" & CAMPO_INGRESO.DateTimePicker22.Text & "' order by FECHA_INGRESO", Cnn)
		Da.Fill(Ds, "TABLA")
		'Mandar los datos al dataSet y muestralos
		'se tiene que crear forzosamente esta instancia para poder pasar
		'parametros...
		Dim Reporte As New NOMBRE_REPORTE

		Reporte.SetDataSource(Ds)

		Reporte.SummaryInfo.ReportTitle = "TITULO DE MI REPORTE " & Today

		Reporte.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Landscape

		Me.CrystalReportViewer1.ReportSource = Reporte

	Catch ex As Exception

		MessageBox.Show(ex.ToString)

	End Try

End Sub
El código se copia en el load de la form, este código es para enviar un rango de fechas a imprimir.
Se crea una siguiente form donde se podrán 4 DateTimePicker

15

En el botòn GENERAR REPORTE copiar el siguiente còdigo:
1
2
3
4
5
6
7
8
9
10
11
12
Imports system.DateTime
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
	'Se asigna al 11 y 22 para que no cambie el fomato de fechas
	DateTimePicker11.Text = DateTimePicker1.Text

	DateTimePicker22.Text = DateTimePicker2.Text

	'Cambia formato de fechas para 11 y 22
	DateTimePicker11.CustomFormat = "yyyyMMdd"
	DateTimePicker11.Format = DateTimePickerFormat.Custom
	DateTimePicker22.CustomFormat = "yyyyMMdd"
	DateTimePicker22.Format = DateTimePickerFormat.Custom
	My.Forms.ingresos.ShowDialog()
End Sub
Anterior1234Siguiente