Huhhhhhh, setelah 2 malam begadang dan meneguk beberapa gelas kopi pahit karena ingin menuntaskan rasa penasaran yang tidak kunjung bisa berdamai dengan keheningan malam. Akhirnya dengan menjunjung tinggi nilai sebuah kesabaran dan Falsafah orang bodoh "Try and Error". Saya berhasil juga mengkonvert aplikasi Graph/Chart script VB 6.0 ke aplikasi Graph/Chart script Visual Basic 2008 Express Edition. Hasil tampilan konversi Visual Basic 2008 Express Edition, perhatikan Gambar di atas. Perubahan coding Script source codenya mengalami perubahan yang cukup signifikan.
Saya akan menampilkan ke dua Script coding yang menggunakan VB 6.0 (sumber sourcecode ==>> www.thaiio.com == Komunitas Programming Interface VB/VB.net, C dan beberapa bahasa pemrograman lainnya, di forum ini berkumpul mayoritas programmer-programer handal dari Thailand sebagai narasumber) dan tampilan script coding Visual Basic 2008 Express Edition hasil dari racikan bumbu angin malam semalam suntuk versi V. Hutabalian, sehingga Anda dapat membandingkan sejauh mana perubahan coding Object Oriented Programming-nya.
Perhatikan gambar di bawah ini, hasil tampilan menggunakan Script VB 6.0.
Script VB 6.0:
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'Convert Graph/Chart use Logaritmic Function VB 6.0 to VB 2008 Express Edition'
'======================================================================='
' '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Sourcecode:====>>>> www.thaiio.com'
' Publish to V. Hutabalian's Blog 22 July 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Private Sub Form_activate()
Picture1.Scale (-1, -2.7)-(11.5, 2.4)
Picture1.BackColor = vbBlack
Picture1.ForeColor = vbWhite
For x = 0 To 10
Picture1.Line (x, -2.7)-(x, 2.1)
Picture1.CurrentX = x - 0.2
Picture1.Print x
Next x
For j = -2 To 2
For i = 1 To 9
y = -(Log(i * 10 ^ j) / Log(10))
If i = 1 Then
Picture1.Line (-0.3, y)-(10, y)
Picture1.CurrentX = -1
Picture1.CurrentY = y - 0.1
yy = 10 ^ -y
Yaxis$ = Format(yy, "0.00")
Picture1.Print Yaxis
Else
Picture1.Line (-0.2, y)-(10, y), vbBlue
End If
Next i
Next j
Picture1.CurrentX = 10.5
Picture1.CurrentY = 1.9
Picture1.Print "Time"
End Sub
Sekarang, saya akan menampilkan hasil konversinya menggunakan Visual Basic 2008 Express Edition. Perhatikan tabel Toolbox yang akan saya pergunakan di bawah ini:
| 1 UserForm | Name: UserForm1 Text: Graphic menggunakan Fungsi Logaritmic V. Hutabalian's Blog |
| 1 PictureBox | Name:PictureBox1 |
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 Program Graph/Chart VB 2008 Express Edition:
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'Convert Graph/Chart use Logaritmic Function VB 6.0 to VB 2008 Express Edition'
'======================================================================='
' '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Modifikasi script Programing By: Verynandus Hutabalian'
' Publish to V. Hutabalian's Blog 22 July 2010 '
' Copyright © ==>>> Verynandus Hutabalian '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
PictureBox1.BackColor = Color.Black
PictureBox1.ForeColor = Color.White
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)) * H_Grid1
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
End Class
Setelah Anda mengetikkan listing source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini.
Nantinya saya akan mencoba memodifikasi lagi Graph/Chart script Visual Basic 2008 Express Edition di atas, sehingga memiliki inputan data realtime ditampilkan dengan graph dynamic line data realtime.
Artikel Terkait:
Plotting Real Time Chart Logaritmic VB 2008 Express Edition ===>> Klik Disini
Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian.
1. 
0 komentar:
Posting Komentar