Mensajes

Buenas:

Cuando detecte algún puerto serie físico o virtual, que se ponga en el comboBox directamente, no dejarlo en blanco como puse. No logro hacerlo.

En cuanto a

Código (vb) [Seleccionar] Expandir

MSComm1.CommPort = ComboBoxCOM

¿Qué hay que hacer aquí?

Lo que quiero es que cuando no encuentre ningún puerto serie sea físico o virtual, en el combobox se muestre en blanco o diga que no encuentra puertos o lo que sea.
En cuanto a que detecte puertos serie, añada una lista en el comboBox y el primero queda seleccionado.

Luego elijo el puerto que quiera usar del comobox, por lo que veo, parece que falta un botón que diga CONECTAR/DESCONECTAR puerto seleccionado en el comboBox.

Saludos.

Hola:

Algo dice aquí.
https://msdn.microsoft.com/es-ES/vstudio/ms788708.aspx?f=255&MSPPError=-2147217396

Aquí descarga Service Pack 6 para Visual Basic 6.
http://www.microsoft.com/es-es/download/details.aspx?id=3247

Te pide descargar todos esto.

VS6sp6B1.exe
   393 KB
   

Vs6sp61.exe
   2.1 MB
   

Vs6sp62.exe
   5.6 MB
   

VS6sp6B2.exe
   8.7 MB
   

VS6sp6B3.exe
   9.6 MB
   

VS6sp6B4.exe
   1.8 MB

¿Hay que descargarlo todos o solo uno de ellos?

Saludos.

Hola:

Al programar con VB 6 bajo Winwdows 7 de 64 bits, he hecho esto.


Quiero seleccionar el puerto serie que me detecta automáticamente el comboBox. Algo no tengo bien qu em e da error y al pulsar depurar me indica este error.

Código (vb,11) [Seleccionar] Expandir

Private Sub Command_Led_8_OFF_Click()
MSComm1.Output = "Led_8_OFF"
End Sub

Private Sub Command_Led_8_ON_Click()
MSComm1.Output = "Led_8_ON"
End Sub

Private Sub Form_Load()
    Form1.ComboBoxCOM.Clear
       MSComm1.CommPort = ComboBoxCOM
MSComm1.PortOpen = True   ' Habilitar el puerto serie.
Timer1.Interval = 1       ' Correr el timer a 1 mls.
    Set WMIObjectSet = GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT * FROM Win32_PnPEntity") 'Win32_SerialPort")
    For Each wmiobject In WMIObjectSet
        If InStr(wmiobject.Name, "COM") Then   '
          Form1.ComboBoxCOM.AddItem wmiobject.Name
        End If
         Next
    Set WMIObjectSet = Nothing
End Sub

El error dice:
No coincide los tipos.

Hola:

Es que SysWOW64 es de 32 bits y System32 de 64 bits si usas Windows de 64 bits. Aunque te parezca ilógico y al contrario de lo que piensas está diseñado como te digo. Lo explia aquí.

http://www.samlogic.net/articles-spanish/explicacion-carpetas-archivos-de-programa-x86-syswow64.htm

Saludos.

Hola:

He encontrado 6 cmd.exe en Windows 7 de 64 bits.



Ver zoom.

Lo ejecuto como administrador.



Ejecuto comando como indica abajo.



Me sale este mensaje.



Contento y emocionado, intento agregar el componente.



Le doy aplicar o aceptar y me aparece este mensaje.



Me pregunto. ¿Qué es lo que falla realmente?

Saludos.

Hola:

He hecho esto con el puerto serie pero me da error al pulsar CONECTAR.

Código (vb) [Seleccionar] Expandir

Private Sub cmdcon_Click()
   If cmdcon.Caption = "CONECTAR" Then
       puerto.CommPort = Val(cmbsel.ListIndex + 1)
       puerto.PortOpen = True
       cmdenviar.Visible = True
       Timer1.Enabled = True
       cmdcon.Caption = "DESCONECTAR"
Else
   If cmdcon.Caption = "DESCONECTAR" Then
       Timer1.Enabled = False
       cmdenviar.Visible = False
       puerto.PortOpen = False
       cmdcon.Caption = "CONECTAR"
   End If
End If
End Sub

Private Sub cmdenviar_Click()
textout = txtenviar.Text
puerto.Output = textout
End Sub

Private Sub Timer1_Timer()
textin = puerto.Input
If textin <> "" Then
puerto.Output = textout
End Sub



Uso Windows 7 de 64 bits. He seguido este vídeo.

El error que me aparece es este.



Mi idea principal es enviar tramas de bytes o texto y también recibirlas por el puerto serie.

¿Alguna idea?

Hola:

Tengo un tutorial que no he acabado aún sobre Java y Visual Studio en general, en esta ocasión centrado en VB 6.



Vídeo.
https://www.youtube.com/watch?v=g7XPhDL6auA

Quiero conseguir la versión de VB 6 para poder empezar.

Cualquier información para lograrlo en bienvenido.

El que quiera ver el tutorial en pdf sobre Visual Studio con C#, C++, VB .net esta lo tengo terminado. Si lo quieres lo puedo enviar por correo. Ocupa más de 15 MB, tiene muchas fotos. El manual completo lo entregaré.

Saludos.

[1)]

Hola:

Uso Windows 7 de 64 bits con Java de 32 para que me funcione el famoso RXTX.



He hecho una aplicación sencilla que se puede encender un Led y apagarlo con NetBeans 8 como puedes ver en la imagen de arriba.

1) Cuando el Form o formulario o ventana está abierta o ejecuto Java, me aparece arriba a la izquierda. ¿Cómo se pone en el centro cuando ejecutes a apliación?

2) Ahora quiero hacer un cuadro de texto para que muestre los textos que te entran en el puerto serie.

¿Alguna idea?

Su código para encender y apagar un Led es este.

Código (java) [Seleccionar] Expandir


import gnu.io.CommPortIdentifier;
import gnu.io.SerialPort;
import java.io.OutputStream;
import java.util.Enumeration;
import javax.swing.JOptionPane;

/*
* To change this license header, choose License Headers in Project Properties.
* To change this template file, choose Tools | Templates
* and open the template in the editor.
*/

/**
*
* @author Meta
*/
public class JAVADUINO_Frame extends javax.swing.JFrame {

   /**
    * Creates new form JAVADUINO_Frame
    */
   
   private static final String L8on = "Led_8_ON";
   private static final String L8off = "Led_8_OFF";
   
   // Variables de conexión.
   private OutputStream output = null;
   SerialPort serialPort;
   private final String PUERTO = "COM4";
   
   private static final int TIMEOUT = 2000; // 2 segundos.
   
   private static final int DATA_RATE = 115200; // Baudios.
   
   public JAVADUINO_Frame() {
       initComponents();
       inicializarConexion();
   }
   
   public void inicializarConexion(){
       CommPortIdentifier puertoID = null;
       Enumeration puertoEnum = CommPortIdentifier.getPortIdentifiers();
       
       while (puertoEnum.hasMoreElements()){
           CommPortIdentifier actualPuertoID = (CommPortIdentifier) puertoEnum.nextElement();
           if (PUERTO.equals(actualPuertoID.getName())){
               puertoID = actualPuertoID;
               break;
           }
       }
       
       if (puertoID == null){
           mostrarError("No se puede conectar al puerto");
           System.exit(ERROR);
       }
       
       try{
           serialPort = (SerialPort) puertoID.open(this.getClass().getName(), TIMEOUT);
           // Parámatros puerto serie.
           
           serialPort.setSerialPortParams(DATA_RATE, SerialPort.DATABITS_8, SerialPort.STOPBITS_2, SerialPort.PARITY_NONE);
           
           output = serialPort.getOutputStream();
       } catch (Exception e){
           mostrarError(e.getMessage());
           System.exit(ERROR);
       }
   }
   
   private void enviarDatos(String datos){
       try{
           output.write(datos.getBytes());
       } catch (Exception e){
           mostrarError("ERROR");
           System.exit(ERROR);
       }
   }
   
   public void mostrarError(String mensaje){
       JOptionPane.showMessageDialog(this, mensaje, "ERROR", JOptionPane.ERROR_MESSAGE);    
   }
   /**
    * This method is called from within the constructor to initialize the form.
    * WARNING: Do NOT modify this code. The content of this method is always
    * regenerated by the Form Editor.
    */
   @SuppressWarnings("unchecked")
   // <editor-fold defaultstate="collapsed" desc="Generated Code">                          
   private void initComponents() {

       jButton1 = new javax.swing.JButton();
       jButton2 = new javax.swing.JButton();
       jLabel1 = new javax.swing.JLabel();
       jScrollPane1 = new javax.swing.JScrollPane();
       jTextArea1 = new javax.swing.JTextArea();

       setDefaultCloseOperation(javax.swing.WindowConstants.EXIT_ON_CLOSE);
       setTitle("JAVA y más Java");

       jButton1.setText("ON");
       jButton1.addActionListener(new java.awt.event.ActionListener() {
           public void actionPerformed(java.awt.event.ActionEvent evt) {
               jButton1ActionPerformed(evt);
           }
       });

       jButton2.setText("OFF");
       jButton2.addActionListener(new java.awt.event.ActionListener() {
           public void actionPerformed(java.awt.event.ActionEvent evt) {
               jButton2ActionPerformed(evt);
           }
       });

       jLabel1.setText("Mensaje desde el puerto serie:");

       jTextArea1.setColumns(20);
       jTextArea1.setRows(5);
       jScrollPane1.setViewportView(jTextArea1);

       javax.swing.GroupLayout layout = new javax.swing.GroupLayout(getContentPane());
       getContentPane().setLayout(layout);
       layout.setHorizontalGroup(
           layout.createParallelGroup(javax.swing.GroupLayout.Alignment.LEADING)
           .addGroup(layout.createSequentialGroup()
               .addContainerGap()
               .addGroup(layout.createParallelGroup(javax.swing.GroupLayout.Alignment.LEADING)
                   .addGroup(layout.createSequentialGroup()
                       .addComponent(jButton1)
                       .addPreferredGap(javax.swing.LayoutStyle.ComponentPlacement.RELATED, javax.swing.GroupLayout.DEFAULT_SIZE, Short.MAX_VALUE)
                       .addComponent(jButton2))
                   .addGroup(layout.createSequentialGroup()
                       .addComponent(jScrollPane1, javax.swing.GroupLayout.PREFERRED_SIZE, javax.swing.GroupLayout.DEFAULT_SIZE, javax.swing.GroupLayout.PREFERRED_SIZE)
                       .addGap(0, 0, Short.MAX_VALUE)))
               .addContainerGap())
           .addGroup(layout.createSequentialGroup()
               .addComponent(jLabel1)
               .addGap(0, 0, Short.MAX_VALUE))
       );
       layout.setVerticalGroup(
           layout.createParallelGroup(javax.swing.GroupLayout.Alignment.LEADING)
           .addGroup(javax.swing.GroupLayout.Alignment.TRAILING, layout.createSequentialGroup()
               .addGap(26, 26, 26)
               .addGroup(layout.createParallelGroup(javax.swing.GroupLayout.Alignment.BASELINE)
                   .addComponent(jButton1)
                   .addComponent(jButton2))
               .addGap(31, 31, 31)
               .addComponent(jLabel1)
               .addPreferredGap(javax.swing.LayoutStyle.ComponentPlacement.RELATED)
               .addComponent(jScrollPane1, javax.swing.GroupLayout.PREFERRED_SIZE, javax.swing.GroupLayout.DEFAULT_SIZE, javax.swing.GroupLayout.PREFERRED_SIZE)
               .addContainerGap(javax.swing.GroupLayout.DEFAULT_SIZE, Short.MAX_VALUE))
       );

       pack();
   }// </editor-fold>                        

   private void jButton1ActionPerformed(java.awt.event.ActionEvent evt) {                                        
       // TODO add your handling code here:
       enviarDatos(L8on);
   }                                        

   private void jButton2ActionPerformed(java.awt.event.ActionEvent evt) {                                        
       // TODO add your handling code here:
       enviarDatos(L8off);
   }                                        

   /**
    * @param args the command line arguments
    */
   public static void main(String args[]) {
       /* Set the Nimbus look and feel */
       //<editor-fold defaultstate="collapsed" desc=" Look and feel setting code (optional) ">
       /* If Nimbus (introduced in Java SE 6) is not available, stay with the default look and feel.
        * For details see http://download.oracle.com/javase/tutorial/uiswing/lookandfeel/plaf.html
        */
       try {
           for (javax.swing.UIManager.LookAndFeelInfo info : javax.swing.UIManager.getInstalledLookAndFeels()) {
               if ("Nimbus".equals(info.getName())) {
                   javax.swing.UIManager.setLookAndFeel(info.getClassName());
                   break;
               }
           }
       } catch (ClassNotFoundException ex) {
           java.util.logging.Logger.getLogger(JAVADUINO_Frame.class.getName()).log(java.util.logging.Level.SEVERE, null, ex);
       } catch (InstantiationException ex) {
           java.util.logging.Logger.getLogger(JAVADUINO_Frame.class.getName()).log(java.util.logging.Level.SEVERE, null, ex);
       } catch (IllegalAccessException ex) {
           java.util.logging.Logger.getLogger(JAVADUINO_Frame.class.getName()).log(java.util.logging.Level.SEVERE, null, ex);
       } catch (javax.swing.UnsupportedLookAndFeelException ex) {
           java.util.logging.Logger.getLogger(JAVADUINO_Frame.class.getName()).log(java.util.logging.Level.SEVERE, null, ex);
       }
       //</editor-fold>

       /* Create and display the form */
       java.awt.EventQueue.invokeLater(new Runnable() {
           public void run() {
               new JAVADUINO_Frame().setVisible(true);
           }
       });
   }

   // Variables declaration - do not modify                    
   private javax.swing.JButton jButton1;
   private javax.swing.JButton jButton2;
   private javax.swing.JLabel jLabel1;
   private javax.swing.JScrollPane jScrollPane1;
   private javax.swing.JTextArea jTextArea1;
   // End of variables declaration                  
}


Saludos.

Te he enviado MP.

[ARROBA]

Hola:

Claro que si, me envías tu correo y te lo paso a PDF, me falta muchos temas por acabar. Java recibir datos de texto que es lo que quiero hacer desde ya, VB 6. y todo referente a la electrónica que aúnno he acabado.

También lo mismo pero en modo consola, hay gente que lo quiere así y con todos los lenguajes.

En otro manual, con Linux y Java y puede hasya con monodevelop C#, cosas así. Repito para que se entienda, me falta esquemas de electrónica que pondré poco a poco y bien explicado y algunos vídeos, por ahora solo tengo este.

[youtube=640,360]https://www.youtube.com/watch?v=g7XPhDL6auA[/youtube]


Mi correo es metacontaARROBAgmail com.

Saludos.