' 0 black, 1 blue, 2 green, 3 cyan, 4 red, 5 magenta, 6 brown, 7 white Width screen_width\8, screen_height\16 ' select 8 x 16 charĬonst As Double tad = 1E-10 ' a 'tad' is small enough to be zeroĭim Shared As Double Zo = 50 ' reference impedanceĭim Shared As Double Freq = 300e6 ' reference frequencyĭeclare Sub Resistance(Byval As Double, Byval As Integer) ' resistance circleĭeclare Sub Reactance (Byval As Double, Byval As Integer) ' reactance arcĭeclare Sub VSWRcircle(Byval As Double, Byval As Integer) ' VSWR circleĭeclare Function EngSI(Byval As Double, Byval As Integer) As Stringĭeclare Sub uv2rx ' convert SmithChart to Impedanceĭeclare Sub rx2uv ' convert Impedance to SmithChart
Screenres screen_width, screen_height ' set screen size on desktop Screen_width = desktop_width - 8 ' less width of sides Screen_height = desktop_height - 48 ' less height of title bars Screeninfo desktop_width, desktop_height ' get desktop dimensions ' find size of desktop, then use smaller screen to avoid Pmap bug.ĭim As Integer desktop_width, desktop_height, screen_width, screen_height