2022-01-01から1年間の記事一覧

ファイル関連

<参考>amp0,phs0:B/R1 S21amp1,phs1:R2/R1 S21amp2,phs2:A/R1 S11 ①NAコピー移動(NA_file_copy_sel(i)) ・波面/受信 amp0,phs0 → PHS_RX_F*_AMP.csv PHS.csv ・波面/送信 amp2,phs2 → PHS_TX_F*_AMP.csv PHS.csv ・パターン/受信/AZ amp0,phs0 → PTN_…

ネットワークアナライザ知識

ポート1から信号を発生する場合R1レシーバー:ポートから出力している信号をモニターAレシーバー:ポート1に反射され戻ってきた信号を測定Bレシーバー:被測定物を通ってポート2に到達した信号を測定 B/R1:S21R2/R1:A/R1:S11(参考)A/R2:S12B/R2:S22…

流れ

1.開始 2.ポジショナーのポイント数算出((開始ー終了)÷間隔)+1 3.パターン測定開始 4.NA接続状態確認 5.「試験開始移動」表示 6.ポジショナー初期設定(間隔、SPEED、開始、終了) 7.開始位置移動(開始位置ー1) 8.NA試験開始(star…

file_save_all_act

Private Sub file_seve_all_act() Dim point, freq_num, beam_num, ave_num As Integer Dim deg As Double Dim pc_path As String Dim amp_all_path As String If RadioButton5.checked = True Then pc_path = PATTAN_path & "SMin" Else pc_path = PATTAN_p…

バイナリファイルかきこみ

Private Sub calc_send_code() Dim smin_tx_code(96, 32) As Integer Dim smin_rx_code(96, 32) As Integer Dim bypass_tx_code(96, 32) As Integer Dim bypass_rx_code(96, 32) As Integer Dim code_point As Integer = 16384 Dim send_code(code_point) As…

N/A設定

********************************************NA_Init()********************************************TRIG:PREF:AIGL ON 'トリガーONSYST:FPR 'プリセットSOUR:POW:ALC OPEN '自動レベル制御(ALC)OFF※ALC:基準チャネルに入力する信号の出力パワーを制御…

TCPクライアント側

Imports System.NetImports System.TextPublic Class Form1 'サーバーのIPアドレス(または、ホスト名)とポート番号 Dim strIpAddr As String = "localhost" Dim intPort As Integer = 60000 'ソケット Dim mTcpClient As Sockets.TcpClient 'ソケットスト…

HTML+CSS

CSS:::::::::::::::: .category { width: 200px; /*全体の横幅*/ border: 1px solid #333; font-size: 12px;} .category label { background: #333; color: #fff; padding: 12px; display: block; margin: 0; cursor: pointer; border-top: 1px solid #ccc;}…

HTML+CSS

【HTML】 <ul class="gnav"><li><a href="">メニュー1</a><ul> <li><a href="">サブメニュー1111</a></li> <li><a href="">サブメニュー2</a></li></ul></li><li><a href="">メニュー2</a></li></ul> 【CSS】 .gnav { display: block; height: 2rem; margin: 0 auto; width: 1000px;}.gnav > li {/*親階層のみ幅を25%にする*/ width: 15%;}/*全てのリスト・リンク共通*/.gn…

シリアル通信

' ============================================================================' シリアル通信 サンプルプログラム'' <SerialCommunication.vb>'' Copyright (c) 2009 Servoland corporation.' All rights reserved.'' 目的:' SerialPortクラスを用いたシリアル通信を行います。</serialcommunication.vb>…

シリアル通信プログラム

Public Class SerialCommunication Dim TempStr As String ' 一時文字列 Private Sub SerialCommunication_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With SerialPort1 .PortName = "COM1" .BaudRate = 1200 .…

atmarkit.itmedia.co.jp

Public b8_flag As Integer = 0 Dim startTime As DateTime Dim ts As TimeSpan Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click Dim startDt As DateTime = DateTime.Now If b8_flag = 0 Then Button8.Text = "測定停…

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Dim fc As Double = 9700 Dim startF60, startF40, stopF40, stopF60 As Double Dim startF60dB, startF40dB, stopF40dB, stopF60dB As Double Dim t As Double = 22.99…

メモ2

'*******************************************************************************************************'マスク値の計算Function CalcMaskData(Freq As Double) As Double '60dB境界下限周波数より低い場合 '60dB境界上限周波数より高い場合 If Freq …

メモ

①フォーム閉じる時の保存確認を排除②セッティング保存ボタンを設ける③パルス特性の結果を反映させるテキストボックスを用意する →40dB帯域幅にも反映させる④電力測定後、PEPに反映させる(空中線電力)⑤規格線作成 【短パルス選択時】●下記の定数/値を取得…

VBA ExcelでWordのテキストボックス内の文字列に取り消し線を表示させる

Sub EXCEL_WORD02() 'EXCEL VBAから既存のWORDファイルを起動する。 Dim WordApp As Object Dim WordDoc As Word.Document ' Set WordApp = CreateObject("Word.Application") ' CreateObject関数でWordをセット WordApp.Visible = True 'Wordを起動する Set…

VBA ExcelでWordのテキストボックス内の文字列を置換

Sub EXCEL_WORD01() 'EXCEL VBAから既存のWORDファイルを起動する。 Dim WordApp As Object Dim WordDoc As Word.Document ' Set WordApp = CreateObject("Word.Application") ' CreateObject関数でWordをセット WordApp.Visible = True 'Wordを起動する Set…