Sawi
Kaktus
Wijayakusuma
Award
merupakan penghargaan atas QSO (komunikasi) yang dilakukan oleh seorang Amatir Radio.
contoh award dari dalam negeri
Contoh award dari luar negeri
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
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
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
Programming VB.NET : Mengenai Serial Port VS USB Port, dan Send/Receive di Serial Port.
Pada dasarnya pengiriman/penerimaan data melalui serial port sudah tidak populer lagi dalam penerapan sehari-hari, karena pada umumnya sudah digantikan dengan USB Port.
Namun dalam beberapa hal masih muncul permasalahan tersebut karena terkait dengan peralatan tertentu yang masih menggunakan Serial Port. Agar tidak menjadi rancu, sebenarnya USB Port adalah pengembangan dari Serial Port, hanya saja pola pengiriman datanya yang pada Serial port terdiri dari 9 kaki (pin) dirubah menjadi 4 kaki (pin) pada USB Port. Secara teknis, perubahan dari 9 pin menjadi 4 pin dimungkinkan karena pada setiap peralatan berbasis USB Port akan mempunyai 1 unit IC konversi dari 9 pin ke 4 pin.
Artinya tidak menjadi kendala kalau di komputer kita hanya ada USB Port, tinggal pasang saja USB to Serial Converter, setelah itu proses kirim/terima data bisa menggunakan Mode Serial Port. Dalam kaitan dengan Programming, kita bisa saja memanfaatkan mode Serial Port karena Serial Port dan USB Port sangat kompatibel. Saya sudah coba beberapa merk Converter di beberapa OS (Win XP s/d WIn 10, 32 bit dan 64 bit). Berikut ini saya sampaikan contoh code yang berkaitan dengan Pengiriman dan Penerimaan data mengunakan Serial Port.
Namun dalam beberapa hal masih muncul permasalahan tersebut karena terkait dengan peralatan tertentu yang masih menggunakan Serial Port. Agar tidak menjadi rancu, sebenarnya USB Port adalah pengembangan dari Serial Port, hanya saja pola pengiriman datanya yang pada Serial port terdiri dari 9 kaki (pin) dirubah menjadi 4 kaki (pin) pada USB Port. Secara teknis, perubahan dari 9 pin menjadi 4 pin dimungkinkan karena pada setiap peralatan berbasis USB Port akan mempunyai 1 unit IC konversi dari 9 pin ke 4 pin.
Artinya tidak menjadi kendala kalau di komputer kita hanya ada USB Port, tinggal pasang saja USB to Serial Converter, setelah itu proses kirim/terima data bisa menggunakan Mode Serial Port. Dalam kaitan dengan Programming, kita bisa saja memanfaatkan mode Serial Port karena Serial Port dan USB Port sangat kompatibel. Saya sudah coba beberapa merk Converter di beberapa OS (Win XP s/d WIn 10, 32 bit dan 64 bit). Berikut ini saya sampaikan contoh code yang berkaitan dengan Pengiriman dan Penerimaan data mengunakan Serial Port.
Imports System
Imports System.IO
Imports System.Threading
Imports System.IO
Imports System.Threading
Public Class Form1
Dim COMPorts As Array
Dim RcvMessage As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
COMPorts = IO.Ports.SerialPort.GetPortNames()
For i = 0 To UBound(COMPorts)
ComboBox1.Items.Add(COMPorts(i))
Next
ComboBox1.Text = ComboBox1.Items.Item(0)
Dim COMPorts As Array
Dim RcvMessage As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
COMPorts = IO.Ports.SerialPort.GetPortNames()
For i = 0 To UBound(COMPorts)
ComboBox1.Items.Add(COMPorts(i))
Next
ComboBox1.Text = ComboBox1.Items.Item(0)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = “Open” Then
Button1.Text = “Close”
ComboBox1.Enabled = False
SerialPort1.PortName = ComboBox1.Text
SerialPort1.BaudRate = 19200
SerialPort1.Parity = Ports.Parity.None
SerialPort1.DataBits = 8
SerialPort1.StopBits = 1
SerialPort1.Handshake = Ports.Handshake.None
If Button1.Text = “Open” Then
Button1.Text = “Close”
ComboBox1.Enabled = False
SerialPort1.PortName = ComboBox1.Text
SerialPort1.BaudRate = 19200
SerialPort1.Parity = Ports.Parity.None
SerialPort1.DataBits = 8
SerialPort1.StopBits = 1
SerialPort1.Handshake = Ports.Handshake.None
Try
SerialPort1.Open()
SerialPort1.Open()
Catch ex As UnauthorizedAccessException
MessageBox.Show(ex.Message & vbCrLf & ” It might be used by another device”)
Button1.Text = “Open”
ComboBox1.Enabled = True
Timer1.Stop()
End Try
MessageBox.Show(ex.Message & vbCrLf & ” It might be used by another device”)
Button1.Text = “Open”
ComboBox1.Enabled = True
Timer1.Stop()
End Try
If SerialPort1.IsOpen() Then
Timer1.Interval = 200
Timer1.Start()
RichTextBox1.Text = ComboBox1.Text & ” Ready” & vbCrLf
End If
Else
SerialPort1.Close()
Timer1.Stop()
Button1.Text = “Open”
ComboBox1.Enabled = True
End If
End Sub
Timer1.Interval = 200
Timer1.Start()
RichTextBox1.Text = ComboBox1.Text & ” Ready” & vbCrLf
End If
Else
SerialPort1.Close()
Timer1.Stop()
Button1.Text = “Open”
ComboBox1.Enabled = True
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If SerialPort1.IsOpen() Then
SerialPort1.WriteLine(ComboBox1.Text & “> ” & TextBox1.Text)
End If
End Sub
If SerialPort1.IsOpen() Then
SerialPort1.WriteLine(ComboBox1.Text & “> ” & TextBox1.Text)
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
RcvMessage = SerialPort1.ReadExisting()
Dim prv_message As String = TextBox1.Text
If Not (RcvMessage = “”) Then
RichTextBox1.Text = RcvMessage & RichTextBox1.Text
End If
End Sub
End Class
RcvMessage = SerialPort1.ReadExisting()
Dim prv_message As String = TextBox1.Text
If Not (RcvMessage = “”) Then
RichTextBox1.Text = RcvMessage & RichTextBox1.Text
End If
End Sub
End Class
Programming VB.NET : menampilkan Versi OS
Ada 2 cara untuk mengetahui OS version dalam aplikasi VB :
1. menggunakan My.Computer.Info.OSVersion
LblOS.Text = My.Computer.Info.OSVersion
2. menggunakan IntPtr.Size
Sub Get_OSVer()
Try
'
'Basically if the Integer Pointer size is 4 then its 32 Bit and 8 is 64 Bit
If IntPtr.Size > 4 Then
OS_type = 64
Else OS_type = 32
End If
Catch exc As Exception
MessageBox.Show(exc.Message, " We have a IntPtr problem...", MessageBoxButtons.OK)
Return
End Try
End Sub
setelah mencoba 2 cara di atas, yang paling valid adalah cara kedua. kalau cara pertama masih “terjebak” dalam desain OS “maksa” 64bit.
Programming VB.NET : melihat Dynamic IP Address dan merekam dalam log
BERAPA IP ADDRESS NYA ? Biasanya proses ini dibutuhkan saat ingin me-“remote admin” atau menggunakan resource yang ada di PC atau Device yang terhubung dengan Dynamic IP Address. Karena koneksi internet “rumahan” atau “modal modem” hanya mendapat Dynamic IP Address, maka perlu dicari cara menemukan IP Address secara otomatis. Ada beberapa situs yang memberikan fasilitas untuk mendapatkan informasi Dynamic IP Address kita, contohnya SPEEDTEST.NET
Tapi untuk mendapatkan IP Address tersebut menggunakan aplikasi VB.NET dan menggunakannya sebagai sarana logging, kita dapat memanfaatkan web server kita sebagai alat bantu, yaitu dengan membuat script dalam PHP seperti di bawah ini : Untuk lebih jelasnya silahkkan download di link ini Bila butuh jawaban segera, bisa kirim email ke purwoko.edi*gmail.com, ganti * dengan @