ばらつきと平均

σはデータ(または確率分布)の標準偏差(ばらつきを表す量) bellcurve.jp

角度(2の補数)

AZ if 角度<0 then 10進数=*1 else 10進数=(角度/0.01)*-1 endif *1:角度/0.01)*-1)+(2*(4096+(角度/0.01))) else 10進数=角度/0.01 endif EL if 角度>0 then 10進数=(角度/0.01)+2*(4096-(角度/0.01

ファイル関連

<参考>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…

Async/awaite&backgroundWorkerを使ったスレッド処理

Imports System.ComponentModelImports System.ThreadingPublic Class Form1 Dim cts As CancellationTokenSource Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork …

VB:BackgroundWorkerを使ったスレッド処理

Imports System.ComponentModelImports System.ThreadingPublic Class Form1 'スレッド開始ボタン処理 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '処理が行われているときは、何もしない If BackgroundWorker1.Is…

データ収集・保存

using Microsoft.VisualBasic;using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Linq;using System.Text;using System.Threading;using System.Threading.Tasks;using Syst…

テキストファイルをカンマ区切りで読み込み、配列に格納する

private void button6_Click(object sender, EventArgs e) { int time = 2; int Count = 0; string[,] list = new string[10,10]; string listGyo = new string[10]; // CSVファイルの読み込み string filePath = Application.StartupPath + "\\aaa.txt"; //…

ファイル読み書き

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim inputFile As String = Path1 & file1 ' 入力用ファイル Dim outputFile As String = Path1 & file2 ' 出力用ファイル ' 出力用ファイル…

Windowsフォームでコンソール出力を取り込む

<Windowsフォーム> Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim command As String = "C:\Users\naoki\Documents\Visual Studio 2010\Projects\consoleInput1\…

参考URL

Windows フォーム マルチスレッドの再考

データグリッドビューテキストファイル読み込み

Imports Microsoft.VisualBasic.FileIO Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click ''データテーブル Dim dt As New DataTable Dim row As DataRow ''フィールド(列)を追加 dt.Columns.…

テキストファイル印刷

Imports System.IOImports System.Text Public Class Form2 Private Const ERROR_MESSAGE1 = "パス名を指定してください。" Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load ' プレビューダイアログのサイズ…

待ち時間

Private Sub sWaitTime(ByVal st As Long) '指定の時間待つ(1/1000 秒単位で指定) Dim lngSt As Long 'システム起動後のミリ秒単位の経過時間を取得します。 'システムが 24.9 日間稼動し続けた場合、この経過時間は 0 に戻ります。 lngSt = System.Environ…