|
分類:[VB.NET/VB2005 以降]
初めまして 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()
'１段目を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("ＭＳ 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
|