ZLCにボーレート選択機能、ボーレート相違時の接続機能が追加されました。
◆追加機能
- ボーレート選択機能
- ボーレート相違時接続機能
- 応答性の向上
作成者別アーカイブ: sassa
特定顧客向けサポートページ (2022_nai)
このページはお客様専用ページです。
ページの閲覧には専用パスワードが必要となります。
パスワードはご連絡しておりますパスワードです。
パスワードをお忘れになられた場合、担当者までご連絡ください。
This page is USER ONLY.
Browse the page will require private password.
If you have forgotten your password, please contact.
Password：
コメントを読むにはパスワードを入力してください。
このページはお客様専用ページです。
ページの閲覧には専用パスワードが必要となります。
パスワードはご連絡しておりますパスワードです。
パスワードをお忘れになられた場合、担当者までご連絡ください。
This page is USER ONLY.
Browse the page will require private password.
If you have forgotten your password, please contact.
Password：
ダウンロードページ
Pythonのサンプルコード
提供しているソフトウェアのコードは以下のコードとなっております。
#
# Copyright (C)2020 TESBIT co.,ltd. All rights reserved.
#
import tkinter as tk
import serial
import threading
import time
from tkinter import messagebox
#グローバル変数========================================================
comf_conn = 0 # 接続管理フラグ
comf_disconn = 0 # 切断管理フラグ
tf = 1 # スレッドフラグ(Thread Flag)
comf_init = 0 # 初期化管理フラグ
comf_read_a = 0 # read_a管理フラグ
comf_move_z = 0 # ズーム移動管理フラグ
comf_move_f = 0 # フォーカス移動管理フラグ
comf_move_i = 0 # アイリス移動管理フラグ
comf_read_z = 0 # ズーム値読込管理フラグ
comf_read_f = 0 # フォーカス値読込管理フラグ
comf_read_i = 0 # アイリス値読込管理フラグ
# 画面設定
root = tk.Tk()
root.geometry('250x110') # 画面サイズ
root.title('シリアル通信') # 画面タイトル
var = tk.StringVar() # 初期化ステータス表示ラベルの変数
# ボタンのクリックイベント
def btn_ZoomSet_click(): # ズームsetボタン
print('move_z')
global comf_move_z # 使うところでグローバル宣言
comf_move_z = 1 # 実際に使う
def btn_ZoomRead_click(): # ズームreadボタン
print('read_z')
global comf_read_z
comf_read_z = 1
def btn_FocusSet_click(): # フォーカスsetボタン
print('move_f')
global comf_move_f
comf_move_f = 1
def btn_FocusRead_click(): # フォーカスreadボタン
print('read_f')
global comf_read_f
comf_read_f = 1
def btn_IrisSet_click(): # アイリスsetボタン
print('move_i')
global comf_move_i
comf_move_i = 1
def btn_IrisRead_click(): # アイリスreadボタン
print('read_i')
global comf_read_i
comf_read_i = 1
def btn_conn_click(): # 接続ボタン
print('接続')
global comf_conn
comf_conn = 1
def btn_disconn_click(): # 切断ボタン
print('切断')
global comf_disconn
comf_disconn = 1
def btn_init_click(): # 初期化ボタン
print('初期化')
global comf_init
comf_init = 1
# ラベルの配置
lb_Zoom = tk.Label(text = 'Zoom')
lb_Zoom.grid(row=0,column=0)
lb_Focus = tk.Label(text = 'Focus')
lb_Focus.grid(row=1,column=0)
lb_Iris = tk.Label(text = 'Iris')
lb_Iris.grid(row=2,column=0)
# テキストボックスの配置
tb_Zoom = tk.Entry(width=20)
tb_Zoom.grid(row=0,column=1)
tb_Focus = tk.Entry(width=20)
tb_Focus.grid(row=1,column=1)
tb_Iris = tk.Entry(width=20)
tb_Iris.grid(row=2,column=1)
# ボタンの配置
btn_ZoomSet = tk.Button(text = 'set', command = btn_ZoomSet_click)
btn_ZoomRead = tk.Button(text = 'read', command = btn_ZoomRead_click)
btn_ZoomSet.grid(row=0,column=2)
btn_ZoomRead.grid(row=0,column=3)
btn_FocusSet = tk.Button(text = 'set', command = btn_FocusSet_click)
btn_FocusRead = tk.Button(text = 'read', command = btn_FocusRead_click)
btn_FocusSet.grid(row=1,column=2)
btn_FocusRead.grid(row=1,column=3)
btn_IrisSet = tk.Button(text = 'set', command = btn_IrisSet_click)
btn_IrisRead = tk.Button(text = 'read', command = btn_IrisRead_click)
btn_IrisSet.grid(row=2,column=2)
btn_IrisRead.grid(row=2,column=3)
# init関係
btn_init = tk.Button(text = '初期化', command = btn_init_click)
btn_init.grid(row=3,column=0)
var.set("") # 初期化ステータスを空欄にする
lb_init = tk.Label(textvariable=var)
lb_init.grid(row=3,column=1)
btn_conn = tk.Button(text = '接続', command = btn_conn_click)
btn_disconn = tk.Button(text = '切断', command=btn_disconn_click)
btn_conn.grid(row=3,column=2)
btn_disconn.grid(row=3,column=3)
# シリアル通信系のコード(スレッド)====================================
comf_receive = 0 # 結果を受信しに行っていいか判断するフラグ
def commCTR():
# シリアル通信の設定
comm = serial.Serial()
comm.baudrate = 38400 # ボーレート
comm.parity = serial.PARITY_NONE
comm.bytesize = serial.EIGHTBITS
comm.stopbits = serial.STOPBITS_ONE
comm.timeout = 5 #sec
comm.port = 'COM7' # TSZC-06を接続しているCOMポート
#グローバル変数の呼び出し
global tf
tf = 1 # tf=1のあいだスレッド内のループが実行される
global comf_conn
global comf_disconn
global comf_init
global comf_move_z
global comf_move_f
global comf_move_i
global comf_read_z
global comf_read_f
global comf_read_i
global comf_receive
global comf_read_a
global var
# シリアル通信ループ
while tf:
if comf_conn == 1: #フラグONのときの動作
comf_conn = 0 #フラグOFFに戻す
print("接続命令受信")
if(comm.isOpen() == False):
print('connect')
comm.open() # COMポート開く
comf_receive = 1 #受信ON
else:
print('opened')
if comf_disconn == 1:
comf_disconn = 0
print("切断命令受信")
comm.close() # COMポート閉じる
comf_receive = 0 #受信OFF
# init
if comf_init == 1:
comf_init = 0
print("初期化命令受信")
comm.reset_input_buffer() # ノイズデータがある場合があるのでバッファをクリアする
# zoomの値をシリアル通信
send_string = 'init_a'
print(send_string)
var.set("初期化中")
comm.write(send_string.encode())
#ボタン無効化
btn_ZoomSet.config(state="disable")
btn_ZoomRead.config(state="disable")
btn_FocusSet.config(state="disable")
btn_FocusRead.config(state="disable")
btn_IrisSet.config(state="disable")
btn_IrisRead.config(state="disable")
btn_init.config(state="disable")
btn_conn.config(state="disable")
btn_disconn.config(state="disable")
# read_a
if comf_read_a ==1:
comf_read_a = 0
print("read_a実行")
comm.reset_input_buffer()
send_string = 'read_a'
print(send_string)
comm.write(send_string.encode())
#zoomのsetボタンが押された後
if comf_move_z == 1:
comf_move_z = 0
print("comf_move_z")
# テキスト取得
comm.reset_input_buffer()
num = int(tb_Zoom.get())
# zoomの値をシリアル通信
send_string = 'move_z,' + str(num)
print(send_string)
comm.write(send_string.encode())
#zoomのreadボタンが押された後
if comf_read_z == 1:
comf_read_z = 0
print("comf_read_z")
tb_Zoom.delete(0,tk.END) # テキストボックスの初期化
comm.reset_input_buffer()
# read_zoom命令をシリアル通信
send_string = 'read_z'
comm.write(send_string.encode())
#focusのsetボタンが押された後
if comf_move_f == 1:
comf_move_f = 0
print("comf_move_f")
# テキスト取得
comm.reset_input_buffer()
num = int(tb_Focus.get())
# focusの値をシリアル通信
send_string = 'move_f,' + str(num)
print(send_string)
comm.write(send_string.encode())
#focusのreadボタンが押された後
if comf_read_f == 1:
comf_read_f = 0
print("comf_read_f")
tb_Focus.delete(0,tk.END) # テキストボックスの初期化
comm.reset_input_buffer()
# read_iris命令をシリアル通信
send_string = 'read_f'
comm.write(send_string.encode())
#irisのsetボタンが押された後
if comf_move_i == 1:
comf_move_i = 0
print("comf_move_i")
# テキスト取得
comm.reset_input_buffer()
num = int(tb_Iris.get())
# irisの値をシリアル通信
send_string = 'move_i,' + str(num)
print(send_string)
comm.write(send_string.encode())
#irisのreadボタンが押された後
if comf_read_i == 1:
comf_read_i = 0
print("comf_read_i")
tb_Iris.delete(0,tk.END) # テキストボックスの初期化
comm.reset_input_buffer()
# read_iris命令をシリアル通信
send_string = 'read_i'
comm.write(send_string.encode())
# 毎回受信する
# readlineした結果に応じて動作を切り替える
# read_z,read_f,read_iを含む文字列があるか調べる
# init_aを送ったら終了時にinit_a_doneが返ってくる
#comf_receiveが1になっているとき(毎回受信ON)
if comf_receive == 1:
# コマンドを送った結果を受信
recv_string = comm.readline()
recv_string = recv_string.decode()
recv_list = []
recv_list = recv_string.split(',')
# リストの中にread_z,read_f,read_iが含まれるか
if 'read_z' in recv_list[0]:
print("コマンド結果受信",recv_string)
tb_Zoom.delete(0,tk.END)
tb_Zoom.insert(0, recv_list[1])
elif 'read_f' in recv_list[0]:
print("コマンド結果受信",recv_string)
tb_Focus.delete(0,tk.END)
tb_Focus.insert(0, recv_list[1])
elif 'read_i' in recv_list[0]:
print("コマンド結果受信",recv_string)
tb_Iris.delete(0,tk.END)
tb_Iris.insert(0, recv_list[1])
# 'read_a'のとき
elif 'read_a' in recv_list[0]:
print("コマンド結果受信",recv_string)
tb_Zoom.delete(0,tk.END)
tb_Zoom.insert(0, recv_list[1])
tb_Focus.delete(0,tk.END)
tb_Focus.insert(0, recv_list[2])
tb_Iris.delete(0,tk.END)
tb_Iris.insert(0, recv_list[3])
# 'init_a'のとき
elif 'init_a_done' in recv_list[0]:
print("コマンド結果受信",recv_string)
var.set("")
messagebox.showinfo("メッセージ", "初期化が完了しました")
#ボタン有効化
btn_ZoomSet.config(state="normal")
btn_ZoomRead.config(state="normal")
btn_FocusSet.config(state="normal")
btn_FocusRead.config(state="normal")
btn_IrisSet.config(state="normal")
btn_IrisRead.config(state="normal")
btn_init.config(state="normal")
btn_conn.config(state="normal")
btn_disconn.config(state="normal")
comf_read_a = 1
# move後のread
elif 'move_z;' in recv_list[0]:
print("コマンド結果受信",recv_string)
comf_read_z = 1
elif 'move_f;' in recv_list[0]:
print("コマンド結果受信",recv_string)
comf_read_f = 1
elif 'move_i;' in recv_list[0]:
print("コマンド結果受信",recv_string)
comf_read_i = 1
# 接続直後のread_a
elif 'ZLC TESBIT TSZC-06' in recv_list[0]:
print("コマンド結果受信",recv_string)
comf_read_a = 1
else :
time.sleep(0.2)
time.sleep(0.2)
# スレッド開始==========================================================
threadComm = threading.Thread(target=commCTR)
threadComm.start()
threadComm.join
print("スレッド起動完了")
# 閉じるボタン
def on_closing():
global tf
tf = 0
root.destroy()
root.protocol("WM_DELETE_WINDOW", on_closing)
# 画面表示
root.mainloop()
VB.NETのサンプルコード
提供しているソフトウェアのコードは以下のコードとなっております。
Imports System.IO.Ports
'===========================================================
'
' ズームレンズコントローラー
' サンプルプログラム
' 2017 TESBIT co.,ltd.
' http://tesbit.co.jp
'
'===========================================================
Public Class f_zlc
Private COMSelected = False
Private COMPort As String = "COM7"
Private DEMO_MODE As Boolean = False
Private strStatus As String = ""
Private booting As Boolean = True
Private PosZoom As Integer = 0
Private PosFocus As Integer = 0
Private PosIris As Integer = 0
Const BAUD_RATE As Integer = 38400
Private sendf As Boolean = False '送信済みフラグ
Private move_af As Boolean = False 'move_aフラグ(move_p追加)
Private init_af As Boolean = False 'init_aフラグ
Delegate Sub UpdateDelegate()
Delegate Sub enableDelegate()
Dim tt_val As ToolTip
Dim init_a_f As Boolean = False
'フォーム構築・初期化
Private Sub f_zlc_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.tt_val = New ToolTip(Me.components)
''ポートリスト取得
Dim portList() As String
portList = SerialPort.GetPortNames
Dim i As Integer
'初期化ファイルの読み込み
If System.IO.File.Exists("ZLCinit.ini") = False Then
NoSettings:
'コンボボックス初期化
Me.cb_com.Items.Add("未設定")
For i = 0 To portList.Length - 1
Me.cb_com.Items.Add(portList(i))
Next
Me.cb_com.EndUpdate()
Me.cb_com.SelectedIndex = 0
'確認メッセージ
MsgBox("設定ファイルが存在しません。" + vbCrLf + "COMポートを選択してください。", MsgBoxStyle.OkOnly, "COMエラー")
booting = False
Return
Else
'ファイルの読み込み
If Me.readInitFile() = False Then
GoTo NoSettings
End If
For i = 0 To portList.Length - 1
Me.cb_com.Items.Add(portList(i))
Next
Me.cb_com.EndUpdate()
Me.cb_com.Text = Me.COMPort
'COMの初期化
Try
With COM
.PortName = Me.COMPort
.Parity = Parity.None
'.BaudRate = 38400
.BaudRate = BAUD_RATE
.DataBits = 8
.StopBits = 1
.Open()
End With
Catch ex As Exception
MsgBox("COMの初期化でエラーが発生しました。" + vbCrLf + ex.Message, MsgBoxStyle.OkOnly, "COMエラー")
booting = False
Return
End Try
'TSZCをリセット（DtrEnable = True）する
Me.COM_SEND("reset")
'インチング速度設定
Me.COM_SEND("s_incz,100")
Me.COM_SEND("s_incf,100")
Me.COM_SEND("s_inci,100")
'現在値の取得
Me.COM_SEND("read_a")
booting = False
End If
End Sub
'終了処理
Private Sub f_zlc_Disposed(sender As Object, e As System.EventArgs) Handles Me.Disposed
If Me.COM.IsOpen Then
Me.COM.Close()
End If
Me.COM.Dispose()
'設定の保存
Me.saveInitFile()
End Sub
'COMコンボボックス
Private Sub cb_com_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cb_com.SelectedIndexChanged
If Me.booting = True Then
Return
End If
If Me.cb_com.SelectedText.Equals("未設定") Then
Return
Else
If Me.COM.IsOpen = True Then
Me.COM.Close()
End If
Me.COMPort = Me.cb_com.SelectedItem.ToString
'COMの初期化
Try
With COM
.PortName = Me.COMPort
.Parity = Parity.None
'.BaudRate = 9600
.BaudRate = BAUD_RATE
.DataBits = 8
.StopBits = 1
.Open()
End With
Catch ex As Exception
MsgBox("COMの初期化でエラーが発生しました。" + vbCrLf + ex.Message, MsgBoxStyle.OkOnly, "COMエラー")
End Try
'TSZCをリセット（DtrEnable = True）する
Me.COM_SEND("reset")
'インチング速度設定
Me.COM_SEND("s_incz,100")
Me.COM_SEND("s_incf,100")
Me.COM_SEND("s_inci,100")
'現在値の取得
Me.COM_SEND("read_a")
End If
End Sub
'初期化ファイル読み込み
Private Function readInitFile() As Boolean
Dim i As Integer
Dim strRDT() As String
Dim strDT() As String
Try
strRDT = System.IO.File.ReadAllLines("ZLCinit.ini")
For i = 0 To strRDT.Length - 1
strDT = strRDT(i).Split(";")
Select Case strDT(0)
Case "COM"
Me.COMPort = strDT(1)
Exit Select
End Select
Next
Catch ex As Exception
MsgBox("初期化ファイルの読み込みに失敗しました1。" + vbCrLf + ex.Message, MsgBoxStyle.OkOnly, "ファイルエラー")
Return False
End Try
Return True
End Function
'初期化ファイル保存
Private Function saveInitFile() As Boolean
Try
Dim str As String = System.String.Empty
str += "COM;" + Me.COMPort + vbCrLf
Dim sw As System.IO.StreamWriter
sw = New System.IO.StreamWriter("ZLCinit.ini", False, System.Text.Encoding.GetEncoding("shift_jis"))
sw.Write(str)
sw.Close()
Catch ex As Exception
MsgBox("初期化ファイルの保存に失敗しました。" + vbCrLf + ex.Message, MsgBoxStyle.OkOnly, "ファイルエラー")
Return False
End Try
Return True
End Function
'===========================================================
'
' 通信関連
'
'
'===========================================================
'コマンド定義
Private Enum ZoomRetCMD
read_a = 1
read_z = 2
read_f = 3
read_i = 4
move_a = 11
move_z = 12
move_f = 13
move_i = 14
inc_zf = 20
inc_zr = 21
inc_ff = 22
inc_fr = 23
inc_if = 24
inc_ir = 25
instop = 30
init_a = 100
init_a_z = 101
init_a_f = 102
init_a_i = 103
err = 999
standby = 0
End Enum
'コマンド判別
Private Function getZoommCmd(ByRef strDT As String) As ZoomRetCMD
Dim CMD As Integer = ZoomRetCMD.standby
If strDT.IndexOf("read_a") <> -1 Then
CMD = ZoomRetCMD.read_a
ElseIf strDT.IndexOf("read_z") <> -1 Then
CMD = ZoomRetCMD.read_z
ElseIf strDT.IndexOf("read_f") <> -1 Then
CMD = ZoomRetCMD.read_f
ElseIf strDT.IndexOf("read_i") <> -1 Then
CMD = ZoomRetCMD.read_i
ElseIf strDT.IndexOf("move_a") <> -1 Then
CMD = ZoomRetCMD.move_a
ElseIf strDT.IndexOf("move_z") <> -1 Then
CMD = ZoomRetCMD.move_z
ElseIf strDT.IndexOf("move_f") <> -1 Then
CMD = ZoomRetCMD.move_f
ElseIf strDT.IndexOf("move_i") <> -1 Then
CMD = ZoomRetCMD.move_i
ElseIf strDT.IndexOf("inc_ff") <> -1 Then
CMD = ZoomRetCMD.inc_ff
ElseIf strDT.IndexOf("inc_fr") <> -1 Then
CMD = ZoomRetCMD.inc_fr
ElseIf strDT.IndexOf("inc_zf") <> -1 Then
CMD = ZoomRetCMD.inc_zf
ElseIf strDT.IndexOf("inc_zr") <> -1 Then
CMD = ZoomRetCMD.inc_zr
ElseIf strDT.IndexOf("inc_if") <> -1 Then
CMD = ZoomRetCMD.inc_if
ElseIf strDT.IndexOf("inc_ir") <> -1 Then
CMD = ZoomRetCMD.inc_ir
ElseIf strDT.IndexOf("instop") <> -1 Then
CMD = ZoomRetCMD.instop
ElseIf strDT.IndexOf("init_a_done") <> -1 Then
CMD = ZoomRetCMD.init_a
ElseIf strDT.IndexOf("init_a_z") <> -1 Then
CMD = ZoomRetCMD.init_a_z
ElseIf strDT.IndexOf("init_a_f") <> -1 Then
CMD = ZoomRetCMD.init_a_f
ElseIf strDT.IndexOf("init_a_i") <> -1 Then
CMD = ZoomRetCMD.init_a_i
ElseIf strDT.IndexOf("Err") <> -1 Then
CMD = ZoomRetCMD.err
Else
CMD = ZoomRetCMD.standby
End If
Return CMD
End Function
'コマンド送信
'同期通信対応 返信がある処理については本関数を通すこと。
Private Function COM_SEND(ByVal strCMD As String) As Boolean
'送信フラグON
sendf = True
If Me.COM.IsOpen Then
'発行されたコマンドが"reset"だった場合
If (strCMD = "reset") Then
'リセット（DtrEnable = True）すると「ZLC TESBIT・・」が返信されるため
'本関数内処理実行()
Me.COM.DtrEnable = True
Else
'複数の返信があるコマンド
If strCMD.IndexOf("move_a") <> -1 Then move_af = True
If strCMD.IndexOf("move_p") <> -1 Then move_af = True
If strCMD.IndexOf("init_a") <> -1 Then init_af = True
'If Me.cb_delm.Checked Then
Me.COM.Write(strCMD + vbCrLf)
'Else
'Me.COM.Write(strCMD)
'End If
Me.strStatus = ">" + strCMD + vbCrLf
'表示の更新
Invoke(New UpdateDelegate(AddressOf UpdateData))
End If
Me.COM.DiscardOutBuffer()
End If
'データを受信するまで待機
Dim loopCnt As Integer = 1
While (sendf)
'メッセージキューに現在あるWindowsメッセージをすべて処理する
System.Windows.Forms.Application.DoEvents()
System.Threading.Thread.Sleep(10)
If loopCnt = 20000 Then
Me.strStatus = "VBError:timeout" + vbCrLf
'表示の更新
Invoke(New UpdateDelegate(AddressOf UpdateData))
sendf = False
Return False
End If
loopCnt = loopCnt + 1
End While
Return True
End Function
'コマンド受信
'同期通信対応 それに伴い本関数内からのCOM_SENDの実行を禁止。
Private Sub COM_DataReceived(sender As Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles COM.DataReceived
If Me.COM.IsOpen = False Then
Return
End If
Try
Dim strDT As String = Me.COM.ReadLine
Me.strStatus = "<" + strDT + vbCrLf
Invoke(New UpdateDelegate(AddressOf UpdateData))
'送信フラグOFF
If move_af Then
If System.Text.RegularExpressions.Regex.IsMatch(strDT, "move_a.*?_done") Then
'move_a(p)を実行した場合move_a(p)_doneが返却されたらOFF
If sendf = True Then sendf = False
move_af = False
End If
ElseIf init_af Then
If strDT.IndexOf("init_a_done") <> -1 Then
'init_aを実行した場合init_a doneが返却されたらOFF
If sendf = True Then sendf = False
init_af = False
End If
Else
'上記以外の場合OFF
If sendf = True Then sendf = False
End If
If strDT.IndexOf("ZLC") <> -1 Then
'Me.COM_SEND("read_a") <ZLC TESBIT TSZC-06b
End If
Select Case getZoommCmd(strDT)
Case ZoomRetCMD.standby
Exit Select
Case ZoomRetCMD.read_a
Dim strDTT() As String = strDT.Split(",")
If strDTT.Length < 3 Then
Exit Select
End If
Me.PosZoom = Integer.Parse(strDTT(1))
Me.PosFocus = Integer.Parse(strDTT(2))
Me.PosIris = Integer.Parse(strDTT(3))
Me.strStatus = ""
Invoke(New UpdateDelegate(AddressOf UpdateData))
Exit Select
Case ZoomRetCMD.move_a, _
ZoomRetCMD.move_z, _
ZoomRetCMD.move_f, _
ZoomRetCMD.move_i
'Me.COM_SEND("read_a")
'Invoke(New enableDelegate(AddressOf enableControl))
Exit Select
Case ZoomRetCMD.inc_zf, _
ZoomRetCMD.inc_zr, _
ZoomRetCMD.inc_ff, _
ZoomRetCMD.inc_fr, _
ZoomRetCMD.inc_if, _
ZoomRetCMD.inc_ir
Exit Select
Case ZoomRetCMD.instop
'Me.COM_SEND("read_a")
Exit Select
Case ZoomRetCMD.init_a
'Me.COM_SEND("move_a,400,600,800")
Exit Select
Case ZoomRetCMD.init_a_z
Exit Select
Case ZoomRetCMD.init_a_f
Exit Select
Case ZoomRetCMD.init_a_i
Exit Select
Case ZoomRetCMD.err
Invoke(New enableDelegate(AddressOf enableControl))
Exit Select
End Select
Catch ex As Exception
Me.strStatus = ex.ToString
Invoke(New UpdateDelegate(AddressOf UpdateData))
End Try
Me.COM.DiscardInBuffer()
End Sub
'エラー受信
Private Sub COM_ErrorReceived(sender As Object, e As System.IO.Ports.SerialErrorReceivedEventArgs) Handles COM.ErrorReceived
End Sub
'===========================================================
'
' ボタン操作
'
'
'===========================================================
'送信ボタン
Private Sub btn_send_Click(sender As System.Object, e As System.EventArgs) Handles btn_send.Click
If Me.tx_comSend.Text = "" Then
Return
End If
Dim str = Me.tx_comSend.Text
Dim str_six = str.Substring(0, 6)
'Me.COM_SEND(Me.tx_comSend.Text)
Me.COM_SEND(str)
Select Case str_six
Case "move_a", _
"move_z", _
"move_f", _
"move_i", _
"move_p", _
"init_a", _
"init_z", _
"init_f", _
"init_i", _
"instop"
Me.COM_SEND("read_a")
Exit Select
Case "inchsp"
Dim arr = str.Split(",")
If arr(0) = 255 Then
rb_z255.Checked = True
End If
Exit Select
Case "s_incz"
Exit Select
Case "s_incf"
Exit Select
Case "s_inci"
Exit Select
End Select
End Sub
'zoom
Private Sub btn_zoomUP_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles btn_zoomUP.MouseDown
Me.COM_SEND("inc_zr")
End Sub
Private Sub btn_zoomDW_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles btn_zoomDW.MouseDown
Me.COM_SEND("inc_zf")
End Sub
'focus
Private Sub btn_focusUP_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles btn_focusUP.MouseDown
Me.COM_SEND("inc_fr")
End Sub
Private Sub btn_focusDW_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles btn_focusDW.MouseDown
Me.COM_SEND("inc_ff")
End Sub
'Iris
Private Sub btn_irisUP_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles btn_irisUP.MouseDown
Me.COM_SEND("inc_ir")
End Sub
Private Sub btn_irisDW_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles btn_irisDW.MouseDown
Me.COM_SEND("inc_if")
End Sub
'インチング停止
Private Sub btn_ZLC_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles btn_zoomUP.MouseUp, _
btn_zoomDW.MouseUp, _
btn_focusUP.MouseUp, _
btn_focusDW.MouseUp, _
btn_irisUP.MouseUp, _
btn_irisDW.MouseUp
Me.COM_SEND("instop")
Me.COM_SEND("read_a")
End Sub
'送信コマンドテキストボックス制御
Private Sub tx_comSend_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles tx_comSend.KeyPress
If e.KeyChar = Chr(13) Then
Me.btn_send.PerformClick()
Me.tx_comSend.Text = ""
End If
End Sub
'===========================================================
'
' トラックバー関連
'
'
'===========================================================
Dim tb_zoomDown As Boolean = False
Dim tb_focusDown As Boolean = False
Dim tb_irisDown As Boolean = False
Private Sub tb_iris_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles tb_iris.MouseDown
tb_irisDown = True
End Sub
Private Sub tb_iris_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles tb_iris.MouseMove
If Me.tb_irisDown = True Then
Me.tt_val.SetToolTip(Me.tb_iris, Me.tb_iris.Value.ToString)
End If
End Sub
Private Sub tb_iris_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles tb_iris.MouseUp
Dim val As Integer = Me.tb_iris.Value
Me.disableControl() '移動完了まで停止
Me.COM_SEND("move_i," + val.ToString)
Me.PosIris = val
'Me.UpdateData()
Me.tb_irisDown = False
Me.enableControl()
Me.COM_SEND("read_a")
End Sub
Private Sub tb_focus_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles tb_focus.MouseDown
Me.tb_focusDown = True
End Sub
Private Sub tb_focus_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles tb_focus.MouseMove
If Me.tb_focusDown = True Then
Me.tt_val.SetToolTip(Me.tb_focus, Me.tb_focus.Value.ToString)
End If
End Sub
Private Sub tb_focus_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles tb_focus.MouseUp
Dim val As Integer = Me.tb_focus.Value
Me.disableControl() '移動完了まで停止
Me.COM_SEND("move_f," + val.ToString)
Me.PosFocus = val
'Me.UpdateData()
Me.tb_focusDown = False
Me.enableControl()
Me.COM_SEND("read_a")
End Sub
Private Sub tb_zoom_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles tb_zoom.MouseDown
Me.tb_zoomDown = True
End Sub
Private Sub tb_zoom_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles tb_zoom.MouseMove
If Me.tb_zoomDown = True Then
Me.tt_val.SetToolTip(Me.tb_zoom, Me.tb_zoom.Value.ToString)
End If
End Sub
Private Sub tb_zoom_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles tb_zoom.MouseUp
Dim val As Integer = Me.tb_zoom.Value
Me.disableControl() '移動完了まで停止
Me.COM_SEND("move_z," + val.ToString)
Me.PosZoom = val
'Me.UpdateData()
Me.tb_zoomDown = False
Me.enableControl()
Me.COM_SEND("read_a")
End Sub
'===========================================================
'
' テキストボックス関連
'
'
'===========================================================
Private Sub tx_zoom_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles tx_zoom.KeyPress
If e.KeyChar = Chr(13) Then
Me.PosZoom = Integer.Parse(Me.tx_zoom.Text)
Me.COM_SEND("move_z," + Me.tx_zoom.Text)
Me.COM_SEND("read_a")
End If
End Sub
Private Sub tx_focus_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles tx_focus.KeyPress
If e.KeyChar = Chr(13) Then
Me.PosFocus = Integer.Parse(Me.tx_focus.Text)
Me.COM_SEND("move_f," + Me.tx_focus.Text)
Me.COM_SEND("read_a")
End If
End Sub
Private Sub tx_iris_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles tx_iris.KeyPress
If e.KeyChar = Chr(13) Then
Me.PosIris = Integer.Parse(Me.tx_iris.Text)
Me.COM_SEND("move_i," + Me.tx_iris.Text)
Me.COM_SEND("read_a")
End If
End Sub
'===========================================================
'
' COM送受信部などの表示更新
' Invokeで使用
'
'===========================================================
Private Sub UpdateData()
Me.tx_comRes.AppendText(Me.strStatus)
If Me.tx_comRes.Lines.Length > 100 Then
Dim str As String = Me.tx_comRes.Text
Dim Pos As Integer = Me.tx_comRes.Text.IndexOf(vbCrLf)
Me.tx_comRes.Text = Me.tx_comRes.Text.Substring(Me.tx_comRes.Text.IndexOf(vbCrLf) _
+ 2, Me.tx_comRes.Text.Length - ((Me.tx_comRes.Text.IndexOf(vbCrLf) + 2)))
End If
Me.tx_comRes.SelectionStart = Me.tx_comRes.Text.Length
Me.tx_comRes.ScrollToCaret()
Me.tx_zoom.Text = Me.PosZoom.ToString
Me.tx_zoom.Refresh()
Me.tx_focus.Text = Me.PosFocus.ToString
Me.tx_focus.Refresh()
Me.tx_iris.Text = Me.PosIris.ToString
Me.tx_iris.Refresh()
Me.tb_zoom.Value = Me.PosZoom
Me.tb_focus.Value = Me.PosFocus
Me.tb_iris.Value = Me.PosIris
End Sub
'===========================================================
'
' 移動後のコントロールの動作回復
' Invokeで使用
'
'===========================================================
Private Sub enableControl()
Me.tb_zoom.Enabled = True
Me.tb_focus.Enabled = True
Me.tb_iris.Enabled = True
Me.btn_zoomUP.Enabled = True
Me.btn_zoomDW.Enabled = True
Me.btn_focusUP.Enabled = True
Me.btn_focusDW.Enabled = True
Me.btn_irisUP.Enabled = True
Me.btn_irisDW.Enabled = True
End Sub
Private Sub disableControl()
Me.tb_zoom.Enabled = False
Me.tb_focus.Enabled = False
Me.tb_iris.Enabled = False
Me.btn_zoomUP.Enabled = False
Me.btn_zoomDW.Enabled = False
Me.btn_focusUP.Enabled = False
Me.btn_focusDW.Enabled = False
Me.btn_irisUP.Enabled = False
Me.btn_irisDW.Enabled = False
End Sub
'===========================================================
'
' システム初期化
' 初回通電時に必ず初期化を行ってください
' 本機内部にポテンショメータの値を記録します。
'
'===========================================================
Private Sub btn_init_Click(sender As System.Object, e As System.EventArgs) Handles btn_init.Click
If MsgBox("初回起動時のポテンショメータの値登録を行いますか？" + vbCrLf + _
"※3分程度掛かります。レンズを変更しない限り必要有りません。" + vbCrLf + _
"※レンズを交換したら実行してください。", _
MsgBoxStyle.YesNo, _
"初期化の確認") = MsgBoxResult.Yes Then
init_a_f = True
Me.COM_SEND("init_a")
rb_z100.Checked = True
rb_f100.Checked = True
rb_i100.Checked = True
Me.COM_SEND("read_a")
init_a_f = False
End If
End Sub
'===========================================================
'
' インチング速度設定
' ハードウエアの仕様上focusのみ移動速度が若干遅くなります。
' そのため、初期値でfocusのみ速度を速くしています。
'
'===========================================================
Private Sub rb_z_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rb_z100.CheckedChanged, _
rb_z200.CheckedChanged, _
rb_z255.CheckedChanged
If Me.booting = True Then
Return
End If
If CType(sender, RadioButton).Checked = True And init_a_f = False Then
Select Case CType(sender, RadioButton).Name
Case "rb_z100"
Me.COM_SEND("s_incz,100")
Exit Select
Case "rb_z200"
Me.COM_SEND("s_incz,200")
Exit Select
Case "rb_z255"
Me.COM_SEND("s_incz,255")
Exit Select
End Select
End If
End Sub
Private Sub rb_f_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rb_f100.CheckedChanged, _
rb_f200.CheckedChanged, _
rb_f255.CheckedChanged
If Me.booting = True Then
Return
End If
If CType(sender, RadioButton).Checked = True And init_a_f = False Then
Select Case CType(sender, RadioButton).Name
Case "rb_f100"
Me.COM_SEND("s_incf,100")
Exit Select
Case "rb_f200"
Me.COM_SEND("s_incf,200")
Exit Select
Case "rb_f255"
Me.COM_SEND("s_incf,255")
Exit Select
End Select
End If
End Sub
Private Sub rb_i_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rb_i100.CheckedChanged, _
rb_i200.CheckedChanged, _
rb_i255.CheckedChanged
If Me.booting = True Then
Return
End If
If CType(sender, RadioButton).Checked = True And init_a_f = False Then
Select Case CType(sender, RadioButton).Name
Case "rb_i100"
Me.COM_SEND("s_inci,100")
Exit Select
Case "rb_i200"
Me.COM_SEND("s_inci,200")
Exit Select
Case "rb_i255"
Me.COM_SEND("s_inci,255")
Exit Select
End Select
End If
End Sub
'===========================================================
'
' プリセット設定
'
'
'
'===========================================================
'move
Private Sub btn_mvP1_Click(sender As System.Object, e As System.EventArgs) Handles btn_mvP1.Click
Me.COM_SEND("move_p,1")
Me.COM_SEND("read_a")
End Sub
Private Sub btn_mvP2_Click(sender As System.Object, e As System.EventArgs) Handles btn_mvP2.Click
Me.COM_SEND("move_p,2")
Me.COM_SEND("read_a")
End Sub
Private Sub btn_mvP3_Click(sender As System.Object, e As System.EventArgs) Handles btn_mvP3.Click
Me.COM_SEND("move_p,3")
Me.COM_SEND("read_a")
End Sub
Private Sub btn_mvP4_Click(sender As System.Object, e As System.EventArgs) Handles btn_mvP4.Click
Me.COM_SEND("move_p,4")
Me.COM_SEND("read_a")
End Sub
'set
Private Sub btn_stP1_Click(sender As System.Object, e As System.EventArgs) Handles btn_stP1.Click
Me.COM_SEND("s_prst,1," + tx_zoom.Text + "," + tx_focus.Text + "," + tx_iris.Text)
End Sub
Private Sub btn_stP2_Click(sender As System.Object, e As System.EventArgs) Handles btn_stP2.Click
Me.COM_SEND("s_prst,2," + tx_zoom.Text + "," + tx_focus.Text + "," + tx_iris.Text)
End Sub
Private Sub btn_stP3_Click(sender As System.Object, e As System.EventArgs) Handles btn_stP3.Click
Me.COM_SEND("s_prst,3," + tx_zoom.Text + "," + tx_focus.Text + "," + tx_iris.Text)
End Sub
Private Sub btn_stP4_Click(sender As System.Object, e As System.EventArgs) Handles btn_stP4.Click
Me.COM_SEND("s_prst,4," + tx_zoom.Text + "," + tx_focus.Text + "," + tx_iris.Text)
End Sub
End Class
TSZCシリーズ 接続について
TSZCと、ズームレンズ、PCは以下の様な接続となります。
複数接続の場合 複数接続を行う場合は以下の様な接続となります。
・2台の場合
・3台以上の場合
※ズームレンズは物理的移動を伴うため個体差が生じます。
そのため、レンズに対してTSZCを１対１にて使用します。
TSZCシリーズコマンド＜初期化＞
| コマンド | init_a |
| 動作 | 初期化 |
| 説明 | コントローラの初期化を行う関数。 実際に各レンズ部を動作させ、 ポテンショメータの最小最大値を取得。 |
| コマンド引数 | なし |
| コマンドの使い方 | init_a |
| 戻り値 | init_a_i; init_a_z; init_a_f; これら3つが途中で返答 init_a_done;にて終了 |
| 備考 | |
| コマンド | init_z |
| 動作 | ズーム初期化 |
| 説明 | ズーム部を動作させ、 ポテンショメータの最小最大値を取得。 |
| コマンド引数 | なし |
| コマンドの使い方 | init_z |
| 戻り値 | init_z; |
| 備考 | |
| コマンド | init_f |
| 動作 | フォーカス初期化 |
| 説明 | フォーカス部を動作させ、 ポテンショメータの最小最大値を取得。 |
| コマンド引数 | なし |
| コマンドの使い方 | init_f |
| 戻り値 | init_f; |
| 備考 | |
| コマンド | init_i |
| 動作 | アイリス初期化 |
| 説明 | 絞り部を動作させ、 ポテンショメータの最小最大値を取得。 |
| コマンド引数 | なし |
| コマンドの使い方 | init_i |
| 戻り値 | init_i; |
| 備考 |
TSZCシリーズコマンド＜その他＞
| コマンド | memchk |
| 動作 | 内部メモリ設定確認 |
| 説明 | フラッシュメモリの内部設定値を取得 |
| コマンド引数 | なし |
| コマンドの使い方 | memchk |
| 戻り値 | メモリー内のデータ |
| 備考 | サポート時のみ使用 |
| コマンド | read_p |
| 動作 | プリセットメモリ設定確認 |
| 説明 | フラッシュメモリのプリセット設定値を取得 |
| コマンド引数 | プリセット番号 |
| コマンドの使い方 | read_p,1 |
| 戻り値 | preset,プリセット番号:ZZZ,FFF,III |
| 備考 | |
| コマンド | frmver |
| 動作 | ファームVer.確認 |
| 説明 | ファームウエアバージョン確認 |
| コマンド引数 | なし |
| コマンドの使い方 | frmver |
| 戻り値 | バージョン情報 |
| 備考 | サポート時のみ使用 |
TSZCシリーズコマンド＜位置取得＞
| コマンド | read_z |
| 動作 | 読み取りコマンド |
| 説明 | ズームの値を出力 |
| コマンド引数 | なし |
| コマンドの使い方 | read_z |
| 戻り値 | read_z,ZZZ |
| 備考 | ZZZはズーム値 |
| コマンド | read_f |
| 動作 | 読み取りコマンド |
| 説明 | フォーカスの値を出力 |
| コマンド引数 | なし |
| コマンドの使い方 | read_f |
| 戻り値 | read_f,FFF |
| 備考 | FFFはフォーカス値 |
| コマンド | read_I |
| 動作 | 読み取りコマンド |
| 説明 | アイリスの値を出力 |
| コマンド引数 | なし |
| コマンドの使い方 | read_I |
| 戻り値 | read_i,III |
| 備考 | IIIはアイリス値 |
| コマンド | read_a |
| 動作 | 読み取りコマンド |
| 説明 | 全レンズ位置を出力 |
| コマンド引数 | なし |
| コマンドの使い方 | read_a |
| 戻り値 | read_a,ZZZ,FFF,III |
| 備考 | |
| コマンド | readsa |
| 動作 | 読み取りコマンド |
| 説明 | 全レンズ位置を出力（AD生値） |
| コマンド引数 | なし |
| コマンドの使い方 | readsa |
| 戻り値 | readsa,ZZZ,FFF,III |
| 備考 | |
| コマンド | readsz |
| 動作 | 読み取りコマンド |
| 説明 | ズームの値を出力（AD生値） |
| コマンド引数 | なし |
| コマンドの使い方 | readsz |
| 戻り値 | readsz,ZZZ |
| 備考 | |
| コマンド | readsf |
| 動作 | 読み取りコマンド |
| 説明 | フォーカスの値を出力（AD生値） |
| コマンド引数 | なし |
| コマンドの使い方 | readsf |
| 戻り値 | readsf,FFF |
| 備考 | |
| コマンド | readsi |
| 動作 | 読み取りコマンド |
| 説明 | アイリスの値を出力（AD生値） |
| コマンド引数 | なし |
| コマンドの使い方 | readsi |
| 戻り値 | readsi,III |
| 備考 |