QRZ.COM
ad: dxeng
Please login help/register callsign: password: secure login
Database News Forums Swapmeet Resources Contact
 07:06:40 UTC 30 Jul 2014 
Advanced Search Current Hot Callsigns XML Logbook Data QSL ListMaker Database Downloads DX Spotting Network Ham Club Database QSL Corner Top Web Contacts Expired Callsigns QRZ's 1993 FCC Database Daily Update Reports Just Added Callsigns Database Help Forum
Amateur Radio News General Announcements Special Events, Contests, etc. Hamfests and Conventions Silent Keys Headlines
Forums Home Discussions, Editorials, Talk Technical Forums Logging and Contesting RV and Mobile Help Forums
Ham Radio Gear for Sale Ham Made Gear General Merchandise Swapmeet Hot List Ham to Ham References Stolen Radios, Scams and Rip-offs
Site Menu... Practice Amateur Radio Exams Amateur Radio Study Guides Online License Renewals License Wall Certificates Commercial Ham Radio Links DX Country Atlas Grid Mapper Ham Radio Trivia Quiz Life Member Honor Roll
Help Desk, for accounts, lost passwords, etc. Add your callsign to QRZ Subscription Services Users Help Forum Frequently Asked Questions - FAQ QRZ en Espanol Privacy Statement Advertise with QRZ List of Current Advertisers About QRZ Donate to QRZ Contact us
ad: L-HROutlet
ad: l-assoc
ad: l-tentec
ad: l-innov
ad: l-rl
ad: l-WarrenG
ad: l-Waters
ad: l-sarc
ad: l-gcopper
DG5KR Germany flag Germany

Login is required for additional detail.

QSL: VIA BUREAU OR DIRECT

Email: Login required to view

Ham Member Lookups: 2044

QSL image for DG5KR

Hello dr OM,

my name is Robert. I'm living in germay in a small village called Herzogenrath. It is in the near of the dutch border.

I'm licenced since 1996. Now i'm back to ham radio after long time of QRT. My shack is small, but functionallity.

The primarily tranceiver is a Kennwood TS-570D (work perfect for me). My antenna is 13,5m vertical wire up to 5m over Ground and a 5m long groundplane on top of my garage.

 

I'm in hollyday from july, 7th to 19th 2014 top of the belgium northcoast (JO11LF/Bredene). I'll be QRV on 10m to 80m in SSB and maybe DIGIMODEs under ON/DG5KR, sometimes as portable station direct to the beach.

 

Create new echolink station to 145.550(FM) as DG5KR-L. Nodenumber 724287:
Software is svxlink on a Raspberry PI. I used a GPIO for the PTT control, and not a usb-serial adapter. It works very fine.
The transceiver is an old mobile trx for 2m (Kenpro FM240) with 10W. My antenna is a 5/8 lambda, only 2m over ground.

Note: In reason of some TRX trouble, the node is temporarily down. I'll inform you if i'm online again.
 

At the bottom of this site, i'll find some little software projects for HAM Radio and other.

 

Working remote with your TRX. A dream comes true.
Summer time in the evening. Sitting in the garden. But no transceiver without disassemble the hole shack. Now it is possible
to use my TRX only with my Laptop in my garden. The magic word call "remote control". Here is a little overview how i realize this
:

 

This is the Powershell sourcecode of the PTT-Receiver:

# PTT - Receiver
# (c) 2014 by DG5KR
# Receive the PTT Command via UDP
# The Main Command are
# TX  -- Set the RTS/DTR of COMx to push ptt
# RX  -- Release the RTS/DTR of COMx to pop ptt
# All other, see sourcecode
# Set variable strict on
Set-ExecutionPolicy -ExecutionPolicy Unrestricted -Scope CurrentUser -Force
set-psdebug -strict

set-executionpolicy Unrestricted -Force -Scope CurrentUser

# Global Vars
$Global:Receive = ""


### COM Defination
$Serial="COM3"
$sport= new-Object System.IO.Ports.SerialPort
$sport.PortName = $Serial
$sport.Close()
$sport.open()
$sport.RtsEnable=$false
$sport.DtrEnable=$false

### Network Defination
# Define Source IP (where do signal come from)
$Global:RemoteIP = "5.5.0.2"
# Define my own IP Adress
#$Global:MyIP = "10.0.47.140"
$Global:MyIP = "192.168.0.34"


Function TX_AND_CQ($file)
{
        # play the file once
        # GetDuration in millisconds
        $mp3 = Get-Item $file
        $MediaPlayer = New-Object -Com WMPlayer.OCX
        $GetAttributes = $MediaPlayer.mediaCollection.add($mp3)
        [INT]$Duration = $GetAttributes.Duration * 1000
        Add-Type -AssemblyName presentationCore
        $sound = New-Object system.windows.media.mediaplayer
        $sound.Open($file)
        $Sound.Volume=100
        Clear-Host
        write-host "!!! Warning !!!  -  O N  A I R !!!"
        Write-Host "  Detect TX Command. Push PTT."
        Write-Host "---------Using the KEYER----------"
        # Set PTT on
        $sport.RtsEnable=$true
        $sport.DtrEnable=$true
        [INT] $CmdStr = -1
        $sound.Play();
        Start-Sleep -Milliseconds $Duration
        $sound.Stop()
        $sound.close()
        Clear-Host
        Write-Host "PTT is released."
        Write-Host "Tranceicer is receiving now"
        $sport.RtsEnable=$false
        $sport.DtrEnable=$false
        SendViaUDP("IS_RX")
        [INT] $CmdStr = -1
}


function SendViaUDP($Text)
{
    [INT] $port=2021
    $RemoteAddress = [system.net.IPAddress]::Parse($Global:RemoteIP)
    $endpoint = new-object System.Net.IPEndPoint $RemoteAddress, $port
    $udpclient=new-Object System.Net.Sockets.UdpClient
    $b=[Text.Encoding]::ASCII.GetBytes($Text)
    $bytesSent=$udpclient.Send($b,$b.length,$endpoint)
    $udpclient.Close()
}

function ReceiveViaUDP
{
    [INT] $port=2020
    $MyAddress = [system.net.IPAddress]::Parse($Global:MyIP)
    $endpoint = new-object System.Net.IPEndPoint $MyAddress, $port
    $udpclient=new-Object System.Net.Sockets.UdpClient $port
    $content=$udpclient.Receive([ref]$endpoint)
    $Rec =[Text.Encoding]::ASCII.GetString($content)
    $udpclient.Close()
    if (!$Rec)
    {
        $Global:Receiver="N/A"
    }
    $Global:Receive = $Rec.ToUpper()
}


####################################################################


# $CmpStr = $Receive.CompareTo("QUIT")
# 0 = Found, -1 = Not Found
[INT] $CmdStr = -1
[INT] $Quit = 1


Clear-Host
Write-Host "PTT is released."
Write-Host "Tranceicer is receiving now"

do
{
    ReceiveViaUDP
    
    # Interrupt Handling
    $CmpStr = $Global:Receive.CompareTo("BREAK")
    if ( $CmpStr -eq 0)
    {
        # Do nothing
    }

    $CmpStr = $Global:Receive.CompareTo("QUIT")
    if ( $CmpStr -eq 0)
    {
        Clear-Host
        write-host "Detect QUIT."
        [INT] $Quit = -1
    }

    $CmpStr = $Global:Receive.CompareTo("CQD")
    if ( $CmpStr -eq 0)
    {
        TX_AND_CQ("V:\02...AFU\Eigene AFU Programme\CQD.mp3")
    }
    $CmpStr = $Global:Receive.CompareTo("CQE")
    if ( $CmpStr -eq 0)
    {
        TX_AND_CQ("V:\02...AFU\Eigene AFU Programme\CQE.mp3")
    }
    $CmpStr = $Global:Receive.CompareTo("QRZ")
    if ( $CmpStr -eq 0)
    {
        TX_AND_CQ("V:\02...AFU\Eigene AFU Programme\QRZ.mp3")
    }
    $CmpStr = $Global:Receive.CompareTo("FREE")
    if ( $CmpStr -eq 0)
    {
        TX_AND_CQ("V:\02...AFU\Eigene AFU Programme\FREE.mp3")
    }
    $CmpStr = $Global:Receive.CompareTo("AGN")
    if ( $CmpStr -eq 0)
    {
        TX_AND_CQ("V:\02...AFU\Eigene AFU Programme\AGN.mp3")
    }
    $CmpStr = $Global:Receive.CompareTo("MYCALL-1")
    if ( $CmpStr -eq 0)
    {
        TX_AND_CQ("V:\02...AFU\Eigene AFU Programme\MYCALL-1.mp3")
    }
    $CmpStr = $Global:Receive.CompareTo("MYCALL-2")
    if ( $CmpStr -eq 0)
    {
        TX_AND_CQ("V:\02...AFU\Eigene AFU Programme\MYCALL-2.mp3")
    }

    
    
    $CmpStr = $Global:Receive.CompareTo("TX")
    if ( $CmpStr -eq 0)
    {
        Clear-Host
        write-host "!!! Warning !!!  -  O N  A I R !!!"
        Write-Host "  Detect TX Command. Push PTT."
        # Set PTT on
        $sport.RtsEnable=$true
        $sport.DtrEnable=$true
        [INT] $CmdStr = -1
    }

    $CmpStr = $Global:Receive.CompareTo("RX")
    if ( $CmpStr -eq 0)
    {
        Clear-Host
        Write-Host "PTT is released."
        Write-Host "Tranceicer is receiving now"
        $sport.RtsEnable=$false
        $sport.DtrEnable=$false
        [INT] $CmdStr = -1
    }
}
until ($Quit -eq -1)
$port.close()

 

This is the sourcecode of the PTT-Sender as a GUI:

#############################################################################################
#############################################################################################
# PTT - Sender
# (c) 2014 by DG5KR
# Receive the PTT Command via UDP
# The Command are
# TX  -- Set the RTS/DTR of COMx to push ptt
# RX  -- Release the RTS/DTR of COMx to pop ptt
# QUIT -- Release PTT and quit this client

 

# Global VARS
$Global:PTT=$false
$Global:Receiver=""

# Destination IP
$Global:RemoteIP="192.168.0.34"
#$Global:MyIP="192.168.0.34"

#$Global:RemoteIP="10.0.47.140"
$Global:MyIP="10.0.47.140"

$Global:RX_Delay=700
$Global:PTT=$false

function SendViaUDP($Text)
{
    [INT] $port=2020
    $Address = [system.net.IPAddress]::Parse($Global:RemoteIP)
    $endpoint = new-object System.Net.IPEndPoint $Address, $port
    $udpclient=new-Object System.Net.Sockets.UdpClient
    $b=[Text.Encoding]::ASCII.GetBytes($Text)
    $bytesSent=$udpclient.Send($b,$b.length,$endpoint)
    $udpclient.Close()
}

function ReceiveViaUDP
{
    [INT] $port=2021
    $MyAddress = [system.net.IPAddress]::Parse($Global:MyIP)
    $endpoint = new-object System.Net.IPEndPoint $MyAddress, $port
    $udpclient=new-Object System.Net.Sockets.UdpClient $port
    $content=$udpclient.Receive([ref]$endpoint)
    $Rec =[Text.Encoding]::ASCII.GetString($content)
    $udpclient.Close()
    if (!$Rec)
    {
        $Global:Receiver="N/A"
    }
    $Global:Receive = $Rec.ToUpper()
}

 

function TooglePTT
{
    if ($Global:PTT -eq $false)
    {
        $Btn_PTT.BackColor="red"
        $Btn_PTT.Text = "* * *  PTT is pressed  * * *"
        $Global:PTT=$true
        SendViaUDP("TX")
    }
    else
    {
        $Btn_PTT.BackColor="Yellow"
        $Btn_PTT.Text = "W A I T"
        Start-Sleep -Milliseconds $RX_Delay
        $Btn_PTT.BackColor="lightgray"
        $Btn_PTT.Text = "PTT"
        $Global:PTT= $false
        SendViaUDP("RX")
    }    
}

function SendCQ($CQNR)
{
    if ($Global:PTT -eq $false)
    {
        $Btn_PTT.BackColor="red"
        $Btn_PTT.Text = "* * *  Sending KEYER  * * *"
        $Global:PTT=$true
        SendViaUDP($CQNR)
        Start-Sleep -Seconds 2
        $Btn_PTT.BackColor="Yellow"
        $Btn_PTT.Text = "W A I T"
        Start-Sleep -Milliseconds $Global:RX_Delay
        $Btn_PTT.BackColor="lightgray"
        $Btn_PTT.Text = "PTT"
        $Global:PTT= $false
        SendViaUDP("RX")
    }
}


function Get_ReceiverStatus
{
    ReceiveViaUDP
    $CmpStr = $Global:Receive.CompareTo("IS_RX")
    if ( $CmpStr -eq 0)
    {
        $Btn_PTT.BackColor="lightgray"
        $Btn_PTT.Text = "PTT"
        $Global:PTT= $false
        $tmr_RStatus.Stop()
    }
    $CmpStr = $Global:Receive.CompareTo("IS_TX")
    if ( $CmpStr -eq 0)
    {
        $Global:PTT = $true
        $Btn_PTT.BackColor="red"
        $Btn_PTT.Text = "* * *  PTT is pressed  * * *"
    }
}


# Main FORM
SendViaUDP("RX")

Add-Type -AssemblyName System.Windows.Forms
$Form = New-Object system.Windows.Forms.Form
$Form.Text = "Push PTT"
$Form.Width = 186
$Form.Height = 124
$Form.TopMost=$true
$Form.MaximizeBox=$false
$Form.MinimizeBox =$false
$Form.FormBorderStyle='FixedDialog'

#$Label = New-Object System.Windows.Forms.Label
#$Label.Text = "This form is very simple."
#$Label.AutoSize = $True
#$Form.Controls.Add($Label)

# Add timers for interrupt handling

# Get ReceiverStatus (PING)
$tmr_Ping = New-Object System.Windows.Forms.Timer
$tmr_Ping.Interval = 100
$tmr_Ping.Start()

# Get TX/RX Status
$tmr_RStatus = New-Object System.Windows.Forms.Timer
$tmr_RStatus.Interval = 500
$tmr_RStatus.Stop()


$Btn_CQ1 = $Label = New-Object System.Windows.Forms.Button
$Btn_CQ1.Text = "CQD"
$Btn_CQ1.Name = "Btn_CQ1"
$Btn_CQ1.BackColor="lightgray"
$Btn_CQ1.Location = new-object System.Drawing.Size(6,4)
$Btn_CQ1.Width=40
$Btn_CQ1.Height=20
$Form.Controls.Add($Btn_CQ1)

$Btn_CQ2 = $Label = New-Object System.Windows.Forms.Button
$Btn_CQ2.Text = "CQE"
$Btn_CQ2.Name = "Btn_CQ2"
$Btn_CQ2.BackColor="lightgray"
$Btn_CQ2.Location = new-object System.Drawing.Size(48,4)
$Btn_CQ2.Width=40
$Btn_CQ2.Height=20
$Form.Controls.Add($Btn_CQ2)

$Btn_CQ3 = $Label = New-Object System.Windows.Forms.Button
$Btn_CQ3.Text = "QRZ"
$Btn_CQ3.Name = "Btn_CQ3"
$Btn_CQ3.BackColor="lightgray"
$Btn_CQ3.Location = new-object System.Drawing.Size(90,4)
$Btn_CQ3.Width=40
$Btn_CQ3.Height=20
$Form.Controls.Add($Btn_CQ3)

$Btn_CQ4 = $Label = New-Object System.Windows.Forms.Button
$Btn_CQ4.Text = "Free?"
$Btn_CQ4.Name = "Btn_CQ4"
$Btn_CQ4.BackColor="lightgray"
$Btn_CQ4.Location = new-object System.Drawing.Size(134,4)
$Btn_CQ4.Width=40
$Btn_CQ4.Height=20
$Form.Controls.Add($Btn_CQ4)


$Btn_PTT = $Label = New-Object System.Windows.Forms.Button
$Btn_PTT.Text = "PTT"
$Btn_PTT.Name = "Btn_PTT"
$Btn_PTT.BackColor="lightgray"
$Btn_PTT.Location = new-object System.Drawing.Size(5,25)
$Btn_PTT.Width=170
$Btn_PTT.Height=36
$Form.Controls.Add($Btn_PTT)

$slider = New-Object Windows.Forms.TrackBar
$form.Controls.add($slider)
$slider.Location = new-object System.Drawing.Size(5,65)
$slider.Width=170
$slider.Height=10
$slider.Value=4
$slider.Name = "RXDelay"
$RX_Delay=($slider.Value*200)

# Interrupt
$tmr_RStatus.add_tick({
    Get_ReceiverStatus
})

$tmr_Ping.add_tick({
    #Break the Receiveroutine in Receiver
    SendViaUDP("BREAK")
})

# Click Routine
$Btn_PTT.Add_Click({
    TooglePTT
})
$Btn_CQ1.Add_Click({
    SendCQ("CQD")
})
$Btn_CQ2.Add_Click({
    SendCQ("CQE")
})
$Btn_CQ3.Add_Click({
    SendCQ("QRZ")
})
$Btn_CQ4.Add_Click({
    SendCQ("FREE")
})

$slider.add_ValueChanged({
    $RX_Delay=($slider.Value*200)
})

$Form.ShowDialog()

 

 

More Software projects: If you controll your TRX with a CAT software (i.g. HRD 5.x/6.x) a KEYER software is very usefull for CQ and other standerd voices. Here is the sourcecode of my homebrewkeyer in Powershell as a GUI:

#############################################################################################
#############################################################################################
# Keyer
# (c) 2014 by DG5KR
# Send Set PTT and send Audio
# Version: 2
# Date: 15.05.2014

Set-ExecutionPolicy -ExecutionPolicy Unrestricted -Scope CurrentUser -Force
set-psdebug -strict

set-executionpolicy Unrestricted -Force -Scope CurrentUser

# Global VARS
$Global:PTT=$false

### COM Defination
$Serial="COM3"
$sport= new-Object System.IO.Ports.SerialPort
$sport.PortName = $Serial
$sport.Close()
$sport.open()
$sport.RtsEnable=$false
$sport.DtrEnable=$false
$Global:PTT=$false
$BTN_CQ_Height=25
$BTN_CQ_Width=60


#Add-Type @'
#using System;
#using System.IO;
#using System.Text;
#using System.Runtime.InteropServices;
#      
#public static class HotKey{
#     public static void regHotKey(){
#    [System.Runtime.InteropServices.DllImport("user32.dll")]
#        private static extern bool RegisterHotKey(IntPtr hWnd, int id, int fsModifiers, int vk);
#          Console.WriteLine("Hello World!");
#     }
#}
#'@
##[HotKey]::regHotKey()

 

Function TX_and_SendMP3($file)
{
        $file = "V:\02...AFU\Eigene AFU Programme\"+$file
        # play the file once
        # GetDuration in millisconds
        $mp3 = Get-Item $file
        $MediaPlayer = New-Object -Com WMPlayer.OCX
        $GetAttributes = $MediaPlayer.mediaCollection.add($mp3)
        [INT]$Duration = $GetAttributes.Duration * 1000
        Add-Type -AssemblyName presentationCore
        $sound = New-Object system.windows.media.mediaplayer
        $sound.Open($file)
        $Sound.Volume=100
        $Form.BackColor="red"
        $Form.Text = "Sending...."
        # Set PTT on
        $sport.RtsEnable=$true
        $sport.DtrEnable=$true
        $sound.Play();
        Start-Sleep -Milliseconds $Duration
        $sound.Stop()
        $sound.close()
        $sport.RtsEnable=$false
        $sport.DtrEnable=$false
        $Form.BackColor="white"
        $Form.Text = "Keyer - PTT is released"
}

function TooglePTT
{
    if ($Global:PTT -eq $false)
    {
        $Btn_PTT.BackColor="yellow"
        $Btn_PTT.Text = "SENDING"
        $Global:PTT=$true
        $Form.BackColor="red"
        $Form.Text = "Sending...."
        # Set PTT on
        $sport.RtsEnable=$true
        $sport.DtrEnable=$true
    }
    else
    {
        $Btn_PTT.BackColor="gray"
        $Btn_PTT.Text = "PTT"
        $Global:PTT= $false
        # Set PTT off
        $sport.RtsEnable=$false
        $sport.DtrEnable=$false
        $Form.BackColor="white"
        $Form.Text = "Keyer - PTT is released"
    }    
}


# Main FORM

Add-Type -AssemblyName System.Windows.Forms
$Form = New-Object system.Windows.Forms.Form
$Form.BackColor="white"
$Form.Text = "Keyer - PTT is released"
$Form.Width = 620
$Form.Height = 60
$Form.TopMost=$true
$Form.MaximizeBox=$false
$Form.MinimizeBox =$false
$Form.FormBorderStyle='FixedDialog'

#$Label = New-Object System.Windows.Forms.Label
#$Label.Text = "***Nothing to do***"
#$Label.AutoSize = $False
#$Label.Width=220
#$Label.Height=30
#$Label.Location = new-object System.Drawing.Size(10,30)
#$Form.Controls.Add($Label)

$Btn_CQ1 = New-Object System.Windows.Forms.Button
$Btn_CQ1.Text = "CQ-D"
$Btn_CQ1.Name = "Btn_CQ1"
$Btn_CQ1.BackColor="lightgray"
$Btn_CQ1.Location = new-object System.Drawing.Size(5,4)
$Btn_CQ1.Width=$BTN_CQ_Width
$Btn_CQ1.Height=$BTN_CQ_Height
$Form.Controls.Add($Btn_CQ1)

$Btn_CQ2 = New-Object System.Windows.Forms.Button
$Btn_CQ2.Text = "CQ-E"
$Btn_CQ2.Name = "Btn_CQ2"
$Btn_CQ2.BackColor="lightgray"
$Btn_CQ2.Location = new-object System.Drawing.Size(65,4)
$Btn_CQ2.Width=$BTN_CQ_Width
$Btn_CQ2.Height=$BTN_CQ_Height
$Form.Controls.Add($Btn_CQ2)

$Btn_CQ3 = New-Object System.Windows.Forms.Button
$Btn_CQ3.Text = "QRZ?"
$Btn_CQ3.Name = "Btn_CQ3"
$Btn_CQ3.BackColor="lightgray"
$Btn_CQ3.Location = new-object System.Drawing.Size(125,4)
$Btn_CQ3.Width=$BTN_CQ_Width
$Btn_CQ3.Height=$BTN_CQ_Height
$Form.Controls.Add($Btn_CQ3)

$Btn_CQ4 = New-Object System.Windows.Forms.Button
$Btn_CQ4.Text = "AGN?"
$Btn_CQ4.Name = "Btn_CQ4"
$Btn_CQ4.BackColor="lightgray"
$Btn_CQ4.Location = new-object System.Drawing.Size(185,4)
$Btn_CQ4.Width=$BTN_CQ_Width
$Btn_CQ4.Height=$BTN_CQ_Height
$Form.Controls.Add($Btn_CQ4)

$Btn_CQ5 = New-Object System.Windows.Forms.Button
$Btn_CQ5.Text = "59..73"
$Btn_CQ5.Name = "Btn_CQ5"
$Btn_CQ5.BackColor="lightgray"
$Btn_CQ5.Location = new-object System.Drawing.Size(245,4)
$Btn_CQ5.Width=$BTN_CQ_Width
$Btn_CQ5.Height=$BTN_CQ_Height
$Form.Controls.Add($Btn_CQ5)

$Btn_CQ6 = New-Object System.Windows.Forms.Button
$Btn_CQ6.Text = "Free?"
$Btn_CQ6.Name = "Btn_CQ6"
$Btn_CQ6.BackColor="lightgray"
$Btn_CQ6.Location = new-object System.Drawing.Size(305,4)
$Btn_CQ6.Width=$BTN_CQ_Width
$Btn_CQ6.Height=$BTN_CQ_Height
$Form.Controls.Add($Btn_CQ6)

$Btn_CQ7 = New-Object System.Windows.Forms.Button
$Btn_CQ7.Text = "MyCall-1"
$Btn_CQ7.Name = "Btn_CQ7"
$Btn_CQ7.BackColor="lightgray"
$Btn_CQ7.Location = new-object System.Drawing.Size(365,4)
$Btn_CQ7.Width=$BTN_CQ_Width
$Btn_CQ7.Height=$BTN_CQ_Height
$Form.Controls.Add($Btn_CQ7)

$Btn_CQ8 = New-Object System.Windows.Forms.Button
$Btn_CQ8.Text = "MyCall-2"
$Btn_CQ8.Name = "Btn_CQ8"
$Btn_CQ8.BackColor="lightgray"
$Btn_CQ8.Location = new-object System.Drawing.Size(425,4)
$Btn_CQ8.Width=$BTN_CQ_Width
$Btn_CQ8.Height=$BTN_CQ_Height
$Form.Controls.Add($Btn_CQ8)

$Btn_PTT = New-Object System.Windows.Forms.Button
$Btn_PTT.Text = "PTT"
$Btn_PTT.Name = "Btn_PTT"
$Btn_PTT.BackColor="gray"
$Btn_PTT.Location = new-object System.Drawing.Size(490,4)
$Btn_PTT.Width=120
$Btn_PTT.Height=$BTN_CQ_Height
$Form.Controls.Add($Btn_PTT)


# Click Routine
$Btn_CQ1.Add_Click({
    TX_and_SendMP3("CQD.mp3")
})
$Btn_CQ2.Add_Click({
    TX_and_SendMP3("CQE.mp3")
})
$Btn_CQ3.Add_Click({
    TX_and_SendMP3("QRZ.mp3")
})
$Btn_CQ4.Add_Click({
    TX_and_SendMP3("AGN.mp3")
})

$Btn_CQ5.Add_Click({
    TX_and_SendMP3("59-73.mp3")
})

$Btn_CQ6.Add_Click({
    TX_and_SendMP3("FREE.mp3")
})

$Btn_CQ7.Add_Click({
    TX_and_SendMP3("MyCall-1.mp3")
})

$Btn_CQ8.Add_Click({
    TX_and_SendMP3("MyCall-2.mp3")
})

$Btn_PTT.Add_Click({
    TooglePTT
})

$Form.ShowDialog()

 

1071948 Last modified: 2014-07-03 05:09:12, 32768 bytes

Login Required

Login is required for additional detail.

You must be logged in to file a report on this page

Please login now...

Currently updating logbook display.
ad: giga-db
Copyright © 2014 by QRZ.COM
Wed Jul 30 07:06:40 2014 UTC
CPU: 0.061 sec 67029 bytes mp