2023-01-01から1年間の記事一覧
Function IsFileOpen(filePath As String) As Boolean Dim fileNum As Integer On Error Resume Next fileNum = FreeFile() Open filePath For Binary Access Read Write Lock Read Write As #fileNum Close #fileNum If Err.Number = 0 Then IsFileOpen = F…
Sub ファイルをコピーする() Dim 元ファイルパス As String Dim 新ファイルパス As String ' 元ファイルのパスを指定 元ファイルパス = "C:\元ファイルのパス\ファイル名.xlsx" ' 新しいファイルのパスを指定 新ファイルパス = "C:\コピー先のパス\新しいフ…
<html><head> <title>2か月分のカレンダー</title> <style> .calendar-container { display: flex; justify-content: space-between; /* カレンダーの間に余白を設けます */ } .calendar { flex: 1; margin: 10px; /* カレンダーの周りに余白を設けます */ } table { width: 100%; border-colla</head></html>…
Imports System.ComponentModelImports System.ThreadingImports System.Windows.FormsPublic Class Form1 Private worker As New BackgroundWorker() Private dataTable As New DataTable() Public Sub New() InitializeComponent() ' BackgroundWorkerの設…
Imports System.DataImports System.Windows.Forms Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' DataGridViewに表示するデータを含む配列を作成します Dim data As String(,) = { {"John", "Doe", …
Sub file_get() Dim folderPath As String = "C:\Users\sannp\Desktop\指定フォルダ" ' 指定フォルダのパスを設定 Dim csvFiles() As String = Directory.GetFiles(folderPath, "*.csv") Dim targetFileName As String = "Book1.csv" Dim targetData As New …
Private Sub Chart1_MouseWheel(sender As Object, e As MouseEventArgs) Handles Chart1.MouseWheel Dim yMax As Double = Chart1.ChartAreas(0).AxisY.Maximum Dim yMin As Double = Chart1.ChartAreas(0).AxisY.Minimum Dim yChange As Double = 1 If e.D…
Sub ConcatenateArrays() Dim array1() As Variant Dim array2() As Variant Dim combinedArray() As Variant Dim i As Long Dim totalLength As Long ReDim array1(1 To 31) ReDim array2(1 To 31) For i = 1 To 31 Step 1 array1(i) = "6月" Next For i = …
Sub CreateChart() Dim rngData As Range Dim rng1 As Range, rng3 As Range Dim cht As ChartObject Dim ws As Worksheet ' データが含まれるシートを指定する Set ws = ThisWorkbook.Worksheets("Sheet1") ' データの範囲を指定する Set rngData = ws.Rang…
Sub CreateLineChart() ' データ範囲を配列に格納 Dim xData() As Variant ' X軸のデータ Dim yData() As Variant ' Y軸のデータ Dim yData2() As Variant 'Y軸のデータ2 ' X軸のデータを設定 xData = Sheets("Sheet1").Range("A1:J1").Value ' 適切な範囲を…
Sub StoreRangesOnSheetToArray() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適宜変更してください ' データ範囲1を指定 Dim range1 As Range Set range1 = ws.Range("A1:A5") ' データ範囲を適宜変更してください ' データ…
Sub CalculateAverage() ' データの範囲を指定 Dim dataRange As Range Set dataRange = Range("A1:A10") ' データ範囲を適宜変更してください ' 平均値を計算 Dim average As Double average = WorksheetFunction.Average(dataRange) ' 結果を表示 MsgBox "…
Sub CalculateVarianceAndStandardDeviation() ' データの配列 Dim data() As Double = {2, 4, 6, 8, 10} ' 平均値を計算 Dim average As Double = data.Average() ' 各データの差の二乗の合計を計算 Dim sumOfSquaredDifferences As Double = 0 For Each va…
Sub GetFilesInFolder() Dim folderPath As String Dim files() As String Dim fileCount As Integer Dim fileName As String Dim i As Integer ' フォルダパスを指定 folderPath = "C:\Path\To\Your\Folder" ' 指定フォルダ内の全てのファイルを取得 files …
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click Dim result_array() As Double = {5.5, 6.3, 7.5, 5, 8.2, 5.5} Dim stCurrentDir As String = System.IO.Directory.GetCurrentDirectory() Dim read_excel As String…
Sub cmd_test() Dim objsystem As Object 'オブジェクト格納用変数 Set objsystem = CreateObject("WScript.Shell") 'ログオフするの場合は以下にする objsystem.Run "shutdown /l /f", 0, False ThisWorkbook.Close Application.Quit End Sub
$path = "./data/";opendir(IN1,$path); open(OUT1,">filename.txt"); while ($filename = readdir(IN1)) { print OUT1 $filename,"\n" if -f $path.$filename; } closedir(IN1);close(OUT1); pendir(my $path, "./data/");foreach(my $file = readdir($path…
Option Explicit Sub MailAutoSend() Dim ws As Worksheet Dim outlookObj As Outlook.Application Dim mymail As Outlook.MailItem Dim mailbody As String Dim credit As String Set ws = Worksheets("Sheet1") Set outlookObj = CreateObject("Outlook.Ap…
'補正値取得・補正コード生成 For pulse_sel = MEAS_START To MEAS_PHASE_COUNT Step 1 For freq_num = FREQ_START To FREQ_START + FREQ_COUNT Step 1 For sosi_num = SOSI_START To SOSI_START + SOSI_COUNT Step 1 If pulse_num = 0 Then DAT(freq_num, s…
risou_gosa_total = 0.0 For pulse_sel = MEAS_START To MEAS_PHASE_COUNT Step 1 For freq_num = FREQ_START To FREQ_START + FREQ_COUNT Step 1 For sosi_num = SOSI_START To SOSI_START + SOSI_COUNT Step 1 For pulse_num = PHASE_START To PHASE_START…
【メモ】 周波数分解能 df: 周波数分解能は2つの測定値間の周波数間隔を表します。 df = fs / BL サンプリング周波数：fs ブロックサイズ：BL（選択されたサンプリング点数） つまり１ポイント毎の周波数。 【訂正】 ・補正値書き込み シリアル開始の&H1→&H3…
確認事項・補正無し 0x1000 1:無し 0:有り 変更点・autotest_setting()野中 素子のコマンドFTE.CMD_SET(&H100D,＊＊）を削除し、 通過位相の素子ループ直後に FTE.CMD_SET(&H100D,(SOSI_NUM << 16)) を追加する。・通過位相は ATTユニット設定（att_unit_con…
Sub 右矢印検索_次行に表示() Dim start_row(100) As Integer Dim start_col(100) As Integer Dim end_row(100) As Integer Dim end_col(100) As Integer Dim Shp As Shape Dim Ran As Range Dim RowCell, point As Integer Dim strRow, strCol, endRow, end…
①平均回数はオートか指定回数？ [SENSe[1]]|SENSe2|3|4:AVERage:COUNt <numeric_value> [SENSe[1]]|SENSe2|3|4:AVERage:COUNt:AUTO <boolean>②SENS:AVER:SDET OFF ステップ検出OFF③[SENSe[1]]|SENSe2|3|4:AVERage[:STATe] <boolean> 平均化有効③測定 SYST:PRESFREQ 3000MHzCORR:DCYC:STAT 1 //</boolean></boolean></numeric_value>…
1 周波数毎にデータ取得する For freq_num = Freq_start to Freq_start + Freq_count 2 NAのセグメント設定を行う 周波数：NA_FREQ(Freq_num) POINT:(SOSI_COUNT+1) * (AVE+1)*(BEAM_COUNT+1) IFBW:ifbw 3 NA出力ON 4 試験制御ユニット 取得周波数を設定 5 …
σはデータ（または確率分布）の標準偏差（ばらつきを表す量） bellcurve.jp
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
