Los códigos más visitados de Visual Basic
Listado de los códigos más visitados durante los últimos 30 días
Cx es un programa para Windows.
Sirve para gestionar la contabilidad.
Produce: libro diario, auxiliar,
balanzas, recapitulación, estados financieros,
balance general, estado de pérdidas y ganancias,
estado de resultados y estados de cuentas.
Servosistema que administra
la oficina sin papeles.
Multiusuario cliente/servidor, red inalámbrica.
Código abierto. Trabajo a distancia.
Adjunto Cx Guía del rey de la creación

MerX es un programa para Windows.
Sirve para gestionar la contabilidad.
Produce: libro diario, auxiliar,
balanzas, recapitulación, estados financieros,
balance general, estado de pérdidas y ganancias,
estado de resultados y estados de cuentas.
Multiusuario cliente/servidor, red inalámbrica.
Adjunto Guía del Usuario MerX
Completo sistema de ventas con clientes, productos, ventas, almacén, informes, etc...

CEYS: Control de Entradas y Salidas. Versión 1805
Sistema de facturación y control de inventarios, Multiusuario, Compras, Ventas, Notas de Crédito, Notas de Débito, Traslados entre Inventarios, Órdenes de Trabajo. Capturas a través de lector de códigos de barras. Cuentas por Pagar, Cuentas por Cobrar, Pagos, Análisis de Saldos por Antigüedad. Control de inventarios múltiples. Requiere WinRar para descomprimir. SO: W7, W8, W10.
Completo programa de facturación y control de Inventario con Clientes, Proveedores, Ventas, Compras, Cuentas, Reportes, Arqueo de caja, etc...
Utiliza una base de datos de Access.

App Kfé version 2238 control de inventarios y facturación para restaurantes, hospitales, farmacias, ferreterías y similares. Multiusuario e inalámbrica. Compras, ventas, cuentas por pagar, cuentas por cobrar, arqueo de caja, rentabilidad, servicio al cliente, análisis de clientes por antigüedad de saldos y más…
Pos es una app especializada en el control de inventarios y facturación. Pos posee opciones para conectarse con su app “hermana”, llamada “CpC”, especializada en el control de las cuentas por cobrar. CpC puede metamorfosearse para controlar las cuentas por pagar. CpC se encuentra en LA WEB DEL PROGRAMADOR, el mejor sitio en Internet para encontrar todos los códigos fuentes que necesite.

A5AD (Asincoade) es un programa informático para control de inventarios y facturación por Internet. Trabajo a distancia. Compas, Ventas, Notas de Crédito, Notas de Débito, Cuentas por Pagar, Cuentas por Cobrar, Otros Ingresos, Otros Egresos. WiFi. Red. Windows 7, 8 y 10.
Completo sistema de facturación que contempla:
- artículos
- clientes
- facturación
- presupuesto
Algoritmo para ingresar al correo en un segundo, o menos de dos.
Drop Juego de damas
QF app contabilidad general. Catálogo de cuentas, Libros diarios, balanzas de comprobación, estados de cuentas, recapitulación, libro auxiliar, libro mayor, estados financieros, balance general, estado de pérdidas y ganancias, anexos, libro diario fiscal, libro mayor fiscal, análisis financiero, comparativo de cuentas, integración de cuentas, presupuesto, históricos, gráficas…
Si está preparando un documento y el teclado se daña, este programa puede sacarlo del problema pues hace aparecer dentro de una pequeña ventana un teclado virtual que se sitúa encima del documento, ventana que usted puede arrastrar y situar donde mejor convenga, y ahí se mantendrá la ventana, obediente, hasta que la cambie de nuevo de lugar.
Este teclado virtual tiene todos los caracteres que contiene un teclado de 104 teclas y aún muchas cosas más. Además de poder escribir usted todas las letras y números con este teclado, incluyendo los caracteres especiales habidos y por haber, o vocales acentuadas, puede retroceder un carácter o avanzar un carácter, situarse al inicio de una palabra o al final de la misma, situarse al inicio de la línea o al final, situarse en la primera página del documento, o en la última. Puede poner la fecha del documento, o la hora. Todo esto con un clic. Pero, mejor no le molesto más, lea la guía del usuario adjunta y usted quedará sorprendido de todo lo que Tecla2 – Teclado Virtual puede hacer.

A5B2 Transportador de Carpetas es útil para transferir carpetas de un ordenador a otro utilizando señales inalámbricas.
NiK App contable Versión 541, código abierto. Produce Libros Diarios, Balanzas, Resúmenes, Estados Financieros, Balance General, Estados de Pérdidas y Ganancias. No utiliza bases de datos, es totalmente automática. NiK está conformado por dos app, una funciona como server y otra como cliente. Esta app puede funcionar localmente (mono usuario), en red local (utilizando señales inalámbricas del router o cableado físico), o internacionalmente (utilizando señal de Internet).
NiK está comprimido con WinRar. Funciona en Windows 7, 8 y 10.
La terminología técnica que NiK sintetiza se detalla en la siguiente Taxonomía:
Tipo de Sistema: Distribuido, Paradigma: Cliente – Servidor, Modo de Transmisión de Datos: Half Duplex, Protocolo: TCP-IP, Medio de Comunicación: Paso de Mensajes, Interfaz: Sockets BSD (University of California, Berkeley Software Distribution, Winsock Windows Sockets), Sistema de Archivos: Bases de Datos no considerado, los datos se almacenan en Archivos de Texto, Alfabeto: ASCII, Comunicación de Procesos: Incluido recurso de Replicación (los clientes mantienen una copia actualizada de los datos que guarda el servidor), Capacidad de Transmisión de Datos (Ancho de Banda): 1447 Bytes por Milisegundo, Prestaciones: App desarrollada para Conexión Remota con otras Computadoras, Método de Transferencia de Datos: Conmutación de Paquetes, Red de Cómputo por su extensión que acepta: LAN (local), MAN (metropolitana) y WAN (mundial), Plataforma: ISO/OSI, Tipo de Red: Inalámbrica, Estado del Servidor: Reactivo, se activa hasta que recibe una Petición de Servicio, Sincronización en Envío y Recepción de Paquetes: Temporizador, Arquitectura: no requiere hardware especial ni sistema operativo complejo (imagen de sistema único).
He subido un sistema de matricula y notas que he realizado a medida para un colegio este sistema es antiguo ya que lo hice en el año 2003.
Espero lo usen y aprendan de visual basic 6 un lenguaje que aun se utiliza en varias empresas.

Este programa ayuda en la revisión y corrección de documentos, utilizando solamente una mano, a través del ratón

TDC Transportador de Carpetas es una aplicación que permite transferir carpetas de un ordenador a otro utilizando señales inalámbricas. Puede transferir datos, imágenes, videos, música, y cualquier tipo de archivo. Funciona en Windows 7, 8, 10.
Una de las tareas imprescindibles que están obligados a cumplir quienes laboran con ordenadores es efectuar copias de respaldo. Esta app, denominada VacaP, lo logra con un clic, utilizando señales inalámbricas, y sin necesidad de tener conexión con Internet.

Public Class Form4
Dim T, Ru, A0, B0, a, b, c, V, M, vem, vem2, R1, R2, R3, R4, R5, R6, R7, R8, Var As Double
Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = ""
TextBox2.Text = ""
Label5.Text = ""
ComboBox2.Text = "m3/kg"
ComboBox3.Text = "K"
ComboBox4.Text = "Kpa"
End Sub
Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.SelectedIndexChanged
ComboBox4.DropDownStyle = ComboBoxStyle.DropDownList
If ComboBox4.Text = "Kpa" Then
Label5.Text = R7
Label5.Text = Math.Round(Convert.ToDouble(R7), 4)
ElseIf ComboBox4.Text = "Pascal" Then
Label5.Text = R7 * 1000
Label5.Text = Math.Round(Convert.ToDouble(R7 * 1000), 4)
ElseIf ComboBox4.Text = "Atmosfera" Then
Label5.Text = R7 / 101.3
Label5.Text = Math.Round(Convert.ToDouble(R7 / 101.3), 4)
ElseIf ComboBox4.Text = "Bar" Then
Label5.Text = R7 / 100
Label5.Text = Math.Round(Convert.ToDouble(R7 / 100), 4)
ElseIf ComboBox4.Text = "Psi" Then
Label5.Text = R7 / 6.895
Label5.Text = Math.Round(Convert.ToDouble(R7 / 6.895), 4)
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
Label5.Text = ""
ComboBox2.Text = "m3/kg"
ComboBox3.Text = "K"
ComboBox4.Text = "Kpa"
Label5.Text = ""
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
If ComboBox1.Text = "Nitrógeno" Then
A0 = 136.2315
B0 = 0.05046
a = 0.02617
b = -0.00691
c = 42000
M = 28.013
Ru = 8.314
ElseIf ComboBox1.Text = "Hidrógeno" Then
A0 = 20.0117
B0 = 0.02096
a = -0.00506
b = -0.04359
c = 504
M = 2.015
Ru = 8.314
ElseIf ComboBox1.Text = "Argón" Then
A0 = 130.7802
B0 = 0.03931
a = 0.02328
b = 0.0
c = 59900
M = 39.984
Ru = 8.314
End If
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
If ComboBox2.Text = "m3/kg" Then
V = Val(TextBox1.Text)
ElseIf ComboBox2.Text = "cm3/g" Then
V = Val(TextBox1.Text) * 1000
ElseIf ComboBox2.Text = "ft3/lb" Then
V = Val(TextBox1.Text) * 16.01846337
ElseIf ComboBox2.Text = "in3/Oz" Then
V = Val(TextBox1.Text) * 1729.994044
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Var = False
If ComboBox1.Text = "" Then
MessageBox.Show("Escoge el gas")
Var = True
ElseIf TextBox1.Text = "" Then
MessageBox.Show("Introduce el volumen")
Var = True
ElseIf TextBox1.Text <= 0 Then
Label5.Text = ""
MsgBox("Error, Proporciona un volumen mas alto")
Var = True
'Label5.Visible = False
ElseIf TextBox2.Text = "" Then
MessageBox.Show("Introduce la tempertura")
Var = True
ElseIf TextBox1.Text = "" Then
MessageBox.Show("Introduce el volumen")
Var = True
End If
If Var = False Then
If ComboBox3.Text = "K" Then
Label5.Text = ""
If TextBox2.Text < 60 Or TextBox2.Text > 300 Then
MessageBox.Show("error el rango de la T debe ser >60 y <300 K")
Var = True
Else
T = Val(TextBox2.Text)
End If
ElseIf ComboBox3.Text = "C" Then
If TextBox2.Text < -213.15 Or TextBox2.Text > 26.85 Then
MessageBox.Show("error el rango de la T debe ser >-213.15 y <26.85 C")
Var = True
Else
T = Val(TextBox2.Text) + 273.15
End If
ElseIf ComboBox3.Text = "F" Then
If TextBox2.Text < -351.67 Or TextBox2.Text > 80.33 Then
MessageBox.Show("error el rango de la T debe ser -351.67 y 80.33 F")
Var = True
Else
T = ((TextBox2.Text - 32) / 1.8) + 273.15
End If
End If
End If
If Var = False Then
vem = V * M
vem2 = vem ^ 2
R1 = A0 * (1 - (a / vem))
R2 = B0 * (1 - (b / vem))
R3 = (Ru * T) / (vem2)
R4 = 1 - (c / (vem * T ^ 3))
R5 = vem + R2
R6 = R1 / vem2
R7 = R3 * R4 * R5 - R6
If R7 < 0 Then
Var = True
MsgBox("Error, la presiòn resultante no debe ser negativa")
Else
Label5.Text = R7
Label5.Text = Math.Round(Convert.ToDouble(R7), 4)
End If
End If
ComboBox4.SelectedIndex = 0
End Sub
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
If ComboBox2.Text = "m3/kg" Then
V = Val(TextBox1.Text)
ElseIf ComboBox2.Text = "cm3/g" Then
V = Val(TextBox1.Text) * 1000
ElseIf ComboBox2.Text = "ft3/lb" Then
V = Val(TextBox1.Text) * 16.01846337
ElseIf ComboBox2.Text = "in3/Oz" Then
V = Val(TextBox1.Text) * 1729.994044
End If
End Sub
Private Sub ComboBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles ComboBox1.KeyPress
e.Handled = True
End Sub
Private Sub ComboBox4_KeyPress(sender As Object, e As KeyPressEventArgs) Handles ComboBox4.KeyPress
e.Handled = True
End Sub
Private Sub TextBox2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox2.KeyPress
If Not Char.IsDigit(e.KeyChar) AndAlso Not Char.IsControl(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "-" Then
e.Handled = True
End If
If e.KeyChar = "."c AndAlso TextBox2.Text.Contains(".") Then
e.Handled = True
End If
If e.KeyChar = "0"c AndAlso TextBox2.Text = "0" Then
e.Handled = True
End If
If e.KeyChar = "-"c AndAlso TextBox2.Text.Contains("-") Then
e.Handled = True
End If
End Sub
Private Sub TextBox3_KeyPress(sender As Object, e As KeyPressEventArgs)
If (Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> ControlChars.Back) Then
e.Handled = True
End If
End Sub
Private Sub TextBoxt1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If (Not Char.IsDigit(e.KeyChar) AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> ControlChars.Back) Then
e.Handled = True
End If
If e.KeyChar = "."c AndAlso TextBox1.Text.Contains(".") Then
e.Handled = True
End If
If e.KeyChar = "0"c AndAlso TextBox1.Text = "0" Then
e.Handled = True
End If
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
End Sub
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
End Sub
Private Sub Label4_Click(sender As Object, e As EventArgs) Handles Label4.Click
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
If ComboBox3.Text = "K" Then
T = Val(TextBox2.Text)
ElseIf ComboBox3.Text = "C" Then
T = Val(TextBox2.Text) + 273.15
ElseIf ComboBox3.Text = "F" Then
T = Val(TextBox2.Text) - 32 * (5 / 9) + 273.15
ElseIf T > 60 Then
MessageBox.Show("ERROR NUMERO NO VALIDO")
ElseIf T < 300 Then
MessageBox.Show("ERROR NUMERO NO VALIDO")
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Close()
End Sub
End Class
Copiar archivos utilizando señal inalambrica

EL SISTEMA DE MATRICULA Y NOTAS ESTA DESARROLLADO EN VISUAL BASIC 6.0
FUNCIONA BIEN LAS ULTIMAS PRUEBAS LAS HICE EN WINDOWS 7 DE 64 BITS TODO NORMAL.
SI TIENES PROBLEMAS EN LA INSTALACION ME ESCRIBEN A MI CORREO:
[email protected]Reproducir GIF Animado sin API's ni OCX utilizando control Image.
Ejemplo simple de menú de edición.
Ejemplo simple de asignación de teclas de función.
Da algo de destellos en la imagen. Ésta ha de estar muy bien hecha para que se vea limpiamente.
Código del 2007.
ioKopio, App para grabar videos
Teclado Virtual

Les traigo un OCX simple, que les servirá para representar el típico estado On-Off.
Reacciona al hacer un
Click sobre el elemento, llamando al Evento
Change. Desde ahí capturan el valor (
TRUE ó
FALSE) y realizar la acción que quieran de acuerdo a éso.
Les adjunto el código fuente, junto al OCX compilado. Espero les sea de utilidad.