Visual Basic - Vb datarecibe

Life is soft - evento anual de software empresarial
 
Vista:

Vb datarecibe

Publicado por Almeria24 (1 intervención) el 16/12/2016 19:42:58
Buenas mi pregunta es q tengo un proyecto donde cuando recivo algo por puerto serie me salta el evento datarecive con el cual qiero q me temporice y me de una salida pero no consigo q active ese timer,,, no se porque y agradeceria alguna ayuda gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 4.008
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Vb datarecibe

Publicado por Andres Leonardo (1666 intervenciones) el 16/12/2016 19:48:29
cuando se le levante ese evento
activa el timer ...

cuando termines la rutano desactivalo.....

SAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 4
Ha aumentado su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Vb datarecibe

Publicado por Almería24 (3 intervenciones) el 16/12/2016 21:00:17
El problema es q no se levanta el timer,,,,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo
Val: 4.008
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Vb datarecibe

Publicado por Andres Leonardo (1666 intervenciones) el 16/12/2016 23:21:04
podrias postear el codigo con el que estas levantando el timer e invocandolo????
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 4
Ha aumentado su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Vb datarecibe

Publicado por Antonio (3 intervenciones) el 17/12/2016 09:33:30
IMG_1175
image
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de xve
Val: 158
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Vb datarecibe

Publicado por xve (208 intervenciones) el 17/12/2016 15:04:18
Podrias pegar el código?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 4
Ha aumentado su posición en 2 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Vb datarecibe

Publicado por Antonio (3 intervenciones) el 17/12/2016 15:14:36
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
Imports System
Imports System.IO
 
Public Class Form2
    Dim buffer As Double
    Dim contador As Integer
    Dim contador2 As Integer
    Dim recibe As Boolean
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Textmas.Text = My.Settings.pesomas
        Textmenos.Text = My.Settings.pesomenos
        Texttimer2.Text = My.Settings.tinicio
        Texttimer3.Text = My.Settings.tfin
        Textpesominimo.Text = My.Settings.minimo
        Textpesomaximo.Text = My.Settings.maximo
        '
        Label11.Visible = False
        Label3.Visible = False
        Label8.Visible = False
        Label9.Visible = False
        Label10.Visible = False
        Label5.Visible = False
        Label4.Visible = False
        pesoultimo.Visible = False
        Texttimer2.Visible = False
        Texttimer3.Visible = False
        Textmas.Visible = False
        Textmenos.Visible = False
        Button3.Visible = False
        ''
        Form1.Visible = False
        Textpeso.Text = "WAIT"
        SerialPort1.Close()
        SerialPort1.Open()
 
        CheckForIllegalCrossThreadCalls = False
        contador = 0
        contador2 = 0
        recibe = False
        Timer1.Enabled = True
 
        Timer2.Enabled = False
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.Close()
 
    End Sub
 
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
 
        Try
 
            Dim az As String = SerialPort1.ReadLine
            If az > 1 Then
 
                Textpeso.Text = (Val(az) + Val(Textmenos.Text) - Val(Textmas.Text))
                pesoultimo.Text = Val(Textpeso.Text)
 
                If Val(pesoultimo.Text) > 10 Then
                    If Val(pesoultimo.Text) < 100 Then
 
 
                        Timer3.Enabled = True
                    Else
                        Textpeso.Text = 0
 
                    End If
                End If
            End If
 
 
        Catch ex As Exception
 
            MsgBox(ex.Message)
 
        End Try
    End Sub
    Private Sub Textpeso_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Textpeso.TextChanged
 
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
 
    End Sub
 
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
 
    End Sub
 
 
 
    Private Sub Button2_Click_t1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SerialPort1.Write("a")
        Textpeso.Text = "WAIT"
        Timer1.Enabled = True
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Textpeso.Text = 0
 
        Timer1.Enabled = False
 
    End Sub
 
 
 
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Texttimer2.Text = Timer3.Interval
        Texttimer3.Text = Timer4.Interval
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SerialPort1.Write("c")
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SerialPort1.Write("B")
    End Sub
 
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
 
        If Val(pesoultimo.Text) > 10 Then
            If Val(pesoultimo.Text) < 100 Then
                SerialPort1.Write("c")
                Timer3.Enabled = True
            End If
 
        End If
    End Sub
 
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Timer2.Enabled = False
        If contador2 >= 2 Then
            ' Exit loop code.
            SerialPort1.Write("c")
 
            Timer4.Enabled = True
            Timer3.Enabled = False
            contador2 = 0
        Else
            ' Run your procedure here.
            ' Increment counter.
            contador2 = contador2 + 1
        End If
    End Sub
 
    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        If contador >= 2 Then
            ' Exit loop code.
            SerialPort1.Write("B")
            recibe = False
            Timer4.Enabled = True
            Timer3.Enabled = False
            contador = 0
            pesoultimo.Text = 0
        Else
            ' Run your procedure here.
            ' Increment counter.
            contador = contador + 1
        End If
    End Sub
 
    Private Sub Bajustes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bajustes.Click
        If Bajustes.Text = "AJUSTES" Then
            Bajustes.Text = "SALIR DE AJUSTES"
 
            Label11.Visible = True
            Label3.Visible = True
            Label8.Visible = True
            Label9.Visible = True
            Label10.Visible = True
            Label5.Visible = True
            Label4.Visible = True
            pesoultimo.Visible = True
            Texttimer2.Visible = True
            Texttimer3.Visible = True
            Textmas.Visible = True
            Textmenos.Visible = True
            Button3.Visible = True
        ElseIf Bajustes.Text = "SALIR DE AJUSTES" Then
            Bajustes.Text = "AJUSTES"
            Label11.Visible = False
            Label3.Visible = False
            Label8.Visible = False
            Label9.Visible = False
            Label10.Visible = False
            Label5.Visible = False
            Label4.Visible = False
            pesoultimo.Visible = False
            Texttimer2.Visible = False
            Texttimer3.Visible = False
            Textmas.Visible = False
            Textmenos.Visible = False
            Button3.Visible = False
 
        End If
 
    End Sub
 
 
 
 
    Private Sub Button4_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try
            My.Settings.pesomas = Textmas.Text
            My.Settings.pesomenos = Textmenos.Text
            My.Settings.tinicio = Texttimer2.Text
            My.Settings.tfin = Texttimer3.Text
            My.Settings.minimo = Textpesominimo.Text
            My.Settings.maximo = Textpesomaximo.Text
            My.Settings.Save()
 
            MsgBox("GUARDAR DATOS?", MsgBoxStyle.OkOnly, "Save...")
        Catch ex As Exception
            MsgBox("There was a problem saving your settings.", MsgBoxStyle.Critical, "Save Error...")
        End Try
    End Sub
End Class
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar