V. Hutabalian

Perhitungan Scoring Sheet Menggunakan Excel

2011-05-15T11:24:00.000-07:00

Wahhhh.... sudah begitu lama Blog ini tidak di-update..., Beberapa hari yang lalu saya dimintai tolong oleh seorang teman untuk membuat perhitungan scoring sheet sebuah kompetisi menggunakan Excel,... Jadi yang perlu ditampilkan siapa saja pemenangnya dan nilai yang didapatkan. Saya sempat bingung.... karena saya belum terbiasa menggunakan fitur perumusan yang telah disediakan Excel... yang ada di kepala saya pada saat itu... Bagaimana menampilkan Nama dan Angka sesuai peringkat tertinggi yang diingikan secara otomatis terurut tampa diurut secara manual, apalagi kalau pesertanya sampai ratusan, bisa-bisa pusing kepala kalau dikerjain secara manual dengan membandingkan nilai satu persatu untuk menentukan siapa nilai tertinggi misalkan Juara 1 - 3.... Akhirnya bertanya dah!!!!, sama mbah Google buka beberapa trick dari satu blog ke blog yang lain.... yang ada hanya mencari nilai tertinggi dan blog yang lain hanya untuk menampilkan suatu index tertentu berdasarkan dari angka tertentu, akhirnya dari persamaan-persamaan tersebut saya gabungkan untuk memenuhi maksud dan tujuan saya.

Kali ini saya akan men-sharekan Trick Excel untuk mengurut angka tertinggi sekaligus beserta index-nya dari beberapa data angka, untuk hasil tampilannya perhatikan gambar di atas.

Data tersebut merupakan data sample misalkan saja itu merupakan suatu data penilaian dari sebuah kompetisi dengan 10 peserta, dari 10 peserta tersebut saya akan merunut siapa menjadi Juara 1 - 3 dan Harapan 1 - 3 berdasarkan urutan nilai tertinggi.

Contoh, perumusannya untuk Juara 1:
=INDEX(B3:C12;MATCH(LARGE(C3:C12;{1});$C$3:$C$12;0);1)&" JUARA 1 DENGAN NILAI "&LARGE(C3:C12;{1})

Untuk urutan Juara berikutnya Anda hanya menukar angka 1 berwarna MERAH sesuai dengan urutan peringkat yang Anda inginkan.

Dalam penulisan Rumus diatas perhatikan range data Anda. Semoga bermanfaat, Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian.

Deret Bilangan Fibonacci VB 2008

2010-10-14T10:45:00.000-07:00

Saya berkunjung ke salah satu Blog yang menampilkan Tutorial Interface VB 2008. Linknya silakan kunjungi Weblognya ==>> Klik Disini . Saya ingin mempelajari Deret Bilangan Fibonacci, Teori Dasarnya dapat Di baca pada Blog tersebut.

Script yang ditampilkan mengalami sedikit perubahan sesuai dengan yang saya inginkan, secara garis besarnya Script berasal dari Blog tersebut ==>> Klik Disini . Penambahan beberapa sintaks script akan saya tampilkan dengan script dari Blog yang saya pelajari tersebut ==>> Klik Disini . Hanya ada sedikit perbedaan pada tampilan dan visual datanya.

Toolbox yang saya gunakan, tidak jauh berbeda dengan yang dipergunakan pada Blog Tutorial Visual Basic 2008 tersebut. Component ToolBox Plat Form VB 2008 Express Edition, perhatikan Tabel di bawah ini.

ToolBox	Properties
1 UserForm	Name: Form1 Text: Deret Fibonacci V. Hutabalian's Blog
1 ListBox	Name: ListBox1
2 Button	Name:Button1 Text: Proses Deret Name: Button2 Text: Exit
1 Label	Name:Label1 Text: Panjang Deret Bilangan
1 NumericUpDown	Name:NumericUpDown1

Desain dari Toolbox yang saya pergunakan di atas, perhatikan gambar di bawah ini.

Script Deret Fibonacci dari Blog tersebut sebagai berikut.

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'Deret Bilangan Fibonacci'
'======================================================================='
' Source ==>> Klik Disini '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Dim w, y, z As Integer
y = 0
z = 1
ListBox1.Items.Clear()
ListBox1.Items.Add(y)
ListBox1.Items.Add(z)
For x As Integer = _
1 To NumericUpDown1.Value
w = y + z
y = z
z = w
If w > NumericUpDown1.Value _
Then Exit For
ListBox1.Items.Add(w)
Next

Perubahan dan penambahan beberapa baris sintaks Script sesuai dengan yang saya inginkan.

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'Deret Fibonacci V. Hutabalian's Blog'
'======================================================================='
'Tampilan Visual by: Verynandus Hutabalian'
' Publish to V. Hutabalian's Blog 14 Oktober 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim w, y, z, z0 As Integer
y = 0
z0 = 1
z = 1
ListBox1.Items.Clear()
ListBox1.Items.Add(z)
For x As Integer = 2 To NumericUpDown1.Value
w = y + z
w = z
If x > 2 Then
w = z0 + z
z0 = z
z = w
End If
ListBox1.Items.Add(w)
Next
NumericUpDown1.Value = Me.ListBox1.Items.Count
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

End Class

Setelah Script di atas selesai saya ketik, maka untuk menampilkan hasilnya saya menekan tombol F5. kemudian saya mensetting Panjang Deret yang akan ditampilkan pada ListBox, lalu tekan tombol Proses Deret. Tampilan hasilnya perhatikan Gambar di bawah ini.

Pada dasarnya sistim deret untuk kedua script di atas sama saja, hanya ada sedikit perbedaan. Untuk lebih jelasnya, tidak ada salahnya untuk mencoba kedua script di atas. Jika ada pengembangan yang lebih baik lagi dari rekan-rekan, saya akan dengan senang hati menampung Kritik dan Saran.

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

Perjalanan Lintas Timur di Pulau Sumatera

2010-10-08T19:48:00.000-07:00

Sumatera merupakan salah satu lahan penghasil buah kelapa sawit terbesar di Indonesia. Banyak investor yang membenamkan uangnya ke tanah untuk pengembangan komoditi pertanian ini. Para investor tersebut tidak hanya dari para pengusaha anak negeri tapi juga pengusaha yang berasal dari negeri seberang misalkan saja Singapura dan Malaysia yang pernah saya dengar dari beberapa orang setempat yang berdomisili di lintasan daerah tersebut dan mereka memiliki sedikit lahan (petani rakyat). Beberapa Pabrik Pengolahan Kelapa Sawit telah berdiri di sepanjang Jalan Lintas Timur yang membelah pulau Sumatera.

Melintasi jalanan lintas timur sangatlah membosankan, sudut pandang pergerakan bola mataku hampir seluruhnya memproyeksikan hamparan lahan kelapa sawit. Komoditi pertanian ini sangat menjanjikan karena seluruh negara di dunia ini memanfaatkan produk akhir dari pengolahannya (sepertinya sudah menjadi kebutuhan primer). Apalagi nantinya komoditi ini akan menjadi bahan dasar untuk mewujudkan trend bahan bakar biodisel yang ramah lingkungan dan nantinya dapat mengatasi devisitnya bahan bakar minyak bumi.

Komoditi yang memang menjanjikan, namun harga jualnya tidak menjanjikan (harga tidak stabil) dan harga pupuknya selalu stabil meningkat tiap bulannya...(??????). Apalagi petani rakyat yang memiliki lahan terbatas, mereka hanya bisa mengatakan “Ngeri-Ngeri Sedap”. Semboyan ini mungkin akan menjadi semboyan bagi seluruh petani di Indonesia karena hasil pertanian mereka bisa saja tidak memiliki harga jual dan hanya sesekali merasakan harga yang tidak terlalu pantas untuk di jual. Tidak ada salahnya diucapkan kembali “Ngeri-Ngeri sedap.....”. "Mungkin suatu saat Ngeri-Ngerinya haruslah dihilangkan, karena hari sudah Terang Benderang".

Create Drawline Function VB6 Component in VB 2008 Ex-Edition

2010-09-26T11:01:00.001-07:00

Beberapa Minggu yang lalu saya Meng-Upgrade Component VB 2008 Express Edition yang ter-install di CPU saya dengan menambahkan Componnent VB6. Ternyata penggunaan perintah scriptnya sangat berbeda ketika kita menggunakan componnent tersebut pada Plat Form VB 2008 Express Edition, demikian juga pada Plat Form VB 6.0. Saya biasanya menggunakan VB 6.0 dan VB 2008 Express Edition. Saya akan membandingkan penggunaan Componnent VB6 pada Plat Form VB 2008 Express Edition dengan component VB 2008 Itu Sendiri, Component object ToolBox yang digunakan sama. Saya akan menampilkan penggunakan fungsi Drawline pada PictureBox.

Perhatikan Tabel ToolBox yang saya gunakan di bawah ini:
Component ToolBox VB6 pada Plat Form VB 2008 Express Edition.

ToolBox	Properties
1 UserForm	Name: Form1 Text: Graphic VB6 Component Vs VB 2008
1 PictureBox	Name: PictureBox1
1 Button	Name:Button1 Text: View Graphic

Component ToolBox VB 2008 Express Edition.

ToolBox	Properties
1 UserForm	Name: Form1 Text: V. Hutabalian's Blog VB6 Vs VB 2008
1 PictureBox	Name: PictureBox1
1 Button	Name:Button1 Text: View Graphic

Desain Form ToolBox yang digunakan sama untuk kedua-duanya.
Desain componnent VB6 pada Plat Form VB 2008 Express Edition:

Desain componnent VB 2008 Express Edition:

Setelah mendesain Toolbox dan mengatur semua propertisnya, maka ketikkan Source program di bawah ini:

Script untuk menggunakan componnent ToolBox VB6 pada Plat Form VB 2008 Express Edition:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'Create Drawline Function VB6 componnent in VB 2008 Express Edition'
'======================================================================='
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Visual Programming by: Verynandus Hutabalian'
' Publish to V. Hutabalian's Blog 26 September 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Option Strict Off
Public Class Form1

Private Sub InitializeComponent()
Me.VB6PictureBox1 = New CodeArchitects.VB6Library.VB6PictureBox
Me.VB6CommandButton1 = New CodeArchitects.VB6Library.VB6CommandButton
Me.SuspendLayout()
'
'VB6PictureBox1
'
Me.VB6PictureBox1.AutoSize = True
Me.VB6PictureBox1.BackColor = System.Drawing.Color.Black
Me.VB6PictureBox1.Location = New System.Drawing.Point(58, 34)
Me.VB6PictureBox1.Name = "VB6PictureBox1"
Me.VB6PictureBox1.ScaleHeight = 1066.667!
Me.VB6PictureBox1.ScaleMode = CodeArchitects.VB6Library.VBRUN.ScaleModeConstants.vbUser
Me.VB6PictureBox1.ScaleWidth = 1354.667!
Me.VB6PictureBox1.Size = New System.Drawing.Size(254, 200)
Me.VB6PictureBox1.TabIndex = 0
'
'VB6CommandButton1
'
Me.VB6CommandButton1.Location = New System.Drawing.Point(135, 244)
Me.VB6CommandButton1.Name = "VB6CommandButton1"
Me.VB6CommandButton1.Size = New System.Drawing.Size(100, 47)
Me.VB6CommandButton1.TabIndex = 1
Me.VB6CommandButton1.Text = "View Graphic" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.VB6CommandButton1.UseVisualStyleBackColor = True
'
'Form1
'
Me.ClientSize = New System.Drawing.Size(376, 303)
Me.Controls.Add(Me.VB6CommandButton1)
Me.Controls.Add(Me.VB6PictureBox1)
Me.Name = "Form1"
Me.Text = "Graphic VB6 Component Vs VB 2008 "
Me.ResumeLayout(False)
Me.PerformLayout()

End Sub

Private Sub VB6CommandButton1_Click() Handles VB6CommandButton1.Click
Dim Xvalue() As Integer = {100, 400, 400, 100}
Dim Yvalue() As Integer = {100, 400, 100, 400}
VB6PictureBox1.Line(CodeArchitects.VB6Library.VBRUN.GraphicsOptions.None, Xvalue(0), Yvalue(0), Xvalue(1), Yvalue(1), QBColor(11))
VB6PictureBox1.Line(CodeArchitects.VB6Library.VBRUN.GraphicsOptions.None, Xvalue(2), Yvalue(2), Xvalue(3), Yvalue(3), QBColor(11))
End Sub
End Class

Script untuk menggunakan componnent ToolBox VB 2008 Express Edition:

Public Class Form1
Inherits System.Windows.Forms.Form
Dim gobj As System.Drawing.Graphics
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
gobj = PictureBox1.CreateGraphics

Dim Xvalue() As Integer = {10, 40, 40, 10}
Dim Yvalue() As Integer = {10, 40, 10, 40}
Dim pen As New Pen(Color.Blue, 2) ' creates a pen instance
gobj.DrawLine(pen, Xvalue(0), Yvalue(0), Xvalue(1), Yvalue(1))
gobj.DrawLine(pen, Xvalue(2), Yvalue(2), Xvalue(3), Yvalue(3))
End Sub
End Class

Setelah itu untuk menampilkan hasilnya tekan F5, lalu tekan tombol View Graphic.
Tampilan hasil penggunaan componnent VB6 pada Plat Form VB 2008 Express Edition:

Tampilan hasil penggunaan componnent VB 2008 Express Edition:

Untuk pengembangan aplikasi yang lebih kompleks, Anda bisa mengembangkan dengan menggali kreatifitas Anda sendiri. Semoga bermanfaat.

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

Upgrade Component VB6Library 2 VB 2008 Express Edition

2010-08-26T12:42:00.000-07:00

Saya tak sengaja membaca sebuah situs mengenai penggunaan component VB6 pada Plat Form VB.net, Di PC yang saya pergunakan terinstall Versi Visual Basic 2008 Express Edition. Lalu saya mencoba meng-upgrade componet Library VB6 ke Visual Basic 2008 Express Edition. Setelah hampir seharian Oprek sana-sini, akhirnya saya berhasil meng-upgrade ke Plat Form Visual Basic 2008 Express Edition yang saya pergunakan sekarang.

Langkah-langkahnya, sebagai berikut:

1. Pertama sekali saya mendownload CodeArchitects.VB6Library.dll, dapat di download secara gratis di internet (Anda bisa Browsing...).

2. Setelah saya menDownload, kemudian saya copykan file tersebut ke drive C - Microsoft Visual Studio 9,0 - Common7 - IDE, file tempat keberadaan componnent dari Visual Basic 2008 Express Edition. Lebih jelasnya perhatikan gambar di bawah ini.

3. Setelah itu, Saya membuka hasil installan Visual Basic 2008 Express Edition pada PC yang saya miliki, setelah jendela aplikasi Visual Basic 2008 Express Editon terbuka, saya menekan Tab Tools . Untuk lebih jelasnya perhatikan gambar di bawah ini.

4. Pada Tab Tools terdapat beberapa menu, yang saya klik selanjutnya adalah Choose Toolbox Items..... Perhatikan gambar pada langkah nomor 3.

5. Kemudian akan muncul jendela Choose Toolbox Items, pada Tab .Net Framework Components saya menekan Tombol Browse. Lebih jelasnya perhatikan gambar di bawah ini.

6. Setelah saya menekan Tombol Browse, saya akan di suguhkan sebuah jendela Open dan alamat file yang di suguhkan adalah keberadaan CodeArchitects.VB6Library.dll yang saya copykan tadi (perhatikan Langkah 2 dan Gambar). Perhatikan Gambar di Bawah ini.

7. Kemudian saya cari yang namanya: CodeArchitects.VB6Library.dll, Setelah itu saya tekan Tombol Open . Lebih jelasnya perhatikan gambar di bawah ini.

8. Maka secara otomatis seluruh component Library VB6 akan ter-ceklist yang mengindikasikan semua component VB6 tersebut akan di tampilkan pada ToolBox Plat Form Visual Basic 2008 Express Edition yang saya miliki. Lebih jelasnya perhatikan gambar di bawah ini.

9. Terakhir kalinya saya tekan Tombol OK . Pada jendela Visual Basic 2008 Express Edition, saya tekan Tab File kemudian saya Klik New Project. Hasil Plat_Form dan ToolBox-nya perhatikan gambar paling atas.

Untuk coding Script menggunakan component Library VB6 pada Plat Form Visual Basic 2008 Express Edition tentunya tidak akan sama ketika kita menggunakannya pada Plat Form Visual Basic 6/ pada Plat Formnya sendiri.

Nantinya Sebagai pembanding antara Coding Script Visual Basic 6 dibandingkan dengan Component Library VB6 pada Plat Form Visual Basic 2008 Express Edition akan saya tampilkan dalam contoh aplikasi yang sederhana.

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

3D Graphics Visual Basic 2008 Express Edition

2010-08-17T22:40:00.000-07:00

Aplikasi kali ini saya akan memvisualisasikan Graphic 3D Form Paint. Baru-baru ini, saya iseng-iseng mencari tutorial programming Graphic 3D dan menemukan contoh script programnya. Source Code Tutorialnya ===>>> Klik Disini, mengamati coding script programming-nya membuat kepala Nyut-nyutan,....

Kok bisa yahhhh programmer neh coding script kayak beginiannnn......dan Saya sangat berharap menemukan suatu celah atau inspirasi untuk dikembangkan menjadi graphic 3D yang lebih aplikative (harapannya sehh........). Graphic 3D yang ditampilkan berupa Cube 3D.

Sekarang saya coba menampilkan hasil visual dari Script VB.net dari Source Code ===>> Disini Klik Neh.... Tutorialnya. Hasil visualnya perhatikan gambar di atas.

ToolBox yang saya pergunakan, perhatikan tabel di bawah ini:

ToolBox	Properties
1 UserForm	Name: UserForm1 Text: Programming Graphics 3D V. Hutabalian's Blog

Desain Form dari tabel ToolBox di atas, perhatikan gambar di bawah ini.

Setelah selesai mempersiapkan desain Form, dengan mensetting properties Form sesuai dengan yang saya inginkan. Kemudian klik kanan pada Form, pilih View Code saya mengetikkan Source Program di bawah ini.

Script Visual Basic 2008 Express Edition:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'3D Programming Graphics Visual Basic Express Edition'
'======================================================================='
' Source code Tutorial===>>> Klik Disini'
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Visual By: Verynandus Hutabalian'
' Publish to V. Hutabalian's Blog 18 Agustus 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'

Imports System
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Enum RotateHorizontal
Left = -1
Center = 0
Right = 1
End Enum

Public Enum RotateVertical
Up = -1
Center = 0
Down = 1
End Enum

Public Enum CubeSides
Left
Right
Top
Bottom
Front
Back
End Enum

Public Structure Cube
Private FLocation As Point
Private FHeight As Integer
Private FWidth As Integer
Private FDepth As Integer
Private FCenter As Point
Private FPath As GraphicsPath
Private FRotateX As RotateHorizontal
Private FRotateY As RotateVertical

Public Property Location() As Point
Get
Return FLocation
End Get
Set(ByVal Value As Point)
FLocation = Value
Changed()
End Set
End Property

Public Property Height() As Integer
Get
Return FHeight
End Get
Set(ByVal Value As Integer)
FHeight = Value
Changed()
End Set
End Property

Public Property Width() As Integer
Get
Return FWidth
End Get
Set(ByVal Value As Integer)
FWidth = Value
Changed()
End Set
End Property

Public Property Depth() As Integer
Get
Return FDepth
End Get
Set(ByVal Value As Integer)
FDepth = Value
Changed()
End Set
End Property

Public Property Center() As Point
Get
Return FCenter
End Get
Set(ByVal Value As Point)
FCenter = Value
Changed()
End Set
End Property

Public ReadOnly Property Path() As GraphicsPath
Get
Return FPath
End Get
End Property

Public Property RotateX() As RotateHorizontal
Get
Return FRotateX
End Get
Set(ByVal Value As RotateHorizontal)
FRotateX = Value
Changed()
End Set
End Property

Public Property RotateY() As RotateVertical
Get
Return FRotateY
End Get
Set(ByVal Value As RotateVertical)
FRotateY = Value
Changed()
End Set
End Property

Public ReadOnly Property X() As Integer
Get
Return FLocation.X
End Get
End Property

Public ReadOnly Property Y() As Integer
Get
Return FLocation.Y
End Get
End Property

'Return the rectangle that bounds the entire polygon
'representing the cube
Public ReadOnly Property BoundsRect() As Rectangle
Get
If (FPath Is Nothing) Then
Return New Rectangle(0, 0, 0, 0)
Else
Dim r As RectangleF = Path.GetBounds()
' Implicit conversion from single to integer,
' really only available in VB
Return New Rectangle(r.X, r.Y, r.Width, r.Height)
End If
End Get
End Property

Public ReadOnly Property Item(ByVal index As CubeSides) As Point()
Get
Select Case index
Case CubeSides.Back
Return Back
Case CubeSides.Front
Return Front
Case CubeSides.Left
Return Left
Case CubeSides.Right
Return Right
Case CubeSides.Top
Return Top
Case CubeSides.Bottom
Return Bottom
Case Else
Return Front
End Select
End Get
End Property

Public ReadOnly Property Top() As Point()
Get
Return GetTop(Location, Height, Width, Depth, _
RotateX, RotateY)
End Get
End Property

Public ReadOnly Property Bottom() As Point()
Get
Return GetBottom(Location, Height, Width, Depth, _
RotateX, RotateY)
End Get
End Property

Public ReadOnly Property Left() As Point()
Get
Return GetLeft(Location, Height, Width, Depth, _
RotateX, RotateY)
End Get
End Property

Public ReadOnly Property Right() As Point()
Get
Return GetRight(Location, Height, Width, Depth, _
RotateX, RotateY)
End Get
End Property

Public ReadOnly Property Front() As Point()
Get
Return GetFront(Location, Height, Width, Depth, _
RotateX, RotateY)
End Get
End Property

Public ReadOnly Property Back() As Point()
Get
Return GetBack(Location, Height, Width, Depth, _
RotateX, RotateY)
End Get
End Property

Public Sub New(ByVal x As Integer, ByVal Y As Integer, _
ByVal height As Integer, ByVal width As Integer, _
ByVal depth As Integer, ByVal rotateX As RotateHorizontal, _
ByVal rotateY As RotateVertical)

FPath = New GraphicsPath
FLocation = New Point(x, Y)
FHeight = height
FWidth = width
FDepth = depth
FRotateX = rotateX
FRotateY = rotateY
FCenter = New Point(Location.X + (width + depth / 2 * _
rotateX) / 2, _
Location.Y + (height + depth / 2 * rotateY) / 2)

ConstructPath()

End Sub

Public Sub New(ByVal x As Integer, ByVal Y As Integer, _
ByVal height As Integer, ByVal width As Integer, _
ByVal depth As Integer)

FPath = New GraphicsPath
FLocation = New Point(x, Y)
FHeight = height
FWidth = width
FDepth = depth
FRotateX = RotateHorizontal.Right
FRotateY = RotateVertical.Up
FCenter = New Point(Location.X + (width + depth / 2 * _
RotateX) / 2, _
Location.Y + (height + depth / 2 * RotateY) / 2)

ConstructPath()

End Sub

Public Sub New(ByVal point As Point, _
ByVal height As Integer, ByVal width As Integer, _
ByVal depth As Integer)

FPath = New GraphicsPath
FLocation = point
FHeight = height
FWidth = width
FDepth = depth
FRotateX = RotateHorizontal.Right
FRotateY = RotateVertical.Up
FCenter = New Point(Location.X + (width + depth / 2 * _
RotateX) / 2, _
Location.Y + (height + depth / 2 * RotateY) / 2)

ConstructPath()

End Sub

Private Sub Changed()
ConstructPath()
End Sub

Private Sub ConstructPath()
FPath = New GraphicsPath
Path.AddLines(GetBack(Location, Height, Width, Depth, _
RotateX, RotateY))
Path.AddLines(GetFront(Location, Height, Width, Depth, _
RotateX, RotateY))
Path.AddLines(GetTop(Location, Height, Width, Depth, _
RotateX, RotateY))
Path.AddLines(GetBottom(Location, Height, Width, Depth, _
RotateX, RotateY))
Path.AddLines(GetLeft(Location, Height, Width, Depth, _
RotateX, RotateY))
Path.AddLines(GetRight(Location, Height, Width, Depth, _
RotateX, RotateY))
End Sub

Private Function GetXFromCenter(ByVal newCenter As Point) _
As Integer
Return newCenter.X - (FWidth + FDepth / 2 * FRotateX) / 2
End Function

Private Function GetYFromCenter(ByVal newCenter As Point) _
As Integer
Return newCenter.Y - (FHeight + FDepth / 2 * FRotateY) / 2
End Function

Public Sub FilleRectangle(ByVal boundingRect As Rectangle)
Dim x As Integer
If (FRotateX = RotateHorizontal.Right) Then
x = 0
Else
x = Math.Abs(Depth / 2 * FRotateX)
End If

Dim y As Integer
If (FRotateY = RotateVertical.Down) Then
y = 0
Else
y = Math.Abs(Depth / 2 * RotateY)
End If

FLocation = New Point(x, y)
FWidth = boundingRect.Width - Depth / 2 - 1
FHeight = boundingRect.Height - Depth / 2 - 1
ConstructPath()
End Sub

Public Function GetCube() As GraphicsPath
Return FPath
End Function

Public Function GetSides(ByVal theseSides As CubeSides()) _
As GraphicsPath
Dim newPath As GraphicsPath = New GraphicsPath
Dim I As Integer
For I = 0 To theseSides.Length - 1
newPath.AddLines(Item(theseSides(I)))
Next I

Return newPath
End Function

Public Shared Function GetXOffset(ByVal depth As Integer, _
ByVal rotateX As RotateHorizontal) As Integer

Return depth / 2 * rotateX
End Function

Public Shared Function GetYOffset(ByVal depth As Integer, _
ByVal rotateY As RotateVertical) As Integer

Return depth / 2 * rotateY
End Function

Public Shared Function GetTop(ByVal point As Point, _
ByVal height As Integer, _
ByVal width As Integer, _
ByVal depth As Integer, _
ByVal rotateX As RotateHorizontal, _
ByVal rotateY As RotateVertical) _
As Point()

Return New Point() { _
New Point(point.X, point.Y), _
New Point(point.X + GetXOffset(depth, rotateX), point.Y + _
GetYOffset(depth, rotateY)), _
New Point(point.X + width + GetXOffset(depth, rotateX), _
point.Y + GetYOffset(depth, rotateY)), _
New Point(point.X + width, point.Y), _
New Point(point.X, point.Y)}
End Function

Public Shared Function GetLeft(ByVal point As Point, _
ByVal height As Integer, _
ByVal width As Integer, ByVal depth As Integer, _
ByVal rotateX As RotateHorizontal, _
ByVal rotateY As RotateVertical)

Return New Point() {New Point(point.X, point.Y), _
New Point(point.X + GetXOffset(depth, rotateX), _
point.Y + GetYOffset(depth, rotateY)), _
New Point(point.X + GetXOffset(depth, rotateX), _
point.Y + GetYOffset(depth, rotateY) + height), _
New Point(point.X, point.Y + height), _
New Point(point.X, point.Y)}
End Function

Public Shared Function GetRight(ByVal point As Point, _
ByVal height As Integer, _
ByVal width As Integer, ByVal depth As Integer, _
ByVal rotateX As RotateHorizontal, ByVal rotateY _
As RotateVertical)

Return New Point() {New Point(point.X + width, point.Y), _
New Point(point.X + width + GetXOffset(depth, rotateX), _
point.Y + GetYOffset(depth, rotateY)), _
New Point(point.X + width + GetXOffset(depth, rotateX), _
point.Y + GetYOffset(depth, rotateY) + height), _
New Point(point.X + width, point.Y + height), _
New Point(point.X + width, point.Y)}
End Function

Public Shared Function GetBottom(ByVal point As Point, _
ByVal height As Integer, _
ByVal width As Integer, ByVal depth As Integer, _
ByVal rotateX As RotateHorizontal, _
ByVal rotateY As RotateVertical) As Point()

Return New Point() {New Point(point.X, point.Y + height), _
New Point(point.X + GetXOffset(depth, rotateX), _
point.Y + GetYOffset(depth, rotateY) + height), _
New Point(point.X + width + GetXOffset(depth, rotateX), _
point.Y + GetYOffset(depth, rotateY) + height), _
New Point(point.X + width, point.Y + height), _
New Point(point.X, point.Y + height)}
End Function

Public Shared Function GetFront(ByVal point As Point, _
ByVal height As Integer, _
ByVal width As Integer, ByVal depth As Integer, _
ByVal rotateX As RotateHorizontal, ByVal rotateY _
As RotateVertical) As Point()

Return New Point() {point, New Point(point.X + width, point.Y), _
New Point(point.X + width, point.Y + height), _
New Point(point.X, point.Y + height), point}

End Function

Public Shared Function GetBack(ByVal point As Point, _
ByVal height As Integer, _
ByVal width As Integer, ByVal depth As Integer, _
ByVal rotateX As RotateHorizontal, _
ByVal rotateY As RotateVertical) As Point()

Dim topLeft As Point = New Point(point.X + _
GetXOffset(depth, rotateX), _
point.Y + GetYOffset(depth, rotateY))

Dim topRight As Point = New Point(point.X + width + _
GetXOffset(depth, rotateX), point.Y + _
GetYOffset(depth, rotateY))

Dim bottomRight As Point = New Point(point.X + width + _
GetXOffset(depth, rotateX), point.Y + height + _
GetYOffset(depth, rotateY))

Dim bottomLeft As Point = New Point(point.X + _
GetXOffset(depth, rotateX), point.Y + height + _
GetYOffset(depth, rotateY))

Return New Point() {topLeft, topRight, bottomRight, _
bottomLeft, topLeft}

End Function

End Structure
Public Class Form1
Inherits System.Windows.Forms.Form

Private cube As Cube = New Cube(100, 100, 100, 200, 50)

Private Sub Form1_Paint(ByVal sender As Object, _
ByVal e As System.Windows.Forms.PaintEventArgs) _
Handles MyBase.Paint
e.Graphics.DrawPath(Pens.Red, cube.GetCube())
End Sub
End Class

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

Saya sangat berharap bisa mempelajari dan mengembangkan script programming Tutorial Graphics 3D di atas dalam bentuk yang aplikative... Untuk sekarang masih di Plototin Doang......Bagi rekan-rekan yang lebih berpengalaman di tunggu saran-sarannya dan kreativitasnya... Semoga dapat Berguna.

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

Plot Graphic Sin, Cos, Tan Vs PictureBox

2010-08-10T12:40:00.000-07:00

Aplikasi kali ini saya akan menampilkan Graphic Sinus, Cosinus dan Tangen pada PictureBox. Nilai Amplitudo & Frekuesi Graphic dapat di atur dan Graphic tersebut dapat ditampilkan satu persatu atau sekaligus. Hasil tampilannya perhatikan Gambar di atas.

ToolBox yang saya pergunakan, perhatikan tabel di bawah ini.

ToolBox	Properties
1 UserForm	Name: UserForm1 Text: Graph Sin, Cos, Tan V. Hutabalian's Blog
1 PictureBox	Name: PictureBox1
2 Label	Name:Label1 & 2 Text Label1: Amplitudo Text Label2: Frekuensi
3 RadioButton	Name1:Sinus Name2:Cosinus Name3:Tangent Text Sinus: Sinus Graph Text Cosinus: Cosinus Graph Text Tangent: Tangen Graph
2 Button	Name:Button1& 2
2 ComboBox	Name:ComboBox1& 2

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 Graph Sin, Cos, Tan with VB 2008 Express Edition:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'Graph Sin, Cos, Tan V. Hutabalian's Blog'
'======================================================================='
' '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Programing By: Verynandus Hutabalian'
' Publish to V. Hutabalian's Blog 11 Agustus 2010 '
' Copyright © ==>>> Verynandus Hutabalian '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'

Public Class Form1
Dim dat As Integer
Public x As Double
Public y As Double

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ix As Integer = PictureBox1.Width
Dim iy As Integer = PictureBox1.Height
Dim Values(ix) As Double

Dim OldPoint = New Point(0, PictureBox1.Height \ 2)

If Sinus.Checked = True Then
For Me.x = 0 To Values.GetUpperBound(0)
y = iy \ 2 + ComboBox1.Text * 15 * Math.Sin(2 * 3.14159 * ComboBox2.Text * x / 3.5)
Dim NewPoint = New Point(x, y)
PictureBox1.CreateGraphics.DrawLine(Pens.Yellow, OldPoint, NewPoint)
OldPoint = NewPoint
Next x

Else

If Cosinus.Checked Then
For Me.x = 0 To Values.GetUpperBound(0)
y = iy \ 2 + ComboBox1.Text * 15 * Math.Cos(2 * 3.14159 * ComboBox2.Text * x / 3.5)
Dim NewPoint = New Point(x, y)
PictureBox1.CreateGraphics.DrawLine(Pens.Yellow, OldPoint, NewPoint)
OldPoint = NewPoint
Next x

Else

If Tangent.Checked Then

For Me.x = 0 To Values.GetUpperBound(0)
y = iy \ 2 + ComboBox1.Text * 15 * Math.Tan(2 * 3.14159 * ComboBox2.Text * x / 3.5)
Dim NewPoint = New Point(x, y)
PictureBox1.CreateGraphics.DrawLine(Pens.Yellow, OldPoint, NewPoint)
OldPoint = NewPoint
Next

End If
End If
End If
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

ComboBox1.Text = 1
ComboBox2.Text = 0.1
Dim dat1 As Double

For i As Integer = 1 To 10 Step 1
dat = i

ComboBox1.Items.Add(dat)

ComboBox1.Refresh()
Next
For k As Double = 0.1 To 1 Step 0.1
dat1 = k
ComboBox2.Items.Add(dat1)
ComboBox2.Refresh()

Next

PictureBox1.BackColor = Color.Black
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
PictureBox1.Refresh()
End Sub

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim L_Skala As Double = PictureBox1.Width
Dim T_Skala As Double = PictureBox1.Height

Dim V_Grid As Double = 40
Dim V_Grid1 As Double = L_Skala / V_Grid

Dim H_Grid As Double = 8
Dim H_Grid1 As Double = L_Skala / H_Grid

Dim Label_T = 50
Dim Lbl_Grid As Double = L_Skala / Label_T

Dim Label_T1 = 40
Dim Lbl_Grid1 As Double = L_Skala / Label_T

Dim TickSP As New Point(PictureBox1.Width - 5, PictureBox1.Height - 175)
Dim TickEP As New Point(PictureBox1.Width - 5, PictureBox1.Height - 65)
Dim TickSP1 As New Point(PictureBox1.Width - 5, PictureBox1.Height - 17)
Dim TickEP1 As New Point(PictureBox1.Width - 5, PictureBox1.Height - 65)

Dim TextStartX As Integer = CInt(PictureBox1.Width - L_Skala + 357)
Dim TextBrsh As Brush = New SolidBrush(Color.GreenYellow)
Dim TextStartX1 As Integer = CInt(PictureBox1.Width - L_Skala - 5)

For k As Single = 1 To 10 Step 1
e.Graphics.DrawString(CStr(k), New Font("Verdana", 8, FontStyle.Regular), Brushes.Red, 340, TickSP.Y)
TickSP.Y -= Lbl_Grid
TickEP.Y -= Lbl_Grid
Next
For j As Single = -10 To -1 Step 1
e.Graphics.DrawString(CStr(j), New Font("Verdana", 8, FontStyle.Regular), Brushes.Red, 335, TickSP1.Y)
TickSP1.Y -= Lbl_Grid1
TickEP1.Y -= Lbl_Grid1
Next

For i As Integer = 1 To 20 Step 1
e.Graphics.DrawString(CStr(i), New Font("Verdana", 8, FontStyle.Regular), TextBrsh, TextStartX, CInt(PictureBox1.Height - 155))
TextStartX += V_Grid1
Next

For i As Integer = -20 To -1 Step 1
e.Graphics.DrawString(CStr(i), New Font("Verdana", 8, FontStyle.Regular), TextBrsh, TextStartX1, CInt(PictureBox1.Height - 155))
TextStartX1 += V_Grid1
Next

e.Graphics.DrawString("V. Hutabalian's Blog Graphic Sin, Cos, Tan", New Font("Verdana", 10, FontStyle.Regular), Brushes.Silver, 5, 5)

End Sub

End Class

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

Kemudian pilih Graph mana yang ingin ditampilkan dengan menentukan Amplitudo dan Frekuensi.

Graph Sinus:

Graph Cosinus:

Graph Tangen:

Graph Sinus, Cosinus, Tangen:

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

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

Convert Word 2 PDF With PDF Online

2010-08-09T18:04:00.000-07:00

Layanan Online merupakan layanan yang praktis, pakai atau gunakan ketika diperlukan. Apalagi hanya untuk mengconvert suatu File dalam format yang berbeda, saya tidak perlu mendownload software aplikasinya dan menginstallnya ke komputer. Software yang diberikan kadangkala Free Trial/limited, yang setelah batas waktu pemakaian yang diberikan tidak bisa digunakan kembali dan akhirnya jadi sampah tak berarti, kadangkala harus di update secara berkala dan yang paling mengesalkan hasil/output PDF-nya bertuliskan nama lisensi produk converternya (Huhhhhhhhhhhhhhhhhhh). Mungkin hal ini merupakan suatu hal yang tidak asing bagi sebagian pengunjung Blog saya tapi ada kemungkinan ini merupakan hal yang baru bagi sebagian pengunjung lainnya.

Saya menggunakan layanan online Word2PDF Converter Situsnya ===>>> Klik Disini Bro/Sis.

Perhatikan langkah-langkahnya sebagai berikut:

Pertama sekali, tentunya buka layanan onlinenya ===>>> Situsnya .

Kedua, Perhatikan gambar tampilan situsnya. Terdapat beberapa menu: Doc2PDF, PDF2Word, PDF2HTML, Web2PDF. Misalkan sebagai contoh saya meng-convert file document word saya ke format PDF, kemudian Tekan Tombol "Convert Documents to PDF" . Perhatikan gambar di bawah ini.

Ketiga, Tekan tombol Browse. Kemudian saya mencari keberadaan file yang akan saya convert ke format PDF di komputer saya. Setelah itu saya mengisikan alamat email saya, agar hasil convertnya dikirimkan langsung ke alamat email yang saya berikan tersebut. Perhatikan gambar dibawah ini.

Gambar ini setelah File di upload dan alamat email saya yang telah diisikan.

Keempat, pada laman yang sama terdapat tombol Conver to PDF. Klik Tombol tersebut. Perhatikan gambar di bawah ini.

Kelima, Maka hasil PDFnya akan dikirim ke alamat email yang saya berikan. Perhatikan gambar di bawah ini.

Keenam, untuk mendownloadnya Saya harus membuka email saya. Perhatikan gambar di bawah ini, Inbox email saya yang telah di kirimkan hasilnya.

Ketujuh, Buka dengan mengklik pesan yang dikirimkan. Perhatikan gambar di bawah ini setelah pesan di buka.

Saya menarik Scroll di kiri email saya karena pesan yang di kirimkan terlalu panjang. Saya meng-cut gambarnya menjadi beberapa bagian, Hasil convert PDFnya ada di bagian paling bawah dan saya menekan download untuk menyimpan file tersebut ke komputer saya.

Anda bisa menggunakan fasilitas converter lainya tidak hanya Word2PDF tapi dapat juga dengan format converter yang berbeda pada layanan yang diberikan oleh situs tersebut, Selamat mencoba.

Download Video YouTube Melalui Layanan Online KeepVid

2010-08-04T05:06:00.000-07:00

Teringat sama teman di kosan yang menanyakan bagaimana men-download video kesukaannya dilayanan YouTube. Mungkin untuk sebagian pengunjung Blog saya hal ini bukan hal yang baru, namun mungkin ada diantara pembaca Blog saya hal ini mungkin saja, merupakan hal yang baru seperti yang dirasakan teman saya di kosan dahulu kala.

Saya kebetulan nggak memiliki aplikasi sedotan maut Download Manager, jadi saya lebih senang menggunakan layanan Online. Langkah-langkahnya perhatikan uraian di bawah ini:

Petama, Buka layanan situs download videonya disini ====>>>> KeepVid. Tampilan situsnya perhatikan gambar di bawah ini:

Kedua, Buka layanan situs penyedia videonya disini ====>>>> YouTube.

Ketiga, Misalkan saya mendownload video Mantan Pacar saya, Shakira - Waka Waka (This Time for Africa, The Official 2010 FIFA WorldCup). Untuk lebih jelasnya perhatikan gambar di bawah ini: link YouTube nya ====>>>> Shakira Sang Mantan

Keempat, Perhatikan tombol di bawah video dengan tulisan < " Embed " > .

Kelima, Klik tombol <" Embed "> . Maka akan muncul kotak dengan Tulisan HTML yang nantinya terdapat Link URL Video yang akan saya Download, Perhatikan Gambar di bawah ini:

Keenam, Sorot kursor Anda pada Kotak tersebut hingga berwarna BIRU Perhatikan Langkah KELIMA, kemudian tekan tombol kombinasi CTRL + C . Lalu COPY PASTE ke Notepad atau ke Windows Microsoft Word, saya meng-copy ke notepad. Perhatikan gambar di bawah ini.

Ketujuh, Sortir kembali untuk mencari alamat URL video-nya. Perhatikan gambar di bawah ini, Alamat URL yang sebenarnya adalah yang saya sorot dengan latar warna Biru saya akan cari yang bertuliskan seperti ini: value="http://www.youtube.com/v/pRpeEdMmmQ0&hl=en_US&fs=1">. Link URL yang saya inginkan: http://www.youtube.com/v/pRpeEdMmmQ0&hl=en_US&fs=1. Lain video, lain pula URL-nya (hanya contoh video mantan saya).

Kedelapan, Setelah di sorot alamat URL-nya, tekan tombol kombinasi CTRL + C . Kemudian Buka layanan online Download Video yang tadi Anda Buka KeepVid. Kemudian Copy Paste pada Kotak URL, perhatikan gambar di bawah ini:

Kesembilan, Tekan tombol Download di samping Kotak URL yang sudah di Copy-kan alamat URL Video yang akan saya Download. Perhatikan gambar di bawah ini.

Kesepuluh, Setelah beberapa saat loading..... akan muncul Link download video-nya dengan berbagai bentuk Format Video misalkan FLV, 3GP, MP4 dengan pilihan beberapa item kualitas/resolusi video-nya yang ingin di Download. Silakan Anda pilih Sendiri Format yang Anda inginkan!!!!!!!!!!.

Jika kecepatan koneksi internet Anda rendah, kadangkala akan terjadi error namun hal itu tidak masalah Anda hanya tinggal me-reload/refresh kembali. Dengan sedikit kesabaran, Link yang Anda cari akan muncul dengan sendirinya.

Selamat Mencoba........ Jika Anda belum tahu dan Anda Seorang pengunjung dan penikmat jejaring sosial YouTube.

Plotting Real Time Chart Logaritmic VB 2008 Express Edition

2010-08-02T13:38:00.000-07:00

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.

Plotting Real Time AxMsChart VB 2008 Express Edition

2010-07-23T01:50:00.000-07:00

Aplikasi kali ini saya akan menampilkan cara plotting data Real Time menggunakan object component MSCHRT20.OCX dari product Visual Basic sendiri. Biasanya component ini sudah tersedia ketika menginstall Visual Basic 6.0 di PC kita sehingga hanya diharuskan untuk mengaktivasi keberadaan component tersebut pada ToolBox. Product Visual Basic 2008 Express Edition tidak menyediakan component MSCHRT20.OCX sehingga kita di haruskan men-download component ini secara gratis di internet.

Control code script MSCHRT20.OCX pada aplikasi Visual Basic 2008 Express Edition sedikit berbeda dengan coding script pada Visual Basic 6.0. Hasil tampilannya perhatikan gambar di atas.

ToolBox yang akan saya pergunakan, perhatikan tabel TollBox di bawah ini:

ToolBox	Properties
1 UserForm	Name: UserForm1 Text: AxMschart Plotting Data Real Time V. Hutabalian's Blog
1 AxMsChart	Name:MsChart1
2 Label	Name:Label1 & 2
1 HScrollBar	Name:HScrollBar1
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 AxMschart VB 2008 Express Edition:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'AxMschart Plotting Data Real Time V. Hutabalian's Blog'
'======================================================================='
' '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Programing By: Verynandus Hutabalian'
' Publish to V. Hutabalian's Blog 23 July 2010 '
' Copyright © ==>>> Verynandus Hutabalian '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Timer1.Interval = 1000
Label1.Text = "Data :"
MSChart1.ColumnCount = 1
MSChart1.RowCount = 10
MSChart1.chartType = MSChart20Lib.VtChChartType.VtChChartType2dLine
MSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.Auto = False
MSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.Minimum = -10
MSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.Maximum = 10
MSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).ValueScale.MajorDivision = 10
MSChart1.Plot.SeriesCollection(1).Pen.Width = 25
MSChart1.TitleText = "Ploting Data Real Time AxMschart V. Hutabalian's Blog"
MSChart1.Plot.Backdrop.Fill.Style = MSChart20Lib.VtFillStyle.VtFillStyleBrush
MSChart1.Plot.Backdrop.Fill.Brush.FillColor.Set(0, 0, 0)
MSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdX).AxisTitle.Text = "Pergeseran HScroll"
MSChart1.Plot.Axis(MSChart20Lib.VtChAxisId.VtChAxisIdY).AxisTitle.Text = "Nilai HScroll"
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Data_HScroll As Integer
Dim n As Integer
Data_HScroll = CStr(HScrollBar1.Value)
Label2.Text = Data_HScroll
n = Label2.Text
For i As Integer = 1 To MSChart1.RowCount - 1
MSChart1.Row = i + 1
n = MSChart1.Data
MSChart1.Row = i
MSChart1.Data = n
Next
MSChart1.Column = 1
MSChart1.Row = MSChart1.RowCount
MSChart1.Data = Data_HScroll

End Sub

End Class

Setelah Anda mengetikkan listing source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini. Gerakkan Scroll pada Form untuk melihat nilai Plotting datanya.

Pengembangan program dapat anda variasikan sesuai dengan keinginan Anda.

Artikel terkait:
MSChart vs Visual Basic 2008 Express Edition===>>Klik disini
BarGraph with AxMSChart20Lib.AxMSChart===>>Klik disini

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

Chart Fungsi Logaritmic VB 2008 Express Edition

2010-07-21T14:50:00.000-07:00

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:

Sekarang, saya akan menampilkan hasil konversinya menggunakan Visual Basic 2008 Express Edition. Perhatikan tabel Toolbox yang akan saya pergunakan di bawah ini:

ToolBox	Properties
1 UserForm	Name: UserForm1 Text: Graphic menggunakan Fungsi Logaritmic V. Hutabalian's Blog
1 PictureBox	Name:PictureBox1

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
'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.

Convert Jam Analog VB 6.0 to VB 2008 Express Edition

2010-07-15T17:29:00.000-07:00

Animasi Flash Jam Analog di atas, visual tampilannya akan serupa dengan aplikasi Jam Analog VB 6.0, dari Aplikasi VB 6.0 tersebut akan dikonvert ke aplikasi VB 2008 Express Edition. Pada awalnya Saya kebingungan bagaimana mengkonvertnya, akhirnya dengan sedikit kesabaran dengan meninggikan asas Try and Error akhirnya dapat terpecahkan. Tampilan Jam Analog dengan VB 6.0. Perhatikan gambar di bawah ini.

Script VB 6.0 Jam Analog sebagai berikut:

Script Jam Analog VB 6.0 di atas akan kita konvert ke VB 2008 Express Edition. Perhatikan langkah-langkahnya, Hasil tampilannya lihat gambar di bawah ini:

Toolbox yang akan kita pergunakan perhatikan tabel di bawah ini:

ToolBox	Properties
1 UserForm	Name: UserForm1 Text: V. Hutabalian's Blog Jam Analog"
3 LineShape	Name:LineShape1-3

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

Setelah selesai mendesai 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 Jam Analog VB 2008 Express Edition:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
' Convert Jam Analog 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 16 July 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Imports Microsoft.VisualBasic
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Drawing.Drawing2D
Imports System.Math
Public Class Form1
Inherits System.Windows.Forms.Form
Dim midX As Single
Dim midY As Single
Dim HourX As Single
Dim HourY As Single
Dim HourLength As Integer
Dim MinLength As Integer
Dim secondLength As Integer
Dim Length As Single
Const PI = 3.1459

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim newfont As Font = New Font("Arial", 10)
Dim g As Graphics = Graphics.FromHwnd(Me.Handle)

Me.BackColor = Color.Black
Me.ForeColor = Color.White
LineShape1.BorderColor = Color.Blue
LineShape2.BorderColor = Color.Green
LineShape3.BorderColor = Color.Red
LineShape1.BorderWidth = 4
LineShape2.BorderWidth = 3
LineShape3.BorderWidth = 2

midX = Me.ClientSize.Width / 2
midY = Me.ClientSize.Height / 2
LineShape1.X1 = midX
LineShape1.Y1 = midY
LineShape2.X1 = midX
LineShape2.Y1 = midY
LineShape3.X1 = midX
LineShape3.Y1 = midY
If Me.ClientSize.Height < Me.ClientSize.Width Then
HourLength = (Me.ClientSize.Height / 2) * (50 / 100)
MinLength = (Me.ClientSize.Height / 2) * (75 / 100)
secondLength = (Me.ClientSize.Height / 2) * (85 / 100)
Length = (Me.ClientSize.Height / 2) * (85 / 100)
Else
HourLength = (Me.ClientSize.Width / 2) * (50 / 100)
MinLength = (Me.ClientSize.Width / 2) * (75 / 100)
secondLength = (Me.ClientSize.Width / 2) * (85 / 100)
Length = (Me.ClientSize.Width / 2) * (85 / 100)
End If

End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim ValueFont As New Font("Arial", 12, FontStyle.Regular)
Dim I As Single
For I = 1 To 12 Step 1

HourX = Length * Cos(PI * (30 * I - 90) / 180) + midX
HourY = Length * Sin(PI * (30 * I - 90) / 180) + midY
Me.CreateParams.X = HourX
Me.CreateParams.Y = HourY
Me.CreateGraphics.DrawString(I.ToString, ValueFont, Brushes.GreenYellow, HourX, HourY)
Me.CreateGraphics.DrawString("V. Hutabalian's Blog Jam Analog VB 6.0", ValueFont, Brushes.Tomato, 70, 135)
Me.CreateGraphics.DrawString("Convert" & " " & " to", ValueFont, Brushes.Cyan, 155, 173)
Me.CreateGraphics.DrawString("VB 2008 Express Edition", ValueFont, Brushes.Gold, 135, 211)
Next I
End Sub

Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Me.Refresh()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Hours As Integer
Dim minutes As Integer
Dim Seconds As Integer
Dim TrueHours As Integer
Me.Text = TimeOfDay
Hours = Hour(TimeOfDay)
minutes = Minute(TimeOfDay)
Seconds = Second(TimeOfDay)
TrueHours = Hours + minutes / 60
LineShape1.X2 = HourLength * Cos(PI * (30 * TrueHours - 90) / 180) + midX
LineShape1.Y2 = HourLength * Sin(PI * (30 * TrueHours - 90) / 180) + midY
LineShape2.X2 = MinLength * Cos(PI * (6 * minutes - 90) / 180) + midX
LineShape2.Y2 = MinLength * Sin(PI * (6 * minutes - 90) / 180) + midY
LineShape3.X2 = secondLength * Cos(PI * (6 * Seconds - 90) / 180) + midX
LineShape3.Y2 = secondLength * Sin(PI * (6 * Seconds - 90) / 180) + midY
End Sub
End Class

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

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

BarGraph with AxMSChart20Lib.AxMSChart

2010-07-11T10:28:00.000-07:00

BarGraph data sample menggunakan componnent MSCHRT20.OCX. Perhatikan hasil tampilan grafiknya pada gambar atas. Seandainya component ini tidak ada pada toolbox componnent Visual Basic 2008 Express Edition yang Anda miliki, maka mau dan harus mau Anda diharuskan untuk mendownload secara gratis di Warnet terdekat, setelah itu tempatkan component tersebut pada folder System32 komputer Anda. Kemudian Buka Visual Basic 2008 Express Edition, arahkan kursor Anda pada Toolbox lalu klik kanan tools pointer, pilih Choose Items...==> Pilih tags COM Components di akhiri dengan mencari dan arahkan kursor Anda pada kotak Microsoft Chart Control,version 6.0 (OLEDB) diakhiri dengan menekan OK. Secara otomatis component Microsoft Chart muncul pada menu Toolbox Anda.

Toolbox yang saya pergunakan, perhatikan tabel di bawah ini:

ToolBox	Properties
1 UserForm	Name: UserForm1 Text: V. Hutabalian Using MSChart Componnent
1 AxMSChart1	Name: MSChart1 TitleText:BarGraph menggunakan Component MSCHRT20.ocx

Desain dari object Toolbox tabel di atas, perhatikan gambar di bawah ini:

Setelah selesai mendesai 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.

Source Program:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
' BarGraph with AxMSChart20Lib.AxMSChart '
'======================================================================='
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' By: V. Hutabalian '
' Publish to V. Hutabalian's Blog 11 Juli 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
MSChart1.chartType = 1
MSChart1.RowCount = 1
MSChart1.ColumnCount = 10
MSChart1.RowLabel = "Data"
For Column = 1 To 10
MSChart1.Column = Column
MSChart1.Data = Column * 10
Next Column
End Sub
End Class

Setelah Anda mengetikkan listing source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar paling atas.

Pengembangan program dapat anda variasikan sesuai dengan keinginan Anda.

Artikel terkait:
MSChart vs Visual Basic 2008 Express Edition===>>Klik disini
MSChart vs Visual Basic 2008 Express Edition===>>Klik disini

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

Persinggahan Hidupku di Jalanan Trotoar

2010-07-01T08:45:00.000-07:00

Tanggal 19 Januari 2010, aku mendapat jadwal panggilan wawancara melalui telfon selular (HP), sebut saja Pak Harry diseberang sana yang berinteraksi melalui telfon selularku pada saat itu. Pak Harry dengan ramah menyampaikan jadwal interview dan segala sesuatu yang harus aku bawa pada hari Selasa, berlokasi di gedung Aryo Bimo lantai 12 Jalan HR. Rasunah Said, Kuningan, Jakarta Selatan jam 10.30 WIB di Globaltv. Aku mendapat informasi jadwal interview tersebut sehari sebelumnya, tepatnya hari Senin tertanggal 18 Januari 2010 Pukul 17:20 WIB tertera pada layar display HPku ketika bunyi panggilan masuk. Perasaanku pada hari tersebut biasa-biasa aja, tidak seperti perasaan ketika mendapat panggilan pertama kalinya atas pengajuan lamaran ketika baru lulus, yang pada saat itu rasanya tak kepalang bahagia mungkin perasaan biasa yang timbul karena sudah seringnya dapat panggilan interview dan berakhir dengan sedikit rasa kecewa karena hanya mentok sampai saat itu juga yang berujung tidak ada panggilan untuk masuk kerja. Sebenarnya jauh di dalam hatiku tersimpan rasa bahagia dan secercah harapan atas jadwal panggilan tersebut, rasa biasa itu mungkin hanya emosi sesaat atas pengalaman yang aku dapatkan di hari-hari sebelumnya. Aku tetap merasa bersyukur teramat sangat kepada Tuhan, Hal itu terucap sebelum malam menjemput dan membelaiku ke pembaringan tempat tubuh fisikku rebah tak berdaya.

Semua rencana telah aku persiapkan pada malam itu juga, tentunya pertama sekali aku menanyakan kepada rekan-rekan satu kosan yang pada saat itu memang lagi ngumpul dan ngobrol santai (disaat itulah aku mendapat telfon dari Pak Harry). Aku menanyakan lokasi Gedung tersebut pada rekan-rekanku yang ikut mendengarkan pembicaraaku pada saat itu, sebut saja namanya Kumboh dan Uli, memang hanya ada kami bertiga pada saat itu. Kami nimbrung di kamar rekan saya Uli dan tentunya rekan-rekanku itu adalah pria hebat yang lagi menunggu dan membutuhkan sebuah pekerjaaan dari beberapa perusahaan yang akan beruntung merekrut kami karena seperti yang aku katakan "kami adalah pria-pria hebat".

Kedua rekanku memberikan segala sesuatu informasi yang terbaik yang akan aku lakukan ke esokan harinya dan dari hasil kesepakatan pada malam itu rekanku Kumboh menawarkan diri untuk menghantarkanku naik motornya ke lokasi tersebut. Aku memang terhitung baru berdomisili di kawasan sekitar Jakarta dan tidak begitu banyak mengenal lokasi yang ada di Jakarta walaupun kadang kala lokasi itu sangat begitu terkenal di kawasan Jakarta. Kumboh sudah hidup dan menjejakkan kaki di jakarta sejak rekanku ini lahir. Dia begitu sangat mengenal Jakarta dan tentunya itu hal yang mudah untuknya. Aku mengenal kedua rekanku dari perkenalan sesama penghuni kosan yang berada di Kelapa Dua, Depok. Kami membuat kesepakatan dengan Kumboh untuk keesokan harinya Pukul 08.00 WIB pagi untuk menjemputku di kosan, karena Kumboh harus pulang untuk mengambil motor di rumahnya yang jarak tempuhnya tak memakan waktu lama dari kosanku. Perbincangan hangat kami terhenti pukul 21.00 WIB, aku dan Kumboh pergi ke warung untuk meredakan amarah cacing perut yang terdengar menabuh genderang peperangan dalam perut kami yang sejengkal ini, sedangkan Uli sudah beranjak ke peraduannya ketika kami sedang asik ngobrol (Uli sedang mengidap suatu penyakit yang tidak teridentifikasi pada saat itu, wkwkwkwkwkkw. NB: aku berharap rekanku itu cepat sembuh). Selepas memenuhi tuntutan cacing perut, Kumboh pamitan tuk pulang ke rumahnya di Menteng.

Aku melepaskan kepergian Kumboh dengan harapan dia tidak melupakan kesepakatan yang kita buat beberapa jam yang lalu. Sebelum ia melangkahkan kakinya untuk pulang, rekanku Kumboh mengatakan kepadaku yang lagi harap-harap cemas pada malam itu "Tenang lae, gampang ituuuu...." Perkataan itu menguatkan hatiku dengan amat sangat "menghempaskan sgala harap-harap cemas yang begitu melingkupi seluruh pemikiran dan hatiku". Aku pulang menuju ke pembaringan (kosan) dan tak lepas tentunya berdoa supaya sesuatunya terjadi sesuai dengan sgala harapan terbaik yang di berikan Tuhan.

Pukul 05.00 WIB pagi aku bangun, mandi dan berpakaian sepantasnya untuk menghadiri interview. Selepas itu, Aku mengaktifkan power komputer yang terkoneksi internet, kemudian membuka email yahooku dan mencari tags pengiriman (sent) email ke globaltv. Ketemu...!, Ku buka lalu ku baca, posisi apa yang aku lamar di globaltv, yaaaa??? Aku memang lupa karena terlalu banyaknya pengajuan lamaran yang aku kirimkan ke berbagai instansi perusahaan. Aku membuka google untuk mencari informasi tentang posisi yang aku lamar dan membuka beberapa situs mengenai posisi tersebut, Hal itu aku lakukan supaya tidak ada miss communication atas pengajuan lamaranku paling nggak aku cari tahu tentang hal tersebut. Waktu sudah jam 08.00 WIB, ketika aku asyik membuka-buka dan membaca mengenai posisi tersebut dan tentunya sekaligus sarapan. Rekanku yang aku tunggu-tunggu belum tiba sampai jam 08.45 WIB, whhhhhh disitu aku cemas bukan kepalang tanggung tak tahu apa yang harus aku lakukan. Untuk membuang sgala rasa cemas di pikiran dan hatiku, aku berjalan mondar-mandir di lorong gang kamar kosanku.... Aku merasa hal ini yang dapat aku lakukan untuk mengusir kecemasan yang ada dipikiranku pada saat itu sambil menunggu teman yang belum kunjung tiba.

Beberapa jam sebelumnya sekitar jam 07.00 WIB pagi, rekanku Uli, yang kamarnya berada di depan kamarku mengetok pintu kamarku, kemudian mengatakan " Lae titip HP Kumboh ama tasnya, kalian mau pergi barengkan?" (ternyata HP dan tas Kumboh tinggal di Kamar Lae Uli). Aku terkejut bukan kepalang. Lah.... gimana nih kalau kumboh lupa? gimana menghubunginya seandainya Kumboh tertidur?, Banyak pertanyan yang carut-marut dan gentayangan dalam pikiran dan hatiku. Ternyata kecemasan dalam pikiranku memoles raut wajahku, sehingga rekanku Uli tanggap dan mengatakan "tenang aja lae, kalau Kumboh janji, pasti datang", perkataan lae uli membuat aku sedikit tenang dan aku akhirnya melepaskan simpul senyum yang masih tersirat rasa ragu dan cemas kepada Lae Uli.

Tunggu dan menunggu dengan mengandalkan rasa percaya atas untaian kalimat dari rekanku Uli, yang di tunggu te..tap.. kunjung tak datang. Akhirnya aku memutuskan tuk pergi saja, waktu itu pukul 09.00 WIB. Aku rengkuh tasku, aku pakaikan kaus di kakiku, slap...ku masukkan kakiku ke dalam sepatu. Berangkat!!!! (Dalam hatiku berdoa terjadilah apapun yang terjadi), aku menuruni tangga kosan (kosanku terdiri atas 2 lantai yang terdiri dari lantai dasar dan lantai atas). Sesampainya di lantai bawah aku melihat pintu kamar kosan lae Sugee terbuka (sebut saja namanya demikian), dari lae inilah aku mengenal Kumboh.

Aku putuskan singgah dulu, mana tahu tadi malam Kumboh kembali pulang dan tidur di kamar lae Sugeeee. Aku menengadahkan kepalaku sambil celingak-celinguk ke dalam kamar ternyata kosong melompong, dari seberang kamar yang merupakan dapur, suara langkah kaki terdengar menghampiriku, "Ada apa lae? (aku memalingkan kepalaku ke arah datangnya suara). Yaa lae, aku berucap ringan menanggapi pertanyaan lae Sugee. Kemudian lae itu melanjutkan pertanyaan kembali sebelum pertanyaan pertamanya selesai aku jawab. Mau interview lae? (ternyata lae sugee langsung ngeh dengan melihat cara aku berpakaian). Yaa neh lae, ku jawab dengan ringan. Kemudian aku bertanya kepadanya: "Lae Sugee, Kumboh tidur disini, nggak?". "nggak, lae. Emang kenapa?" komentar Lae Sugee. Aku menimpali kembali dengan harap cemas, Kumboh kemarin janji mau menghantarkanku ke kuningan untuk interview dan berjanji menjemputku jam 08.00 WIB pagi , sampai sekarang belum kunjung datang. Lae Sugee membalas komentarku: "Paling dia ketiduran di rumahnya..., kenapa gak di telfon?"Aku menjawab: "Hp dan tas Kumboh ada di kamarku lae, ketinggalan tadi malam." Lae Sugeee berpikir sejenak, mulutnya berucap: "Gak disiplin neh... Kumboh, janji hanya sekedar janji." Aku dan lae Sugee terdiam sejenak. Lae Sugee beranjak ke kamarnya sambil berkata: "Tunggu sebentar lae!!!!" (Sambil mengais-ngaiskan tangannya di celana yang dikenakannya karena lae Sugee baru selesai mencuci piring), maklum calon suami yang baik dan nantinya jadi jajahan istrinya...wkwkwkwkwkwkkwkw. Tak lama kemudian Lae Sugee berucap dari dalam kamar: "Nomor telfon rumahnya ada sama aku." Lae Sugee menekan tombol hpnya mulai mencari nomor rumah Kumboh. Tak lama kemudian akhirnya nomor rumah yang di cari ketemu, terjadilah percakapan antara Lae Sugee dan di seberang sana orangtua Kumboh yang mengangkat, ternyata Lae Kumboh belum siuman dari mati surinya karena rohnya tadi malam nyangkut di genteng rumahnya ketika hendak kembali ke raganya (wkwkwkwkwkwkwk, maksudku dia masih tertidur lelap sambil ngiler dan ngorok kali yaa.... ^_^ :-) ). Lae Sugee menekankan ke orang tua Kumboh, bahwa Kumboh ada janji untuk Interview di globaltv dan minta tolong untuk membangunkan Kumboh dari tidur yang begitu lelap (padahal aku sendiri yang ada acara interview, aku jadi nggak enakan karena ngerepotin banyak orang ). Aku menjelaskan kembali ke Lae Sugee, bahwa hanya aku doang yang interview, Kumboh menawarkan niat baiknya ke aku untuk menghantarkan aku ke kuningan, setelah percakapan Lae Sugee dan orang tua Kumboh di telfon selesai.

Tak lama kemudian telfon selular lae Sugee (Muhammad Sutoto Supatmo Sugee) berbunyi, ternyata dari rumah Kumboh, Lae Sugee mengangkatnya dan memberikan telfon selularnya kepadaku. Ku ambil dan kutempelkan di telingaku, terdengar suara lae Kumboh (whwwhwh ternyata rohnya telahh kembaliiiiiii dan tidak kekurangan suatu apapun, wkwkkwkwkwkkwwkwkkwkkwkwkwk). "Dikosankan Lae?" suara Kumboh menggelegar menanyakan keberadaanku. Aku menjawab: "Iya lae, jadi datangkan?". "Ia aku kesana, tunggu sebentar", kumboh menimpali kembali komentarku.

Saat itu pukul 09.15 WIB, Aku berada di kamar lae Sugee, 15 menit kemudian Kumboh tiba dan hatiku tenang saat itu. "Ayo lae!!! ", Suara lantang lae Kumboh begitu semangat (Rohnya merasakan udara kebebasan, bebas dari atap genteng yang membelenggu kebebasannya, wwkwkwkkwkkwkwkwkwk ^_^ :-)). Kami langsung berangkat menggunakan motor lae Kumboh. Yah..., di tengah perjalanan awan dengan sedihnya mengiringi perjalananku, raungan tangisannya membasahi sekujur tubuh ini. Saat pergi cuaca sangat cerah tak kebayang akan datang hujan. Kemeja panjang merah darah yang aku kenakan sudah nempel di tubuhku seperti perangko yang di tempelkan ke Amplop surat karena begitu basahnya baju yang ku kenakan. Hari yang sangat menyedihkan pada saat itu.................

Spamming dan Virus-virus E-mail

2010-06-29T08:22:00.000-07:00

Pengguna e-mail tidak lepas dari empat fenomena ancaman: e-mail bombing, spamming, phishing, dan e-mail worms.

No.	Pengertian
Spamming	Pesan komersial yang tak diminta (atau bulk mail). Karena pengirimannya sangat murah, spammer dapat mengirim ribuan pesan e-mail sekaligus setiap hari melintasi jaringan internet.Spamming terkadang dapat melahirkan overload pada beberapa komputer yang sibuk.
E-mail worms	Menggunakan e-mail sebagai jalan untuk menggandakan dirinya ke banyak komputer. Jenis ancaman ini pada awalnya menyerang komputer-komputer UNIX, tetapi sekarang sudah berkembang juga pada sistem-sistem Windows. Kombinasi spam dan program-program worm dapat sangat mengganggu user-user e-mail.
E-mail spoofing	Merupakan bangian dari bentuk pemalsuan. Pesan-pesan e-mail tampak seolah-olah dikirim dari sumber-sumber terpercaya atau dikenal, padahal sebenarnya bukan. Spoofing seringkali ditempuh dengan memanipulasi header-header e-mail.
E-mail bombing	Usaha mentransfer e-mail dalam jumlah ekstra besar ke sebuah target (e-mail address), sehingga account e-mail korban mengalami crash atau tidak bisa digunakan lagi. Cara sederhana e-mail bombing ini adalah dengan men-subscribe alamat e-mail orang lain ke banyak mailing list, tanpa sepengetahuan pemilik tersebut. Teknik lainnya adalah dengan menggunakan program-program pengirim e-mail otomatis.

MSChart vs Visual Basic 2008 Express Edition

2010-06-03T09:05:00.000-07:00

Tips kali ini, Saya akan menampilkan grafik data menggunakan MSChart pada form Visual Basic 2008. Pada Tips sebelumnya, saya selalu menampilkan grafik data dengan menggunakan PictureBox, kali ini saya menggunakan fasilitas Chart yang telah tersedia pada ToolBox (Bila pada ToolBox Anda object ini tidak tersedia, maka Anda harus mendownloadnya di internet secara gratis). Data contoh yang diinterpretasikan merupakan data random, hasil tampilannya perhatikan gambar di atas.

Object ToolBox yang saya gunakan pada Tips kali ini, perhatikan tabel berikut ini.

ToolBox	Properties
1 UserForm	Name: UserForm1 Text: V. Hutabalian's Blog " MSChart vs Visual Basic 2008 Express Edition"
1 DataGridView	Name: DataGridView1
1 Chart	Name: Chart1
2 Button	Name: Button1 Text Button1: View Data

Desain dari object ToolBox yang saya gunakan, perhatikan juga gambar di bawah ini.

Setelah selesai mendesai 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.

Source Program:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
' MSChart vs Visual Basic 2008 Express Edition '
'======================================================================='
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' By: V. Hutabalian '
' Publish to V. Hutabalian's Blog 4 Juni 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Imports System.Windows.Forms.DataVisualization.Charting
Imports System.Globalization

Public Class FrmChartTest
Dim dtTest As New DataTable
Dim dsTest As New DataSet

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim lstDays As New List(Of String)
lstDays.AddRange(CultureInfo.CurrentCulture.DateTimeFormat.AbbreviatedDayNames)

dtTest.Reset()
dsTest.Reset()
dtTest = dsTest.Tables.Add("dtTest")

dtTest.Columns.Add("Per-harinya", GetType(String))
dtTest.Columns.Add("Type 1", GetType(Integer))
dtTest.Columns.Add("Type 2", GetType(Integer))

Dim rnd As New Random
For r As Integer = 0 To 6
Dim value1 As Integer = rnd.Next(0, 101)
Dim value2 As Integer = rnd.Next(0, 101)
dtTest.Rows.Add(lstDays(r), value1, value2)
Next
DataGridView1.DataSource = dtTest
Chart1.Series.Clear() '//Clear all series

Chart1.Dock = DockStyle.Bottom
Chart1.Anchor = AnchorStyles.Bottom Or AnchorStyles.Top

Chart1.Series.Add("Type 1")
With Chart1.Series("Type 1")
.ChartType = SeriesChartType.Spline
.Name = "Type 1"
.LegendText = "Type 1"
.IsVisibleInLegend = True
.Font = New Font("Arial", 10, FontStyle.Italic)
.Color = Color.Blue
.IsValueShownAsLabel = True
.LabelForeColor = Color.Red
.Points.DataBind(dtTest.DefaultView, "Per-harinya", "Type 1", Nothing)
End With

Chart1.Series.Add("Type 2")
With Chart1.Series("Type 2")
.ChartType = SeriesChartType.Spline
.Name = "Type 2"
.LegendText = "Type 2"
.IsVisibleInLegend = True
.Font = New Font("Arial", 10, FontStyle.Italic)
.Color = Color.Coral
.IsValueShownAsLabel = True
.LabelForeColor = Color.Green
.Points.DataBind(dtTest.DefaultView, "Per-harinya", "Type 2", Nothing)
End With

With Chart1.ChartAreas(0)
.AxisY.Interval = 20
.AxisX.LabelStyle.Angle = -90
.AxisX.Title = "Hari"
.AxisY.Title = "Penjualan"
End With
End Sub

End Class

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

Kemudian tekan tombol View Data, hasilnya seperti gambar di bawah ini:

Pengembangan program dapat anda variasikan sesuai dengan keinginan Anda.
Artikel terkait:
BarGraph with AxMSChart20Lib.AxMSChart===>>Klik disini
MSChart vs Visual Basic 2008 Express Edition===>>Klik disini

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

Menampilkan Flash Visual Basic 2008

2010-05-31T10:35:00.000-07:00

Tips kali ini, saya akan mencoba menampilkan animasi flash di atas pada form Visual Basic 2008.

Hasil tampilannya seperti gambar di bawah ini.

Toolbox yang saya gunakan perhatikan tabel di bawah ini.

ToolBox	Properties
1 UserForm	Name: UserForm1 Text: V. Hutabalian's Blog "Flash VB 2008"
1 Shockwave Flash Object	Name:OBJFlash
2 Button	Name: Button1 & Button 2 Text Button1: Start Text Button2: Exit

Desain Form dari table Toolbox di atas perhatikan gambar di bawah ini.

Setelah selesai mendesai 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.

Source Program:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
' Menampilkan Flash Visual Basic 2008 '
'======================================================================='
' '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' By: V. Hutabalian '
' Publish to V. Hutabalian's Blog 31 Mei 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Public Class Form1

Inherits System.Windows.Forms.Form

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With OBJFlash
.Stop()
.Movie = Application.StartupPath & "\City.swf"
End With
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
OBJFlash.Dispose()
Application.Exit()

End Sub
End Class

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

Kemudian tekan tombol Start, hasilnya seperti gambar di bawah ini:

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

Grafik Counter Data Sinusoidal Real Time

2010-05-16T03:37:00.000-07:00

Tertanggal 14 Mei 2010, Saya mengunjungi www.vbforums.com kemudian membaca uraian diskusi mengenai interfacing data berupa waveform (grafik yang terbentuk dari distribusi variasi inputan data yang menyerupai gelombang sinusoidal). Berdasarkan uraian tanya jawab dari beberapa narasumber forum tersebut, saya mencoba memvisualkan script Vb.net yang mereka diskusikan. Secara Garis besar diskusi tersebut mencoba memvisualisasikan grafik inputan data serial dari RS232, data contoh yang diinterpretasikan adalah data tegangan DC dengan maksimum (+/-) 5 Volt. Pada Aplikasi ini inputan datanya merupakan data counter (+/-) 4 Volt (hanya data contoh).

Hasil tampilannya perhatikan gambar di atas. ToolBox yang akan kita gunakan perhatikan tabel di bawah ini.

ToolBox	Properties
1 UserForm	Name: UserForm1 Caption: V. Hutabalian's Blog "Sinusoidal"
1 Timer	Name:Timer1 Enable:True Interval: 100 ms
1 PictureBox	Name:PictureBox1
1 Label	Name: Label 1 Caption Label1: Nilai data yang diinterpretasikan berupa grafik data:
1 TextBox	Name: TextBox1

Desain Form dari ToolBox di atas perhatikan gambar di bawah ini.

Setelah Anda mendesain Form di atas dengan mengatur setiap properties yang di miliki oleh setiap object ToolBox. Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.
Source Program:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
' Grafik Counter Data Sinusoidal Real Time '
'======================================================================='
' Graphic Data menyerupai Sinusoidal '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' visual by: V. Hutabalian ==>> Source: www.vbforums.com '
' Publish to V. Hutabalian's Blog 16 Mei 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Public Class Form1

Dim volts As Single

Dim voltsQ As New Queue(Of Single)

Dim maxVolts As Single = 5
Dim coun As Integer = 0

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim g As Graphics = e.Graphics
Dim vertFont As New Font("Verdana", 10, FontStyle.Bold)
Dim horzFont As New Font("Verdana", 10, FontStyle.Bold)
Dim vertBrush As New SolidBrush(Color.Blue)
Dim horzBrush As New SolidBrush(Color.Blue)
Dim horzBrush1 As New SolidBrush(Color.Blue)

Dim BluePen As New Pen(Color.Blue)

g.DrawLine(BluePen, 50, 225, 50, 15)
g.DrawLine(BluePen, 50, 120, 260, 120)

Dim Origin As New Point(50, 119)
Dim xAxisLength As Integer = 230
Dim yAxisLength As Integer = -115

If voltsQ.Count > 1 Then

Dim voltsQarray As Single() = voltsQ.ToArray

Dim DataPoints(voltsQ.Count - 1) As Point
Dim x, y As Integer

For i As Integer = 0 To voltsQ.Count - 1
Dim v As Single = voltsQarray(i)
x = Origin.X + CInt(i * xAxisLength / 40)

y = Origin.Y + CInt(v * yAxisLength / maxVolts)
DataPoints(i) = New Point(x, y)

Next
e.Graphics.DrawCurve(Pens.Green, DataPoints)

End If

Dim vertStrFormat As New StringFormat()
vertStrFormat.FormatFlags = StringFormatFlags.DirectionVertical
g.DrawString("-", horzFont, horzBrush, 49, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 49, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 59, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 69, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 79, 113, vertStrFormat)
g.DrawString("--", horzFont, horzBrush, 89, 106, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 99, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 109, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 119, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 129, 113, vertStrFormat)
g.DrawString("--", horzFont, horzBrush, 139, 106, vertStrFormat)

g.DrawString("-", horzFont, horzBrush, 149, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 159, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 169, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 179, 113, vertStrFormat)
g.DrawString("--", horzFont, horzBrush, 189, 106, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 199, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 209, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 219, 113, vertStrFormat)
g.DrawString("-", horzFont, horzBrush, 229, 113, vertStrFormat)
g.DrawString("--", horzFont, horzBrush, 239, 106, vertStrFormat)

g.DrawString(" 4 --", vertFont, vertBrush, 25, 12)
g.DrawString(" --", vertFont, vertBrush, 25, 12)
g.DrawString(" -", vertFont, vertBrush, 25, 17)
g.DrawString(" -", vertFont, vertBrush, 25, 22)
g.DrawString(" -", vertFont, vertBrush, 25, 27)
g.DrawString(" -", vertFont, vertBrush, 25, 32)

g.DrawString(" 3 --", vertFont, vertBrush, 25, 37)
g.DrawString(" --", vertFont, vertBrush, 25, 37)
g.DrawString(" -", vertFont, vertBrush, 25, 42)
g.DrawString(" -", vertFont, vertBrush, 25, 47)
g.DrawString(" -", vertFont, vertBrush, 25, 52)
g.DrawString(" -", vertFont, vertBrush, 25, 57)

g.DrawString(" 2 --", vertFont, vertBrush, 25, 62)
g.DrawString(" --", vertFont, vertBrush, 25, 62)
g.DrawString(" -", vertFont, vertBrush, 25, 67)
g.DrawString(" -", vertFont, vertBrush, 25, 72)
g.DrawString(" -", vertFont, vertBrush, 25, 77)
g.DrawString(" -", vertFont, vertBrush, 25, 82)

g.DrawString(" 1 --", vertFont, vertBrush, 25, 87)
g.DrawString(" --", vertFont, vertBrush, 25, 87)
g.DrawString(" -", vertFont, vertBrush, 25, 92)
g.DrawString(" -", vertFont, vertBrush, 25, 97)
g.DrawString(" -", vertFont, vertBrush, 25, 102)
g.DrawString(" -", vertFont, vertBrush, 25, 107)
g.DrawString(" 0", vertFont, vertBrush, 25, 112)

g.DrawString(" -", vertFont, vertBrush, 25, 117)
g.DrawString(" -", vertFont, vertBrush, 25, 122)
g.DrawString(" -", vertFont, vertBrush, 25, 127)
g.DrawString(" -", vertFont, vertBrush, 25, 132)
g.DrawString(" --", vertFont, vertBrush, 25, 137)
g.DrawString(" -1--", vertFont, vertBrush, 25, 137)

g.DrawString(" -", vertFont, vertBrush, 25, 142)
g.DrawString(" -", vertFont, vertBrush, 25, 147)
g.DrawString(" -", vertFont, vertBrush, 25, 152)
g.DrawString(" -", vertFont, vertBrush, 25, 157)
g.DrawString(" --", vertFont, vertBrush, 25, 162)
g.DrawString(" -2--", vertFont, vertBrush, 25, 162)

g.DrawString(" -", vertFont, vertBrush, 25, 167)
g.DrawString(" -", vertFont, vertBrush, 25, 172)
g.DrawString(" -", vertFont, vertBrush, 25, 177)
g.DrawString(" -", vertFont, vertBrush, 25, 182)
g.DrawString(" --", vertFont, vertBrush, 25, 187)
g.DrawString(" -3--", vertFont, vertBrush, 25, 187)

g.DrawString(" -", vertFont, vertBrush, 25, 192)
g.DrawString(" -", vertFont, vertBrush, 25, 197)
g.DrawString(" -", vertFont, vertBrush, 25, 202)
g.DrawString(" -", vertFont, vertBrush, 25, 207)
g.DrawString(" --", vertFont, vertBrush, 25, 212)
g.DrawString(" -4--", vertFont, vertBrush, 25, 212)
vertFont.Dispose()
horzFont.Dispose()
vertBrush.Dispose()
horzBrush.Dispose()
BluePen.Dispose()

Dim Font1 As New Font("Comic Sans MS", 10, FontStyle.Bold)
g.TranslateTransform(30, 148)
g.RotateTransform(180)
g.DrawString("Volts (V)", Font1, _
Brushes.Blue, 0, 0, New StringFormat(StringFormatFlags.DirectionVertical))

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

coun = coun + 1
If coun > 4 Then
coun = -4
End If

TextBox1.Text = coun

voltsQ.Enqueue(coun)
If voltsQ.Count > 40 Then voltsQ.Dequeue()
Me.Refresh()
End Sub

End Class

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

Artikel terkait mengenai Tips ini:
INPUT LISTBOX Vs PLOTTING (X,Y) Vs PICTUREBOX===>>Klik disini
Grafik Dynamic Line Visual Basic 2008===>>Klik disini
ThreadGraph Dynamic Line Visual Basic 2008===>>Klik disini
Dynamic Line Plotting Data Random Visual Basic 2008===>>Klik disini
Grafik 2D PictureBox Visual Basic 2008===>>Klik disini

Pengembangan lebih lanjut, disesuaikan dengan kebutuhan variasi data inputan Anda. Semoga bermanfaat.

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

INPUT LISTBOX Vs PLOTTING (X,Y) Vs PICTUREBOX

2010-05-06T19:41:00.000-07:00

Tertanggal 4-Mei-2010, Salah satu pengunjung Blog saya menanyakan bagaimana membuat Chart menggunakan VB 2008 dengan masukan dari 2 Data X dan Y yang di masukkan ke Listbox. Saya berharap aplikasi yang saya buat dapat memvisualisasikan pertanyaannya, dan membantu masalah yang dihadapinya.

Hasil tampilannya, perhatikan gambar paling atas. ToolBox yang akan kita gunakan, perhatikan table di bawah ini:

ToolBox	Properties
1 UserForm	Name: UserForm1 Caption: V. Hutabalian's Blog INPUT LISTBOX Vs PLOTTING (X,Y) Vs PICTUREBOX
2 CommandButton	Name:CommandButton 1-2 Caption CommandButton 1:Entry Data Caption CommandButton 2:View Grafik
3 ListBox	Name:ListBox 1-3
1 PictureBox	Name:PBLineChart
4 Label	Name: Label 1-4 Caption Label1: Data X Caption Label2: Data Y Caption Label3: Inputkan Data Caption Label4: Pilih Posisi Coordinat Data
1 TextBox	Name: TextBox1

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
' V. Hutabalian's Blog INPUT LISTBOX Vs PLOTTING (X,Y) Vs PICTUREBOX '
'======================================================================='
' Entry Data Pada ListBox dengan 2 masukan X dan Y '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Programming by: Verynandus Hutabalian '
' Publish to V. Hutabalian's Blog 7 Mei 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Imports System.Drawing.Drawing2D
Public Class Form1
Dim LeftMargin As Integer = 35
Dim RightMargin As Integer = 15
Dim BaseMargin As Integer = 35
Dim TopMargin As Integer = 10
Dim VertLineLength As Integer
Dim BaseLineLength As Integer
Dim LineWidth As Double
Dim g As Graphics
Dim bmap As Bitmap
Private Sub TextBox1_Validated(ByVal sender As Object, ByVal e As System.EventArgs)
If IsNumeric(TextBox1.Text) = False Then
MsgBox("Harus Karakter Angaka", MsgBoxStyle.Exclamation)

End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ListBox3.Text = "" Then
MsgBox("Pilih Data Yang Terlebih dulu di Inputkan", MsgBoxStyle.Exclamation)

End If
If ListBox3.Text = "Data X" Then
If TextBox1.Text = "" Then
MsgBox("Masukkan Data X")
Else
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Focus()
End If

End If
If ListBox3.Text = "Data Y" Then
If TextBox1.Text = "" Then
MsgBox("Masukkan Data Y")
Else
ListBox2.Items.Add(TextBox1.Text)
TextBox1.Focus()
End If
End If

End Sub

Private Sub DrawOutline()
bmap = New Bitmap(PBLineChart.Width, PBLineChart.Height, PBLineChart.CreateGraphics)
g = Graphics.FromImage(bmap)
Dim StartPoint As New Point(LeftMargin, PBLineChart.Height - BaseMargin)
Dim EndPoint As New Point(LeftMargin, TopMargin)
Dim LinePen As New Pen(Color.Red, 2)
g.DrawLine(LinePen, StartPoint, EndPoint)
Dim VertLineLength As Integer = PBLineChart.Height - (BaseMargin + TopMargin)
Dim VertGap As Integer = CInt(VertLineLength / 10)
Dim TickSP As New Point(LeftMargin - 5, StartPoint.Y - VertGap)
Dim TickEP As New Point(LeftMargin, StartPoint.Y - VertGap)
Dim ValueFont As New Font("Arial", 8, FontStyle.Regular)
For i As Integer = 1 To 10
g.DrawLine(New Pen(Color.Black), TickSP, TickEP)
g.DrawString(CStr(i * 10), ValueFont, Brushes.Red, 2, TickSP.Y - 5)
TickSP.Y -= VertGap
TickEP.Y -= VertGap
Next
g.DrawLine(LinePen, LeftMargin, PBLineChart.Height - BaseMargin, PBLineChart.Width - RightMargin, PBLineChart.Height - BaseMargin)
End Sub
Private Sub btnDraw_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDraw.Click
DrawOutline()
DrawHorizontalLines()
DrawVerticalGridLines()
DrawTheLine()
ShowMonths()
FinalDisplay()
End Sub
Private Sub DrawTheLine()
Dim MyPath As New GraphicsPath
Dim MyPen As Pen = New Pen(Color.Blue, 3)
g.DrawPath(MyPen, MyPath)
Dim VertScale As Double
Dim VertLineLength As Integer = PBLineChart.Height - (BaseMargin + TopMargin)
Dim XPosStart As Integer = CInt(LeftMargin + 30)
VertScale = VertLineLength / 100

Dim XPosEnd As Integer = CInt(XPosStart + LineWidth)

Dim s(ListBox2.Items.Count) As String
Dim al As New ArrayList

ListBox2.Items.CopyTo(s, 0)

al = New ArrayList(s)

Me.ListBox2.DataSource = al
Dim YPosStart As Integer = CInt(s(0) * VertScale)
Dim YPosEnd As Integer = CInt(s(1) * VertScale)
MyPath.AddEllipse(XPosStart - 2, YPosStart - 2, 4, 4)
MyPath.AddLine(XPosStart, YPosStart, XPosEnd, YPosEnd)
For i As Integer = 1 To UBound(s) - 2
XPosStart = XPosEnd
XPosEnd = CInt(XPosStart + LineWidth)
YPosStart = YPosEnd
YPosEnd = CInt(s(i + 1) * VertScale)

MyPath.AddEllipse(XPosStart - 2, YPosStart - 2, 4, 4)
MyPath.AddLine(XPosStart, YPosStart, XPosEnd, YPosEnd)
Next

MyPath.AddEllipse(XPosEnd - 2, YPosEnd - 2, 4, 4)
g.RotateTransform(180)
g.ScaleTransform(-1, 1)
g.TranslateTransform(0, VertLineLength + 10, MatrixOrder.Append)
g.DrawPath(MyPen, MyPath)
g.ResetTransform()
End Sub
Private Sub FinalDisplay()
PBLineChart.Image = bmap
g.Dispose()
End Sub
Private Sub ShowMonths()
Dim TextStartX As Integer = CInt(LeftMargin + 18)
Dim TextBrsh As Brush = New SolidBrush(Color.Red)
Dim TextFont As New Font("Arial", 10, FontStyle.Regular)
Dim s1(ListBox1.Items.Count) As String
Dim a2 As New ArrayList

ListBox1.Items.CopyTo(s1, 0)

a2 = New ArrayList(s1)

Me.ListBox1.DataSource = a2

For i As Integer = 1 To s1.Length- 1

g.DrawString(s1(i - 1), TextFont, TextBrsh, TextStartX, _
CInt(PBLineChart.Height - (BaseMargin - 4)))
TextStartX += CInt(LineWidth)
Next
End Sub
Private Sub DrawVerticalGridLines()

Dim ThinPen As New Pen(Color.LightGreen, 2)
Dim StartPoint As New Point(LeftMargin, PBLineChart.Height - BaseMargin)
Dim EndPoint As New Point(LeftMargin, TopMargin)
Dim LinePen As New Pen(Color.Red, 2)
Dim s(ListBox2.Items.Count) As String
Dim s1(ListBox1.Items.Count) As String

Dim al As New ArrayList
Dim a2 As New ArrayList

ListBox2.Items.CopyTo(s, 0)
ListBox1.Items.CopyTo(s1, 0)

al = New ArrayList(s)
a2 = New ArrayList(s1)
Me.ListBox2.DataSource = al
Me.ListBox1.DataSource = a2

g.DrawLine(LinePen, StartPoint, EndPoint)
BaseLineLength = PBLineChart.Width - (LeftMargin + RightMargin)
LineWidth = (BaseLineLength / s.Length - 1)
Dim LineStartX As Integer = CInt(LeftMargin + 30)
For i As Integer = 1 To s1.Length - 1
g.DrawLine(ThinPen, LineStartX, TopMargin, LineStartX, PBLineChart.Height - (BaseMargin + 4))
LineStartX += CInt(LineWidth)
Next
ThinPen.Dispose()
End Sub
Private Sub DrawHorizontalLines()
Dim VertLineLength As Integer = PBLineChart.Height - (BaseMargin + TopMargin)
Dim VertGap As Integer = CInt(VertLineLength / 10)
Dim StartPoint As New Point(LeftMargin + 3, PBLineChart.Height - BaseMargin)
Dim EndPoint As New Point(PBLineChart.Width, PBLineChart.Height - BaseMargin)
Dim LineStart As New Point(StartPoint.X, StartPoint.Y - VertGap)
Dim LineEnd As New Point(EndPoint.X, StartPoint.Y - VertGap)
Dim ThinPen As New Pen(Color.LightGreen, 3)
For i As Integer = 1 To 10
g.DrawLine(ThinPen, LineStart, LineEnd)
LineStart.Y -= VertGap
LineEnd.Y -= VertGap
Next
ThinPen.Dispose()
End Sub

Private Sub PBLineChart_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PBLineChart.Paint
Dim ix As Integer = PBLineChart.Width
Dim iy As Integer = PBLineChart.Height
e.Graphics.DrawString("Coordinat-Y", New Font("Lucida Handwriting", 10, FontStyle.Regular), Brushes.Goldenrod, iy - 360, 6)
e.Graphics.DrawString("Coordinat-X", New Font("Lucida Handwriting", 10, FontStyle.Regular), Brushes.Goldenrod, iy + 20, 370)

e.Graphics.DrawString("V. HUTABALIAN'S Blog", New Font("Lucida Handwriting", 10, FontStyle.Regular), Brushes.Goldenrod, iy - 40, 6)
e.Graphics.DrawString("7 Mei 2010", New Font("Lucida Handwriting", 10, FontStyle.Regular), Brushes.Goldenrod, iy - 35, 20)

End Sub
End Class

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

Entry Data di Coordinat Data X dan Y denga jumlah data yang sama, kemudian tekan tombol View Grafik tampilannya seperti gambar paling atas.

Artikel terkait mengenai Tips ini:
Grafik Dynamic Line Visual Basic 2008===>>Klik disini
ThreadGraph Dynamic Line Visual Basic 2008===>>Klik disini
Dynamic Line Plotting Data Random Visual Basic 2008===>>Klik disini
Grafik 2D PictureBox Visual Basic 2008===>>Klik disini

Aplikasi yang saya buat masih memiliki kelemahan antaralain:
1. Lebar grid pada Coordinat-X akan selalu sama, walaupun nantinya Anda menginput data dengan rentang yang berbeda-beda.
2. Data inputan pada Coordinat X tidak berurut dan akan di plotting pada pengulangan data yang sama.
3. Ketika Anda mengentery data yang baru, saya tidak menyediakan refresh pada Plotting grafik dan listbox sehingga Anda harus meng-close dan membuka kembali program untuk data entery baru.
4. Perlu pengembangan lebih lanjut dan saya berharap juga masukan dan kreasi dari teman-teman.

Walaupun aplikasi di atas memiliki beberapa kelemahan, namun aplikasi ini sudah dapat menunjukan bagaimana Plotting data pada Coordinat X terhadap Coordinat Y. Pengembangan lebih lanjut, disesuaikan dengan kebutuhan variasi data inputan Anda.

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

Tips Hindari Spam

2010-05-01T10:21:00.000-07:00

Liputan6.com, Jakarta: Laporan Symantec Spam & Phishing bulan ini menyebutkan bahwa spam (pesan elektronik sampah) menyumbang 89,35 persen dari keseluruhan pesan di Internet dalam bulan Maret lalu, turun dari 89,99 persen pada Februari.

Sementara itu, pesan scam dan phishing pada bulan Maret mencapai 17 persen dari keseluruhan spam, lebih sedikit 2 persen dari bulan Februari, demikian laporan Symantec melalui e-mail kepada antaranews.com, Kamis.

Setelah gempa bumi tragis di Haiti dan Cili, tidak ada lagi bencana alam baru yang bisa dimanfaatkan oleh spammer. Spammer kini lebih memfokuskan pada event musiman dan event yang tercatat di kalender seperti liburan Paskah untuk mengirimkan pesan spam.

Berdasarkan ukuran file spam, terjadi peningkatan yang cukup besar pada pesan spam yakni antara 5kb dan 10kb (meningkat lebih dari 10 persen).

Symantec mengamati penurunan serangan phishing secara keseluruhan adalah 3 persen dari bulan sebelumnya. Hal ini terutama disebabkan oleh turunnya volume serangan yang berasal dari toolkit otomatis.

Sebanyak 9 persen URL phishing dibuat menggunakan toolkit phishing otomatis, turun sebesar 35% dari bulan sebelumnya.

Ada dua jenis website phishing berbeda yang teramati dalam serangan tersebut. Jenis pertama dibuat menggunakan toolkit phishing otomatis. TLD yang paling sering digunakan adalah ‘.cz’, yang mewakili Republik Ceko.

Pada kasus ini, konsumen diminta memasukan data pribadi mereka pada halaman "Card Holder Form" untuk memenuhi proses verifikasi palsu tersebut.

Serangan kedua berisi URL dengan domain IP (sebagai contoh, URL seperti http://255.255.255.255./index.html). IP tersebut tersimpan dalam server-server yang berbasis di AS.

URL tersebut diketahui sangat panjang, biasanya lebih dari 700 karakter. Dalam serangan-serangan ini, halaman tersebut menanyakan informasi yang sangat pribadi, namun nomor kartu kredit atau debit bisa dimasukkan secara otomatis. (Ant/ARI)

Ada Air di Bulan dan Mars

2010-04-22T20:32:00.000-07:00

Liputan6.com, Jakarta: Endapan es setebal dua meter dapat ditemukan di beberapa kawah kecil di bulan, demikian laporan beberapa peneliti Senin (12/4) dalam satu dari dua studi yang memperlihatkan bukti lain mengenai keberadaan air di bulan dan Mars. Studi kedua menunjukkan bahwa es baru-baru ini telah mencair dan membeku lagi di Mars, sehingga memperluas selokan di permukaannya.

Kedua studi tersebut menambah perdebatan ilmiah dan politik mengenai cara terbaik menyelidiki alam semesta dan sistem tatasurya --dengan misi yang melibatkan awak manusia, atau percobaan yang menggunakan robot serta penelitian jarak jauh. Pemerintah Presiden AS Barack Obama bulan lalu menyatakan akan membatalkan program Konstelasi untuk mengirim kembali astronot ke bulan paling lambat pada 2020, setelah satu kajian mendapati program bernilai 108 miliar dolar AS tersebut kekurangan dana dan sudah keluar jalur untuk mencapai sebagian besar sasarannya.

Rencana Obama ialah mengontrak perusahaan swasta untuk melakukan pekerjaan yang diperlukan guna menyelidiki Mars, serta asteroid, dengan menggunakan robot, sensor jarak jauh dan barangkali astronot. Di dalam satu dari kedua studi itu yang disiarkan Senin (12/4), Paul Spudis dari "Lunar and Planetary Institute" di Houston dan rekannya menganalisis pengukuran dari pesawat antariksa India, Chandrayaan, untuk mendapatkan bukti mengenai endapan es tebal di beberapa kawah yang selamanya tertutup bayang-bayang di bulan.

"Karena bulan telah dibombardir dengan benda yang berisi air seperti komet dan meteorit serta ditanamkan hidrogen angin Matahari selama jaman geologis, sebagian bahan ini pasti telah menemukan jalan ke dalam daerah yang gelap dan dingin ini," tulis mereka di "Geophysical Research Letters" sebagaimana dilaporkan kantor berita Inggris, Reuters. Mereka mengukur sesuatu yang disebut rasio polarisasi sirkular untuk memperlihatkan apakah di permukaan ada es yang sangat tidak rata, atau es setebal dua meter sampai tiga meter.

Studi kedua memperlihatkan bahwa selokan selebar dua meter di Mars telah menjadi hampir 120 meter lebih panjang dalam waktu dua tahun. Dennis Reiss dari Institute for Planetology di Westfalische Wilhelms-Universitat di Munster, Jerman, dan rekannya mengatakan penjelasan terbaik ialah pencairan sejumlah kecil es air.

Mereka melaporkan di jurnal yang sama bahwa semua gambar memperlihatkan jalur gelap di selokan, serta beberapa saluran baru yang lebih kecil. Saluran tersebut mungkin menjadi cukup hangat pada permukannya sehingga mencairkan air di Mars, kata mereka.

Pada September, beberapa tim melaporkan bukti jelas mengenai air, yang kelihatannya membeku, di permukaan gurun bulan dan Mars, dan para peneliti juga telah melihat bahwa ada salju di Mars.(Ant)

Warning!! Anti Virus McAfee Bermutasi Menjadi Virus

2010-04-22T20:28:00.000-07:00

Liputan6.com Beijing: Peranti lunak antivirus McAfee mengalami masalah, Rabu (21/4), menyebabkan sejumlah komputer Windows XP di seluruh dunia rusak atau harus dinyalakan ulang berkali-kali. Peluncuran McAfee yang baru dirilis ternyata menghancurkan perusahaan ini sendiri. Pembaruan tersebut disediakan untuk para pelanggan bisnis selama empat jam, sebelum akhirnya distribusi dihentikan, kata McAfee meleui media.

Akibat masalah tersebut beberapa sekolah mengalami kegagalan komputer, polisi terpaksa menulis dengan tangan laporan dan menghentikan terminal mobil patroli untuk berjaga-jaga, beberapa penjara membatalkan kunjungan, dan rumah sakit menolak pasien non-trauma di ruang gawat darurat serta menunda beberapa operasi elektif.

McAfee meminta maaf kepada pelanggan terkait masalah ini, namun mereka meremehkan dampaknya. "Kami tidak menyadari dampak yang signifikan terhadap konsumen," kata perusahaan anti virus tersebut.(Xinhua/ARI)

Antisipasi 2012, Perusahaan AS Bangun Bunker Kiamat

2010-04-22T20:22:00.000-07:00

Liputan6.com, Washington: Meski sudah dibantah oleh banyak astronom soal kemungkinan kiamat akibat hantaman asteroid pada tahun 2012, sebuah perusahaan asal Amerika Serikat tetap menyiapkan sebuah tempat perlindungan atau bunker. Perusahaan yang berusaha memanfaatkan peluang dari ketakutan masyarakat ini menawarkan sebuah tempat perlindungan dari kiamat.

Vivos, sebuah perusahaan berbasis di California AS mengatakan, mereka sedang merencanakan sebuah proyek bisnis yang menawarkan harapan hidup yang lebih baik dari suatu peristiwa yang mendekati pemusnahan masal, seperti yang dikatakan banyak orang mengenai prediksi Bangsa Maya yang diperkirakan akan terjadi pada 2012.

Vivos mengatakan, pihaknya berencana untuk mendirikan 20 buah bungker perlindungan di seluruh Amerika Serikat. Setiap bungker yang masing-masing luasnya 1.858 meter persegi dapat menampung hingga 200 orang. Bunker ini akan dirancang untuk dapat menahan panas hingga 700 derajat Celcius, angin dengan kecepatan 700 kilometer per jam, banjir selama 500 jam, bahkan gelombang gempa yang berkekuatan lebih dari 10 Skala Ritchter.

Untuk membangun setiap tempat perlindungan, perusahaan Vivos memprediksikan biaya sebesar 10 juta dolar AS dengan fasilitas berteduh, makanan, bahan bakar, air, pakaian, perlengkapan medis, dan sistem keamanan di dalamnya. Bagi Anda yang tertarik memesan karcis bunker, siap-siap saja merogoh kocek sebesar 50 ribu dolar AS atau sekitar Rp 450 juta rupiah.

"Ini benar-benar bukan tentang 2012," kata Robert Vicino, pemilik Vivos. "Segala sesuatu bisa terjadi besok atau 20 tahun dari sekarang. Anda tidak bisa memprediksi, tetapi Anda dapat mempersiapkan diri," tulis iklan perusahaan pada situsnya. Ironisnya jika bungker perlindungan ini dibangun di Indonesia, kebanyakan hanya para koruptor dan makelar pajak seperti GT Cs saja yang mampu menyelamatkan diri dari "kiamat".(Xinhua/AST/AYB)

Virus Penggemar Situs Porno Serang Komputer

2010-04-18T02:55:00.000-07:00

Liputan6.com, Tokyo: Anda yang mengemari situs porno, sebaiknya berhati-hati saat mengakses, karena sebuah virus ciptaan penggemar situs porno, Kenzero mulai menyerang pengguna permainan on line orang dewasa. Demikian dirilis situs Yahoo, Jumat (16/4).

Dalam laporan disebutkan virus asal Jepang menggunakan taktik baru yang mengejutkan sehingga membuat berantakan sistem dan data komputer pengguna setelah terinfeksi. Virus tersebut dalam tahap serangan awal, menargetkan pengguna layanan file sharing bernama Winni, yang diperkirakan diakses sekitar 200 juta pengguna.

Ketika pelanggan Winni menggunakan situs untuk mengunduh file secara ilegal dari permainan orang dewasa, seperti permainan animasi "Hentai", secara tidak sadar PC mereka terinfeksi oleh virus Kenzero. Virus tersebut mampu membuat salinan catatan apa yang telah diunduh dan di "browsing". Kemudian catatan dan data pribadi pengguna akan diposting di internet secara otomatis oleh virus, sehingga publik dapat mengakses bocoran data tersebut.

Alhasil ketika pengguna panik akibat infeksi virus dan publikasi tentang sejarah situs. Korban kemudian akan dihubungi dan diminta tebusan uang guna menghapus duplikasi data di internet. Sang pemeras pun dengan enteng menyebutkan dana "penyelesaian praperadilan" untuk "pelanggaran undang-undang hak cipta" sebesar US $ 16 atau sekitar Rp 160 ribu. Bahkan, sumber BBC, menyebutkan bagi korban pemerasan asal Eropa diminta hiaya lebih tinggi US $ 400 atau sekitar Rp 4 juta.

Meteor Jatuh di Wisconsin, AS

2010-04-15T22:27:00.000-07:00

VIVAnews - Sebuah pancaran bola api yang diduga meteor jatuh terekam dalam kamera Universitas Wisconsin. Meteor itu membumbung tinggi dan memancarkan sinar sekitar pukul 10 malam waktu setempat.

"Pancaran bola api meteor itu juga terlihat di Missouri, Illinois dan Iowa," kata petugas Badan Cuaca, David Sheets, di Davenport, Iowa, Jumat 16 April 2010.

Menurut dia, meskipun pancaran itu terlihat dahsyat, hingga kini belum dilaporkan adanya kerusakan akibat jatuhnya meteor itu. Gambar video itu terekam oleh Departemen Atmosfir dan Kelautan, Universitas Wisconsin.

Bola api itu melintasi langit Midwestern pada Rabu 13 April malam. Saat terjatuh dilaporkan benda itu menimbulkan getaran dan mengaktifkan alarm yang dimiliki penduduk setempat.

Penduduk lokal melaporkan, mereka melihat cahaya bola api yang luar biasa benderang di langit. Tetapi, petugas setempat belum bisa memastikan lokasi jatuh benda itu.

"Sebelum benda itu mencapai bumi, benda itu pecah menjadi beberapa bagian kecil," ujar David. Saat benda itu menghujam bumi, sempat terjadi beberapa ledakan sonik.

Hingga kini belum bisa dipastikan asal benda itu. Apakah berasal dari hujan meteor yang sedang terjadi di Bumi? Atau berasal dari puing-puing benda langit astronot di atmosfir. Sumber: www.VIVAnews.com

Grafik Excel 2007 to Visual Basic Application

2010-03-24T19:49:00.000-07:00

Ketersedian component tools memudahkan user memvisualisasikan data dalam bentuk grafik menggunakan Microsoft Excel 2007. Saya akan menampilkan grafik data yang lebih atraktif mengunakan fasiltas Visual Basic Application tentunya ini merupakan salah satu fasilitas dari Microsoft excel 2007. Grafik yang ditampilkan merupakan grafik dinamis yang dapat menampilkan data sesuai dengan keperluan Anda. Hasil tampilannya seperti gambar di atas.

Pertama Anda membuat file data pada excel 2007. Misalkan saya ingin menampilkan grafik dari contoh file data seperti gambar di bawah ini.

Setelah Anda selesai membuat data seperti file data yang saya buat. Tekan Alt + F11

Kemudian tekan Insert klik UserForm. Tampilannya seperti gambar di bawah ini.

ToolBox yang akan digunakan untuk mendisain Form tersebut, perhatikan table di bawah ini:

ToolBox	Properties
1 UserForm	Name: UserForm1 Caption: Verynandus Hutabalian'S Blog VBA & Excel 2007
1 CommandButton	Name:CommandButton1 Caption:Tampilkan Grafik
1 ScrollBar	Name:ScrollBar1
1 ChartSpace	Name:ChartSpace1
2 Label	Name: Label 1-2 Caption Label1: Jumlah Banyak Data Yang Ditampilkan ==>> Caption Label2: Geser Scroll ==>>
1 TextBox	Name: TextBox1

Disain ToolBox di atas pada form, seperti gambar di bawah ini:

Klik kanan form, kemudian klik View Code. Ketikkan listing program di bawah ini.

Source Program:

'+++++++++++++++++++++++++++++++++++++++++++++++++'
' Grafik Excel 2007 to Visual Basic Application '
'================================================='
' File Data Berada pada Sheet1 dengan Nama Visual '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Editing Programming by: Verynandus Hutabalian '
' Publish to V. Hutabalian's Blog 17 March 2010 '
'++++++++++++========================+++++++++++++'
Option Explicit
Option Base 1
Dim Cht As ChChart
Dim c

Private Sub ScrollBar1_Change()
TextBox1.Text = ScrollBar1.Value - 3 & " " & "Data"
End Sub

Private Sub UserForm_Initialize()
Set c = ChartSpace1.Constants
Set Cht = ChartSpace1.Charts.Add
End Sub

Private Sub CommandButton1_Click()
Dim d As Integer
Dim i As Integer, x As Integer
Dim j As Integer
Dim Tableau(15), Plage(15)
d = CInt(ScrollBar1.Value)

For i = Cht.SeriesCollection.Count To 1 Step -1
Cht.SeriesCollection.Delete i - 1
Next i

For i = 4 To d
Tableau(i) = Cells(1 + i, 1)
Next i
Cht.Type = c.chChartTypeColumnClustered3D
Cht.Rotation = 1

With Cht
.HasLegend = True
.Legend.Position = chLegendPositionBottom
.HasTitle = True
.Title.Caption = "Grafik Penjualan Dalam Satu Tahun"
End With
If Cht.SeriesCollection.Count > 0 Then Cht.SeriesCollection.Add

For i = 4 To d
Plage(i) = Cells(1 + i, j + 2)
Next i

With Cht
.SetData c.chDimCategories, c.chDataLiteral, Tableau
.SeriesCollection(x).Caption = Cells(1, j + 2)
.SeriesCollection(x).DataLabelsCollection.
.SeriesCollection(x).DataLabelsCollection(0).Position = chLabelPositionCenter
.SeriesCollection(x).DataLabelsCollection(0).Font.Color = RGB(255, 255, 255)
.SeriesCollection(x).SetData c.chDimValues, c.chDataLiteral, Plage
.SeriesCollection(x).Interior.Color = 50000 * (j + 2)
End With
x = x + 1
Erase Plage
End Sub

Setelah Anda mengetikkan listing source program di atas, tekan F5.

Kemudian Geser Scroll (Perhatikan Disain Form). Tampilannya seperti gambar di bawah ini.

Kemudian tekan tombol Tampilkan Grafik. Tampilannya seperti gambar di bawah ini.

Artikel yang berkaitan:

Visual Data Grafik Excel 2007 vs VBA ===>>Klik disini

Grafik Dinamis Microsoft Excel 2007 ===>>Klik disini

Pengembangan Program dapat di sesuaikan dengan penggunaan yang diingikan, Selamat Berkreasi.

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

Pembelaan Para Perokok

2010-03-22T01:40:00.000-07:00

Beberapa hari yang lalu, saya membaca buku berisikan ungkapan-ungkapan para maniak rokok ketika mereka ditanya dampak positif dari kebiasaan merokok. Uraian-uraian berikut ini bisa jadi menggambarkan ungkapan perasaan terdalam sebagian besar kehidupan Anak Kos Perantauan yang identik dengan kebulan asap rokok di sekitar rongga mulut.

No.	Dampak Positif
1.	Perokok pasif lebih berbahaya daripada perokok aktif, maka untuk mengurangi resiko tersebut aktiflah merokok.
2.	Menghindarkan dari perbuatan jahat karena tidak pernah ditemui orang yang membunuh, mencuri dan berkelahi sambil merokok.
3.	Mengurangi resiko kematian: Dalam berita tidak pernah ditemui orang yang meninggal dalam posisi merokok.
4.	Berbuat amal kebaikan: Kalau ada orang yang mau pinjam korek api paling tidak sudah siap / tidak mengecewakan orang yang ingin meminjam.
5.	Baik untuk basa-basi / keakraban: Kalau ketemu orang misalnya di Halte kita bisa tawarkan rokok. Kalau basa-basinya tawarkan uang kan nggak lucu.
6.	Memberikan lapangan kerja bagi buruh rokok, dokter, pedagang asongan dan perusahaan obat batuk.
7.	Bisa untuk alasan untuk tambah gaji karena ada post untuk rokok dan resiko baju berlubang kena api rokok.
8.	Bisa menambah suasana pedesaan / nature bagi ruangan ber AC dengan asapnya sehingga se-olah² berkabut.
9.	Menghilangkan bau wangi²an ruang bagi yang alergi bau parfum.
10.	Kalau mobil mogok karena busi ngadat tidak ada api, maka sudah siap api.
11.	Melatih kesabaran dan menambah semangat pantang menyerah karena bagi pemula merokok itu tidak mudah, batuk² dan tersedak tapi tetap diteruskan (bagi yang lulus).
12.	Untuk indikator kesehatan: Biasanya orang yang sakit pasti dilarang dulu merokok. Jadi yang merokok itu pasti orang sehat.
13.	Menambah kenikmatan: Sore hari minum kopi dan makan pisang goreng sungguh nikmat. Apalagi ditambah merokok!
14.	Tanda kalau hari sudah pagi, kita pasti mendengar ayam merokok.
15.	Anti maling, waktu perokok batuk berat di malam hari.
16.	Membantu shooting film keji, rokok digunakan penjahat buat nyundut jagoan yang terikat dikursi... Ha³ penderitaan itu pedih jendral...!!!
17.	Film Koboy pasti lebih gaya kalau merokok sambil naik kuda, soalnya kalau sambil ngupil susah betul.
18.	Teman boker yang setia.
19.	Bahan inspirasi dan pendukung membuat Tugas Akhir, sehingga seharusnya dicantumkan terima kasih untuk rokok pada kata sambutan... Gile kali yeee.

Ini merupakan uraian lelucon dari buku, Tertawalah Mumpung Masih Gratis.

Ditemukan, Planet Serupa Jupiter yang Dingin

2010-03-20T08:33:00.000-07:00

PARIS, KOMPAS.com - Pencarian planet asing di luar tata surya kita mencapai babak baru dengan ditemukannya planet dingin seukuran Jupiter yang mengelilingi sebuah bintang. Temuan ini diharapkan membantu para peneliti mengungkap apa yang ada di luar tata surya kita.

"Ini planet luar pertama yang bisa kita pelajari secara mendalam," ujar Claire Moutou, salah satu dari 60 astronom yang ambil bagian dalam penemuan tersebut. "Ini bisa menjadi batu Rosetta di bidang pencarian planet luar."

Lebih dari 400 planet luar telah ditemukan sejak tahun 1995. Namun belum ada satupun yang benar-benar menyerupai Bumi kita, dalam arti bisa mendukung kehidupan. Kebanyakan planet itu berupa bola gas raksasa seperti Jupiter dan berada sangat dekat dengan bintang pusatnya sehingga suhunya membara sampai seribu derajat Celsius atau lebih.

Sedangkan temuan baru yang dinamai CoRoT-9b ini relatif dingin dengan suhu permukaan antara 160 dan -20 derajat Celsius. Planet yang mengorbit bintangnya selama 95 hari ini terletak di gugus bintang Serpens atau Ular. Sebagai perbandingan, Merkurius mengorbit Matahari dalam waktu 88 hari.

Lebih banyak data mengenai CoRoT-9b tampaknya bakal segera diperoleh para peneliti. Pasalnya planet ini adalah satu dari hanya 70 planet luar yang terlihat lewat (transit) antara bintang pusatnya dengan teleskop di Bumi. Kesejajaran ini membuat cahaya bintangnya bisa menembus atmosfer planet dan tampak dari Bumi. Berdasar apa yang terlihat, para peneliti bisa mengetahui ukuran planet dan komposisi kimianya.

Hal lain yang menggembirakan, waktu transit planet ini mencapai delapan jam, sehingga banyak waktu bagi para astronom untuk mengamatinya.

Inilah Mawar Antariksa dari NASA

2010-03-20T08:27:00.000-07:00

KOMPAS.com — Teleskop NASA memotret sebuah awan antariksa yang dipenuhi bintang-bintang baru yang ditaburi debu-debu ruang angkasa. Citra inframerah ini berasal dari kumpulan bintang baru yang dilabel Berkeley 59.

Tiap bintangnya "baru" beberapa juta tahun dan karena warna-warni merah dan hijaunya, para ilmuwan NASA menyamakannya dengan sebuah mawar kosmis.

Citra ini diambil oleh perangkat baru NASA, yaitu Penjelajah Survei Inframerah Berlingkup Lebar atau Wide-field Infrared Survey Explorer (WISE). Pengamat antariksa ini bernilai 320 juta dollar AS dan dibangun untuk memetakan seluruh langit dengan mendetail. Teleskop ini juga telah memotret asteroid gelap dan komet yang sebelumnya susah ditangkap citranya.

Teleskop WISE milik NASA diperkirakan bisa menyelesaikan pemetaan langitnya dalam enam bulan lagi.

Kembali pada mawar kosmis itu, cahaya merah di tengahnya adalah akibat panas yang dipancarkan oleh bintang-bintang dalam awan itu. Daerah hijau zamrud di pinggirannya adalah molekul-molekul polycyclic aromatic hydrocarbon yang bisa ditemukan juga di Bumi, yaitu dari hasil pembakaran, contohnya dari pipa knalpot mobil atau bahkan di dasar panggangan barbeque.

Visual Data Grafik Excel 2007 vs VBA

2010-03-20T07:55:00.000-07:00

Anda ingin memvariasikan tampilan data Excel Anda dalam bentuk GUI? Sebaiknya Anda mencoba Tips Excel 2007 ini, semoga Tips dari saya ini menambah tingkat kemahiran dan pemahaman Anda dalam visualisasi pengolahan data Excel. Ketersediaan tools component yang lengkap pada Microsoft Excel 2007 memudahkan kita dalam proses visualisasi hasil pengolahan data yang telah kita inputkan. Saya akan mencoba mengkreasikan dan memvisualisasikan sebuah contoh file data dengan memanfaatkan fasilitas "Visual Basic Application".

Perhatikan langkah-langkah penerapannya di bawah ini.

Langkah pertama, Buatlah sebuah file data. Contoh file data yang saya buat bernama Nilai Semester.xlsx, perhatikan gambar di bawah ini:

Drug Command Button(ActiveX Control) pada lembar kerja ada di bawah tabel data. Perhatikan gambar di bawah ini:

Setelah itu klik kanan Command Button yang Anda drug tadi lalu pilih Properties, kemudaian ganti Caption CommandButton1 menjadi Tampilkan Menu Visual Grafik Data Di Atas. Kemudian klik kanan kembali, lalu pilih View Code. Tuliskan code program sebagai berikut:

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Ganti name Worksheet dengan Visual. Perhatikan gambar di bawah ini:

Setelah Anda mengetikkan code program di atas pilih Tab Insert kemudian tekan UserForm. Kemudian desain Form tersebut dengan beberapa Toolbox di bawah ini:

ToolBox	Properties
1 UserForm1	name:UserForm1 Caption:Verynandus Hutabalian Blog's
1 ChartSpace	name: ChartSpace1
3 Label	name: Label 1-3 Caption: Sesuai dengan keinginan Anda
2 ScrollBar	name: ScrollBar 1-2
2 CommandButton	name: CommandButton 1-2
1 ListBox	name: ListBox 1

Desain component ToolBox di atas seperti desain gambar di bawah ini:

Setelah Anda mendesain Form di atas dengan mengatur setiap properties yang di miliki oleh setiap object ToolBox. Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.
Source Program:

'+++++++++++++++++++++++++++++++++++++++++++++++++'
'Visual Data vs Grafik in Visual Basic Application'
'================================================='
' File Data Berada pada Sheet1 dengan Nama Visual '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Editing Programming by: Verynandus Hutabalian '
' Publish to V. Hutabalian's Blog 17 March 2010 '
'++++++++++++========================+++++++++++++'
Option Explicit
Option Base 1
Dim Cht As ChChart
Dim C
Private Sub ScrollBar2_Change()
Cht.DirectionalLightIntensity = ScrollBar2 / 10
Cht.DirectionalLightRotation = ScrollBar2 * 5
Cht.DirectionalLightIntensity = ScrollBar2 / 10
End Sub

Private Sub UserForm_Initialize()
Dim x As Byte

Set C = ChartSpace1.Constants
Set Cht = ChartSpace1.Charts.Add
For x = 3 To 8
ListBox1.AddItem Cells(x, 1)
Next x
End Sub

Private Sub CommandButton1_Click()
Dim i As Integer, x As Integer
Dim j As Integer
Dim Tableau(6), Plage(6)
For i = Cht.SeriesCollection.Count To 1 Step -1
Cht.SeriesCollection.Delete i - 1
Next i
For i = 1 To 6
Tableau(i) = Cells(2, 1 + i)
Next i

With Cht
.HasLegend = True
.Legend.Position = chLegendPositionBottom
.HasTitle = True
.Title.Caption = "Grafik Nilai Bidang Studi Setiap Semester"
End With
If CommandButton2.Caption = "Graphic Bar" Then
Cht.Type = C.chChartTypeBarClustered3D
Else
Cht.Type = C.chChartTypeColumnClustered3D
End If

For j = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(j) = True Then
If Cht.SeriesCollection.Count > 0 Then Cht.SeriesCollection.Add
For i = 1 To 6
Plage(i) = Cells(j + 3, 1 + i)
Next i

With Cht
.SetData C.chDimCategories, C.chDataLiteral, Tableau
.SeriesCollection(x).Caption = Cells(j + 3, 1)
.SeriesCollection(x).DataLabelsCollection.Add
.SeriesCollection(x).DataLabelsCollection(0).Position = chLabelPositionCenter
.SeriesCollection(x).DataLabelsCollection(0).Font.Color = RGB(255, 255, 255)
.SeriesCollection(x).SetData C.chDimValues, C.chDataLiteral, Plage
.SeriesCollection(x).Interior.Color = 50000 * (j + 1)
End With

x = x + 1
Erase Plage
End If
Next j
End Sub

Private Sub CommandButton2_Click()
If CommandButton2.Caption = "Graphic Bar" Then
CommandButton2.Caption = "Graphic colom Bar"
Else
CommandButton2.Caption = "Graphic Bar "
End If
End Sub

Private Sub ScrollBar1_Change()
Cht.Rotation = ScrollBar1
End Sub

Setelah Anda mengetikkan listing source program diatas tekan F5. Kemudian Pilih nilai data yang ingin di tampilkan pada list, contoh Fisika 1. Hasil tampilan visualnya seperti gambar di bawah ini.

Menampilkan grafik tidak hanya dari jendelan desain Microsoft Visual Basic Application, dengan membuka Nilai Semester.xlsx kembali dan menekan tombol Tampilkan Menu Visual Grafik Data Di Atas di bawah tabel data tersebut maka dapat menampilkan desain visual seperti gambar paling atas.

Pengembangan Program dapat di sesuaikan dengan penggunaan yang diingikan, selamat Berkreasi.

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

Dua Data Dalam Satu Grafik Pie

2010-03-16T10:07:00.000-07:00

Dahulu saya menyangka bahwa grafik pie hanya dapat digunakan untuk menampilkan satu jenis data saja, ternyata setelah membaca buku 90 Trik Tersembunyi Excel 2007 terbitan Maxikom karangan Dwi Ninggar grafik Pie dapat menampilkan dua data sekaligus.

Perhatikan langkah-langkahnya sebagai berikut:

Buatlah contoh data seperti file Data Harga Laptop.xlsx berikut:

Sorot range A2:B7.

Tekan tombol Alt+NK. Pilih type chart:Pie, klik OK. Hasilnya perhatikan gambar di bawah ini:

Klik kanan chart, pilih Select Data....

Pada Kolom Legend Entries (Series) , klik tombol Add

Jendela Edit Series ditampilkan. Klik tanda panah Series name, lalu sorot sel C2. Klik tanda panahnya kembali.

Klik tanda panah kolom Series values, sorot sel C3:C7. Klik tanda panahnya kembali. Hasilnya lihat gambar di bawah ini:

Klik OK. Tutup jendela Select Data Source, klik OK.

Klik grafik, pilih tab Format. Pada group Current Selection, klik tombol drop down lalu pilih "Series 2009".

Klik tombol Format Selection. Di dalam kotak dialog Format Data Series, pilih Secondary Axis. Klik Close. Perhatikan Gambar di bawah ini:

Klik tengah-tengah grafik, lalu drag keluar. Hasilnya akan tampil seperti gambar di bawah ini:

Anda pastikan grafik 2009 masih dalam keadaan terseleksi, klik kanan lalu pilih Format Data Series...

Pilih Fill lalu hilangkan tanda chek pada pilihan Vary colors by slice . Kemudian, pilih Solid fill . Klik tombol Color> pilih Dark Blue Text 2, Lighter 40%. Klik Close.

Klik kanan kembali pilih Add Data Labels. Klik pada data labels lalu pilih Format data labels. Beri pengaturan seperti gambar di bawah ini:

Klik Close. Hasilnya lihat gambar di bawah ini:

Kemudian, Anda akan mengatur format untuk grafik 2010. Klik di tengah grafik. Perhatikan pada tabel, kolom 2010 akan terseleksi.

Klik kanan grafik, pilih Format Data Series... Pada grafik Fill, hilangkan tanda chek pada pilihan Vary colors by slice.

Untuk Border Color, pilih Solid line beri color: Green. Klik Close.

Pastikan grafik masih terseleksi, klik kanan kembali lalu pilih Add Data Labels.

Klik kanan pada data labels kemudian pilih Format Data Labels. Beri pengaturan seperti gambar di bawah ini.

Klik Close. Hasilnya lihat gambar paling atas.

Sang Maestro Bernama Waktu

2010-03-11T12:36:00.000-08:00

Manusia berada dalam pelukan sang waktu. Pelukannya kadang kala terasa terlalu erat, begitu tidak bersahabat.

Apakah manusia senantiasa dalam suasana waktu yang bahagia?

Apa itu sang waktu?

Apakah sang waktu sebuah sosok pribadi?

Apakah waktu hanya sang penonton, penulis, dan pendengar abadi?

Kekuatan apa dibalik sang waktu?

Apakah manusia dapat melepaskan diri dari belenggu sang waktu?

Adakah yang dapat menghentikan sang waktu?

Ketika waktu berhenti, apakah manusia mempunyai hasrat?

Adakah hubungan sebab akibat antara keberadaan sang waktu dan timbulnya s'gala hasrat pada diri manusia?

Apakah dengan terhentinya sang waktu akan menghentikan penyebab duka manusia, akibat dari bentrokan kepentingan antara hasrat negatif dan positif manusia?

Dimanakah keberadaan sang maestro bernama waktu?

Apakah pikiran manusia itu sendiri merupakan wujud sang waktu?

Seandainya waktu dapat berhenti, Mungkin Manusia tidak perlu memikirkan kebutuhan metabolisme tubuhnya terutama untuk makan (Bagasi yang menimbulkan polemik bagi kehidupan manusia). Yang paling penting, Anak Kosan akan merdeka dari tuntutan utang di warteg. :-)

Terlahir dari Buah Pemikiran Amburadul dan S'dikit Iseng Verynandus Hutabalian.

Plotting Data Random vs DataGridView vs Real Time

2010-03-09T22:22:00.000-08:00

Monitoring grafik data secara real time memudahkan kita menganalisa pola data actual saat itu juga dengan mengacu pada visualisasi tampilan pola grafik data. Saat ini pengambilan dan pengolahan data secara real time atau actual sangat dibutuhkan dalam menganalisa, mengevaluasi dan memberikan solusi penanganan secara dini hasil kinerja dari suatu sistem. Contoh Windows Task Manager, pada jendela performance terdapat grafik CPU Usage History dan Physical Memory Usage History dari kedua grafik tersebut kita dapat mengetahui kinerja komputer secara real time.

Aplikasi yang saya buat ini merupakan sebuah gambaran bagaimana mekanisme menampilkan grafik data random secara real time, tentunya dari aplikasi ini dapat dilakukan pengembangan lebih lanjut untuk sistem lainnya bukan hanya diperuntukkan menampilkan data random saja.

Hasil tampilannya, perhatikan gambar paling atas. ToolBox yang akan kita gunakan, perhatikan table di bawah ini:

Desain Form dari ToolBox di atas perhatikan gambar di bawah ini.

Setelah Anda mendesain Form di atas dengan mengatur setiap properties yang di miliki oleh setiap object ToolBox. Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.
Source Program:

'+++++++++++++++++++++++++++++++++++++++++++++++'
' Plotting Data Random Real Time '
'==============================================='
' Nilai Data random maksimum = 100 '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' Created Programming by: Verynandus Hutabalian '
' Publish to V. Hutabalian's Blog 10 March 2010 '
'++++++++++++======================+++++++++++++'

Imports System.Drawing.Drawing2D
Public Class Form1
Private OldValue As Single = 0
Private NewValue As Single = 0
Dim XMove As Integer = 1
Dim Chunks As Integer = 12
Dim b As Integer
Dim count As Single
Dim maksGraph As Single = 120
Dim minGraphs As Single = 0
Dim count1 As Single
Dim intNumber As Integer

Private Function DisplayGuidelinesAndChart(ByVal PicBox As PictureBox, ByVal chunks As Integer, _
ByVal XMove As Integer, ByVal NewValue As Single, ByVal Min As Single, ByVal Max As Single) As Bitmap

Dim bm As New Bitmap(PicBox.Width, PicBox.Height)
Dim gr As Graphics = Graphics.FromImage(bm)
Dim MyPen As Pen = New Pen(Color.Blue, 3)
Dim MyPath As New GraphicsPath
Dim ValueRange As Single = Max - Min
Dim vScale As Single = PicBox.Height / ValueRange
gr.DrawPath(MyPen, MyPath)
Dim p As Pen = New Pen(Color.DarkRed, 2)

If Not IsNothing(PicBox.Image) Then
gr.DrawImage(PicBox.Image, -XMove, 0)
End If

NewValue *= vScale

gr.TranslateTransform(0, PicBox.Height)

If Min > 0 Then gr.TranslateTransform(0, Min * vScale)
gr.DrawLine(p, PicBox.Width - 10 - XMove, -OldValue, PicBox.Width - 10, -NewValue)
MyPath.AddEllipse(PicBox.Width - 10 - XMove, OldValue, 1, 1)
MyPath.AddRectangle(New Rectangle(PicBox.Width - 10, NewValue, 1, 1))
OldValue = NewValue
gr.RotateTransform(180)
gr.ScaleTransform(-1, 1)
gr.DrawPath(MyPen, MyPath)
gr.ResetTransform()
Return bm

gr.Dispose()
End Function

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
PicGraph.Image = DisplayGuidelinesAndChart(PicGraph, Chunks, XMove, Me.count, minGraphs, maksGraph)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PicGraph.Refresh()
Timer1.Enabled = False
Timer2.Enabled = False
End Sub

Private Sub PicGraph_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PicGraph.Paint
Dim ix As Integer = PicGraph.Width
Dim iy As Integer = PicGraph.Height
Dim chunks1 As Single = 12
Dim chunk As Single = ix / Chunks
Dim chunk1 As Single = iy / chunks1

Dim p As Pen = New Pen(Color.Gray, 0.05)

Dim MinValue As Single = PicGraph.Height
Dim MaxValue As Single = PicGraph.Height
Dim HowManyChunks As Single = 12
Dim chunk2 As Single = iy / HowManyChunks
For x As Integer = chunk To ix Step chunk
e.Graphics.DrawLine(p, x, 0, x, iy)
Next
For y As Integer = iy - chunk1 To 0 Step -chunk1
e.Graphics.DrawLine(p, 0, y, ix, y)

Next

Dim NextMarker As Integer = maksGraph
Dim ValueRange As Integer = maksGraph - minGraphs
For i As Single = 0 To iy Step chunk2
e.Graphics.DrawString(CStr(NextMarker), New Font("Verdana", 8, FontStyle.Regular), Brushes.Yellow, 1, i)
NextMarker -= (ValueRange / HowManyChunks)

Next
e.Graphics.DrawString("VERYNANDUS HUTABALIAN", New Font("Lucida Handwriting", 10, FontStyle.Regular), Brushes.Goldenrod, iy - 140, 6)
e.Graphics.DrawString("25 Maret 2009", New Font("Lucida Handwriting", 10, FontStyle.Regular), Brushes.Goldenrod, iy - 45, 20)
e.Graphics.DrawString("F I S I K A U N P A D", New Font("Lucida Handwriting", 10, FontStyle.Regular), Brushes.Goldenrod, iy - 140, 40)
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label1.Text = ""
Randomize()
intNumber = Int((100 * Rnd()) + 1)
Label1.Text = Label1.Text & intNumber
count = "" + Label1.Text
count1 = count1 + 1

Label3.Text = "Number Data Random Record Pada Tabel : " & count1

b = count1

DataGridView1.Rows.Add()
DataGridView1.Item(0, b - 1).Value = count1
DataGridView1.Item(1, b - 1).Value = Now
DataGridView1.Item(2, b - 1).Value = count
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PicGraph.Refresh()
PicGraph.Controls.Clear()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Label3.Text = "Number Data Random Record Pada Tabel : " & count1
End Sub
End Class

Setelah Anda mengetikkan listing source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini, kemudian tekan tombol Start tampilannya seperti gambar paling atas.

Pengembangan Program dapat di sesuaikan dengan penggunaan yang diingikan, selamat Berkreasi.
Artikel terkait mengenai Tips ini:
DataGridView Auto Counter Visual Basic 2008 ===>>Klik disini
Grafik Dynamic Line Visual Basic 2008===>>Klik disini
ThreadGraph Dynamic Line Visual Basic 2008===>>Klik disini
Dynamic Line Plotting Data Random Visual Basic 2008===>>Klik disini

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

Perjalanan 3 Hari Pangrango Cibodas

2010-03-07T12:22:00.000-08:00

Mengisi Hari liburan selama 3 hari di Taman Nasional Pangrango 26-28 Februari 2010. Para Pelaku (mayoritas penghuni salah satu kosan di Kelapa Dua-Depok):
1. Yudi Panggabean (Penggerak dan bendahara)
2. Tri Agus Sinaga (Koki)
3. Muhammad Supatmo Sutoto Sugee (Logistik)
4. Chandra (Logistik)
5. Galih Hutagalung (Ngeramiin)
6. Dul (Ngerameiin)
7. Verynandus Hutabalian (Ngerameiin)

Pagi hari, Tanggal 26 Februari 2010 setiap pelaku mempersiapkan perlengkapan pakaian selama 3 hari setelahnya berkumpul mengikuti Pungli (pungutan liar Rp 50.000,- per pelaku) untuk biaya segala akomodasi dan membagi tugas mempersiapkan perlengkapan tenda (NB: tenda pinjaman), bahan-bahan makanan untuk masak di Pangrango dan tidak lupa bahan bakar (Rokok). Uang yang tersisa di bendahara Rp 185.000 untuk biaya perjalanan setelah di kurangi dengan biaya pembelian bahan makanan.

Perjalanan di mulai pukul 14.00 WIB naik Angkot menuju Terminal Rambutan tepatnya di jalan baru, sesampainya di sana semua pada kebingungan menyerupai anak-anak gelandangan, pengamen dan sejenisnya. Dari sebagian pelaku bergegas menanyakan beberapa orang di sekitar kita untuk meminta saran ke mana kaki kami harus melangkah selanjutnya. Ini merupakan pengalaman pertama kalinya untuk semua pelaku terkecuali Muhammad Supatmo Sutoto Sugee (ini kedua kalinya buat M. Sutoto, membawa anak-anak yang dia sendiri juga ke bingungan).

Akhirnya kita dapat saran dari Dodi, kenalan baru yang arah perjalananya sama dengan para pelaku yang tersesat. Sarannya kita harus menuju Ciawi dulu karena jalan menuju puncak lagi di buka-tutup alias macet, sehingga banyak bus yang tidak melalui akses jalan ini. Jalanan menuju puncak akan selalu macet menjelang hari libur karena banyaknya wisatawan domestik yang berkunjung ke daerah puncak untuk mengisi hari liburan.

Akhirnya diputuskan kita naik bus menuju Ciawi-Cianjur dan setelahnya kita tunggu keterangan sesudah sampai di sana. Biaya ongkos yang kami keluarkan Rp. 6.000/orang. Kami menanggung ongkos Dodi sebagai ucapan terimakasih dari kami atas bantuannya menjadi peta hidup dalam perjalanan kami. Sesampainya di Ciawi, setelah turun dari bus tak terasa hawa kebingungan merasuk ke ubun-ubun kami. Hawa Kebingungan memberikan sentuhan di lekukan raut wajah kami, terpancar ekspresi muka memelas. Dodi yang tak jauh dari kami dengan segala panca indera yang dimilikinya merasakan luapan hawa kebingungan dari setiap kepala pelaku dan akhirnya dengan kemurahan hati dia memanggil para pelaku (Para pelaku berlari seperti kerumunan ayam yang lagi di beri makan oleh Tuannya).

Dodi menyarankan kita naik mobil bak terbuka karena ongkosnya murah dan kondisi keuangan tidak menyediakan pilihan lain. Dengan sabar kami menunggu kira-kira saat itu pukul 16.30 WIB, akhirnya mobil yang ditunggu-tunggu telah tiba. Dodi dan M. Sutoto menghentikan laju mobil dengan melambaikan tangan dan berhenti tidak jauh dari kerumunan orang-orang terlantar yang harus menemukan jalan yang lurus. Sebelum kami menaiki mobil tersebut, M. Sutoto mendapat mandat kehormatan dari kami sebagai negosiator menemui juru kemudi untuk melobi biaya ongkos yang harus kami keluarkan untuk 8 orang (Dodi termasuk) dan akhirnya disepakati Rp 20.000,-. Bergegas para pelaku berlarian menaiki mobil dengan segala perlengkapan tempur di pundak.

Di sepanjang perjalanan yang macet dengan antrian kendaraan, suara kami terdengar riuh-rendah. Canda, tawa dan nyanyian yang kami hadirkan di sepanjang perjalanan menjadi pusat perhatian pengendara yang ada di sekitar angkutan kami. Di bak mobil ada 12 orang karena tidak hanya kami saja yang menggunakan jasa mobil tersebut. Bak mobil cukup sempit buat kami duduk karena hampir sepertiga spacenya dipakai untuk meletakkan barang-barang perlengkapan kami. Di tengah perjalanan tepatnya di Taman Safari Indonesia Cibeureum Kecamatan Cisarua hujan cukup deras mengiringi perjalanan kami, tentunya kami tidak kebahasan karena beruntung di mobil tersebut tersedia sebuah lembaran plastik yang cukup luas untuk menutupi seluruh badan mobil bak terbuka tersebut sehingga kami bekerja sama merentangkan plastik tersebut di atas kepala kami, saat itu pukul 19.30 WIB.

Akhirnya kami sampai di Cibodas dan kami harus berpisah dengan Dodi karena kami mengemban misi yang berbeda. Untuk menuju Taman Nasional Pangrango kami harus menaiki angkutan umum dengan biaya ongkos Rp. 2000,- per orang. Sesampainya di gerbang Bukit Perkemahan Taman Nasional Pangrango, biaya masuk yang di kenakan Rp 13.500 per orang untuk satu malam. Kami tidak punya duit yang cukup karena uang yang tersisa di bendahara Rp 100.000 (dikurangi dengan biaya tak terduga). Akhirnya terjadi kesepatakatan bersama, ide curang bersemai di kepala kami dengan cara memanfaatkan jasa calo dan kami di haruskan hanya membayar Rp 35.000,- untuk 7 orang sekaligus dalam 2 malam. Kami memang bisa masuk ke bumi perkemahan Taman Nasional Pangrango lewat pintu belakang dan setelahnya kami mulai mendirikan tenda dan segera mempersiapakan alat-alat masak karena cacing perut mulai menuntut haknya, saat itu pukul 21.00 WIB.

Tak lama kemudian kami didatangi sejumlah orang yang ternyata petugas keamanan Bumi Perkemahan Taman Nasional Pangrango, salah satu dari mereka menanyakan kelengkapan karcis masuk yang harus dimiliki oleh setiap orang yang kemping di Bumi Perkemahan Taman Nasional Pangrango (Tak ada seorangpun dari kami yang menjawab pertanyaan mudah tersebut, ingin berkelit tapi takut kemaluan bertambah menjadi dua/takut kualat). Kami diusir dan di haruskan mengangkat segala perlengkapan yang telah kami dirikan saat itu juga. Kami tidak bisa berbuat apa-apa, terpaksa harus mengepak kembali segala perlengkapan kami ke tas. Kami keluar dari pintu belakang tempat awal kami masuk.

Di pintu Gerbang Taman Nasional Pangrango ada 2 pemuda setempat dengan kemurahan hati menawarkan lokasi gratisan buat kami berkemah malam itu juga (saat itu pukul 22.30 WIB), bendahara kami memberikan uang Rp. 30.000 sebagai ucapan terima kasih. Kami mendirikan tenda kembali dan mulai memasak. Inti Acara perkemahan yang kami adakan selama 3 hari sebatas untuk menyantaikan diri dengan keindahan alam pegunungan.

Pagi hari tanggal 28 Februari 2010, saat itu jam 07.00 WIB. Para pelaku bangun pagi untuk mempersiapkan diri pulang, semua aktivitas dimulai dengan mengepak pakaian kotor dan perlengkapang masak ke tas. Setelah semua selesai, sebagian dari para pelaku hendak mandi ke sungai yang tak jauh dari tenda yang kami dirikan (jaraknya lebih kurang 20 meter) dan sesuatu hal buruk terjadi, 3 pasang sepatu yang terletak di luar tenda hilang. Semua sepatu ditaruh di luar tenda, korban salah satunya adalah penulis sendiri (Verynandus Hutabalian). Akhirnya Aku, Galih dan Dul dalam beberapa kilometer perjalanan pulang bertelanjang kaki. Sepintas lalu dalam perjalanan, kami mencari warung terdekat yang menjual sandal swallow. Syukurlah apa yang kami cari ketemu, akhirnya aku pulang dengan kaki beralas.

Momen terbaik yang tidak terlupakan adalah Saat kita berbagi suka maupun duka dengan orang-orang terkasih yang selalu berada di dekat kita.

Perjalanan Hidup akan bermakna jika selalu beriring dengan sebuah kebersamaan.

Memorial menghempaskan waktu dan keabadian memberikan ruang ingatan di kemudian hari.

Nilai Nominal Angka Terbilang VB 2008

2010-01-16T12:50:00.000-08:00

Dalam Laporan Nota Keuangan, Data berupa angka seringkali disebutkan angka terbilang nominalnya. Tips kali ini bagaimana membuat Aplikasi sederhana untuk hal tersebut.
Tampilannya seperti Gambar di atas. Ikuti langkah-langkah di bawah ini:

Design Form dari Toolbox di atas seperti gambar di bawah ini:

Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.
Source Program:

'++++++++++++++++Data Terbilang+++++++++++++++++'
'===============27 Desember 2009================'
'===Created By: Verynandus Hutabalian==========='
' Input Data Maksimal 7 Digit (1 - 7 Digit Data)'
'Program Anda Bisa Kembangkan dan Di aplikasikan'
'##############Slamat Mencoba Guys##############'
Public Class Form1
Dim imputan As Single
Dim data As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Jumlah_Karakter()
End Sub
Private Sub Jumlah_Karakter()
REM menentukan panjang karakter
Dim jmltext, jmlchar, k As Single
Dim DigitAngka As Single
Dim datapul1 As Char
Dim data As Single
jmltext = Val((TextBox3.Text)) REM Inisialisasi panjang karakter
TextBox3.Text = jmltext
DigitAngka = Len(TextBox3.Text)
datapul1 = CStr(Mid(TextBox3.Text, 1)) REM inisialisasi puluhan
data = Val(datapul1) REM inisialisasi puluhan

For k = 0 To DigitAngka - 1 REM seleksi panjang karakter
jmlchar = Val(jmlchar) + 1
TextBox1.Text = Val(jmlchar)
Next

If jmlchar = 1 Then
Call Satuan()
TextBox1.Text = Val(jmlchar) & " " & "Digit (Satuan)" REM tampilkan data satuan
End If

If jmlchar = 2 And data = 1 Then
Call Belasan()
TextBox1.Text = jmlchar & " " & "Digit (Belasan)" REM tampilkan
End If

If jmlchar = 2 And data >= 2 Then
Call Puluhan()
TextBox1.Text = jmlchar & " " & "Digit (Puluhan)" REM tampilkan puluhan
End If

If jmlchar = 3 Then
Call Ratusan()
TextBox1.Text = Val(jmlchar) & " " & "Digit (Ratusan)" REM tampilkan ratusan
End If

If jmlchar = 4 Then
Call Ribuan()
TextBox1.Text = jmlchar & " " & "Digit (Ribuan)" REM tampilkan ribuan
End If

If jmlchar = 5 Then
Call belasribuan()
TextBox1.Text = jmlchar & " " & "Digit (Belas Ribuan)" REM tampilkan belas ribuan
End If
If data >= 2 And jmlchar = 5 Then
Call PuluhRibuan()
TextBox1.Text = jmlchar & " " & "Digit (Puluh Ribuan)" REM tampilkan belas ribuan
End If
If jmlchar = 6 Then
Call RatusRibuan()
TextBox1.Text = jmlchar & " " & "Digit (Ratus Ribuan)" REM tampilkan belas ribuan
End If
If jmlchar = 7 Then
Call Jutaterbilang()
TextBox1.Text = jmlchar & " " & "Digit (Jutaan)" REM tampilkan belas ribuan
End If
End Sub
Private Sub TextBox3_Validated(ByVal sender As Object, ByVal e As System.EventArgs)
REM inisialisasi data imputan berupa angka
If IsNumeric(TextBox3.Text) = False Then
MsgBox("Harus Karakter Angaka", MsgBoxStyle.Exclamation)
End If
End Sub
Private Sub Satuan()
REM data terbilang satuan
If TextBox3.Text = CStr(1) Then
TextBox2.Text = "Satu"
ElseIf TextBox3.Text = CStr(2) Then
TextBox2.Text = "Dua"
ElseIf TextBox3.Text = CStr(3) Then
TextBox2.Text = "Tiga"
ElseIf TextBox3.Text = CStr(4) Then
TextBox2.Text = "Empat"
ElseIf TextBox3.Text = CStr(5) Then
TextBox2.Text = "Lima"
ElseIf TextBox3.Text = CStr(6) Then
TextBox2.Text = "Enam"
ElseIf TextBox3.Text = CStr(7) Then
TextBox2.Text = "Tujuh"
ElseIf TextBox3.Text = CStr(8) Then
TextBox2.Text = "Delapan"
ElseIf TextBox3.Text = CStr(9) Then
TextBox2.Text = "Sembilan"
ElseIf TextBox3.Text = CStr(0) Then
TextBox2.Text = "Nol"
End If
REM selesai untuk terbilang satuan
End Sub
Private Sub Belasan()
REM data terbilang belasan
Dim d As Char

If TextBox3.Text = 10 Then
TextBox2.Text = "Sepuluh"
ElseIf TextBox3.Text = 11 Then
TextBox2.Text = "Sebelas"
ElseIf TextBox3.Text >= 12 Then
imputan = TextBox3.Text
d = Microsoft.VisualBasic.Right(imputan, 1)
TextBox3.Text = Val(d)
Call Satuan()
TextBox2.Text = TextBox2.Text & " " & "Belas"
TextBox3.Text = imputan
End If

REM selisai untuk data terbilang belasan
End Sub
Private Sub Puluhan()
Dim f As Char
Dim k As Char
Dim pul As String
imputan = TextBox3.Text

f = Microsoft.VisualBasic.Right(imputan, 2)
k = Microsoft.VisualBasic.Right(imputan, 1)

If Val(f) > 1 Or Val(k) = 0 Then
TextBox3.Text = Val(f)
Call Satuan()
pul = TextBox2.Text
TextBox2.Text = pul & " " & "Puluh" '& TextBox2.Text
If Val(k) > 0 Then
TextBox3.Text = Val(k)
Call Satuan()
TextBox2.Text = pul & " " & "Puluh" & " " & TextBox2.Text
End If
End If
TextBox3.Text = imputan
REM selisai untuk inisialisasi puluhan
End Sub
Private Sub Ratusan()
Dim rat As Char
Dim f As String
Dim k As Char
Dim DatRatusan As String

imputan = Val(TextBox3.Text)
data = imputan
rat = Microsoft.VisualBasic.Right(imputan, 3)
f = Microsoft.VisualBasic.Right(imputan, 2)
k = Microsoft.VisualBasic.Right(f, 1)

If rat = CStr(1) And f = CStr(0) Then
TextBox3.Text = rat & f
Else
If (0) < text =" k" text = " " text =" f" text = "Seratus"> 19 Then
TextBox3.Text = f
Call Puluhan()
TextBox2.Text = "Seratus" & " " & TextBox2.Text
End If
If Val(f) = 0 Then
TextBox2.Text = "Seratus"

End If
End If

If Val(rat) > 1 Then
TextBox3.Text = rat
Call Satuan()
DatRatusan = TextBox2.Text

If 0 < text =" k" text = " " text =" f" text =" DatRatusan"> 19 Then
TextBox3.Text = f
Call Puluhan()
TextBox2.Text = DatRatusan & " " & "Ratus" & " " & TextBox2.Text
End If
If Val(f) = 0 Then
TextBox2.Text = DatRatusan & " " & "Ratus"
End If
End If

TextBox3.Text = rat & f
End Sub
Private Sub Ribuan()
Dim rib As Char
Dim f As Char
Dim k As Char
Dim l As Char
Dim DatRibuan As String
Dim AngkaRibuan As String
imputan = Val(TextBox3.Text)
rib = Microsoft.VisualBasic.Right(imputan, 4)
f = Microsoft.VisualBasic.Right(imputan, 3)
k = Microsoft.VisualBasic.Right(imputan, 2)
l = Microsoft.VisualBasic.Right(imputan, 1)
data = imputan
DatRibuan = Mid(imputan, 2)

If Val(rib) = 1 Or Val(f) = 0 Or Val(k) = 0 Or Val(l) = 0 Then
TextBox3.Text = Val(rib) & Val(f) & Val(k) & Val(l)
TextBox2.Text = "Seribu"
If Val(l) > 0 Then
TextBox3.Text = Val(l)
Call Satuan()
TextBox2.Text = "Seribu" & " " & TextBox2.Text
End If
If Val(k) = 1 And Val(l) >= 0 Then
TextBox3.Text = Val(k) & Val(l)
Call Belasan()
TextBox2.Text = "Seribu" & " " & TextBox2.Text

End If
If Val(k) > 1 And Val(l) >= 0 Then
TextBox3.Text = Val(k) & Val(l)
Call Puluhan()
TextBox2.Text = "Seribu" & " " & TextBox2.Text
End If

If Val(f) > 0 Then
TextBox3.Text = DatRibuan
Call Ratusan()
TextBox2.Text = "Seribu" & " " & TextBox2.Text
End If
End If

If Val(rib) > 1 Then
TextBox3.Text = Val(rib)
Call Satuan()
AngkaRibuan = TextBox2.Text
TextBox2.Text = AngkaRibuan & " " & "Ribu"
If Val(l) > 0 Then
TextBox3.Text = Val(l)
Call Satuan()
TextBox2.Text = AngkaRibuan & " " & "Ribu" & " " & TextBox2.Text
End If
If Val(k) = 1 And Val(l) >= 0 Then
TextBox3.Text = Val(k) & Val(l)
Call Belasan()
TextBox2.Text = AngkaRibuan & " " & "Ribu" & " " & TextBox2.Text

End If
If Val(k) > 1 And Val(l) >= 0 Then
TextBox3.Text = Val(k) & Val(l)
Call Puluhan()
TextBox2.Text = AngkaRibuan & " " & "Ribu" & " " & TextBox2.Text
End If
If Val(f) > 0 Then
TextBox3.Text = DatRibuan
Call Ratusan()
TextBox2.Text = AngkaRibuan & " " & "Ribu" & " " & TextBox2.Text
End If

End If
TextBox3.Text = Val(rib) & Val(f) & Val(k) & Val(l)
End Sub
Private Sub belasribuan()
Dim BlsRibuan As String
Dim AngkaBlsRibuan As String
Dim DatRatusan As String
Dim f As Char
Dim k As Char
Dim l As Char
imputan = TextBox3.Text
f = Microsoft.VisualBasic.Right(imputan, 3)
k = Microsoft.VisualBasic.Right(imputan, 2)
l = Microsoft.VisualBasic.Right(imputan, 1)

AngkaBlsRibuan = Microsoft.VisualBasic.Left(imputan, 2)
DatRatusan = Mid(imputan, 3)
TextBox3.Text = AngkaBlsRibuan
Call Belasan()
BlsRibuan = TextBox2.Text
TextBox2.Text = BlsRibuan & " " & "Ribu"
If 9 <> 0 Then
TextBox3.Text = Val(l)
Call Satuan()
TextBox2.Text = BlsRibuan & " " & "Ribu" & " " & TextBox2.Text
End If

If Val(k) = 1 And Val(l) >= 0 Then
TextBox3.Text = Val(k) & Val(l)
Call Belasan()
TextBox2.Text = BlsRibuan & " " & "Ribu" & " " & TextBox2.Text
End If

If Val(k) > 1 And Val(l) >= 0 Then
TextBox3.Text = Val(k) & Val(l)
Call Puluhan()
TextBox2.Text = BlsRibuan & " " & "Ribu" & " " & TextBox2.Text
End If
If Val(f) > 1 Then
TextBox3.Text = DatRatusan
Call Ratusan()
TextBox2.Text = BlsRibuan & " " & "Ribu" & " " & TextBox2.Text
End If

End If
TextBox3.Text = AngkaBlsRibuan & DatRatusan
End Sub
Private Sub PuluhRibuan()
Dim PulRibuan As String
Dim AngkaPulRibuan As String
Dim DatRibuan As String
Dim f As Char
Dim k As Char
Dim l As Char
imputan = Val(TextBox3.Text)
f = Microsoft.VisualBasic.Right(imputan, 3)
k = Microsoft.VisualBasic.Right(imputan, 2)
l = Microsoft.VisualBasic.Right(imputan, 1)
AngkaPulRibuan = Microsoft.VisualBasic.Left(imputan, 2)
DatRibuan = Mid(imputan, 3)

TextBox3.Text = AngkaPulRibuan
Call Puluhan()
PulRibuan = TextBox2.Text
TextBox2.Text = PulRibuan & " " & "Ribu"
If Val(l) > 0 Then
TextBox3.Text = Val(l)
Call Satuan()
TextBox2.Text = PulRibuan & " " & "Ribu" & " " & TextBox2.Text
End If

If Val(k) = 1 And Val(l) >= 0 Then
TextBox3.Text = Val(k) & Val(l)
Call Belasan()
TextBox2.Text = PulRibuan & " " & "Ribu" & " " & TextBox2.Text
End If

If Val(k) > 1 And Val(l) >= 0 Then
TextBox3.Text = Val(k) & Val(l)
Call Puluhan()
TextBox2.Text = PulRibuan & " " & "Ribu" & " " & TextBox2.Text
End If
If Val(f) > 1 Then
TextBox3.Text = DatRibuan
Call Ratusan()
TextBox2.Text = PulRibuan & " " & "Ribu" & " " & TextBox2.Text
End If
TextBox3.Text = AngkaPulRibuan & DatRibuan
End Sub
Private Sub RatusRibuan()
Dim RatRibuan As String
Dim AngkaRatRibuan As String
Dim DatRatRibuan As String
Dim datratusan As String
imputan = Val(TextBox3.Text)
AngkaRatRibuan = (Microsoft.VisualBasic.Left(imputan, 3))
DatRatRibuan = (Microsoft.VisualBasic.Right(imputan, 3))

TextBox3.Text = Val(AngkaRatRibuan)
Call Ratusan()
RatRibuan = TextBox2.Text
If Val(DatRatRibuan) = 0 Then
TextBox2.Text = RatRibuan & " " & "Ribu"
End If

If 0 < text =" Val(DatRatRibuan)" datratusan =" TextBox2.Text" datratusan =" TextBox2.Text" datratusan =" TextBox2.Text"> 99 Then
Call Ratusan()
datratusan = TextBox2.Text
End If
TextBox2.Text = RatRibuan & " " & "Ribu" & " " & datratusan

End If
TextBox3.Text = AngkaRatRibuan & DatRatRibuan
End Sub
Private Sub Jutaterbilang()
Dim jutaan As Char
Dim DataRatusRibuan As String
Dim DataRatusRibu As String
Dim DataJutaan As String
imputan = Val(TextBox3.Text)
jutaan = Microsoft.VisualBasic.Left(imputan, 1)
DataRatusRibuan = (Mid(imputan, 2))
DataRatusRibu = (Microsoft.VisualBasic.Left(DataRatusRibuan, 3))
TextBox3.Text = jutaan
Call Satuan()
DataJutaan = TextBox2.Text

REM check satuan, puluhan, ratusan, ribuan, belas ribuan, puluh ribuan, ratus ribuan, jutaan
If 0 < text =" Val(DataRatusRibuan)" text =" Val(DataRatusRibuan)"> 19 Then
TextBox3.Text = Val(DataRatusRibuan)
Call Puluhan()
If Val(DataRatusRibuan) > 99 Then
TextBox3.Text = Val(DataRatusRibuan)
Call Ratusan()
If Val(DataRatusRibuan) > 999 Then
TextBox3.Text = Val(DataRatusRibuan)
Call Ribuan()
If Val(DataRatusRibuan) > 9999 Then
TextBox3.Text = Val(DataRatusRibuan)
Call belasribuan()
If Val(DataRatusRibuan) > 19999 Then
TextBox3.Text = Val(DataRatusRibuan)
Call PuluhRibuan()
If Val(DataRatusRibuan) > 19999 Then
TextBox3.Text = Val(DataRatusRibuan)
Call PuluhRibuan()
If Val(DataRatusRibuan) > 99999 Then
TextBox3.Text = Val(DataRatusRibuan)
Call RatusRibuan()
End If

End If

End If

End If

End If

End If

End If

End If

TextBox2.Text = DataJutaan & " " & "Juta" & " " & TextBox2.Text

End If

TextBox3.Text = jutaan & DataRatusRibuan
End Sub

End Class

Setelah mengetikkan listing dari source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini, kemudian tekan tombol Terbilang tampilannya seperti gambar paling atas.

Pengembangan Program di atas dapat Anda utak-atik, selamat Berkreasi.
Artikel terkait mengenai Tips ini:
Nilai/Angka menjadi Terbilang VB 2008 ===>>Klik disini
Mencari Character Sama Dalam Suatu Text VB 2008===>>Klik disini
Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian

Teleskop Hubble Potret Gambaran Awal Semesta

2010-01-16T12:40:00.001-08:00

Foto Teleskop luar angkasa Hubble dilaporkan berhasil mengungkapkan gambaran awal saat alam semesta terbentuk yang diperkirakan terjadi 600 juta tahun setelah Big Bang, kata Professor astronomi Garth Illingworth dari Universitas California.

Garth pada saat pertemuan masyarakat astronomi Amerika baru-baru ini, merilis rangkaian foto Hubble yang merupakan gambaran paling lengkap pada saat awal alam semesta menunjukkan galaksi dengan bintang-bintang berusia ratusan juta tahun, bersamaan dengan tanda kelompok bintang pertama.

"Dalam foto terlihat galaksi muda belum terbentuk spiral atau elips, berukuran lebih kecil dan berwarna biru karena tidak mengandung banyak logam berat," katanya. Hasil penelitian terbaru ilmuwan NASA tidak lepas dari hasil perbaikan dan peningkatan teleskop Hubble tahun 2009 yang sebelumnya hanya dapat melihat 900 juta tahun setelah "Big Bang".
Sumber: Liputan6.com

Suguhan Baru Bernama Televisi Tiga Dimensi

2010-01-16T12:35:00.000-08:00

ESPN dan Discovery Communications Inc. (DISCA.O) mengumumkan rencana meluncurkan jaringan televisi tiga dimensi (3-D). Seperti dilansir Reuters, Selasa (5/1), peluncuran ini mencerminkan sebuah momentum pertumbuhan dalam industri hiburan untuk pemirsa di rumah.

Perusahaan Walt Disney dan ESPN akan meluncurkan jaringan 3-D pada Juni mendatang. Jaringan 3-D akan disiarkan minimum di 85 acara siaran langsung olahraga selama tahun pertama. ESPN menjadi televisi pertama yang akan menyiarkan pertandingan Piala Dunia sepakbola antara Afrika Selatan dan Meksiko.

Wakil Direktur Eksekutif Penjualan dan Pemasaran ESPN, Sean Bratches, mengatakan: "Ini akan menjadi langkah untuk mendorong penerapan 3-D dan kesempatan bagi kami untuk menciptakan nilai melalui produk baru yang ditawarkan, dan juga pengiklan kami yang menginginkan kesempatan sponsorship yang baru."

Discovery juga telah bergabung dengan perusahaan Sony (6758.T) dan perusahaan IMAX (IMX.TO) untuk meluncurkan jaringan 3-D di Amerika Serikat pada 2011. Jaringan ini akan diterapkan pada program sejarah alam, ruang angkasa, jelajah, dan petualangan pada film dan program anak-anak dari ketiga mitra.

Keberhasilan film epik 3-D, Avatar, menyebabkan banyak orang percaya bahwa 3-D akan mengambil alih pasar dalam negeri. Teknologi 3-D juga akan dipamerkan pada acara tahunan Pertunjukan Konsumen Elektronik di Las Vegas, Amerika Serikat, pekan ini. Namun, transisi mengadopsi 3-D di rumah terbukti lebih rumit, yaitu tantangan untuk meyakinkan pemirsa agar tontonan bisa sama menyenangkan seperti di dalam bioskop. Harga juga akan menjadi masalah bagi konsumen yang mungkin baru saja meng-upgrade televisi mereka.

"Ada beberapa usaha standar untuk dapat meluncurkan 3-D di rumah. Di antaranya, lembaga penyiaran, kabel, operator satelit, dan perusahaan elektronik. Richard Doherty, analis Grup Envisioneering, percaya bahwa akan ada 30 rumah yang menggunakan 3-D hingga 2011. Selanjutnya, angka pertumbuhan pengguna akan naik sebesar 20 persen hingga 2015.
Sumber: Liputa6.com

NASA Diskon Pesawat Ruang Angkasa

2010-01-16T12:31:00.000-08:00

Resesi ekonomi nampaknya juga membuat NASA harus memangkas harga pesawat ruang angkasa buatan 1970an dari US$ 42 juta atau sekitar Rp. 420 miliar menjadi US $ 28.8 juta atau sekitar Rp. 288 miliar, demikian rilis Associated Press Jum'at (15/1).

Keputusan ini dibuat, setelah NASA berencana menghentikan jadwal penerbangan pesawat yang seharusnya dilakukan musim gugur tahun ini. Bahkan sejak Desember 2008, pesawat sudah ditawarkan ke museum, sekolah dan beberapa tempat lain. Alhasil ada sekitar 20 calon pembeli. Adanya diskon diharapkan akan makin menarik banyak peminat, demikian dikatakan juru bicara NASA, Mike Curie.

Penawaran sebelumnya telah ditujukan pada Museum Nasional Ruang Angkasa dan Udara Smithsonian Institution untuk membeli pesawat Pesawat Atlantis dan Endeavour. Kemungkinan juga pesawat Enterprise, pesawat prototipe yang tidak pernah diterbangkan ke luar angkasa, yang kini ada di Smithsonian juga akan ditawarkan.

Harga penawaran rendah terbaru NASA tersebut didasarkan pada perkiraan biaya angkut pesawat ulang-alik dari Pusat Ruang Angkasa Kennedy ke bandara besar di Amerika Serikat, dan pembuatan ruang pameran khusus. Biaya dapat bervariasi berdasarkan lokasi pengiriman. Bila anda berminat, masih ada kesempatan sebelum penawaran ditutup pada 19 Februari ini.
Sumber: Liputan6.com

Lubang di Bulan Bisa Ditempati Manusia?

2010-01-16T12:28:00.000-08:00

Para Ilmuwan Internasional menemukan lubang besar di bulan yang dapat dijadikan tempat tinggal manusia. Lubang tersebut juga bisa dijadikan tempat perlindungan dari ancaman meteor. Lubang besar yang diberi nama "lubang lahar" itu adalah bekas aliran lava vulkanik di bulan.

Lava yang menyembur miliaran tahun silam meninggalkan sebuah terowongan dengan atap yang mudah retak dan berpotensi runtuh. Miliaran tahun silam, suhu bulan lebih hangat dan unsur vulkaniknya aktif. Demikian diungkapkan Tim Peneliti Internasional yang dipimpin oleh Jaunichi Haruyama dari Agensi Luar Angkasa Jepang JAXA.

Menurut para Tim Ilmuwan Internasional, permukaan di bulan memiliki satu buah lubang vertikal yang sangat dalam namun masih memiliki akses cahaya. Sehingga, tempat itu bisa dijadikan basis perlindungan bagi para penjelajah luar angkasa atau astronot. Menurut para ahli, lubang itu berbentuk lingkaran dengan lebar 213 kaki atau 65 meter dan kedalaman 260 kaki atau sekitar 80 meter.

Bulan seringkali terserang meteor dan radiasi langsung. Sebab bulan tidak memiliki atmosfer pelindung seperti di bumi. Namun, lubang kawah yang ditemukan di bulan bisa jadi tempat perlindungan yang aman.

"Saluran lava melindungi lingkungan yang rentan di bulan, maka tabung tersebut bisa dijadikan markas pelindung manusia di bulan," kata seorang ilmuwan dari Tim Ilmuwan Internasional.

Para ilmuwan meneliti "tabung lahar" dari pencitraan resolusi tinggi di Jepang dan sudah dipasang pada orbit bulan di Jepang bernama Selene. Penemuan ini sempat dipublikasikan pada 12 November silam. Namun, baru menarik perhatian masyarakat luas pekan ini.

Lubang kawah serupa juga ditemukan di planet Mars dan diperkirakan mampu menjadi tempat berlindung yang potensial, jika memang manusia ingin mengembangkan eksistensi gua manusia modern di luar angkasa. Karena itu, Badan Antariksa Amerika Serikat (NASA) dijadwalkan berangkat ke bulan pada 2020 dan diharapkan tempat itu dapat dijadikan tempat tinggal sementara pada 2025.
Sumber: Liputan6.com

Teleskop NASA Tangkap Objek Misterius

2010-01-16T12:27:00.000-08:00

Teleskop Kepler pencari planet milik NASA menemukan dua obyek misterius ruang angkasa yang dikelilingi bintang. Namun belum bisa dipastikan apakah benda misterius itu planet atau bintang, rilis Associated Press Senin (4/1).

Kepala ilmuwan Teleskop NASA, Bill Borucki mengatakan, objek itu belum bisa dipastikan planet atau bintang karena memiliki panas ribuan derajat melebihi bintang disekelilingnya. Benda-benda itu jauh lebih besar dan lebih panas dibanding planet yang berada pada tata surya kita.

Temuan itu dibahas pada pertemuan Masyarakat Astronomi Amerika, di Washington Senin (4/1). Peneliti NASA Jason Rowe yang menemukan benda misterius itu untuk sementara menyebutnya sebagai "sahabat panas" (hot companions). Disebut begitu karena benda itu memiliki suhu kira-kira 26,000 derajat Farenheit, bisa melelehkan timah atau besi.

Rowe menduga benda-benda itu mungkin planet yang baru lahir. Planet baru biasanya memiliki suhu yang sangat tinggi, dan Rowe memperkirakan benda itu berumur sekitar 200 juta tahun.

Sedangkan Ronald Gilliland, peneliti dari Institut Ilmu Teleskop Luar Angkasa mengatakan, mungkin benda-benda itu adalah bintang kecil putih yang sekarat dan menanggalkan kulit terluarnya lalu menyusut.

Fokus utama dari teleskop Kepler dalam misinya selama tiga tahun ini adalah untuk mengetahui planet lain di alam semesta. Hanya dalam waktu enam minggu, teleskop Kepler menemukan lima planet baru. Ini lebih cepat dari perkiraan para astronom.

"Lima planet baru itu jauh lebih besar daripada bumi, jarak ke bintang-bintang yang mengitarinya jauh lebih dekat ketimbang jarak Bumi ke matahari, dan kondisinya terlalu panas untuk kehidupan", kata Kepala Ilmuwan Teleskop NASA, Bill Borucki. Selain temuan itu masih ada ratusan benda lain yang perlu konfirmasi lebih lanjut.
Sumber: Liputan6.com

Plastic Logic, Revolusi Cara Baca Manusia

2010-01-16T12:21:00.000-08:00

Pekan ini adalah perjalanan sukses selama 25 tahun bagi sebuah perusahaan Inggris. Perusahaan ini akan meluncurkan Plastic Logic`s e-reader pada pembukaan Consumer Electronics Show di Las Vegas, Amerika Serikat, Kamis (7/1) mendatang. Plastic Logic merupakan kombinasi kemenangan ilmu pengetahuan dan teknologi. Ini bisa menjadi salah satu pertunjukan produk yang bertahan lama. Atau itu bisa terkubur karena kalah bersaing dengan perangkat dari perusahaan yang lebih terkenal.

Seperti dilansir BBC, belum lama berselang, perjalanan ini dimulai di Universitas Cambridge, Inggris. Tepatnya, era 80-an. Ketika itu fisikawan Richard Friend membuat bahan berbasis semikonduktor. Awalnya, dia gagal melakukan kerja sama dengan perusahaan agar tertarik dengan hasil penelitiannya, yaitu plastik dioda pemancar cahaya.

Tapi ketika ia bekerja sama dengan dosen Henning Sirringhaus dari Cambridge, mereka akhirnya menemukan cara untuk mencetak transistor ke plastik. Pekerjaan inilah yang menyebabkan perkembangan cahaya. Dan, nantinya penampilan fleksibel Plastic Logic akan merevolusi cara membaca oleh manusia.

Plastic Logic telah menandatangani kesepakatan dengan sejumlah kelompok-kelompok utama surat kabar, termasuk Financial Times dan USA Today. Produk e-reader akan memasuki pasar bisnis di mana lebih didominasi oleh produk-produk seperti Amazon Kindle dan Sony Reader. Tokoh penting lain dalam perjalanan Plastic Logic adalah Herman Hauser, ilmuwan dan penanam modal dari Cambridge selama dua dekade terakhir.

Berdasarkan sebuah laporan baru, Apple pun dijadwalkan akan meluncurkan produk baru di akhir Januari ini.
Sumber: Liputan6.com

Dua Batu Prasejarah di Sungai Purba

2010-01-16T11:55:00.000-08:00

Dua unit batu prasejarah terbuat dari jenis batu andesit ditemukan di kawasan dekat Sungai Purba yang berlokasi di Kelurahan Tlogomas, Kecamatan Lowokwaru, Kota Malang, Jawa Timur.

Menurut anggota tim Purbakala Museum Mpu Purwa Kota Malang, Wardoyo, Sabtu, timnya telah melakukan eskavasi dua batu prasejarah tersebut dan saat ini diamankan di Museum Mpu Purwa yang berlokasi di Jalan Soekarno Hatta.

"Dua batu ini merupakan peninggalan zaman prasejarah yang pada zaman itu dipergunakan sebagai alat mengasah benda tajam. Dilihat dari lokasi temuan dapat disimpulkan jika masyarakat zaman dahulu sudah hidup menetap di aliran Sungai Purba yang kini telah kering," katanya mengungkapkan.

Ia mengatakan, kedua batu tersebut pada zaman dulu juga dianggap sebagai batu sakral, sehingga setiap kegiatan upacara yang dilaksanakan masyarakat itu selalu dilibatkan. Jika diteliti seksama, kedua batu itu mempunyai goresan selebar sekitar 3 centimeter dengan panjang sekitar 50 centimeter, artinya terdapat lima goresan yang biasa digunakan untuk pengasahan benda tajam.

Selain itu, lanjutnya, dalam goresan tersebut juga terdapat goresan lain yang membentuk segitiga yang diyakini sebagai simbol kesuburan. "Goresan segitiga ini suatu lambang kesuburan yang juga bisa diartikan alat kelamin perempuan yang juga berarti kesuburan," paparnya.

Kedua batu ini ditemukan Rabu (13/1) oleh warga sekitar secara terpisah dengan jarak sekitar 100 meter dari batu pertama, dengan diameter kira-kira 15 centimeter dari ke dalaman Sungai Purba yang kering sekitar 14 centimeter.

Sebelumnya, Tim Purbakala Kota Malang juga melakukan eskavasi dua batu zaman prasejarah yakni batu tugu (Stamba) berbentuk dasar segi empat dan segi delapan di wilayah Buring Kecamatan Kedungkandang.

Satu batu dalam kondisi utuh dengan tinggi 110 centimeter, lebar dasar segi empat 35 centimeter dan diameter 45 centimeter. Sedangkan satu batu yang tidak utuh itu tingginya hanya 30 centimeter.

Batu Stamba itu diperkirakan sebagai tanda batas wilayah pada zaman Kerajaan Majapahit di abad XIV.
Sumber: Kompas.com

Banyak yang Keliru Ilustrasikan Butir Salju

2009-12-26T16:28:00.000-08:00

Kenyataannya, banyak gambar butir salju dalam kultur populer kita justru salah. Demikian menurut para ahli. Butir salju mustinya berujung enam, bukan empat, lima, atau delapan seperti yang biasa terpampang di buku bergambar anak-anak, kartu natal, atau bahkan di salah satu iklan untuk majalah ilmu pengetahuan.

Thomas Koop dari Universitas Bielefeld, Jerman, sempat menemukan kesalahan pada ilustrasi butir salju yang ditampilkan iklan majalah ilmu pengetahuan Nature. Ilustrasi itu menampilkan butir salju berujung delapan.

"Ironisnya iklan itu memampang teks '...untuk yang mencintai ilmu pengetahuan'," kata Koop. Terlebih lagi, kritikan Koop itu juga dimuat di majalah Nature edisi 24 Desember.

Butir salju terdiri dari molekul-molekul air dengan ikatan hidrogen. Ikatan yang paling efisien adalah dalam bentuk rangkaian kristal heksagonal. Demikian Koop menjelaskan. Jadi, butir salju menurut hukum alam bukannya delapan sisi, melainkan enam sisi.

"Hasil rangkaian kristal heksagonal adalah bentuk energi terendah air pada kondisi dingin," ucap Koop. "Seiring komponen penyusunnya merapat dalam bentuk heksagonal pada skala molekular, maka kristal salju juga mengikuti bentuk simetri heksagonal ini pada skala makroskopis."

Namun, ukurannya bisa bervariasi, dan dalam hal ini anggapan populer masih akurat, yaitu bahwa tak ada dua keping salju yang persis sama. Setidaknya tidak untuk butiran salju yang besar.

"Terbentuknya butir salju tergantung pada kelembaban dan suhu, dan dua faktor ini bisa sangat bervariasi di atmosfer. Jadi, seiring jatuhnya butir salju, pola kelembaban dan suhu yang dilalui tiap butir berbeda-beda sehingga masing-masing unik bentuknya."

Namun menurut riset, untuk kasus kristal es yang lebih kecil, yang belum berkembang penuh ketika membumi, teori keunikan ini tak akurat.

Koop juga menunjukkan, satu lagi kesalahan ilustrasi yang umum pada media adalah ilustrasi air hujan. Mustinya tetesan air hujan tidak berekor lancip lalu membundar di bawah, tapi semestinya cenderung bulat dan juga sisi bawahnya cenderung rata karena terdorong udara seiring tetesan itu jatuh.
Sumber: Kompas.com

Software Baru yang Aman Virus

2009-12-23T19:12:00.000-08:00

'Microsoft Security Essentials' telah diluncurkan secara global, September lalu. Penggunaan software ini, seperti dilansir Indiatimes, Rabu (16/12), adalah gratis bagi para pengguna Windows asli, dengan menyediakan pengobatan anti-virus, anti-malware dan solusi anti-spyware.

Solusi keamanan ini sangat dibutuhkan konsumen, terutama untuk menghindari ancaman, seperti phising, malware dan serangan spyware yang berkembang. "Kami telah mengantisipasi kebutuhan keamanan konsumen dan memberikan bentuk perlindungan hassle free dan non-intrusif ke PC pengguna," ucap Rishi Srivastava, officer konsumen microsoft India dan marketing online.

Microsoft Security Essentials termasuk alat-alat pemeriksa komputer untuk infeksi berbahaya dari perangkat lunak spesifik. Penawaran baru ini ditargetkan pada pengguna PCdi rumah, yang sering bingung dengan solusi keamanan yang dijual di pasar. Microsoft juga menawarkan solusi keamanan terpisah untuk klien perusahaan.

Dengan populasi online yang berkembang dari 49 juta pengguna Internet di India, ancaman seperti hacking dan phising juga sudah tampil, sehingga mengakibatkan kerugian finansial pada konsumen maupun perusahaan.
Sumber:Liputan6.com

Penarik Kereta Sinterklas Ternyata Betina

2009-12-23T19:06:00.000-08:00

Dasher dan Dancer dan Prancer dan Vixen—rusa-rusa kutub penarik kereta sinterklas—barangkali kecewa dengan hasil pertemuan iklim di Kopenhagen yang tidak tegas memutuskan langkah apa yang harus disepakati untuk mencegah pemanasan global. Kekecewaan itu beralasan karena jumlah reindeer atau rusa kutub menurun hingga 60 persen dalam tiga dekade terakhir akibat perubahan iklim dan kerusakan habitat karena ulah manusia.

Padahal setiap Natal tiba, reindeer selalu menjadi hewan yang menonjol karena Sinterklas dilukiskan bepergian mengunjungi rumah-rumah dengan menggunakan kereta salju yang ditarik rusa kutub. Dengan populasi yang terus menurun, dunia pun menaruh perhatian lebih pada hewan-hewan itu. Di luar ancaman terhadap mereka, ada fakta-fakta menarik mengenai hewan yang juga disebut caribou itu. Inilah beberapa di antaranya:

Reindeer dan caribou adalah dua nama yang merujuk pada satu hewan, yakni Rangifer tarandus. Sebutan reindeer sering kali mengacu pada rusa domestik yang digembalakan manusia dan dipakai menarik kereta. Rusa-rusa ini kebanyakan hidup di Skandinavia dan Siberia, serta umumnya lebih kecil dan memiliki kaki lebih pendek dibanding caribou liar. Di Siberia, caribou disebut reindeer liar. Ukuran badan dan bobot mereka bervariasi tergantung jenis kelamin dan usia. Caribou dewasa mencapai tinggi 1 meter dan berat sekitar 170 kilogram untuk yang jantan dan 90 kilogram untuk betina.

Mereka mampu berlari kencang, tetapu tak bisa terbang seperti rusa sinterklas. Caribou bisa berlari dengan kecepatan 80 km/jam. Bila terancam hewan pemangsa, caribou akan berlari dengan kepala dan ekor terangkat. Ia pun mampu melompat dengan sigap.

Caribou adalah hewan yang selalu bergerak. Kawanan hewan ini bisa bergerak hingga 5.000 km dalam setahun, yang menurut IUCN adalah mamalia darat dengan pergerakan paling jauh. Di laut, hewan yang bergerak jauh adalah paus bongkok. Paus ini mampu berenang 8.000 km ke tempat beranak pinak.

Rusa kutub, seperti namanya, adalah hewan yang mampu menahan dingin. Mereka hidup di Alaska, Kanada, Skandinavia, dan Rusia. Kulitnya diselimuti bulu-bulu berongga yang mampu menahan panas. Sistem peredaran darahnya memungkinkan reindeer menjaga suhu darah di kaki tetap rendah dan tidak terpengaruh suhu tubuhnya yang lebih hangat.

Reindeer adalah hewan yang tenang sehingga Sinterklas tak perlu khawatir akan membangunkan anak-anak saat mengunjungi rumah mereka. Reindeer betina hanya mengeluarkan bunyi pada bulan pertama setelah melahirkan, sementara reindeer jantan bersuara hanya saat musim kawin.

Rusa yang menarik kereta sinterklas (bila sesuai dengan gambarannya) semuanya pastilah betina. Alasannya, rusa jantan akan menanggalkan tanduk mereka seusai musim kawin yang jatuh awal Desember. Rusa betina akan tetap bertanduk selama musim dingin. Selain itu, rusa jantan hanya akan menyimpan 5 persen lemak saat Natal tiba. Mereka telah kehilangan banyak lemak saat musim kawin. Sementara itu, rusa betina memiliki lemak tubuh hampir 50 persen yang bisa membuat mereka bertahan di suhu minus 43 derajat celsius.
Sumber: Kompas.com

Mencari Character Sama Dalam Suatu Text VB 2008

2009-12-22T21:15:00.000-08:00

Tips kali ini merupakan aplikasi yang sederhana, namun hal rumit bertumbuh dari kesederhanaan konsep. Aplikasi ini menghitung Character yang sama dalam sebuah Text. Tampilannya seperti gambar di atas. Ikuti langkah-langkah di bawah ini:
Toolbox yang digunakan seperti gambar di bawah ini:

Design Form dari Toolbox di atas seperti gambar di bawah ini:

Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.
Source Program:

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PanjangChar, jmlchar, i As Integer

REM menolkan hitung awal character
jmlchar = 0

REM menghitung jumlah karakter yang diketik atau di copy paste ke textbox2
REM ke dalam kotak text
REM di inisialisasikan dalam variabel Panjang Text
PanjangChar = Len(TextBox2.Text)

REM Merubah data inputan menjadi huruf besar
TextBox1.Text = UCase(TextBox1.Text)
TextBox2.Text = UCase(TextBox2.Text)

REM Melakukan looping atau perulangan sebanyak jumlah Character
For i = 0 To PanjangChar
TextBox2.Focus()
TextBox2.SelectionStart = i
TextBox2.SelectionLength = 1

REM Memeriksa keadaan di setiap inputan
If TextBox2.Text = "" Or TextBox1.Text = "" Then
MsgBox("Ketikkan Text")

REM Pencarian jika kedua inputan telah terisi
REM Bandingkan Character yang di cari pada TextBox1 dengan
REM Kalimat yang di ketik atau di copy paste pada Textbox2
ElseIf TextBox2.SelectedText = TextBox1.Text Then
REM Melakukan Penambahan ketika ditemukan character yang sama
jmlchar = jmlchar + 1
'End If
End If
Next
REM tampilkan pada Label3
Label3.Text = "Anda Mempunyai" & " " & jmlchar & " " & "Character" & " " & TextBox1.Text & " " & "Pada Text di atas"
REM Kembali Focus pada Button1 untuk interuksi berikutnya
Button1.Focus()
End Sub
End Class

Setelah mengetikkan listing dari source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini, kemudian tekan tombol Pencarian tampilannya seperti gambar paling atas.

Pengembangan Program di atas dapat Anda utak-atik, selamat Berkreasi.
Artikel terkait mengenai Tips ini:
Nilai/Angka menjadi Terbilang VB 2008 ===>>Klik disini
Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian

Bukti Pertama Pantulan Cahaya dari Cairan di Luar Bumi

2009-12-22T21:08:00.000-08:00

Wahana ruang angkasa Cassini yang tengah melayang di sekitar Planet Saturnus merekam cahaya dari permukaan Titan, salah satu bulannya planet tersebut. Cahaya tersebut kemungkinan besar sebagai pantulan cahaya Matahari di atas permukaan cairan salah satu danau raksasa di permukaan Titan.

Dari hasil pengamatan selama ini, Titan memang diyakini memiliki danau-danau raksasa berisi cairan meski tak dapat terlihat langsung karena tertutup atmosfernya yang tebal. Meski demikian, kamera inframerah dapat menangkap pantulan berkas cahaya Matahari yang sampai ke permukaan danau tersebut. Foto yang dibuat Cassini merupakan rekaman pertama pantulan cairan di luar Bumi itu.

"Gambar ini merupakan salah satu foto ikonik Cassini," ujar Bob Pappalardo, ilmuwan di Laboratorium Propulsi Jet NASA di Pasadena, California, yang tergabung dalam riset Cassini. Ia mengatakan, Titan semakin mirip Bumi tidak hanya punya atmosfer, tetapi juga danau berisi cairan dan sifat-sifat lainnya.

Cahaya yang direkam Cassini merupakan pantulan cairan di bagian selatan danau raksasa yang disebut Kraken Mare. Danau tersebut seluas 400.000 km persegi atau lebih besar daripada Laut Kaspia, danau terbesar di Bumi saat ini.

Titan merupakan satu-satunya obyek di tata surya, selain Bumi, yang sejauh ini diketahui mengandung cairan. Namun, cairan yang menggenangi danau-danau di Titan bukanlah air seperti di Bumi, melainkan metana dan etana, cairan hidrokarbon yang terbentuk dari molekul-molekul karbon dan atom-atom hidrogen.

Teori adanya cairan di Titan sudah dikemukakan sejak 20 tahun lalu dan terus dilakukan penelitian untuk membuktikannya. Pada tahun 2008, kamera inframerah yang dibawa wahana Cassini yang sudah menjelajah kawasan tersebut sejak tahun 2004 memastikan kandungan cairan di Ontario Lacus, danau terbesar di belahan selatan Titan. Belahan utara malah memiliki danau-danau lebih besar dan banyak belum bisa dipastikan apakah mengandung cairan atau tidak.

Kandungan cairan hidrokarbon di Titan menarik perhatian para ilmuwan karena zat kimia tersebut berpotensi mendukung kehidupan. Siapa tahu masih ada kehidupan di sana atau suatu saat manusia menginjakkan kakinya di permukaan Titan.
Sumber: Kompas.com

Ditemukan Planet Serupa Bumi yang Memiliki Air

2009-12-17T11:37:00.001-08:00

PARIS, Para astronom telah menemukan sebuah planet serupa Bumi yang mayoritas permukaannya tertutup air. Planet itu berukuran lebih besar dengan radius 2,7 kali radius Bumi. Demikian diungkapkan dalam penelitian yang dipublikasikan dalam journal ilmiah Nature, Rabu (16/12/2009).

Planet yang kemudian disebut "Bumi Super" itu berada sejauh 42 tahun cahaya di sistem tata surya lain. Adapun satu tahun cahaya adalah jarak yang bisa ditempuh cahaya dalam setahun atau sekitar 9.460.730.472.580.800 kilometer.

Penemuan planet GJ 1214b itu merupakan langkah maju dalam usaha pencarian planet lain yang mirip Bumi. Demikian dikatakan Geoffrey Marcy, peneliti dari Universitas California. Meski begitu, menurut penelitian di Pusat Astrofisika Harvard-Smithsonian, planet yang baru ditemukan itu terlalu panas untuk bisa mendukung kehidupan.

"Kepadatannya menunjukkan bahwa, meski tiga perempat bagiannya ditutupi air dan seperempatnya batuan, ada petunjuk bahwa planet itu memiliki atmosfer penuh gas," demikian dituliskan di laporan Nature. Suhu di sana diperkirakan antara 120 dan 280 derajat celsius, walau bintang di pusatnya memilki ukuran sekitar seperlima Matahari kita. Planet "Bumi Super" itu mengelilingi bintangnya yang kecil dan redup tiap 38 jam.

Bila disejajarkan dengan planet luar atau exoplanet lain yang juga mirip Bumi, planet ini berukuran lebih kecil, lebih dingin, dan paling mirip dengan Bumi. Exoplanet adalah planet yang berada di luar sistem tata surya kita.

Mengenai keberadaan air di sana, disebutkan bahwa air itu kemungkinan berbentuk kristal yang terjadi akibat tekanan 20.000 kali lebih besar dibanding tekanan di atas permukaan laut Bumi.

Dibanding planet temuan lain, misalnya CoRoT-7b yang mengelilingi sebuah bintang amat panas, planet baru ini relatif jauh lebih dingin. CoRoT-7b memiliki kepadatan mendekati Bumi (5,5 gram per sentimeter kubik) dan sepertinya berbatu, sementara GJ 1214b sepertinya hanya memiliki kepadatan 1,9 per sentimeter kubik. Menurut peneliti, mengingat kepadatan planet yang sedemikian rendah, pasti ada air dalam jumlah besar di sana.
Sumber: Kompas.com

Ada Kaitan Alzheimer dengan Hormon Nafsu Makan

2009-12-17T11:35:00.000-08:00

Risiko mengidap alzheimer bisa jadi berkaitan dengan kadar hormon penekan nafsu makan yang disebut "leptin". Demikian laporan suatu riset yang dipublikasikan, Rabu (16/12/2009), yang dapat menunjukkan jalan ke arah pengobatan penyakit itu di masa depan.

Journal of the American Medical Association (JAMA) melaporkan bahwa para ahli di Massachusetts, Amerika Serikat, menemukan, tingginya kadar hormon leptin, yang mengendalikan nafsu makan, tampaknya berhubungan dengan menurunnya risiko alzheimer.

"Temuan ini sejalan dengan data penelitian baru-baru ini yang menunjukkan leptin meningkatkan fungsi ingatan pada hewan dan memperkuat bukti bahwa leptin adalah hormon yang merupakan sinyal penghubung sistem syaraf pusat," kata para ahli yang menggarap Framingham Heart Study, sebuah riset berusia 60 tahun di bawah arahan National Heart, Lung and Blood Institute (NHLBI).

Leptin, yang dihasilkan oleh sel lemak tubuh, mengirimkan sinyal ke otak setelah seseorang menyantap makanan yang cukup banyak sehingga mengurangi desakan untuk makan.

Studi tersebut mengukur tingkat leptin pada beberapa ratus orang berusia lanjut yang tidak mengidap demensia. Perhatian khusus diberikan pada sub-kelompok dengan kondisi bahwa 200 obyek penelitian lebih rajin menjalani pemeriksaan pencitraan resonansi magnetis (MRI).

Riset selama 12 tahun itu menunjukkan bahwa obyek dengan tingkat leptin paling rendah lebih mungkin terserang penyakit syaraf tersebut dibanding mereka yang memiliki tingkat leptin paling tinggi.

Sebanyak 25 persen obyek penelitian dengan tingkat leptin paling rendah, menurut studi itu, belakangan terserang Alzheimer, sementara hanya enam persen orang dengan tingkat leptin paling tinggi yang terserang penyakit tersebut.

Para peneliti mengatakan, studi tersebut menunjukkan bahwa tingkat leptin seorang pasien akhirnya dapat digunakan sebagai penanda dalam mendiagnosis penyakit itu, atau bahkan dapat mengarah pada terobosan dalam pengobatannya.

"Jika temuan kami dikonfirmasi oleh yang lain, maka tingkat leptin pada orang dewasa berusia lanjut mungkin dapat menjadi salah satu dari beberapa biomaker bagi kesehatan otak orang tua. Dan yang lebih penting lagi, hal ini mungkin membuka jalur baru bagi kemungkinan untuk membuat pencegahan dan pengobatan," kata para penulis tersebut.

Sebanyak 37 juta orang di seluruh dunia, termasuk 5,3 juta orang di AS, hidup dengan demensia atau kepikunan, dan penyakit alzheimer merupakan penyebab penting kasus itu. Demikian menurut Organisasi Kesehatan Dunia (WHO). Dengan bertambahnya penduduk, jumlah kasus demensia diperkirakan meningkat dengan cepat dalam 20 tahun ke depan.
Sumber: Kompas.com

Gen Penyebab Alzheimer Berhasil Ditemukan

2009-12-17T11:31:00.000-08:00

Setelah penelitian selama 15 tahun, para ilmuwan akhirnya berhasil mengidentifikasi gen yang menyebabkan penyakit Alzheimer.

Tiga gen tersebut adalah clusterin, complement receptor 1 (CR1), dan PICALM, yang diduga merupakan tipe gen yang paling banyak ditemukan pada 90 persen kasus Alzheimer. Identifikasi gen ini dilakukan oleh dua kelompok ilmuwan di Wales, Inggris, dan Perancis.

"Bila kita bisa menghilangkan tiga gen yang punya dampak merusak ini, kita bisa mengurangi risiko terjadinya Alzheimer hingga 20 persen," kata Julie Williams, profesor neuropsychological genetic dari Britain's Cardiff University.

Gen lain yang juga berkaitan dengan penyakit yang menyebabkan kepikunan di usia lanjut ini adalah apolipoprotein E (ApoE) yang diidentifikasi pada tahun 1993 sejak para ahli mengetahui bahwa kemunduran fungsi otak terkait dengan faktor genetik.

Pada studi terkini yang dilakukan oleh Profesor Williams, ia melakukan pemindaian terhadap peta genetik pada 16.000 orang dari delapan negara. Akhirnya berhasil diidentifikasi dua gen, yang disebut clusterin dan PICALM yang meningkatkan risiko terjadinya Alzheimer.

Studi kedua dilakukan oleh Philippe Amouyel dan timnya dari Pasteur de Lille di Perancis, yang meneliti 6.000 pasien Alzheimer dan 9.000 orang sehat di Perancis, Belgia, Finlandia, Italia, dan Spanyol. Para peneliti juga berhasil mengidentifikasi clusterin dan gen ketiga yang disebut CR1.

Meski tiga gen ini relatif ditemui pada semua pasien, Amouyel mengatakan bahwa agak sulit menghitung risiko terjadinya Alzheimer dengan gen. Ia juga menekankan bahwa belum diketahui, kombinasi gen mana saja dan faktor lingkungan lain apa yang menyebabkan Alzheimer.

Para ahli mengatakan, clusterin mungkin menyebabkan risiko Alzheimer 10 persen, PICALM sekitar 9 persen, dan CR1 4 persen. Bila dijumlahkan, risikonya diperkirakan menjadi 20-25 persen.

Tiga variasi gen ini juga berkait dengan gejala awal munculnya Alzheimer yang diturunkan di keluarga. Karena itu, dengan mengidentifikasi gen ini, para ahli akan lebih mudah mengenali penyebab penyakit dan menciptakan obat untuk melawannya.

Kemunduran daya ingat

Alzheimer merupakan penyakit yang menyebabkan kemunduran daya ingat dan daya pikir akibat kematian sel-sel saraf secara cepat. Saat ini diperkirakan ada sekitar 500.000 kasus Alzheimer di Indonesia.

Gejala Alzheimer bervariasi pada setiap orang, tetapi bisa ditandai dengan terjadinya penurunan daya ingat, misalnya lupa nama, lupa tempat menaruh benda, gangguan aktivitas sehari-hari, perubahan suasana hati dan perilaku, disorientasi, dan sering nyasar. Pada tahap tertentu, penderita Alzheimer tidak ingat apa-apa lagi mengenai diri, keluarga, dan lingkungannya.

Mereka yang berisiko terkena Alzheimer adalah orang lanjut usia (lebih dari 60 tahun), punya riwayat keluarga terkena Alzheimer, penderita stroke, gangguan jantung, diabetes, dan cedera kepala/otak.

Obat Alzheimer yang ada saat ini adalah penghambat kolinesterase. Obat ini untuk memperbaiki daya ingat dan menekan gangguan perilaku, serta peningkatan kualitas hidup.
Sumber: Kompas.com

Kopi Tunda Alzheimer Parah

2009-12-17T11:30:00.000-08:00

Konsumsi kopi setiap hari mungkin membantu menunda perkembangan penyakit Alzheimer, demikian hasil satu studi di dalam edisi Journal of Azheimer’s Disease, edisi online. Minum kopi sebelumnya telah dikaitkan dengan mengecilnya risiko perkembangan Alzheimer.

Beberapa peneliti dari University of South Florida mengkaji 55 tikus yang secara genetika telah direkayasa agar terserang gejala kegilaan yang serupa dengan gejala Alzheimer saat hewan tersebut berusia lanjut.

Alzheimer muncul ketika segumpal protein tidak normal yang lengket di otak yang disebut "beta-amyloid" bertumpuk hingga membentuk plak, sehingga merusak fungsi kofnitif.

Separuh hewan itu diberi dosis kafein setiap hari di dalam air minumnya, sementara separuh lagi terus minum air biasa.

Pada akhir studi dua bulan tersebut, semua tikus yang minum kafein memperlihatkan hasil pemeriksaan yang jauh lebih baik dalam ingatan dan kemampuan berfikirnya dibanding tikus yang diberi air biasa. Daya ingat hewan itu setajam tikus sehat yang lebih tua tanpa kegilaan.

Studi tersebut mendapati bahwa kafein memangkas sampai separuh darah yang berlebihan dan tingkat "beta amyloid" di otak pada tikus itu.

"Temuan baru tersebut memberi bukti bahwa kafein dapat menjadi ’terapi’ yang aktif bagi penyakit Alzheimer, yang sudah menyerang, dan bukan hanya sebagai strategi perlindungan," kata pemimpin peneliti, Gary Arendash, ahli syaraf dari University of South Florida.

"Itu penting karena kafein adalah obat yang aman bagi kebanyakan orang. Zat tersebut dengan mudah memasuki otak. Dan kelihatannya secara langsung mempengaruhi proses penyakit itu," kata Arendash sebagaimana dilaporkan kantor berita resmi China, Xinhua.

Para peneliti tersebut berharap kafein dapat menjadi perawatan yang aman dan tidak mahal bagi penyakit hilang ingatan dan ingin melakukan percobaan pada pasien manusia sesegera mungkin.

Satu studi pada 2002 mendapati bahwa orang yang mengkonsumsi kafein pada pertengahan usia mereka memiliki resiko 60 persen lebih kecil untuk terserang penyakit itu.
Sumber: KOMPAS.com

Pertikaian Microsoft Vs Uni Eropa Berakhir

2009-12-17T11:21:00.000-08:00

Brussels, Microsoft belum lama ini akhirnya menyepakati perjanjian damai dengan Komisi Persaingan Usaha Uni Eropa tentang kebebasan penggunaan web browser. Perjanjian ini mengakhiri 10 tahun perselisihan antara kedua belah pihak. Uni Eropa mendenda Microsoft sebesar Rp 24,4 triliun, selain itu meminta Microsoft untuk meningkatkan pilihan layar browser internet, Perjanjian ini berlaku selama lima tahun.

Pada Januari silam, Microsoft dituding telah melakukan kecurangan dalam praktik monopoli browser dengan cara membundel web browser besutannya, Internet Explorer (IE) dalam sistem operasi Windows. Dengan demikian, Komisi Persaingan Usaha Uni Eropa didukung Mozilla Firefox dan Opera, menggugat Microsoft.

Komisi Persaingan Usaha Uni Eropa Neelie Kroes mengatakan ribuan warga Eropa mendapatkan kebebasan memilih browser internet. Sedangkan Direktur Eksekutif Opera, Jon von Tetzchner, mendukung hasil perdamaian Uni Eropa dengan Microsoft. Jon pun berjanji akan meningkatkan inovasi browser Opera.

Seperti dilansir BBC, saat ini hampir setengah pengguna internet seluruh dunia menggunakan Internet Explorer. Sedangkan Mozilla Firefox mencapai 32 persen dan Opera dua persen.
Sumber: Liputan6.com (Tajam dan Terpercaya

Nilai/Angka menjadi Terbilang VB 2008

2009-12-16T15:06:00.000-08:00

Tips kali ini merupakan aplikasi yang sederhana, namun hal rumit bertumbuh dari kesederhanaan konsep. Aplikasi ini menampilkan inputan data berupa angka menjadi terbilang misalkan angka 15 terbilangnya menjadi Lima belas. Tips ini merupakan pertanyaan seseorang yang baru saya kenal dan pada saat itu saya tidak mampu memberikan jawaban yang memuaskan (Saya memang dalam proses belajar). Tampilannya seperti gambar di atas. Ikuti langkah-langkah di bawah ini:

Toolbox yang digunakan seperti gambar di bawah ini:

Design Form dari Toolbox di atas seperti gambar di bawah ini:

Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.

Source Program:

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Jumlah_Karakter()
End Sub
Private Sub Jumlah_Karakter()
REM menentukan panjang karakter
Dim jmltext, jmlchar, k As Integer
Dim datapul1 As Char
Dim data As Integer
jmltext = Len(TextBox3.Text) REM Inisialisasi panjang karakter
datapul1 = CStr(Mid(TextBox3.Text, 1)) REM inisialisasi puluhan
data = Val(datapul1) REM inisialisasi puluhan
For k = 0 To jmltext - 1 REM seleksi panjang karakter
jmlchar = jmlchar + 1
TextBox1.Text = jmlchar
If jmlchar > 2 Then REM pembatasan data inputan
MsgBox("Data Angka Sampai Puluhan", MsgBoxStyle.Exclamation)
TextBox2.Text = ""
End If
If jmlchar = 1 Then REM inisilisasi satuan
Call Satuan() REM panggil data terbilang satuan
TextBox1.Text = jmlchar & " " & "Digit (Satuan)" REM tampilkan data satuan
ElseIf data = 1 Then REM inisialisasi belasan
Call Belasan() REM panggil data terbilang belasan
TextBox1.Text = jmlchar & " " & "Digit (Puluhan)" REM tampilkan
ElseIf data >= 2 Then REM inisialisasi puluhan
Call Puluhan() REM panggil data terbilang puluhan
TextBox1.Text = jmlchar & " " & "Digit (Puluhan)" REM tampilkan puluhan
End If
Next

End Sub
Private Sub TextBox3_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.Validated
REM inisialisasi data imputan berupa angka
If IsNumeric(TextBox3.Text) = False Then
MsgBox("Harus Karakter Angaka", MsgBoxStyle.Exclamation)
End If
End Sub
Private Sub Satuan()
REM data terbilang satuan
If TextBox3.Text = CStr(1) Then
TextBox2.Text = "Satu"
ElseIf TextBox3.Text = CStr(2) Then
TextBox2.Text = "Dua"
ElseIf TextBox3.Text = CStr(3) Then
TextBox2.Text = "Tiga"
ElseIf TextBox3.Text = CStr(4) Then
TextBox2.Text = "Empat"
ElseIf TextBox3.Text = CStr(5) Then
TextBox2.Text = "Lima"
ElseIf TextBox3.Text = CStr(6) Then
TextBox2.Text = "Enam"
ElseIf TextBox3.Text = CStr(7) Then
TextBox2.Text = "Tujuh"
ElseIf TextBox3.Text = CStr(8) Then
TextBox2.Text = "Delapan"
ElseIf TextBox3.Text = CStr(9) Then
TextBox2.Text = "Sembilan"
ElseIf TextBox3.Text = CStr(0) Then
TextBox2.Text = "Nol"
End If
' Next
End Sub
Private Sub Belasan()
REM data terbilang belasan
Dim c As Integer
Dim d As String
If TextBox3.Text = 10 Then
TextBox2.Text = "Sepuluh"
ElseIf TextBox3.Text = 11 Then
TextBox2.Text = "Sebelas"
ElseIf 11 > TextBox3.Text < 19 Then
c = TextBox3.Text
d = CStr(Mid(c, 2))
TextBox3.Text = CStr(d)
Call Satuan()
TextBox2.Text = TextBox2.Text & " " & "belas"
TextBox3.Text = c
End If
End Sub
Private Sub Puluhan()
REM data terbilang puluhan
Dim e As Integer
Dim f As String
Dim pul As String
Dim datapul As Integer
Dim datapul1 As Char
Dim data As Integer
e = TextBox3.Text
datapul = TextBox3.Text
datapul1 = CStr(Mid(datapul, 1))
data = Val(datapul1)
TextBox3.Text = data
Call Satuan()
pul = TextBox2.Text
f = CStr(Mid(e, 2))
TextBox3.Text = CStr(f)
Call Satuan()
If f = 0 Then
TextBox2.Text = pul & " " & "Puluh"
Else
TextBox2.Text = pul & " " & "Puluh" & " " & TextBox2.Text
End If
TextBox3.Text = datapul
End Sub

End Class

Setelah mengetikkan listing dari source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini, kemudian tekan tombol Terbilang tampilannya seperti gambar paling atas.

Artikel yang Berhubungan:
Nilai Nominal Angka Terbilang VB 2008 (7 Digit Angka) ==>> Klik Disini

Pengembangan Program di atas dapat Anda utak-atik, untuk terbilang Ratusan, Ribuan dan seterusnya atau dapat lebih simpel lagi tentu sangat baik. Selamat Berkreasi.
Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian

Kembaranku Robot

2009-12-16T14:58:00.000-08:00

Osaki: Kokoro, sebuah perusahaan robot ternama di Jepang, akan memproduksi robot Android. Android adalah robot yang dibuat mirip manusia sesuai dengan wajah yang ingin dipesanannya. Perusahaan robot yang berada di Osaki itu akan membuat robot dari silikon dengan wajah, bentuk tubuh, rambut, mata, dan suara yang sama sesuai dengan pemesan.

Robot android juga akan menirukan ekspresi wajah dan gerakan tubuh bagian atas pemesannya. Sayangnya robot tidak bisa berjalan, jadi ia tidak bisa ikut dengan Anda saat pergi berbelanja atau saat berjalan-jalan. Semenjak dikembangkan dari tahun 2003, robot bisa berpose dan berbuat seperti narator.

Pada website yang berbahasa Ingris, Daily Mail baru-baru ini, Kokuro menyatakan fitur yang paling menarik dari robot ini adalah kakinya yang panjang dan senyumnya yang cerah. Profesor Hiroshi Ishiguro, direktur Robotika Intelligent Laboratory di Osaka University Jepang mengatakan, "Mula-mula Anda mungkin merasa aneh dengan android. Namun begitu Anda mengobrol, Anda akan melupakan setiap perbedaan dan benar-benar merasa nyaman untuk berbicara dengannya dan menatap matanya."

Anda harus cepat jika ingin memiliki robot 'duduk' ini, karena hanya ada dua mesin unik yang dijual. Kokoro akan menerima pesanan di 28 outlet setelah tahun baru dan akan menjualnya dengan cara mengundi jika terdapat banyak pemesan. Robot ini dapat dipesan di Sogo, Seibu, dan Robinson dengan harga 20.1 juta Yen atau sekitar Rp 200 juta. Selain memproduksi Android, Kokoro sebelumnya telah memproduksi robot menarik, Actroid receptionist. Biasanya robot ini disewakan untuk acara-acara khusus.(AYB)
Sumber: Liputan6.com

Afrika Asal Suku Bangsa Asia

2009-12-16T14:49:00.001-08:00

JAKARTA, Studi besar yang memetakan genetik populasi bangsa Asia menghasilkan data genom yang fundamental dalam pemahaman asal usul bangsa Asia. Salah satunya, pola migrasi manusia ke Asia yang melahirkan berbagai suku bangsa.

Direktur Lembaga Biologi Molekuler Eijkman Prof Dr Sangkot Marzuki dalam jumpa pers terkait dengan sosialisasi hasil penelitian itu mengatakan, untuk pertama kalinya lebih dari 90 ilmuwan dari Konsorsium Pan-Asian SNP (Single Nucleotide Polymorphisms) yang dinaungi oleh Human Genome Organisation (Hugo) mengadakan studi lebih luas mencakup 73 populasi di Asia Tenggara dan Asia Timur. Sepuluh negara Asia yang terlibat ialah Jepang, Korea, China, Taiwan, Singapura, Thailand, Indonesia, Filipina, Malaysia, dan India.

Studi tersebut menggunakan sekitar 2.000 sampel dengan 50.000 marka (titik data) per sampel dari 73 populasi di Asia. Penelitian yang dilakukan konsorsium itu didasari pada keinginan melihat detail melalui model urutan sekuen deoxyribonucleic acid (DNA). Hasil studi itu telah diterbitkan dalam artikel majalah Science. Sebelumnya ada studi-studi yang mirip, tetapi populasinya relatif minim.

Sangkot mengatakan, dari penelitian itu antara lain terungkap pola migrasi ”nenek moyang” bangsa Asia.

Studi itu menunjukkan, pada masa lalu terdapat satu jalur utama migrasi manusia ke Asia, yakni melalui Asia Tenggara. Ia melanjutkan, setelah keluar dari Afrika 150.000-200.000 tahun lalu, mereka singgah di Asia Tenggara sekitar 60.000 tahun lalu, kemudian menyebar ke berbagai kawasan di Asia.

”Asia Tenggara merupakan lokasi bersama nenek moyang bangsa Asia,” lanjutnya. Itu menunjukkan, Asia Tenggara sumber geografis utama dari populasi Asia Timur dan Asia Utara.

Sangkot mengatakan, data geografis, bahasa, dan genetik memperjelas perlunya stratifikasi genetik dalam melaksanakan studi genetik dan farmakogenomik di Benua Asia.

Kesehatan

Sangkot menambahkan, pemetaan itu sangat penting terkait dengan hubungan antara pola migrasi, genetik, dan penyakit. Untuk negara kepulauan seperti Indonesia, dengan lebih dari 500 etnik, data tersebut sangat mendasar dalam pendekatan kesehatan masyarakat dan penelitian distribusi penyakit.

Distribusi penyakit berhubungan dengan distribusi penduduk dan genetik. Data dasar itu dapat digunakan untuk pencarian penyakit dan kecenderungan-kecenderungannya terkait dengan genetik. Selama migrasi manusia, terjadi perubahan dalam tubuh seiring dengan perubahan pola makan, kondisi lingkungan, dan aktivitas.

Data fundamental tersebut juga sangat berguna dalam penelitian farmakogenetik. Terdapat kemungkinan obat bekerja dengan cara yang berbeda pada populasi yang berbeda.
Sumber: Kompas.com

Lima Benda Purbakala Ditemukan di Desa Tanjungsari

2009-12-16T14:42:00.000-08:00

MAGELANG, Sebanyak lima benda purbakala ditemukan di Desa Tanjungsari, Kecamatan Borobudur, Kabupaten Magelang, Rabu (16/12/2009). Diantara kelima benda tersebut, terdapat dua kepala arca Buddha yang diduga merupakan bagian dari bangunan Candi Borobudur yang berdiri sekarang.

Kepala Tata Usaha Balai Konservasi Peninggalan Borobudur Wiwid Kasiyati mengatakan, dua kepala arca Buddha itu memiliki lubang baut yang menjadi ciri khas arca-arca Candi Borobudur pada masa pemugaran tahun 1907-1911 oleh Pemerintah Hindia Belanda di bawah pimpinan Van Erp. "Namun, untuk memastikannya, dua arca tersebut akan kami teliti terlebih dahulu," ujarnya, Rabu (16/12).

Balai Konservasi Peninggalan Borobudur juga akan meneliti tiga benda purbakala lainnya yang terdiri dari sebuah batu bersegi empat, satu potongan arca setengah badan , dan batu lonjong sejenis munthu, alat yang digunakan untuk menghaluskan cabai menjadi sambal.

Benda purbakala yang merupakan bagian dari bangunan Candi Borobudur akan disimpan oleh Balai Konservasi Peninggalan Borobudur, sedangkan yang lainnya akan diserahkan kepada Balai Pelestarian Peninggalan Purbakala (BP3) Prambanan, Yogyakarta.

Benda-benda purbakala ini semuanya terbuat dari batu kuno asli, berabad-abad silam. Ini adalah temuan arca pertama yang dilaporkan ke Balai Peninggalan Borobudur. "Sebelumnya, di desa-desa di sekitar candi hanya ditemukan batu-batu polos, yang kemudian dimanfaatkan warga sebagai tangga atau batu penyangga tiang rumah," ujarnya.

Lima benda purbakala ini ditemukan warga Desa Tanjungsari saat bergotong royong membangun fondasi rumah milik Kasri (50) di Dusun Tanjungsari RT 01 RW 01, sekitar 0,5 kilometer dari kompleks Taman Wisata Candi Borobudur . Benda-benda ini ditemukan setelah dilakukan penggalian dengan kedalaman sekitar 30 meter. Menyadari benda-benda tersebut adalah barang berharga, maka warga melaporkan temuan ini kepada Balai Konservasi Peninggalan Borobudur.

Kepala Desa Tanjungsari Darto mengatakan, ini adalah benda purbakala kedua yang ditemukan di Desa Tanjungsari. Temuan arca pertama sebelumnya terjadi sekitar tahun 1992.

Temuan benda-benda purbakala ini lumrah terjadi karena Desa Tanjungsari hanya berjarak sekitar satu kilometer dari Candi Borobudur, ujarnya. Kepada warganya, Darto menuturkan, dia sudah mengimbau agar setiap temuan benda purbakala segera dilaporkan ke kantor desa atau langsung Balai Konservasi Peninggalan Borobudur.
Laporan wartawan KOMPAS Regina Rukmorini
Sumber Kompas.com

UFO di Sayap Pesawat Lion Air

2009-12-15T20:34:00.000-08:00

JAKARTA, Penampakan unidentified flying object (UFO) kembali terjadi di Indonesia. Pengamat penerbangan, Dudi Sudibyo, melihatnya secara langsung dari dalam pesawat yang ditumpanginya dan bahkan sempat merekam beberapa foto objek misterius itu dengan kameranya. Peristiwa tersebut terjadi pada 16 Oktober 2009 saat Dudi dalam penerbangan dari Jakarta menuju Yogyakarta menggunakan pesawat Lion Air Boeing 737-900ER dengan nomor penerbangan JT552.

Ia tak pernah mengira sebelumnya kalau benda yang dipotretnya adalah UFO. "Jadi, waktu itu pesawat kami harus berputar sekali sebelum mendarat karena Garuda akan mendarat lebih dulu. Ketinggiannya di bawah 5.000 kaki di atas Bantul. Saya tertarik melihat keluar karena langit biru sekali tanpa awan. Saya lihat ada logo Lion Air di sirip sayap kiri. Waktu saya mau memotret, tiba-tiba ada cahaya blitz istilahnya blinking," kata Dudi menceritakan awal-awal kesaksiannya kepada Kompas.com, Rabu (09/12/2009) malam lewat telepon.

Dudi pun melanjutkan niatnya memotret sirip pesawat dengan logo maskapai penerbangan tersebut dengan latar belakang langit yang sangat cerah. Ketika melihat hasilnya, ia sangat terkejut karena muncul titik-titik cahaya yang misterius di dua foto hasil pemotretannya. Dudi menggunakan kamera Nikon 40DX dengan lensa Nikkor 55 mm.

"Di foto pertama terlihat tiga titik, dua solid lainnya berupa asap atau awan. Saya potret lagi menjadi 9 titik, 3 padat, 6 lainnya awan," kata Dudi.

Pemotretan pertama dilakukan pukul 09.03 dan hanya berselang beberapa detik dengan pemotretan kedua. Titik-titik cahaya langsung menghilang begitu Dudi mencoba mengambil gambar ketiga. Ia yakin titik-titik cahaya tersebut melayang di arah sekitar sirip karena jika karena noda di jendela, seharusnya tidak hilang. Apalagi, pesawat yang digunakannya pesawat baru dan jendelanya jernih sekali.

Penasaran dengan penampakan yang dilihatnya, Dudi kemudian mengirimkan kedua foto tersebut kepada Kepala Lembaga Penerbangan dan Antariksa Nasional (Lapan) Adi Sadewo Salatun melalui e-mail. Menurut Dudi, rangkaian foto tersebut mengejutkan Adi karena begitu diperbesar terlihat seperti terjadi proses materialisasi dari gas ke solid. "Istilahnya morphing, benda berubah dari solid menjadi gas atau sebaliknya dalam waktu singkat," kata Dudi.

Morphing merupakan salah satu fenomena kemunculan benda terbang misterius yang sampai saat ini belum terpecahkan asalnya. Dudi termasuk beruntung karena penampakan seperti itu biasanya berlangsung sangat cepat dalam hitungan detik. Meski banyak laporan sejenis, biasanya tak sempat terekam kamera.

Apakah yang sebenarnya dilihat Dudi? Wahana mahkluk asing kah? Pesawat mata-mata kah? Atau fenomena cahaya yang sesungguhnya lumrah? Misteri itulah yang selama berpuluh tahun berusaha dipecahkan para ilmuwan sehingga muncul istilah "benda terbang tak dikenal" alias UFO. Sumber: Kompas.com

Mahasiswa Matematika Juarai Kompetisi "Hacker"

2009-12-15T20:22:00.001-08:00

Jakarta: Menjadi jawara kreator piranti lunak komputer (software) tak harus melewati pendidikan komputer akademis. Ini dibuktikan Kristiono, mahasiswa Indonesia jurusan matematika. Ia menjadi yang terbaik di ajang Open Hack Day 2009 se-Asia Tenggara di Jakarta, Ahad (22/11), mengalahkan 300 maniak komputer lainnya.

Mahasiswa semester akhir jurusan matematika di Universitas Gadjah Mada, Yogyakarta merebut dua penghargaan dalam kompetisi pembuatan software, termasuk sebagai software terbaik. Kristiono mampu menciptakan piranti lunak handal yang menerjemahkan langsung pembicaraan dua pengguna internet meski menggunakan bahasa berbeda.

Sementara Dom, seorang jurnalis asal Filipina juga piawai dalam ilmu komputer. Karyanya yang mengombinasikan sejumlah fungsi jejaring sosial merebut satu penghargaan software konten sosial terbaik.

Kompetisi kreasi software ini digelar salah satu portal terbesar di dunia, Yahoo!. Para peserta ditantang membuat program piranti lunak orisinal dalam waktu 24 jam. Sumber: Liputan6.com

Robot Kerang Bisa Ledakkan Tambang di Bawah Air

2009-12-09T15:09:00.001-08:00

Massachusetts: Robot kerang suatu hari nanti dapat membantu menggali di bawah air dan meledakkan tambang. Bahkan, robot itu juga bisa berfungsi seperti robot selam atau mengebor minyak di laut dalam. Demikian hasil penelitian yang dikutip LiveScience, Senin (1/12).

Anette "Peko" Hosoi dan Amos Winter, pakar mekanik dari Massachusetts Institute of Technology, Amerika Serikat, merancang robot-robot itu setelah mengamati kerang silet Atlantik (ensis directus) yang disebut-sebut sebagai penggali alam terbaik. Kerang itu memiliki anatomi yang relatif sederhana. Para peneliti Ferrari menjulukinya penggali bawah air, karena dapat menggali dengan kecepatan satu sentimeter per detik.(RST)

Jepang Luncurkan Satelit Pengintai Kelima

2009-12-09T15:00:00.000-08:00

Jepang meluncurkan satelit pengintai kelima di Pulau Tanegashima, Kyushu, Jepang, Sabtu (28/11) waktu setempat. Roket bernama H-2A ini membawa sebuah satelit berharga US$ 565 juta atau Rp 5,65 triliun.

"Satelit ini akan mengumpulkan berbagai data untuk keperluan pertahanan dan diplomatik," ucap salah seorang pihak Kantor Kabinet, Hisashi Michigami pada Associated Press. Ia menambahkan roket telah sukses diluncurkan tanpa kendala berarti.

Michigami mengatakan Jepang memiliki tiga satelit yang masih berfungsi. Sementara satelit keempat sudah tidak lagi beroperasi sejak 2007 karena kerusakan elektrik. Tiga satelit tersebut, ditambah H-2A akan bertahan selama lima tahun.

Selama ini, Jepang selalu berpatokan kepada Amerika Serikat untuk urusan intelijen. Namun Negeri Matahari Terbit itu berhasil meluncurkan satelit pengintai pertama pada 2003. Program tersebut tak lepas dari pengaruh program misil Korea Utara. Di bulan April 2009, roket milik Korea Utara terbang di atas langit Jepang dan mendarat di Samudra Pasifik.

Jepang sudah lama dikenal dunia sebagai negara yang terbilang cukup maju dalam urusan luar angkasa. Hal itu dibuktikan dari diluncurkannya satelit pertama Jepang pada 1970.

Tahun lalu, Parlemen Jepang mengizinkan program luar angkasa nasional untuk dijadikan sebagai sarana pertahanan. Langkah ini diambil dalam rangka mendorong militer Jepang untuk lebih berperan di kancah internasional.

Selain satelit, Jepang juga berencana membuat robot berkaki dua untuk berjalan di bulan pada 2020.(WIL/ANS)

Tetap Internetan Saat Penerbangan

2009-12-08T11:05:00.001-08:00

Washington DC: Seperti dilansir TopTenReviews, Selasa (24/11), salah satu maskapai penerbangan yang bekerja sama dengan pihak Google dan eBay telah menyediakan akses layanan internet gratis dengan menggunakan satelit. Strategi ini dilakukan agar penumpang mau mendaftar sebagai pelanggan.

Salah satu pendukung utama layanan ini seperti AirCell, telah memungkinkan akses Wi-Fi (jaringan nirkabel) dalam penerbangan dengan harga mulai dari US$ 5,95 sampai US$ 12,95 per penerbangan. Maskapai berharap penumpang yang mendapat layanan internet gratis akan menjadi pelanggan mereka. Beberapa maskapai lainnya seperti Virgin Amerika dan AirTran Airways telah memilki layanan Wi-Fi dari AirCell pada setiap penerbangan.

AirCell sendiri memperoleh izin meluncurkan layanan ini dari Federal Aviation Administration dan FCC pada tahun 2008, dan telah membangun lebih dari 92 sel menara yang menyediakan cakupan Wi-Fi untuk penerbangan Amerika Serikat. Selain itu mereka pun telah berinvestasi dalam teknologi satelit untuk menyediakan layanan di atas air.

Jadi, untuk saat ini wisatawan AS yang tidak dapat hidup tanpa Facebook, Twitter, YouTube, ataupun surat elektronik pada saat penerbangan mereka, kini dapat mencari penerbangan dengan akses Wi-Fi. Misalnya menggunakan maskapai penerbangan American Airlines atau maskapai yang telah menyediakan layanan Wi-Fi.(RST/ANS)

Virgin Galactic Kenalkan SpaceShipTwo

2009-12-08T11:00:00.000-08:00

California: Pernah berangan-angan untuk pergi ke luar angkasa? Mimpi tersebut mungkin dapat Anda wujudkan dalam beberapa tahun ke depan. Pasalnya, perusahaan Virgin Galactic asal Amerika Serikat berencana memperkenalkan secara resmi pesawat luar angkasa SpaceShipTwo di Gurun Mojave, California, Senin mendatang. Pesawat ini akan menjadi pesawat komersial pertama untuk berwisata ke luar angkasa.

"Penerbangan menuju kawasan suborbital planet bumi adalah awal dari sejarah penerbangan komersial manusia ke luar angkasa," tutur Bretton Alexander, Presiden Asosiasi Commercial Spaceflight Federation pada Discovery Channel, Jumat (4/12) waktu setempat.

Seseorang yang sudah membeli tiket, akan meluncur bersama SpaceShipTwo sejauh 65 mil atau 104 kilometer ke angkasa. Pada ketinggian itu, para penumpang dapat melihat planet bumi secara langsung. Tak hanya itu, mereka juga diperbolehkan melepas sabuk pengaman dan merasakan sensasi mengambang di udara.

Keseluruhan wisata ini diperkirakan menghabiskan waktu sekitar dua setengah jam. Sementara untuk harga, Anda harus rela merogoh kocek sebesar US$ 200 ribu atau Rp 2 miliar. Hingga sejauh ini, terdapat 300 orang dari seluruh dunia yang sudah memesan tiket.

Virgin Galactic mengatakan akan melakukan tes penerbangan pada tahun depan. Demi alasan keamanan, penerbangan komersial disinyalir baru terwujud pada 2011 atau 2012.(WIL/ANS)

Plotting Data From Access 2007 Vs PictureBox

2009-12-07T13:47:00.000-08:00

Tips kali ini membuat Grafik Plotting Data dari Acces 2007 di visualisasikan menggunakan PictureBox. Tampilan visualnya seperti gambar di atas.

Ikuti langkah-langkah di bawah ini. ToolBox yang digunakan sebagai berikut:

Design Form dari ToolBox di atas seperti gambar di bawah ini:

Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.

Source Program:

Imports System.Data.OleDb
Imports System.Drawing.Drawing2D
Public Class Form1
REM Margin/tepi grafik bagian sisi atas, kiri, kanan dan bawah
Dim LeftMargin As Integer = 35
Dim RightMargin As Integer = 15
Dim BaseMargin As Integer = 35
Dim TopMargin As Integer = 10
REM panjang grafik vertical axis
Dim VertLineLength As Integer
REM panjang grafik horizontal axis
Dim BaseLineLength As Integer
REM rentang lebar plotting data
Dim LineWidth As Double
Dim g As Graphics
Dim bmap As Bitmap
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
REM warna background grafik
PictureBox1.BackColor = Color.Black
REM menampilkan data base
Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\Data_Base2007.accdb;Persist Security Info=False;")
REM untuk koneksi access 2003 dan access 2000 gunakan listing di bawah ini
REM Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=D:\Data_Base2007.mdb")

Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM Table1", con)

con.Open()

Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)

Dim myDataSet As DataSet = New DataSet()

myDA.Fill(myDataSet, "MyTable")

DataGridView1.DataSource = myDataSet.Tables("MyTable").DefaultView

con.Close()

con = Nothing

End Sub

Private Sub DrawHorizontalLines()
Dim VertLineLength As Integer = PictureBox1.Height - (BaseMargin + TopMargin)
Dim VertGap As Integer = CInt(VertLineLength / 10)
Dim StartPoint As New Point(LeftMargin + 3, PictureBox1.Height - BaseMargin)
Dim EndPoint As New Point(PictureBox1.Width, PictureBox1.Height - BaseMargin)
Dim LineStart As New Point(StartPoint.X, StartPoint.Y - VertGap)
Dim LineEnd As New Point(EndPoint.X, StartPoint.Y - VertGap)
Dim ThinPen As New Pen(Color.Green, 2)
For i As Integer = 1 To 10
g.DrawLine(ThinPen, LineStart, LineEnd)
LineStart.Y -= VertGap
LineEnd.Y -= VertGap
Next
ThinPen.Dispose()
End Sub
Private Sub FinalDisplay()
PictureBox1.Image = bmap
g.Dispose()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DrawOutline()
DrawHorizontalLines()
DrawVerticalGridLines()
DrawTheLine()
ShowGridData()
FinalDisplay()
End Sub
Private Sub DrawOutline()
bmap = New Bitmap(PictureBox1.Width, PictureBox1.Height, PictureBox1.CreateGraphics)
g = Graphics.FromImage(bmap)
Dim StartPoint As New Point(LeftMargin, PictureBox1.Height - BaseMargin)
Dim EndPoint As New Point(LeftMargin, TopMargin)
Dim LinePen As New Pen(Color.Red, 2)
g.DrawLine(LinePen, StartPoint, EndPoint)
Dim VertLineLength As Integer = PictureBox1.Height - (BaseMargin + TopMargin)
Dim VertGap As Integer = CInt(VertLineLength / 10)
Dim TickSP As New Point(LeftMargin - 5, StartPoint.Y - VertGap)
Dim TickEP As New Point(LeftMargin, StartPoint.Y - VertGap)
Dim ValueFont As New Font("Arial", 8, FontStyle.Regular)
For i As Integer = 1 To 10
g.DrawLine(New Pen(Color.Black), TickSP, TickEP)
g.DrawString(CStr(i * 10), ValueFont, Brushes.Red, 2, TickSP.Y - 5)
TickSP.Y -= VertGap
TickEP.Y -= VertGap
Next
g.DrawLine(LinePen, LeftMargin, PictureBox1.Height - BaseMargin, PictureBox1.Width - RightMargin, PictureBox1.Height - BaseMargin)
End Sub
Private Sub DrawTheLine()
Dim MyPath As New GraphicsPath
Dim MyPen As Pen = New Pen(Color.Blue, 2)
g.DrawPath(MyPen, MyPath)
Dim VertScale As Double
Dim VertLineLength As Integer = PictureBox1.Height - (BaseMargin + TopMargin)
Dim ix As Integer = PictureBox1.Width
Dim iy As Integer = PictureBox1.Height

Dim Values(ix) As Double

Dim XPosStart As Integer = CInt(LeftMargin + 30)
VertScale = VertLineLength / 100
Dim XPosEnd As Integer = CInt(XPosStart + LineWidth)
Dim YPosStart As Integer = CInt(DataGridView1.Item(0, 0).Value * VertScale)
Dim YPosEnd As Integer = CInt(DataGridView1.Item(0, 1).Value * VertScale)
MyPath.AddEllipse(XPosStart - 2, YPosStart - 2, 4, 4)
MyPath.AddLine(XPosStart, YPosStart, XPosEnd, YPosEnd)
For i As Integer = 1 To 10 - 1

XPosStart = XPosEnd
XPosEnd = CInt(XPosStart + LineWidth)
YPosStart = YPosEnd
YPosEnd = CInt((DataGridView1.Item(0, i + 1).Value) * VertScale)
MyPath.AddEllipse(XPosStart - 2, YPosStart - 2, 4, 4)
MyPath.AddLine(XPosStart, YPosStart, XPosEnd, YPosEnd)
Next
MyPath.AddEllipse(XPosEnd - 2, YPosEnd - 2, 4, 4)
g.RotateTransform(180)
g.ScaleTransform(-1, 1)
g.TranslateTransform(0, VertLineLength + 10, MatrixOrder.Append)
g.DrawPath(MyPen, MyPath)
g.ResetTransform()
End Sub
Private Sub ShowGridData()
Dim TextStartX As Integer = CInt(LeftMargin + 18)
Dim TextBrsh As Brush = New SolidBrush(Color.Red)
Dim TextFont As New Font("Arial", 8, FontStyle.Regular)
For i As Integer = 1 To 11
g.DrawString(i, TextFont, TextBrsh, TextStartX, _
CInt(PictureBox1.Height - (BaseMargin - 4)))
TextStartX += CInt(LineWidth)
Next
End Sub

Private Sub DrawVerticalGridLines()
Dim ThinPen As New Pen(Color.Green, 2)
Dim StartPoint As New Point(LeftMargin, PictureBox1.Height - BaseMargin)
Dim EndPoint As New Point(LeftMargin, TopMargin)
Dim LinePen As New Pen(Color.Red, 2)
g.DrawLine(LinePen, StartPoint, EndPoint)
BaseLineLength = PictureBox1.Width - (LeftMargin + RightMargin)
LineWidth = (BaseLineLength / 11)
Dim LineStartX As Integer = CInt(LeftMargin + 30)
For i As Integer = 0 To 10
g.DrawLine(ThinPen, LineStartX, TopMargin, LineStartX, PictureBox1.Height - (BaseMargin + 4))
LineStartX += CInt(LineWidth)
Next
ThinPen.Dispose()
End Sub

End Class

Setelah mengetikkan listing dari source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini, kemudian tekan Tampilkan Grafik Data tampilannya seperti gambar paling atas.

Artikel terkait mengenai Tips ini:
Grafik 2D PictureBox V Basic 2008 ===>>Klik disini
Dynamic Line Plotting Data Random ===>>Klik disini
Chart CPU, Memory, Processes VB 2008 ===>>Klik disini
ThreadGraph Dynamic Line Visual Basic 2008 ===>>Klik disini
Graphic Dynamic Line VB 2008 ===>>Klik disini
Indikator Graph CPU Usage History ===>>Klik disini

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

Objek Misterius Dekat Bintang Mirip Matahari

2009-12-07T13:34:00.000-08:00

Para astronom mengaku berhasil memotret langsung obyek mirip planet yang mengorbit sebuah bintang mirip Matahari kita.

Penemuan serupa juga diumumkan tahun lalu ketika para astronom mandapatkan foto langsung dari sistem tata surya berplanet tunggal dan berplanet banyak. Namun berbeda dari temuan terbaru ini, bintang yang menjadi pusat sistem dalam temuan terdahulu adalah bintang-bintang raksasa yang jauh lebih besar daripada Matahari.

Adapun citra dari obyek baru ini diambil pada bulan Mei dan Agustus dalam pengujian awal alat pemburu planet pada teleskop Subaru yang berlokasi di Hawaii.

Obyek yang disebut GJ 758 B itu mengorbit bintang induk yang massa dan suhunya sebanding dengan Matahari kita. Demikian kata anggota tim penelitian Michael McElwain dari Universitas Princeton. Bintang itu berjarak 480 triliun km, atau kira-kira 50 tahun cahaya dari Bumi.

Para ilmuwan tak yakin apakah obyek itu merupakan planet besar atau suatu katai coklat (brown dwarf), atau juga dikenal sebagai bintang gagal. Massa obyek itu diperkirakan 10-40 kali Jupiter. Obyek yang memiliki massa di atas 13 kali Jupiter (dan masih di bawah massa yang diperlukan untuk memicu suatu reaksi nuklir pada suatu bintang) dianggap sebagai katai coklat.

Biar bagaimanapun, McElwain mengakui bahwa foto-foto itu cukup menarik. "Katai coklat yang menemani bintang mirip Matahari sangatlah jarang. Menarik sekali penemuan sesuatu yang begitu dingin dan begitu rendah massanya berada di dekat suatu bintang sehingga mirip tata surya kita."

Jarak obyek mirip planet tersebut dari bintangnya setidaknya 29 kali jarak Bumi ke Matahari, atau kira-kira jarak antara Matahari ke Neptunus. menurut McElwain, kenyataan bahwa ada suatu obyek yang begitu besar mengorbit di daerah itu memunculkan pertanyaan terhadap pemikiran tradisional tentang cara terciptanya planet. Para astronom berpendapat bahwa kebanyakan planet besar terbentuk pada jarak yang lebih dekat atau lebih jauh dari bintang, tetapi tidak pada jarak tempat GJ 758 B kini berada.

"Penemuan yang menantang tetapi indah tentang obyek bermassa sangat rendah di dekat suatu bintang yang mirip Matahari sekali lagi mengingatkan betapa terbatasnya pengetahuan kita tentang planet gas besar dan katai coklat yang berada dekat bintang," kata Alan Boss, astronom dari Institusi Ilmu Pengetahuan Carnegie, Washington DC, yang tertarik walau tak terlibat dalam penelitian itu. "Penemuan seperti ini memungkinkan para pemikir untuk mulai memahami bagaimana kumpulan badan di ruang angkasa ini, yang tadinya tak terlihat kemudian bisa terbentuk dan berevolusi."

Alat yang terpasang pada teleskop Subaru, yang disebut Pencitra Koronagrafik Berkontras Tinggi dengan Optika Adaptif, merupakan bagian dari generasi baru peralatan yang dibuat khusus untuk mendeteksi obyek samar di dekat bintang yang terang dengan cara meredam cahaya yang menyilaukan itu.

Menurut para ilmuwan, pencitraan dari teleskop itu mungkin menemukan obyek pendamping kedua pada bintang, yang mulai disebut GJ 758 C. Namun, masih diperlukan pengamatan lebih lanjut untuk memastikan obyek kedua ini sungguh dekat atau cuma kelihatannya saja begitu.

Tim peneliti terdiri dari para ilmuwan dari Princeton, Universitas Hawaii, Universitas Toronto, Institut Astronomi Max Planck di Heidelberg (Jerman), dan Pusat Pengamatan Astronomis Nasional Jepang di Tokyo. Hasil penelitiannya telah diterbitkan secara online tanggal 18 November pada versi elektronik dari jurnal Atrophysical Journal Letters.===>> Kompas.com