投稿者 きさがけ  (社会人) 投稿日時 2016/11/25 14:32:28
初めまして VB初心者です
教えてください

現在、会社の業務でVB2013を使いプログラムを組んでるのですが
どうも表示がうまくいかなく、色々試しても
できないので、教えてください

     ただいまの時刻 10:00
状況  輸送会社名  便名  便番号 定刻









このような表示なのですが■はGroupBoxの枠だけ使用

トラックが来ると、GPSで受信して受信サーバーに文字列が飛びます
その文字列が こんどこのダイヤ表に飛んできます
ダイヤ表には  Textboxでソケット通信を受け取り
受け取った文字をGroupBox内にあるLabelにコールバックして
その文字を指令として、表示を動作させています。

到着時⇒待機中⇒音声を流しアナウンス
作業中⇒作業中
発着時⇒完了

のようにチカチカ表示させています
最初の6便は問題なくいけたんですが

11:20以降になると
タイマーで6項目の輸送会社、便名などを変更指示して
表示を変えると

文字列を受け取っても音声しか流れません
なぜか文字が表示されません
ここで困っています・・・・

ちょっとわかりづらいですが
多分間違っているコードを貼りますので指南ください
'★★★Form1 ロード★★★
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '日付、時刻の指示
        Timer1.Start()
 

        '最初の切り替わり
        Timer_first.Start()
        '午後便の表示
        Timer_gogo.Start()
        '最後の便表示
        Timersaigo.Start()
        'プログラムを自動で終了の指示
        Timerstop.Start()

 '1段目をVB②へ時間指定表示
    Private Sub Timer_first_Tick(sender As Object, e As EventArgs) Handles Timer_first.Tick
       VB②便の表示切り替え

        Dim dt1 As Date = Now
        Dim hm1 As Integer = dt1.Hour * 100 + dt1.Minute

        If 1145 <= hm1 AndAlso hm1 < 1640 Then
            '1段目
            Label40.Text = "待ち"
            Label40.Visible = False
            Label38.Text = ""
            Label10.Text = "VB運輸"
            Label9.Text = "VB陸運集配便"
            Label11.Text = "①"
            Label8.Text = "11:20 - 11:40"
            Label8.Font = New Font("MS UI Gothic", 40, FontStyle.Regular)
            GroupBox9.BackColor = Color.DarkBlue
            Label40.ForeColor = Color.White

        End If
    End Sub

'表示を指定するためのメソッド■■
    Private Sub TextBoxRcvData_TextChanged(sender As Object, e As EventArgs) Handles TextBoxRcvData.TextChanged
        Dim strTemp() As String = Split(TextBoxRcvData.Text, ",")

        name1.Text = strTemp(0).Remove(0, 1)
        name2.Text = strTemp(0).Remove(0, 1)
        name3.Text = strTemp(0).Remove(0, 1)

        '★★★★表示指令★★★★

        'VB便①
        If name1.Text = "VB便①指示640" Then
            Label38.Text = "待機中"
            Label38.Visible = True

            'サウンド再生
            My.Computer.Audio.Play( _
               "C:\Users\11061.KPSYSTEM\Desktop\工場内納入便モニター 本\加工音声\VB便.wav", AudioPlayMode.Background)

        ElseIf name1.Text = "1" Then
            Label38.Text = "作業中"
            Label38.Visible = True
        ElseIf name1.Text = "完了1" Then
            Label38.Text = "完了"
            Label38.Visible = True


            'VB2便①
        ElseIf name2.Text = "VB2便" Then
            Label40.Text = "待機中"
            Label40.Visible = True
            'サウンド再生
            My.Computer.Audio.Play( _
                "C:\Users\11061.KPSYSTEM\Desktop\工場内納入便モニター 本\加工音\VB②.wav", AudioPlayMode.Background)

        ElseIf name2.Text = "7" Then
            Label40.Text = "作業中"
            Label40.Visible = True
        ElseIf name2.Text = "完了7" Then
            Label40.Text = "完了"
            Label40.Visible = True