Ciao a tutti. Sono nuovo e premetto che di programmazione ne so zero. Mi sono avvicinato poco tempo fa a Visual Basic 6 e sto cercando di imparare qualcosa (da autodidatta.)
Mi interessa creare semplici programmi per comandare dal PC la scheda Basic Stamp 2 della Parallax (
http://www.parallaxinc.co)
Ho scaricato da internet un programma che permette di attivare o disattivare un relè (
http://www.geocities.com/SiliconValley/Orchard/6633/vbonoff.html).
Il problema è che riscrivendo il programma uguale identico a quello scaricato e cambiando solo la disposizione dei pulsanti succedono ste cose: Non mi appaiono i messaggi Connesso o Disconnesso, dopo aver clikkato su disconnetti i pulsanti ON e OFF restano attivi anke mettendo pulsanteON.Enabled = False.
il programma è questo.
Private Sub cmdcon_Click()
If MSComm1.PortOpen = True Then
Exit Sub
End If
MSComm1.CommPort = cbocomm.ListIndex + 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End Sub
Private Sub cmddis_Click()
If MSComm1.PortOpen = False Then
Exit Sub
Else
MSComm1.PortOpen = False
End If
End Sub
Private Sub cmdoff_Click()
MSComm1.Output = "0"
End Sub
Private Sub cmdon_Click()
MSComm1.Output = "1"
End Sub
Private Sub mnuexit_Click()
End
End Sub
Private Sub Timer1_Timer()
If MSComm1.PortOpen = True Then
lblstate.Caption = "Connected"
lblstate.ForeColor = vbGreen
cmdon.Enabled = True
cmdoff.Enabled = True
Else
lblstate.Caption = "Disconnected"
lblstate.ForeColor = vbRed
cmdon.Enabled = False
cmdoff.Enabled = False
End If
End Sub
Spero sappiate rispondere a questa lunga domanda perche nn riesco a trovare 1 soluzione.
Grazie 1000