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_…

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

１．開始 ２．ポジショナーのポイント数算出（（開始ー終了）÷間隔）＋１ ３．パターン測定開始 ４．NA接続状態確認 ５．「試験開始移動」表示 ６．ポジショナー初期設定（間隔、SPEED、開始、終了） ７．開始位置移動（開始位置ー１） ８．NA試験開始（star…

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…

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

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

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】 <ul class="gnav"><li><a href="">メニュー１</a><ul> <li><a href="">サブメニュー１１１１</a></li> <li><a href="">サブメニュー２</a></li></ul></li><li><a href="">メニュー２</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…

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

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

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…

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…

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 …

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フォーム＞ 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\…

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…

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick TimerTextBox.Text = DateTime.Now.ToString() End Sub Private Delegate Sub StartTimerDelegate() Private StartTimerThread As Threading.Thr…