Comunicación serial con Visual Basic 2008

META ya intente mandarte un dibujo del circuito isis,cuando no se te descargaba el archibo y en este ordenador no se pero no puedo
 
Pulsa el botón de capturar toda la pantalla. Habres el Paint en blanco, en las opciones de arriba, le das editar, luego pegar. Al final lo guardas en .jpg.
 
¿Qué cahcarro tienes?

¿Un Spectrum?



Tiene que funcionar. Saca foto con el móvil (o celular), cámara digital o algo. ¿Qué es lo que dice el mensaje?
Escríbelo. ¿Algo del puerto ocupado?
 
El letrero es el que normalmente sale cuando hay algon erro en este caso dice informe a microsof le doy
para que me envie informe de errores y no me manda nada mi telefono no tiene camara
 
Este que tengo es un cacharro que lo compre por 60 euro lo uso solo para goberar algunas luces y temperatura por internet. el que se ha estropeado es un HP y windon 7

cuando me arreglen el otro que tiene camara podemos hacer videoconferencia haber si nos entendemos mejor
 
Última edición:
Me salió el envío de bytes de un archivo .bin para el puerto serie en visual C#. (Cuadno me salga todo bien, lo haré con VB .net, VC++ y e incluso con Java).



Code:
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.IO; // No olvidar.
using System.IO.Ports;

namespace EEPROM_Prueba
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
// Abrir puerto mientra se ejecute la aplicación
if (!serialPort1.IsOpen)
{
try
{
serialPort1.Open();
}
catch (System.Exception ex)
{
MessageBox.Show(ex.ToString());
}
}
}

private void button_buscar_archivo_Click(object sender, EventArgs e)
{
// Encuantro un archivo...
if (openFileDialog1.ShowDialog() == DialogResult.OK)
{
textBox_ubicacion_archivo.Text = openFileDialog1.FileName.ToString();
}

// ...inmediatamente lo lee en byte en el textBox_hex.
Cursor cur = this.Cursor;
this.Cursor = Cursors.WaitCursor;

//
int b;
FileStream fs = new FileStream(textBox_ubicacion_archivo.Text, FileMode.Open, FileAccess.Read);
StringBuilder sb = new StringBuilder();

while ((
b = fs.ReadByte()) != -1) sb.Append(string.Format("{0:X02} ", b));
fs.Close();

textBox_hex.Text = sb.ToString();
// textBox_hex.Font = new Font("Courier New", 10);
// textBox_hex.ScrollBars = ScrollBars.Vertical;
textBox_hex.SelectionStart = 0;

//
this.Cursor = cur;

}

private void button_Grabar_Click(object sender, EventArgs e)
{
byte[] file = null;
file = File.ReadAllBytes(textBox_ubicacion_archivo.Text);
for (
int i = 0; i <= file.GetUpperBound(0); i++)
{
serialPort1.Write(file, i, 1);
}


}
}
}

 
Saludos,

Este es un mini proyecto donde se aplica Visual Basic 6.0 mas el Pic 16f628a por medio de comunicacion serial simulado en proteus y Virtual Serial Port Driver, donde podemos encerder cuaquier tipo de equipos aca solo simulamos varios led.

Como podran ver poco a poco he podido mejorar el diseño en Visual Basic y establecer la comunicacion con el pic.

El programa del pic esta realizado en PicBasic.

Meta hace poco minutos lei sobre Sistema Scada donde tu hiciste algunos comentarios, por fin hiciste algun programa o simulaste algo.
 

Adjuntos

Arriba