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に反映させる（空中線電力）⑤規格線作成 【短パルス選択時】●下記の定数／値を取得…