Plotting Real Time Chart Logaritmic VB 2008 Express Edition

Tutorial sebelumnya, saya menampilkan Chart menggunakan Fungsi Logaritmic, untuk lebih jelasnya silakan Klik link ini ==>>> Chart Fungsi Logaritmic VB 2008 Express Edition Sekarang saya mengembangkan aplikasi tersebut sehingga Chart Fungsi Logaritmic yang hasilnya berupa Grid-Grid line yang memiliki nilai pada setiap Grid-Grid line sesuai dengan penskalaan yang saya buat dan jarak Space antar line juga berbeda. Untuk lebih jelasnya perhatikan hasilnya pada Gambar di atas dan Anda dipersilahkan mengklik tampilan gambar diatas, untuk menghasilkan ukuran gambar yang lebih jelas.

Huh...hhhhh akhirnya dengan belaian dan hasil dari cumbuan kemesraan selama 3 hari dengan heningnya malam dan beberapa gelas kopi pahit hangat, akhirnya saya dapat menyelesaikan problem Plotting Data Real Time Fungsi Logaritmic Diatas, Sekali lagi saya hanya orang yang mencoba untuk belajar menjunjung tinggi nilai dari sebuah "Kesabaran" dan Konsep "Try and Error" sampai menemukan hasil, walaupun sebenarnya pengen menyerah sehhhhh KWKWKWKWKWKKWKWKKWK :-).

Plotting Real Time Chart Logaritmic kali ini cukup rumit, Nilai Grid-Grid line Coordinat Y dari rentang 0.01 ; 0.10 ; 1.00 ; 10.00 ; 100.00 dengan nilai resolusi plotting data pada Coordinat Y setiap kenaikan 0.01. Perhatikan rentang tersebut memilik rentang nilai yang berbeda dan perhatikan jarak antar Grid line pada Coordinat Y juga berbeda pada tiap rentang, sedangkan antar rentang sama.

Nantinya data diinputkan secara Real Time dari pergeseran ScroolBar, dynamic line yang menampilkan data inputan harus sesuai dengan nilai yang ada pada penskalaan grid line coordinat Y.

ToolBox yang saya gunakan perhatikan tabel di bawah ini.

ToolBox	Properties
1 UserForm	Name: UserForm1 Text: Graphic menggunakan Fungsi Logritmic V. Hutabalian's Blog
1 PictureBox	Name: PictureBox1
2 Label	Name:Label1 & 2
1 HScrollBar	Name:HScrollBar1
1 Button	Name:Button1
1 Timer	Name:Timer1

Desain Form table Toolbox di atas perhatikan gambar di bawah ini:



Setelah selesai mendesain Form dengan mengatur semua object propertis Toolbox. Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.

Script Plotting Real Time pada Chart Fungsi Logaritmic VB 2008 Express Edition:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'Plotting Real Time Chart Logaritmic VB 2008 Express Edition'
'======================================================================='
'Script tidak semuanya saya berikan :-), maaf yaaaa!!!!!'
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Programing By: Verynandus Hutabalian'
' Publish to V. Hutabalian's Blog 2 Agustus 2010 '
' Copyright © ==>>> Verynandus Hutabalian '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Public Class Form1
Public z As Double
Public t As Double
Dim Data As New Queue(Of Double)
Dim maxdata As Double = 100
Dim a As Double
Dim amplitude As Double

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
PictureBox1.BackColor = Color.Black
PictureBox1.ForeColor = Color.White
HScrollBar1.Minimum = 1
HScrollBar1.Maximum = 10000
Button1.Text = "Plot"
Label1.Text = "Niai Data"
End Sub

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim L_Skala As Integer = PictureBox1.Width
Dim T_Skala As Integer = PictureBox1.Height
Dim V_Grid As Integer = 12
Dim V_Grid1 As Single = L_Skala / V_Grid

Dim H_Grid As Integer = 8
Dim H_Grid1 As Single = L_Skala / H_Grid

Dim Label_T = 8
Dim Lbl_Grid As Single = L_Skala / Label_T

Dim yy As Single
Dim V_value As String
Dim y As Single

Dim TickSP As New Point(PictureBox1.Width - 5, PictureBox1.Height - 72)
Dim TickEP As New Point(PictureBox1.Width - 5, PictureBox1.Height - 40)
Dim TextStartX As Integer = CInt(PictureBox1.Width - L_Skala + 34)
Dim TextBrsh As Brush = New SolidBrush(Color.Red)

For x As Single = V_Grid1 To L_Skala Step V_Grid1
e.Graphics.DrawLine(Pens.White, x, 0, x, PictureBox1.Height - 62)
For i As Integer = 0 To 10 Step 1
' Draw the name of the onth
e.Graphics.DrawString(CStr(i), New Font("Verdana", 10, FontStyle.Regular), TextBrsh, TextStartX, CInt(PictureBox1.Height - 62))
' Move start point for next name along to the right
TextStartX += V_Grid1
Next

Next x
For j As Single = -5 To -1
For i As Single = 1 To 9
y = -(Math.Log(i * 10 ^ j) / Math.Log(10))

If i = 1 Then

e.Graphics.DrawLine(Pens.White, 30, y, PictureBox1.Width - 30, y)

yy = 10 ^ -(-(Math.Log(i * 10 ^ j) / Math.Log(10)))
V_value = Format(yy, "0.0000") * 1000



For k As Single = 0 To 5 Step Lbl_Grid
e.Graphics.DrawString(CStr(V_value), New Font("Verdana", 10, FontStyle.Regular), Brushes.GreenYellow, 2, TickSP.Y)
TickSP.Y -= Lbl_Grid
TickEP.Y -= Lbl_Grid
Next
Else
e.Graphics.DrawLine(Pens.Green, 30, y, PictureBox1.Width - 30, y)
End If
Next i



Next j

e.Graphics.DrawString("Time", New Font("Verdana", 10, FontStyle.Regular), Brushes.Yellow, 450, 335)
e.Graphics.DrawString("V. Hutabalian's Blog Graph Logaritmic", New Font("Verdana", 12, FontStyle.Regular), Brushes.Pink, 100, 335)
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
End Class

Setelah Anda mengetikkan listing source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini.



Gerakkan ScrollBar untuk melihat nilai data yang diinputkan dan plotting datanya pada Chart Fungsi Logaritmic tersebut.




Pengembangan lebih lanjut, Butuh kreatifitas Anda untuk mengoprek dan mengotak-atik sampai menemukan yang Anda inginkan.

Artikel Terkait:

Chart Fungsi Logaritmic VB 2008 Express Edition ===>> Klik Disini

Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian.