Blogging | Tutorial | Tips dan Trick

Test PHP

2014-10-15T01:43:00.001-07:00

 


masukan nilai pertama 

masukan nilai kedua 


Hasil jumlah :  +  =

Visual Basic Database

2013-07-10T21:34:00.002-07:00

PROGRAM BERBASIS DATABASE

Membuat Program Berbasis Database (MS.ACCESS 2003)

Membuat Database di Ms. Access 2003

1. Buatlah sebuah project dengan nama PdbMhs di (drive D:\nama_anda)

2. Buatlah database dengan menggunakan Ms.Access dengan format 2002-2003 dengan nama dbMhs simpan di (drive D:\nama_anda\PdbMhs\obj\Debug)

3. Kemudian buat table dengan nama tbMhs

Field Name	Data Type	Keterangan
NIM	Text	FieldSize = 8 Primary Key
Nama	Text	FieldSize = 20
Alamat	Text	FieldSize = 20
Telp	Text	FieldSize = 15

4. Isi minimal 5 record, bebas!

5. Tutup Ms.Access

Membuat Program Aplikasi di Visual Basic .NET

1. Buka Microsoft Visual Studio .NET.

2. Klik menu View - Server Explorer.

3. Di Server Explorer – klik kanan Data Connections - pilih Add Connection.

4. Dalam kotak dialog Data Link Properties, klik tab Provider.

5. Dalam OLE DB Provider(s) list - klik Microsoft Jet 4.0 OLE DB Provider - klik Next.

6. Klik tab Connection, kemudian klik ellipses button (...).

7. Cari posisi file Access database dbMhs dalam komputer Anda.

8. Pilih file dbMhs, kemudian klik Open.

9. Dalam kotak dialog Data Link Properties - OK.

10. Dalam toolbox – klik tab Data.

11. Drag OleDbDataAdapter ke Form1.

12. Dalam Data Adapter Configuration Wizard - klik Next 3x.

13. Di panel Generate the SQL statements, ketikan coding di Microsoft SQL Server

Select * from tbMhs

14. Kemudia klik Next – panel View Wizard Results - klik Finish.

Catatan : Dalam dialog box akan mucul : Do you want to include the password in the connection string? - pilih Don't include password.

15. Klik kanan pada OleDbDataAdapter1 - klik Generate Dataset.

16. Di dialog box Generate Dataset - OK.

17. Tambahkan coding pada event Form1_Load:

OleDbDataAdapter1.Fill(DataSet11)

Menampilkan record data dari Database Ms. Access ke form di Visual Basic

1. Tambahkan DataGrid ke Form1.

2. Klik kanan DataGrid1 - klik Properties.

3. Di Properties atur sbb:

DataSource : DataSet11

DataMember : tbMhs

Menambahkan record baru pada Database Access

1. Tambah Button ke Form1 atur properties sebagai berikut :

Text : Add

Name : btAdd

2. Klik 2x pada button Add kemudian ketikan coding sbb:

Dim i, NIM As Integer

Dim Nama,Alamat,Telp As String

Dim rw As DataRow

'menambahkan record pada table tbMHS

rw = DataSet11.Tables(0).NewRow

NIM = InputBox("Ketikan NIM:")

Nama = InputBox("Ketikan Nama:")

Alamat = InputBox("Ketikan Alamat:")

Telp = InputBox("Ketikan Telp:")

rw.Item("NIM") = NIM

rw.Item("Nama") = Nama

rw.Item("Alamat") = Alamat

rw.Item("Telp") = Telp

Try

DataSet11.Tables(0).Rows.Add(rw)

'Update the Student table in the testdb database.

i = OleDbDataAdapter1.Update(DataSet11)

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

'Displays number of rows updated.

MessageBox.Show("no of rows updated=" & i)

Script Tambahan Visual Basic

Loading

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

Timer1.Start()

End Sub

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

Dim Login As New FrmLogin

Dim ProgressBar As New Form1

If ProgressBar1.Value < 100 Then

ProgressBar1.Value += 2

ElseIf ProgressBar1.Value = 100 Then

Timer1.Stop()

MessageBox.Show("Ujian Akhir Semester Visual Basic: Denny Cahyana !", "Pemberitahuan", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

End Sub

Login
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btLogin.Click
Dim Menu As New FrmMenu
If txtusername.Text = "denny" And txtpassword.Text = "tuktik" Then
Menu.Show()
Else
MsgBox("Username atau Password yang anda masukan salah !", MsgBoxStyle.Critical)
End If

End Sub

CheckedListBox
Clear
For i As Integer = 0 To clbJabatan.Items.Count - 1
clbJabatan.SetItemChecked(i, False)

Next

Get Checked
For Each itemChecked In clbJabatan.CheckedItems
Next
Dim a As Integer
For a = 0 To clbJabatan.CheckedItems.Count - 1
Jabatan = clbJabatan.CheckedItems.Item(a)

Next

UTS Visual Basic

2013-06-05T02:07:00.001-07:00

Form Login

Public Class Form1

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

MyBase.Dispose(disposing)

End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents Label2 As System.Windows.Forms.Label

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents txtuser As System.Windows.Forms.TextBox

Friend WithEvents txtpass As System.Windows.Forms.TextBox

Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu

Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Me.Label1 = New System.Windows.Forms.Label

Me.txtuser = New System.Windows.Forms.TextBox

Me.Label2 = New System.Windows.Forms.Label

Me.txtpass = New System.Windows.Forms.TextBox

Me.Button1 = New System.Windows.Forms.Button

Me.MainMenu1 = New System.Windows.Forms.MainMenu

Me.MenuItem1 = New System.Windows.Forms.MenuItem

Me.MenuItem2 = New System.Windows.Forms.MenuItem

Me.SuspendLayout()

'Label1

Me.Label1.AutoSize = True

Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label1.Location = New System.Drawing.Point(16, 16)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(58, 16)

Me.Label1.TabIndex = 0

Me.Label1.Text = "Username"

'txtuser

Me.txtuser.Location = New System.Drawing.Point(96, 16)

Me.txtuser.Name = "txtuser"

Me.txtuser.Size = New System.Drawing.Size(184, 20)

Me.txtuser.TabIndex = 1

Me.txtuser.Text = "TextBox1"

'Label2

Me.Label2.AutoSize = True

Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label2.Location = New System.Drawing.Point(16, 56)

Me.Label2.Name = "Label2"

Me.Label2.Size = New System.Drawing.Size(56, 16)

Me.Label2.TabIndex = 2

Me.Label2.Text = "Password"

'txtpass

Me.txtpass.Location = New System.Drawing.Point(96, 48)

Me.txtpass.Name = "txtpass"

Me.txtpass.PasswordChar = Microsoft.VisualBasic.ChrW(42)

Me.txtpass.Size = New System.Drawing.Size(184, 20)

Me.txtpass.TabIndex = 2

Me.txtpass.Text = "TextBox2"

'Button1

Me.Button1.Location = New System.Drawing.Point(104, 96)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(80, 23)

Me.Button1.TabIndex = 3

Me.Button1.Text = "&Login"

'MainMenu1

Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})

'MenuItem1

Me.MenuItem1.Index = 0

Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2})

Me.MenuItem1.Text = "Lupa"

'MenuItem2

Me.MenuItem2.Index = 0

Me.MenuItem2.Text = "User & Password"

'Form1

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.ClientSize = New System.Drawing.Size(292, 129)

Me.Controls.Add(Me.Button1)

Me.Controls.Add(Me.txtpass)

Me.Controls.Add(Me.Label2)

Me.Controls.Add(Me.txtuser)

Me.Controls.Add(Me.Label1)

Me.Menu = Me.MainMenu1

Me.Name = "Form1"

Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

Me.Text = "LOGIN"

Me.ResumeLayout(False)

End Sub

#End Region

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

txtuser.Text = ""

txtpass.Text = ""

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

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

Dim Menu As New frmmenu

If txtuser.Text = "denny" And txtpass.Text = "tiktuk" Then

Menu.Show()

Else

MsgBox("Username atau Password yang anda masukan salah !", MsgBoxStyle.Critical)

End If

End Sub

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

Dim Lupa As New frmlupa

Lupa.Show()

End Sub

End Class

Form Menu Utama

Public Class frmmenu

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

MyBase.Dispose(disposing)

End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu

Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem

Friend WithEvents menupenjualan As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem

Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmmenu))

Me.Button1 = New System.Windows.Forms.Button

Me.MainMenu1 = New System.Windows.Forms.MainMenu

Me.MenuItem1 = New System.Windows.Forms.MenuItem

Me.menupenjualan = New System.Windows.Forms.MenuItem

Me.MenuItem3 = New System.Windows.Forms.MenuItem

Me.MenuItem2 = New System.Windows.Forms.MenuItem

Me.MenuItem4 = New System.Windows.Forms.MenuItem

Me.SuspendLayout()

'Button1

Me.Button1.Location = New System.Drawing.Point(168, 224)

Me.Button1.Name = "Button1"

Me.Button1.TabIndex = 0

Me.Button1.Text = "&Exit"

'MainMenu1

Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem3, Me.MenuItem4})

'MenuItem1

Me.MenuItem1.Index = 0

Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menupenjualan})

Me.MenuItem1.Text = "&Menu"

'menupenjualan

Me.menupenjualan.Index = 0

Me.menupenjualan.Text = "&Penjualan"

'MenuItem3

Me.MenuItem3.Index = 1

Me.MenuItem3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2})

Me.MenuItem3.Text = "&Help"

'MenuItem2

Me.MenuItem2.Index = 0

Me.MenuItem2.Text = "&Kakulator"

'MenuItem4

Me.MenuItem4.Index = 2

Me.MenuItem4.Text = ""

'frmmenu

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)

Me.ClientSize = New System.Drawing.Size(248, 261)

Me.Controls.Add(Me.Button1)

Me.Menu = Me.MainMenu1

Me.Name = "frmmenu"

Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

Me.Text = "Menu Utama"

Me.ResumeLayout(False)

End Sub

#End Region

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

End Sub

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

End

End Sub

Private Sub menupenjualan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menupenjualan.Click

Dim Penjualan As New frmpenjualan

Penjualan.Show()

End Sub

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

Dim Kakulator As New frmkakulator

Kakulator.Show()

End Sub

End Class

Form Penjualan

Public Class frmpenjualan

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

MyBase.Dispose(disposing)

End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents Label2 As System.Windows.Forms.Label

Friend WithEvents Label3 As System.Windows.Forms.Label

Friend WithEvents Label4 As System.Windows.Forms.Label

Friend WithEvents Label5 As System.Windows.Forms.Label

Friend WithEvents txtid As System.Windows.Forms.TextBox

Friend WithEvents txtnama As System.Windows.Forms.TextBox

Friend WithEvents txthrg As System.Windows.Forms.TextBox

Friend WithEvents txtbyk As System.Windows.Forms.TextBox

Friend WithEvents txthasil As System.Windows.Forms.TextBox

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents Button2 As System.Windows.Forms.Button

Friend WithEvents Button3 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Me.Label1 = New System.Windows.Forms.Label

Me.Label2 = New System.Windows.Forms.Label

Me.Label3 = New System.Windows.Forms.Label

Me.Label4 = New System.Windows.Forms.Label

Me.Label5 = New System.Windows.Forms.Label

Me.txtid = New System.Windows.Forms.TextBox

Me.txtnama = New System.Windows.Forms.TextBox

Me.txthrg = New System.Windows.Forms.TextBox

Me.txtbyk = New System.Windows.Forms.TextBox

Me.txthasil = New System.Windows.Forms.TextBox

Me.Button1 = New System.Windows.Forms.Button

Me.Button2 = New System.Windows.Forms.Button

Me.Button3 = New System.Windows.Forms.Button

Me.SuspendLayout()

'Label1

Me.Label1.AutoSize = True

Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label1.Location = New System.Drawing.Point(16, 16)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(16, 16)

Me.Label1.TabIndex = 0

Me.Label1.Text = "ID"

'Label2

Me.Label2.AutoSize = True

Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label2.Location = New System.Drawing.Point(16, 48)

Me.Label2.Name = "Label2"

Me.Label2.Size = New System.Drawing.Size(42, 16)

Me.Label2.TabIndex = 1

Me.Label2.Text = "Barang"

'Label3

Me.Label3.AutoSize = True

Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label3.Location = New System.Drawing.Point(16, 80)

Me.Label3.Name = "Label3"

Me.Label3.Size = New System.Drawing.Size(36, 16)

Me.Label3.TabIndex = 2

Me.Label3.Text = "Harga"

'Label4

Me.Label4.AutoSize = True

Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label4.Location = New System.Drawing.Point(16, 112)

Me.Label4.Name = "Label4"

Me.Label4.Size = New System.Drawing.Size(43, 16)

Me.Label4.TabIndex = 3

Me.Label4.Text = "Banyak"

'Label5

Me.Label5.AutoSize = True

Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label5.Location = New System.Drawing.Point(16, 144)

Me.Label5.Name = "Label5"

Me.Label5.RightToLeft = System.Windows.Forms.RightToLeft.No

Me.Label5.Size = New System.Drawing.Size(31, 16)

Me.Label5.TabIndex = 4

Me.Label5.Text = "Hasil"

'txtid

Me.txtid.Location = New System.Drawing.Point(72, 16)

Me.txtid.Name = "txtid"

Me.txtid.Size = New System.Drawing.Size(168, 20)

Me.txtid.TabIndex = 5

Me.txtid.Text = "TextBox1"

'txtnama

Me.txtnama.Location = New System.Drawing.Point(72, 48)

Me.txtnama.Name = "txtnama"

Me.txtnama.Size = New System.Drawing.Size(168, 20)

Me.txtnama.TabIndex = 6

Me.txtnama.Text = "TextBox2"

'txthrg

Me.txthrg.Location = New System.Drawing.Point(72, 80)

Me.txthrg.Name = "txthrg"

Me.txthrg.Size = New System.Drawing.Size(168, 20)

Me.txthrg.TabIndex = 7

Me.txthrg.Text = "TextBox3"

'txtbyk

Me.txtbyk.Location = New System.Drawing.Point(72, 112)

Me.txtbyk.Name = "txtbyk"

Me.txtbyk.Size = New System.Drawing.Size(168, 20)

Me.txtbyk.TabIndex = 8

Me.txtbyk.Text = "TextBox4"

'txthasil

Me.txthasil.Location = New System.Drawing.Point(72, 144)

Me.txthasil.Name = "txthasil"

Me.txthasil.Size = New System.Drawing.Size(168, 20)

Me.txthasil.TabIndex = 9

Me.txthasil.Text = "TextBox5"

'Button1

Me.Button1.Location = New System.Drawing.Point(96, 200)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(64, 23)

Me.Button1.TabIndex = 11

Me.Button1.Text = "&Help"

'Button2

Me.Button2.Location = New System.Drawing.Point(176, 200)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(64, 23)

Me.Button2.TabIndex = 12

Me.Button2.Text = "Close"

'Button3

Me.Button3.Location = New System.Drawing.Point(16, 200)

Me.Button3.Name = "Button3"

Me.Button3.Size = New System.Drawing.Size(64, 23)

Me.Button3.TabIndex = 10

Me.Button3.Text = "&Clear"

'frmpenjualan

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.ClientSize = New System.Drawing.Size(256, 237)

Me.Controls.Add(Me.Button3)

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.Button1)

Me.Controls.Add(Me.txthasil)

Me.Controls.Add(Me.txtbyk)

Me.Controls.Add(Me.txthrg)

Me.Controls.Add(Me.txtnama)

Me.Controls.Add(Me.txtid)

Me.Controls.Add(Me.Label5)

Me.Controls.Add(Me.Label4)

Me.Controls.Add(Me.Label3)

Me.Controls.Add(Me.Label2)

Me.Controls.Add(Me.Label1)

Me.Name = "frmpenjualan"

Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

Me.Text = "Penjualan"

Me.ResumeLayout(False)

End Sub

#End Region

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

txtid.Text = ""

txtnama.Text = ""

txthrg.Text = ""

txtbyk.Text = ""

txthasil.Text = ""

End Sub

Private Sub txtbyk_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbyk.TextChanged

Dim hrg, byk, hasil As Integer

hrg = Val(txthrg.Text)

byk = Val(txtbyk.Text)

hasil = hrg * byk

txthasil.Text = hasil

End Sub

Private Sub txthrg_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txthrg.TextChanged

Dim hrg, byk, hasil As Integer

hrg = Val(txthrg.Text)

byk = Val(txtbyk.Text)

hasil = hrg * byk

txthasil.Text = hasil

End Sub

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

Close()

End Sub

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

Dim Kakulator As New frmkakulator

Kakulator.Show()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

txtid.Text = ""

txtnama.Text = ""

txthrg.Text = ""

txtbyk.Text = ""

txthasil.Text = ""

End Sub

End Class

Form Kakulator

Public Class frmkakulator

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()

MyBase.New()

'This call is required by the Windows Form Designer.

InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

MyBase.Dispose(disposing)

End Sub

'Required by the Windows Form Designer

Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer

'It can be modified using the Windows Form Designer.

'Do not modify it using the code editor.

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents Label2 As System.Windows.Forms.Label

Friend WithEvents Label3 As System.Windows.Forms.Label

Friend WithEvents txtpertama As System.Windows.Forms.TextBox

Friend WithEvents txtkedua As System.Windows.Forms.TextBox

Friend WithEvents txthasil As System.Windows.Forms.TextBox

Friend WithEvents Button1 As System.Windows.Forms.Button

Friend WithEvents Button2 As System.Windows.Forms.Button

Friend WithEvents Button3 As System.Windows.Forms.Button

Friend WithEvents Button4 As System.Windows.Forms.Button

Friend WithEvents Button5 As System.Windows.Forms.Button

Friend WithEvents Button6 As System.Windows.Forms.Button

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Me.Label1 = New System.Windows.Forms.Label

Me.Label2 = New System.Windows.Forms.Label

Me.Label3 = New System.Windows.Forms.Label

Me.txtpertama = New System.Windows.Forms.TextBox

Me.txtkedua = New System.Windows.Forms.TextBox

Me.txthasil = New System.Windows.Forms.TextBox

Me.Button1 = New System.Windows.Forms.Button

Me.Button2 = New System.Windows.Forms.Button

Me.Button3 = New System.Windows.Forms.Button

Me.Button4 = New System.Windows.Forms.Button

Me.Button5 = New System.Windows.Forms.Button

Me.Button6 = New System.Windows.Forms.Button

Me.SuspendLayout()

'Label1

Me.Label1.AutoSize = True

Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label1.Location = New System.Drawing.Point(8, 16)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(85, 16)

Me.Label1.TabIndex = 0

Me.Label1.Text = "Angka Pertama"

'Label2

Me.Label2.AutoSize = True

Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label2.Location = New System.Drawing.Point(8, 48)

Me.Label2.Name = "Label2"

Me.Label2.Size = New System.Drawing.Size(74, 16)

Me.Label2.TabIndex = 1

Me.Label2.Text = "Angka Kedua"

'Label3

Me.Label3.AutoSize = True

Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Label3.Location = New System.Drawing.Point(8, 120)

Me.Label3.Name = "Label3"

Me.Label3.Size = New System.Drawing.Size(31, 16)

Me.Label3.TabIndex = 2

Me.Label3.Text = "Hasil"

'txtpertama

Me.txtpertama.Location = New System.Drawing.Point(104, 16)

Me.txtpertama.Name = "txtpertama"

Me.txtpertama.TabIndex = 3

Me.txtpertama.Text = "TextBox1"

'txtkedua

Me.txtkedua.Location = New System.Drawing.Point(104, 48)

Me.txtkedua.Name = "txtkedua"

Me.txtkedua.TabIndex = 4

Me.txtkedua.Text = "TextBox2"

'txthasil

Me.txthasil.Location = New System.Drawing.Point(104, 120)

Me.txthasil.Name = "txthasil"

Me.txthasil.TabIndex = 9

Me.txthasil.Text = "TextBox3"

'Button1

Me.Button1.Location = New System.Drawing.Point(16, 80)

Me.Button1.Name = "Button1"

Me.Button1.Size = New System.Drawing.Size(32, 24)

Me.Button1.TabIndex = 5

Me.Button1.Text = "X"

'Button2

Me.Button2.Location = New System.Drawing.Point(64, 80)

Me.Button2.Name = "Button2"

Me.Button2.Size = New System.Drawing.Size(32, 24)

Me.Button2.TabIndex = 6

Me.Button2.Text = "/"

'Button3

Me.Button3.Location = New System.Drawing.Point(112, 80)

Me.Button3.Name = "Button3"

Me.Button3.Size = New System.Drawing.Size(32, 24)

Me.Button3.TabIndex = 7

Me.Button3.Text = "+"

'Button4

Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

Me.Button4.Location = New System.Drawing.Point(160, 80)

Me.Button4.Name = "Button4"

Me.Button4.Size = New System.Drawing.Size(32, 24)

Me.Button4.TabIndex = 8

Me.Button4.Text = "-"

'Button5

Me.Button5.Location = New System.Drawing.Point(72, 168)

Me.Button5.Name = "Button5"

Me.Button5.Size = New System.Drawing.Size(64, 23)

Me.Button5.TabIndex = 10

Me.Button5.Text = "&Clear"

'Button6

Me.Button6.Location = New System.Drawing.Point(144, 168)

Me.Button6.Name = "Button6"

Me.Button6.Size = New System.Drawing.Size(64, 23)

Me.Button6.TabIndex = 11

Me.Button6.Text = "&Close"

'frmkakulator

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.ClientSize = New System.Drawing.Size(216, 205)

Me.Controls.Add(Me.Button6)

Me.Controls.Add(Me.Button5)

Me.Controls.Add(Me.Button4)

Me.Controls.Add(Me.Button3)

Me.Controls.Add(Me.Button2)

Me.Controls.Add(Me.Button1)

Me.Controls.Add(Me.txthasil)

Me.Controls.Add(Me.txtkedua)

Me.Controls.Add(Me.txtpertama)

Me.Controls.Add(Me.Label3)

Me.Controls.Add(Me.Label2)

Me.Controls.Add(Me.Label1)

Me.Name = "frmkakulator"

Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

Me.Text = "frmkakulator"

Me.ResumeLayout(False)

End Sub

#End Region

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

txtpertama.Text = ""

txtkedua.Text = ""

txthasil.Text = ""

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

txtpertama.Text = ""

txtkedua.Text = ""

txthasil.Text = ""

End Sub

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

Dim Pertama, Kedua, Hasil As Integer

Pertama = Val(txtpertama.Text)

Kedua = Val(txtkedua.Text)

Hasil = Pertama * Kedua

txthasil.Text = Hasil

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Close()

End Sub

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

Dim Pertama, Kedua, Hasil As Integer

Pertama = Val(txtpertama.Text)

Kedua = Val(txtkedua.Text)

Hasil = Pertama / Kedua

txthasil.Text = Hasil

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim Pertama, Kedua, Hasil As Integer

Pertama = Val(txtpertama.Text)

Kedua = Val(txtkedua.Text)

Hasil = Pertama + Kedua

txthasil.Text = Hasil

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim Pertama, Kedua, Hasil As Integer

Pertama = Val(txtpertama.Text)

Kedua = Val(txtkedua.Text)

Hasil = Pertama - Kedua

txthasil.Text = Hasil

End Sub

End Class

Turbo Pascal: Looping Piramid

2013-04-17T00:21:00.000-07:00

Looping Piramid

Gambar: Turbo Pascal, Looping Piramid

Contoh1: Looping Piramid For To Do hingga 20
uses wincrt;
var kolom,baris,ulang:integer;
begin
for baris:=1 to 20 do
begin
for kolom:=1 to baris do
begin
write('*');
end;
writeln;
end;
end.

Hasil:
*
**
***
****
*****
******
*******
********
*********
**********
***********
************
*************
**************
***************
****************
*****************
******************
*******************
********************

Contoh2: Looping Piramid For To Do 20, tiap 5x

uses wincrt;
var kolom,baris,ulang:integer;
begin
for baris:=1 to 20 do
begin
for kolom:=1 to baris do
begin
write('*');
end;
if baris mod 5=0 then
begin
readln;
end;
writeln;
end;
end.

Hasil:
*
**
***
****
*****

******
*******
********
*********
**********

***********
************
*************
**************
***************

****************
*****************
******************
*******************
********************

iklan internet murah efektif berkualitas indonesia

2012-08-02T18:51:00.000-07:00

"iklan internet murah efektif berkualitas indonesia"

iklan internet murah efektif berkualitas indonesia

Pada era global seperti sekarang ini khususnya untuk dunia bisnis akan memiliki pesaing pesain, baik itu pesaing dari dalam negeri maupun luar negeri. Para pembisnis harus memutar otak untuk dapat bertahan dalam persaingan terutama dalam segi pemasaran atau mempromosikan produk atau jasa yang di tawarkannya. Sangalah cerdik jika anda menggunakan iklan internet sebagai media promosi yang efektif, mengingat sekarang internet telah ada di mana mana dan dapat digunakan oleh siapapun juga tentunya iklan yang anda pasang dengan media internet akan banyak menarik minat konsumen yang luas dan meningkatkan pendapatan perusahaan anda.

Internet marketing adalah usaha untuk mempromosikan produk atau jasa melalui media Internet. Banyak orang berpendapat internet marketing berhubungan dengan mencari uang di Internet, yang sebenarnya tidak benar. Perlu diketahui bahwa ribuan program mencari uang di Internet merupakan kegiatan yang dilarang atau kecurangan yang hanya menguntungkan pihak pihak tertentu saja. Internet marketing pada umumnya dapat meliputi pembuatan periklanan, pencarian pembeli. Internet maketing dalam dunia bisnis sendiri internet marketing atau menggunakan internet untuk media promosi sudah terkenal cukup luas dan telah terbukti memiliki banyak kelebihan.

Salah satu pihak yang menyediakan pelayanan iklan dengan media internet adalah SITTI yang merupakan situs iklan terbaik serta berkualitas yang ada di indonesia. SITTI sendiri telah berdiri sejak tahun 2010 dan telah memiliki sistem yang sangat efektif untuk dijadikan media promosi produk produk atau jasa perusahaan anda.

Sebagai situ penyedia layanan internet SITTI telah memiliki banyak keunggulan bila dibandingkan dengan penyedia layanan iklan internet yang lainnya. Berikut yang keunggulan keunggulan yang di miliki SITTI:
1. Impresi iklan yang gratis.
2. Anggaran yang fleksibel.
3. Kemudahan di dalam penghitungan konversi.
4. Iklan yang Kontekstual dan relevan.
5. Memiliki jangkauan promosi yang luas ke seluruh Indonesia.
6. Konteks iklan yang di tampilkan dalam bahasa Indonesia, sehingga memudahkan konsumen yang
notabene orang indonesia.
7. Menampilkan iklan hanya pada daerah daerah yang relevan dengan produk yang anda jual.
8.Memiliki kemudahan dalam pengoperasian.
9. Anda dapat memonitor iklan yang telah anda pasang kapan pun.
10.Iklan yang anda pasang akan bersaing dengan produk produk ternama.

Bagaimana apakah anda mulai tertarik menggunakan internet sebagai media promosi produk produk anda? Internet global!

iklan internet murah efektif berkualitas indonesia

Sepeda Motor Injeksi Irit Harga Terbaik Cuma Honda

2012-05-26T00:57:00.000-07:00

Sepeda Motor Injeksi Irit Harga Terbaik Cuma Honda - Berita

Honda kembali meluncurkan teknologi sepeda motor injeksi keluaran terbarunya yang telah memiliki teknologi modern PGM-FI. PGM-FI sendiri merupakan sebuah teknologi canggih yang menggunakan sistem bahan bakar pada motor dengan menggunakan teknologi kontrol secara elektronik, untuk dapat mensuplai bahan bakar dan udara secara optimal yang dibutuhkan oleh mesin pada setiap kendaraan. PT.Astra Honda sendiri telah menanamkan teknologi PGM-FI ini pada beberapa produknya seperti Vario Techno 125 PGM-FI CBS, Vario Techno 125 PGM-FI, Supra X 125 Helm in PGM-Fi, dan Spacy Helm in PGM-FI. Dari segi harga sendiri honda memiliki harga terbaik bila dibandingkan dengan harga produk lainnya.

Teknologi PGM-FI Pada Sepeda Motor Injeksi Honda

Bila teknologi PGM-FI ini di terapkan pada sepeda motor Honda, maka akan mempunyai peforma yang ramah lingkungan yang tinggi, irit bahan bakar namun tetap tidak mengurangi performa motor, karena perbandingan antara suplai bahan bakar dan udara serta pengapian di kontrol melalui sensor elektronik. Pada intinya sepeda motor Honda akan menjadi lebih enak daripada sepeda motor lain, para konsumen akan mendapatkan sensasi riding yang menyenangkan, aman, nyaman, ramah lingkungan dan hemat bahan bakar. Itulah beberapa yang bakal di dapatkan jika memiliki sepeda motor dengan teknologi PGM-FI.

Keunggulan Sepeda Motor Injeksi Harga Terbaik Cuma Honda

Lebih Ramah Lingkungan

Kita tentunya sudah mengetahui kondisi udara sekarang ini dengan banyaknya serta meningkatnya volume kendaraan bermotor yang tidak ramah dengan lingkungan hanya akan memperburuk kondisi lingkungan di era modern ini. Sepeda Motor injeksi yang berteknologi tinggi serta ramah lingkungan merupakan solusi yang paling tepat untuk digunakan sekarng ini. Honda yang telah mengeluarkan produk berteknologi PGM-FI merupakan Sepeda Motor yang ramah lingkungan karena teknologi ini merupakan perpaduan antara kecerdasan sensor O2 dan catalytic converter dalam teknologi PGM-FI untuk mengendalikan kadar gas buang yang mampu menekan emisi hingga 90%, sesuai dengan standar regulasi EURO 3. Mampu menekan Emisi hingga 90%, menjaga udara tetap bersih.

Lebih Bertenaga

Produk produk Honda yang telah memiliki teknologi PGM-FI memiliki tenaga yang cukup besar hal ini di karenakan telah memiliki pengaturan kinerja mesin yang telah terprogram pada setiap putaran mesin akan memberikan akselerasi yang lebih responsif. Teknologi serupa yang juga diaplikasikan pada motor juara MotoGP, kini ada di Sepeda Motor kesayangan Anda.

Lebih Mudah Perawatan

Dari segi perawatan produk produk berteknologi PGM-FI telah memiliki sistem kendali elektronik dalam dan didukung oleh MIL (Malfuction Indicator Lamp) untuk mengidentifikasi gangguan yang terjadi pada mesin melalui jumlah kedipan lampu sehingga sepeda motor berteknologi PGM-FI ini dapat membantu perawatan menjadi lebih mudah. Perawatan optimal dapat dilakukan di Bengkel Resmi Honda seluruh Indonesia.

Lebih Irit Bahan Bakar

Meskipun produk produk injeksi ini memiliki tenaga yang cukup besar akan tetapi dalam hal bahan bakar sangatlah irit. Hal ini disebabkan produk berteknologi PGM-FI ini dapat mengendalikan komposisi optimal antara pasokan bahan bakar dan oksigen untuk menghasilkan pembakaran yang lebih efisien hingga 17%.

Lebih Mudah Menghidupkan Mesin

Kondisi suhu udara dan ketinggian dari permukaan laut merupakan ciri khas dari geografis Indonesia. Suhu dan ketinggian yang berbeda-beda merupakan ancaman bagi mesin kendaraan anda yang sering mengakibatkan kendaraan yang kita miliki menjadi sulit untuk di hidupkan. Dengan prodik yang telah memiliki teknologi PGM-FI ini udara dan ketinggian yang berbeda-beda tidaklah menjadi sebuah ancaman sehingga kendaraan anda pun akan tetap mudah untuk kita hidupkan. Hal ini disebabkan produk yang telah memiliki teknologi PGM-FI telah memiliki kecanggihan teknologi yang akan membuat mesin lebih mudah dihidupkan dalam segala kondisi suhu udara, ketinggian dari permukaan laut dan bahkan setelah lama tidak dihidupkan sekalipun.

Aman Dengan Premium

Premium merupakan bahan bakar yang lebih mudah meledak bila di bandingkan dengan pertamax. Penggunaan premium pada mesin kendaraan seringkali berdampak tidak baik bagi mesin, akan tetapi kendaraan kendaraan bermotor yang memiliki teknologi canggih masa depan seperti PGM-FI ini telah di rancang untuk aman ketika kita akan menggunakan bahan bakar Premium di seluruh SPBU Indonesia. Memiliki kendaraan berteknologi masa depan dengan harga yang murah tentunya impian bagi semua orang. produk produk Honda PGM-FI akan menjadi jawaban untuk mewujudkan impian kita dengan teknologi-teknologi kendaraan di masa depan yang dimilikinya.

Produk Sepeda Motor Injeksi Irit Harga Terbaik Cuma Honda

Supra X 125 Helm in PGM-Fi

HARGA : Rp 15.975.000

Panjang X lebar X tinggi : 1.932 x 711 x 1.092 mm
Jarak Sumbu Roda : 1.258 mm
Jarak terendah ke tanah : 135 mm
Berat kosong : 107 kg
Tipe rangka : Tulang punggung
Tipe suspensi depan : Teleskopik
Tipe suspensi belakang : Lengan ayun dengan sokbreker ganda
Ukuran ban depan : 70/90 – 17 M/C 38P
Ukuran ban belakang : 80/90 – 17 M/C 44P
Rem depan : Cakram hidrolik, dengan piston tunggal
Rem belakang : Cakram hidrolik, dengan piston tunggal
Kapasitas tangki bahan bakar : 5,6 liter
Tipe mesin : 4 langkah, SOHC
Diameter x langkah : 52,4 x 57,9 mm
Volume langkah : 124,8 cc
Perbandingan Kompresi : 9,3 : 1
Daya Maksimum : 9,63 PS / 7.500 rpm
Torsi Maksimum : 1,08 kgf.m / 5.500 rpm
Kapasitas Minyak Pelumas Mesin : 0,7 liter pada penggantian periodik
Kopling Otomatis :
Gigi Transmsi : 4 kecepatan rotari / bertautan tetap
Pola Pengoperan Gigi : N-1-2-3-4-N (rotari)
Starter : Pedal dan elektrik
Aki : MF 12 V – 3,0 Ah
Busi : ND U20EPR9, NGK CPR6EA-9
Sistem Pengapian : Full Transisterized, Battery

Spacy Helm in PGM-FI

HARGA : Rp 12.900.000

Panjang X lebar X tinggi : 1.841 x 669 x 1.094 mm.
Jarak Sumbu Roda : 1.256 mm
Jarak terendah ke tanah : 128 mm
Berat kosong : 99 kg
Tipe rangka : Tulang punggung
Tipe suspensi depan : Teleskopik
Tipe suspensi belakang : Lengan ayun dan sokbreker tunggal
Ukuran ban depan : 80/90 – 14 M/C 40P
Ukuran ban belakang : 90/90 – 14 M/C 46P
Rem depan : Cakram Hidrolik, Piston Tunggal
Rem belakang : Tromol
Kapasitas tangki bahan bakar : 5,5 liter
Tipe mesin : 4 langkah, OHC
Diameter x langkah : 50 x 55 mm
Volume langkah : 108 cc
Perbandingan Kompresi : 9,2 : 1
Daya Maksimum : 6.38 kW (8,67 PS) / 8000 rpm
Torsi Maksimum : 8.89 N.m (0,91 kgf.m) / 6500 rpm
Kapasitas Minyak Pelumas Mesin : 0,7 liter pada penggantian periodik
Kopling Otomatis : Otomatis, sentrifugal, tipe kering
Gigi Transmsi : Otomatis, V-Matic
Pola Pengoperan Gigi : -
Starter : Pedal & elektrik
Aki : MF Battery, 12 V – 3 Ah
Busi : NGK CPR8EA-9 DENSO U24EPR9
Sistem Pengapian : Full Transisterized, Baterai

Vario Techno 125 PGM-FI CBS

HARGA : Rp 15.900.000

Panjang X lebar X tinggi : 1.918 x 689 x 1.103 mm
Jarak Sumbu Roda : 1.281 mm
Jarak terendah ke tanah : 128 mm
Berat kosong : 112 kg
Tipe rangka : Tulang punggung
Tipe suspensi depan : Teleskopik
Tipe suspensi belakang : Lengan ayun dengan shockbreaker tunggal
Ukuran ban depan : 80/90 – 14 M/C 40P
Ukuran ban belakang : 90/90 – 14 M/C 46P
Rem depan : Cakram hidrolik, dengan piston tunggal
Rem belakang : Tromol
Kapasitas tangki bahan bakar : 5,5 liter
Tipe mesin : 4 langkah, SOHC
Diameter x langkah : 52,4 x 57,9 mm
Volume langkah : 124,8 cc
Perbandingan Kompresi : 11,0 : 1
Daya Maksimum : 11.3 PS / 8.500 rpm
Torsi Maksimum : 1.1 kgf.m / 5.000 rpm
Kapasitas Minyak Pelumas Mesin : 0,8 liter pada penggantian periodik
Kopling Otomatis : Otomatis, sentrifugal, tipe kering
Gigi Transmsi : Otomatis, V-Matic
Pola Pengoperan Gigi : -
Starter : Pedal & elektrik
Aki : 12 V – 5 A.h (tipe MF)
Busi : ND U22EPR-9, NGK CPR7EA-9
Sistem Pengapian : Full Transisterize, Baterai

Vario Techno 125 PGM-FI

HARGA : Rp 15.100.000

Panjang X lebar X tinggi : 1.918 x 689 x 1.103 mm
Jarak Sumbu Roda : 1.281 mm
Jarak terendah ke tanah : 128 mm
Berat kosong : 112 kg
Tipe rangka : Tulang Punggung
Tipe suspensi depan : Teleskopik
Tipe suspensi belakang : Lengan Ayun dengan Shockbreaker Tunggal
Ukuran ban depan : 80/90 - 14 M/C 40P
Ukuran ban belakang : 90/90 - 14 M/C 46P
Rem depan : Cakram Hidrolik, dengan piston tunggal
Rem belakang : Tromol
Kapasitas tangki bahan bakar : 5,5 liter
Tipe mesin : 4 langkah, SOHC
Diameter x langkah : 52,4 x 57,9 mm
Volume langkah : 124,8 cc
Perbandingan Kompresi : 11,0 : 1
Daya Maksimum : 11.3 PS / 8.500 rpm
Torsi Maksimum : 1.1 kgf.m / 5.000 rpm
Kapasitas Minyak Pelumas Mesin : 0,8 liter pada penggantian periodik
Kopling Otomatis : Otomatis, sentrifugal, tipe kering
Gigi Transmsi : Otomatis, V-Matic
Pola Pengoperan Gigi : -
Starter : Pedal & elektrik
Aki : 12 V – 5 A.h (tipe MF)
Busi : ND U22EPR-9, NGK CPR7EA-9
Sistem Pengapian : Full Transisterize, Baterai

Sepeda Motor Injeksi Irit Harga Terbaik Cuma Honda

Sepeda Motor Injeksi Irit Harga Terbaik Cuma Honda

Game Diablo 3 Di Rilis

2012-05-15T21:23:00.002-07:00

Game Diablo 3 Di Rilis

Game Diablo 3 Di Rilis - Setelah sekian lama akhirnya VR-Zone, Asiasoft Corporation yang merupakan distributor Blizzard untuk kawasan Asia Tenggara merilis game Diablo III di Mall Funan, Singapura. Tentunya ini kabar yang sangat menggembirakan bagi para pecinta game RPG (Role Playing Game) Diablo yang telah menunggu 12 tahun untuk game diablo 3 ini. Seperti pada versi versi yang sebelumnya di setiap versi Diablo selalu banyak melakukan inovasi dari karakter karakter baru, misi misi baru, equipment, combinasi combinasi, dan tentunya di game diablo 3 tidak kalah lagi.

Pada game diablo 3 ini para gamer akan menemukan banyak karakter baru. Ada 5 karakter yang dapat dimaikan yaitu, Barbarian, Witch Doctor, Wizard, Monk, dan Demon Hunter

Wizard, Witch, Demon Hunter, Barbarian, dan Monk

Diablo 3 - Witch

Dokter penyihir mengingatkan kita dengan karakter baru dari ahli nujum pada game Diablo 2, akan tetapi dengan kemampuan lebih tradisional dihubungkan dengan perdukunan dan budaya voodoo. Para dukun memiliki kemampuan untuk memanggil monster, kutukan cor, jiwa panen, dan melemparkan racun dan bahan peledak pada musuh-musuhnya. Blizzard telah mengatakan bahwa dokter penyihir versi lain dari ahli nujum tersebut dan bahwa mereka dapat menggabungkan ahli nujum tersebut dalam ekspansi masa depan. Untuk mantra daya dokter penyihir menggunakan mana, yang melahirkan kembali perlahan-lahan.

Diablo 3 - Barbarian

Karekter Barbar memiliki berbagai macam keterampilan yang dimilikinya berdasarkan penggunaan dari kekuatan fisik yang luar biasa. Para bangsa barbar mampu menggunakan kekuatan pada musuh banyak, membelah melalui kawanan, lompatan di tebing, dan skill skill lainnya. Kekuatan yang digunakan oleh barbar adalah kemarahan, yang dihasilkan ketika mendapatkan serangan oleh musuh, menyerang musuh dan melalui kemampuan tertentu. Fury dapat digunakan untuk kemampuan yang kuat dan berregenerasi dari waktu ke waktu.

Diablo 3 - Wizard

Wizard adalah karakter penyihir dari Diablo II. Karakter wizard mempunyai kemampuan element element seperti petir, api dan es yang dapat digunakan untuk membuat musuh menjadi lambat dan wizard juga dapat teleporting berpindah tempat melewati dinding. Wizard dapat membaca mantra api dengan kekuatan misterius, yang merupakan bahan untuk meregenerasi.

Diablo 3 - Monk

Monk yang meupakan ahli dalam penyerangan jarak dekat, dan menggunakan seni bela diri untuk melumpuhkan musuh, menahan kerusakan yang di terima, membelokkan proyektil atau serangan jarak jauh, serta mereka memiliki serangan dengan kecepatan yang sangat cepat, dan pukulan tanah pembunuhan eksplosif. Ini menggabungkan elemen jarak dekat kelas pembunuh pada game Diablo 2 dengan berperan sebagai pejuang suci seperti karakter Paladin. Blizzard telah menyatakan bahwa biarawan itu tidak berhubungan dengan cara apapun untuk kelas biarawan dari Sierra Entertainment buatan Diablo:. Hellfire ekspansi Monk didorong oleh semangat, yang memiliki tujuan pertahanan dan perlahan-lahan dihasilkan melalui menyerang, meskipun tidak merosot.

Diablo 3 - Demon Hunter

Pemburu Hantu memadukan unsur-unsur pada game terdahulu Diablo II pada karakter amazon dan kelas pembunuh. Iblis pemburu menggunakan busur sebagai senjata utama mereka dan juga melempar bom kecil pada musuh. Beberapa keterampilan mereka telah terungkap dan di antara mereka mempunyai banyak keterampilan skill panah seperti keterampilan Panah Rantai. Para pemburu setan didorong oleh disiplin dan kebencian. Kebencian adalah sumber kekuatan yang digunakan untuk serangan, sementara Disiplin dapat digunakan untuk kemampuan defensif.

Diablo 3 - Sistem Minimum

Berdasarkan situs resmi Blizzard, sistem minimal untuk menjalankan game Diablo III ini adalah :

Windows® XP/Vista/7 (dengan service pack terakhir) dengan dukungan DX 9.0c.
Intel Pentium® D 2.8 GHz atau AMD Athlon™ 64 X2 4400+.
NVIDIA® GeForce® 7800 GT atau ATI Radeon™ X1950 Pro atau diatasnya.
1 GB RAM (XP), 1.5 GB (Vista/7).
12 GB kapasitas hardisk.
DVD-ROM (diperlukan untuk instalasi melalui retail disc).
koneksi Internet Broadband.
layar dengan resolusi minimal 1024×768 pixel.

Description: Game Diablo 3 Di Rilis Hari Ini
Rating: 4.5
ItemReviewed: Game Diablo 3 Di Rilis

Optimasi SEO Off Page

2012-05-15T15:59:00.000-07:00

Optimasi SEO Off Page Adalah?

"Optimasi seo off page" adalah kegiatan untuk mengoptimalkan website atau blog lewat luar halaman yang bertujuan untuk meningkatkan nilai SEO dan mendapatkan posisi yang lebih baik lagi pada hasil pencarian di search engine. Dalam dunia seo sendiri untuk mengoptimasikan website atau blog dapat di bagi menjadi 2 cara, yaitu optimasi seo off page dan optimasi seo on page. Beberapa blogger mengatakan perbandingan nilai seo pada off page dan on page berbanding 80% : 20%, tapi menurut saya sendiri sih nilai seo on page gak segitu tapi sekitar 30%, optimasi seo kurang sedikit aja udah di loncat jauh.

Cara Optimasi SEO Off Page

Ada beberapa cara yang dapat kita lakukan untuk meng optimasi seo off page, diantaranya:

Optimasi SEO Off Page - Link Building

Link building sendiri dapat di bagi menjadi 3, yaitu:

Inbound Link : merupakan link yang berasal dari website atau blog lain yang menuju ke website atau blog milik kita, atau kita juga mengenalnya dengan backlink.
Outbound Link : sendiri adalah kebalikan dari Inbound Link, merupakan link yang berasal dari website atau blog kita menuju website atau blog orang lain. Dalam melakukan outbound link ada beberapa hal yang harus kita perhatikan diantaranya; website yang kita tuju masih aktif, mempunyai kredibilitas yang baik ( minimal memiliki PR2 / PR3 ).
Internal Link : merupakan salah satu tekhnik seo yang digunakan oleh wikipedia dan banyak digunakan oleh para webmaster. Internal Link sendiri adalah link yang menghubungkan artikel yang satu dengan artikel yang lain pada website kita.

Optimasi SEO Off Page - Blog Bookmark

Daftarkan website anda ke beberapa blog bookmark seperti digg, myblog. Serta bagikan artikel ke blog bookmark tersebut karena bookmark tersebut mempunyai fungsi yang hampir mirip dengan backlink untuk website kita.

Optimasi SEO Off Page - Search Engine

Daftarkan website anda ke beberapa search engine seperti google, yahoo, msn, bing, atau search engine yang lainnya. Hal ini dilakukan agar kita bisa mendapatkan visitor yang banyak, menurut beberapa blogger visitor yang datang ke situs kita berasal dari google dan sisanya dari yang lain.

Optimasi SEO Off Page - Social Bookmark

Masukan situs anda ke beberapa social bookmark seperti facebook, twitter, dan lain-lain. Hal ini dilakukan untuk meningkatkan jumlah visitor dan backlink untuk kita.

Optimasi SEO Off Page - Memasang Iklan

Untuk mendapatkan visitor yang banyak anda juga dapat mendaftarkan diri untuk memasang iklan pada situs yang memiliki traffic visitor yang tinggi. Untuk melakukan pemasangan iklan itu sendiri anda perlu mengeluarkan biaya tambahan, tetapi anda akan mendapatkan tambahan visitor. Meskipun begitu ada beberapa yang pemasangan iklan gratis juga.

Optimasi SEO Off Page - Ping

Ping adalah sebuah layanan untuk memberitahukan keberadaan situs kita dan untuk mempublikasikannya. Lakukan lah ping secara berkala, untuk melakukan ping itu sendiri anda dapat melakukannya di ping-fast.com, autoping, dan lain-lain.

Optimasi SEO Off Page - Forum

Bergabunglah dengan beberapa SEO forum dan saling ber sharing ilmu untuk mendapatkan jurus-jurus Optimasi SEO Off Page atau Optimasi SEO On Page yang terbaru. Hal ini dikarenakan jurus-jurus optimasi SEO yang ada saat ini mungkin tak akan efektif lagi untuk tahun depan di karena disesuaikan untuk mengikuti kebijakan-kebijakan terbaru situs-situs search engine.

Description: "Optimasi SEO Off Page"
Rating: 4

Optimasi On Page Ampuh

2012-05-15T15:53:00.000-07:00

Optimasi SEO On Page Adalah?

Optimasi seo on page adalah cara untuk mengoptimalkan website atau blog dengan penulisan artikel agar disukai mesin pencari google untuk mendapatkan posisi yang lebih baik pada hasil serp google. Mesin pencari akan memilah halaman-halaman yang paling sesuai dengan keyword yang dimasukkan oleh pencari artikel. Di dalam dunia blog atau website sendiri ada beberapa cara untuk menaikan page kita di google agar menjadi lebih baik yaitu dengan optimasi seo on page, optimasi seo off page. Bagi sebuah situs optimasi SEO sangatlah penting karena akan meningkatkan jumlah visitor dikarenakan sebagian banyak orang ketika mencari artikel di google hanya mengklik di page awal google, bayangkan jika website atau blog anda berada di halaman 5 bahkan lebih di hasil serp google!!

Cara Optimasi SEO On Page

Ada beberapa hal yang harus diperhatikan dalam optimasi SEO On Page, diantaranya:

Optimasi SEO On Page - Struktur Penulisan Artikel

Dalam menulis sebuah artikel hendaknya secara struktur yaitu judul, sub-judul, minor-judul, dan isi artikel dikarenakan mesin pencari akan memilah dari yang paling sesuai dengan keyword. Mesin pencari google sendiri membaginya dalam 6 bagian, yaitu H1 (nama domain), H2 (Judul postingan), H3 (Judul Isi Artikel), H4 / H5 dan H6 (keyword). Maka gunakanlah penulisan artikel secara terstruktur.

Optimasi SEO On Page - Nama Domain (H1)

Di saat kita akan menentukan nama website atau blog kita hendaknya sesuai dengan keyword umum yang akan kita bidik karena nama domain merupakan H1 dalam optimasi SEO On Page. Contohnya: saya mempunyai blog yang nantinya sebagian besar postingan membahas mengenai tutorial SEO, maka ketika hendak menentukan nama situsnya saya menggunakan www.tutorialseo.com.

Optimasi SEO On Page - Judul Postingan (H2)

Hendaknya di saat akan menentukan judul postingan sesuai dengan keyword yang akan kita bidik serta tidak disarankan menggunakan nama judul yang terlalu panjang karena akan memotong url dan akan mengurangi nilai seo dari yang seharusnya kita bisa dapatkan Contohnya artikel saya ini mempunyai judul "Optimasi SEO On Page" karena saya akan menjadikan kata itu untuk keyword utama yang saya bidik.

Optimasi SEO On Page - Judul Isi / Heading Postingan (H3)

Dalam penulisan artikel kita sebaiknya memberikan heading, selain akan meningkatkan nilai SEO On Page artikel kita ini juga akan memberikan informasi deskripsi kepada pembaca tentang apa yang akan kita tulis nantinya.

Optimasi SEO On Page - Keyword (H4, H5, dan H6)

Masukan keyword yang kita bidik di sub-judul (H4), minor-judul (H5), dan isi artikel (H6) serta sesuaikan dengan meta tag yang kita gunakan karena akan memberikan nilai plus seo artikel kita. Serta munculkan kata keyword yang kita bidik tersebut di awal dan di akhir isian artikel.

Optimasi SEO On Page - Penggunaan Bold, Italic, dan Underline

Gunakan tanda khusus seperti Bold, Italic, atau Underline ( pilih salah satu ) pada keyword yang kita bidik, karena kata yang menggunakan tanda khusus akan di anggap pernting oleh mesin pencari google dan akan di masukan ke dalam daftar keyword. Disarankan hanya menggunakan satu tanda khusus pada keyword yang kita bidik karena jiga kita langsung menggunakan ketika tanda khusus sekaligus akan menyebabkan kita masuk ke google sandbox karena di anggap over optimasi.

Optimasi SEO On Page - Internal link (Anchor Link)

Gunakan internal link pada postingan itu sendiri dengan menggunakan anchor text yang sesuai sertakan juga title dan ref='nofollow': contohnya: mode html, <a href='http://www.dennych.blogspot.com' title='Optimasi SEO On Page' ref='nofollow'>SEO On Page</a>

Optimasi SEO On Page - Pada Gambar

Jika kita menyertakan gambar pada postingan yang kita buat hendak nya di tambah kan alt dan title untuk mendeskripsikan gambar tersebut dengan tulisan dikarenakan mesin pencari google hanya mengenali text dan tidak mengenali gambar.

Optimasi SEO On Page - Setelan Entri

Isikan isian entri di saat kita menulis sebuah artike seperti label, jadwal, lokasi, deskripsi penelusuran dan pilihan. Ini mungkin akan menjadikan artikel kita mudah di baca oleh mesin pencari google.

Optimasi SEO On Page - Meta Tag

Buat lah meta tag untuk situs sobat, saran dari saya jangan asal masukan script carilah meta tag seo friendly terbaru agar mendapatkan hasil yang baik. Sebelum mengedit html template disarankan agar anda membackup terlebih dahulu tample aslinya untuk menghindari kesalahan ketika sedang mengedit html templat

Description: Optimasi SEO On Page Ampuh
Rating: 4

Cara Mengatasi Google Sandbox

2012-05-08T05:09:00.001-07:00

Google Sandbox adalah?

Google Sandbox atau Sandbox Effect mungkin salah satu hal yang paling ditakuti oleh para blogger, terutama yang sering mengikuti kontes seo. Pengertian Google Sandbox sendiri adalah tempat sementara bagi website atau blog diparkir dan dinilai oleh Google. Apakah url tersebut layak berada di dalam SERP google atau tidak. Google Sandbox sendiri di berikan kepada website atau blog yang melakukan pelanggar dalam etika yang telah di tetapkan. Rata-rata yang terkena Google Sandbox ini adalah website atau blog-blog baru akan tetapi tidak menutup kemungkinan bagi website atau blog-blog yang sudah lama dan mempunyai rank untuk terkena effectnya. Waktu normal bagi sebuah website atau blog untuk keluar dari Google Sanbox adalah 6 bulan, ini sudah sangat mengerikan untuk para blogger.

Penyebab Terkena Google Sandbox

Ini beberapa spekulasi dari hasil sharing penyebab website atau blog kita masuk dalam list Google Sandbox di antaranya:

Backlink yang berlebihan pada website atau blog baru
Jika website atau blog anda umurnya masih baru tidak disarankan menggunakan tekhnik backlink yang berlebihan, contohnya berkomentar dengan menyimpan alamat website atau blog kita pada blog orang lain dalam jumlah yang banyak dan jarak waktu yang singkat.
Kualitas konten yang rendah
/konten yang memiliki kualitas rendah seperti copy paste, tata bahasa yang kurang ter atur, jumlah kata di dalam konten yang sedikit, format konten tidak sesuai. Walaupun anda tidak terkena Google Sandbox akan tetapi kualitas konten yang rendah akan sulit menempati posisi page 1 google.
Spiky Linkbuilding
Ke tidak konsistenan dalam membangung backlink pada website atau blog dapat memperburuk nilai SEO pada website anda, contohnya ketika di awal website anda secara membabi buta memasukan backlink, tetapi pada minggu-minggu selanjutnya anda berhenti total.
Kualitas backlink yang rendah
maksudnya backlink yang didapatkan oleh website atau blog kita mempunyai PR yang rendah.
Keyword yang berlebihan
Disarankan agar anda tidak memasukan keyword secara berlebihan pada meta tag, dan meta deskripsi penelusuran karena hal ini dapat mengakibatkan website anda di anggap spam oleh google.
Optimasi yang berlebihan
Tidak disarankan untuk melakukan optimasi secara berlebihan, misalnya pada keyword yang anda bidik menggunakan bold / underline / italic secara bersamaan.

Cara Mengatasi Google Sandbox

Berikut ini cara mengatasi google sandbox

Mengupdate sebagaian postingan yang berhubungan dengan url yang terkena Google Sandbox dan berikan link anchor ke postingan yang terkena Google Sandbox tersebut.
Menghentikan sementara optimasi, jikapun mau optimasi jangan menggunakan farm tapi dengan normal dan minimal mempunyai PR1.
Membuat sebuah artikel mengenai Google Sandbox dan berikan link anchor ke artikel yang terkena Google Sandbox dan berikan link juga ke google.com atau google.co.id, dan ke google webmaster guidelines.
Tulis ulang atau re-publikasi artikel yang terkena google sandbox dan berikan link ke google.com atau google.co.id.
Carilah backlink yang mempunyi minimal mempunyai PR1 dan gunakan tools pencari backlink untuk mempermudah dalam pencarian backlink yang berkualitas.
Reconsideration request di google webmaster dan submite ulang lagi sitemap website atau blog anda.

Itulah beberapa cara mengatasi google sandbox yang dapat saya berikan.

Description: Deskripsi Anda Disini
Rating: 4.5