Cari di Blog Ini

Senin, 18 Mei 2020

Flower Pot Antenna VHF-UHF

A station is only as effective as 
its antenna system


Flower Pot Antenna VHF-UHF



Coil  : 9 lilitan RG58 pada PVC 1"


3/4 Lambda 2m band Antenna

A station is only as effective as 
its antenna system
 3/4 Lambda 2m Band Antenna



coil 4 lilit dengan diameter 1"



whip 142.5cm


143.500 MHz = 1.10 SWR
144.000 MHz = 1.20 SWR
144.500 MHz = 1.22 SWR
145.000 MHz = 1.10 SWR
145.500 MHz = 1.08 SWR
146.000 MHz = 1.02 SWR
146.500 MHz = 1.00 SWR
147.000 MHz = 1.00 SWR
147.500 MHz = 1.02 SWR
148.000 MHz = 1.10 SWR
148.500 MHz = 1.14 SWR
149.000 MHz = 1.20 SWR

Minggu, 19 Mei 2019

Programming VB.NET : QR Code Generator menggunakan VB.NET

1. Download file MessagingToolkit.QRCode.dll di https://osdn.net/projects/sfnet_qrreader/downloads/MessagingToolkit.QRCode.dll/
2. Buat project baru berisi :
    a. textbox
    b. picturebox
    c. button
    d. safefiledialog
3. Tambahkan MessagingToolkit.QRCode.dll ke Reference
4. Copy-Paste code dibawah ini

Public Class Form1
    Dim QR_Code As New MessagingToolkit.QRCode.Codec.QRCodeEncoder
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Try
            PictureBox1.Image = QR_Code.Encode(TextBox1.Text)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SaveFileDialog1.ShowDialog()
    End Sub

    Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
        Try
            Dim img As New Bitmap(PictureBox1.Image)
            img.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Jpeg)
        Catch ex As Exception

        End Try
    End Sub
End Class

Selesai