Looping bagian 4

Akan menampilkan form seperti ini

Kemudian kita isi perintah dalam program :
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()

For i = 2 To Val(TextBox1.Text)
ListBox1.Items.Add("*" + i.ToString + "," + (i + 1).ToString)
Next

For i = 1 To Val(TextBox1.Text)
If i Mod 4 Then
ListBox2.Items.Add(i)
End If
Next

For i = 1 To Val(TextBox1.Text)
If i Mod 3 = 2 Then
ListBox3.Items.Add(i)
End If
Next
End Sub
End Class

Sekian dan untuk latihan

List View session 6

Mengisi data dengan menggunakan ListView

Public Class Form1
Dim isitext(4) As String
Dim item As ListViewItem


Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
Call bersih()
Call isikombo()
Call tampilan()
End Sub


Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = " 06 Teknik Informatika "
End Sub
Sub isikombo()
ComboBox1.Items.Add(" 06 Teknik Informatika ")
ComboBox1.Items.Add(" 07 Sistem Informasi ")
ComboBox1.Items.Add(" 67 Komputer Akuntansi ")
ComboBox1.Items.Add(" 05 Teknik Komputer ")
ComboBox1.Items.Add(" 26 Management Informatika ")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button1.Text = "tambah" Then
Button1.Text = "simpan"
Button2.Enabled = False
Button3.Enabled = False
Button4.Text = "batal"
TextBox1.Focus()
Else
isitext(0) = Trim(TextBox1.Text)
isitext(1) = Trim(TextBox2.Text)
isitext(2) = Trim(TextBox3.Text)
isitext(3) = Microsoft.VisualBasic.Left(Trim(ComboBox1.Text), 2)

item = New ListViewItem(isitext)
ListView1.Items.Add(item)

Call bersih()
TextBox1.Focus()

End If
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button4.Text = "keluar" Then
Me.Close()
Else
Call bersih()
Call normal()


End If
End Sub
Sub normal()
Button1.Text = "tambah"
Button1.Enabled = True

Button2.Text = "ubah"
Button2.Enabled = True

Button3.Text = "hapus"
Button3.Enabled = True

Button4.Text = "keluar"

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "ubah" Then
Button2.Text = "simpan"
Button1.Enabled = False
Button3.Enabled = False
Button4.Text = "batal"
TextBox1.Focus()
Else

End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button3.Text = "hapus" Then
Button3.Text = "simpan"
Button1.Enabled = False
Button2.Enabled = False
Button4.Text = "batal"
TextBox1.Focus()
Else

End If
End Sub
Sub tampilan()
ListView1.View = View.Details
ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("NAMA", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("ALAMAT", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("JURUSAN", 100, HorizontalAlignment.Center)
End Sub

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged
TextBox1.Text = e.Item.Text
End Sub
End Class

Perkalian dan Membuat Bilangan Ganjil & Genap dengan Modul

Dengan modul untuk membuat perkalian bilangan ganjil & genap

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call tampilnama()
TextBox1.Text = nama
End Sub
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Clear()
ListBox2.Items.Clear()
c = TextBox1.Text
Call pilih(ListBox1, ListBox2)
End Sub
End Class

Tambahkan juga modulenya :

Module sandhy
Public nama As String, hasil, c, ganjil, genap As Integer

Sub pilih(ByVal lb1 As ListBox, ByVal lb2 As ListBox)
For i = 1 To Val(c)
If i Mod 2 = 0 Then
lb2.Items.Add(i)
ElseIf i Mod 2 = 1 Then
lb1.Items.Add(i)


End If
Next

End Sub
End Module

Sekian dan untuk latihan modul ini



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
h = TextBox2.Text
b = TextBox3.Text
Call hitung()
TextBox4.Text = hasil

End Sub
End Class

Jangan lupa tambahkan module,berikut isinya :

Module ary
'variablepublic
Public nama As String, hasil, h, b As Integer
Sub tampilnama()
nama = "sandhy aryardhana"
End Sub
Sub hitung()
hasil = Val(h)* Val(b)
End Sub

End Module

Form Penjualan dari Skripsi

Hal yang mesti kita perhatikan dalam pembuatan Invoice/Faktur.
1. Invoice faktur dibuat sesuai dengan dengan barang yang telah diserahkan/diterima dengan baik oleh customer. Adakalanya barang yang telah dikirim, ditolak/ditolak sebagian/diterima bersyarat oleh customer. Karena itu Invoice faktur dibuat setelah Delivery Order ditandatangani oleh penerima.
2. Satu Order pembelian dapat direalisasikan dalam satu transaksi (satu kali Do/Sj) dan dapat juga direalisasikan secara bertahap (beberapa kali Do/Sj). Banyak kebijakan perusahaan yang menetapkan bahwa pembayaran akan dilakukan setelah order pembelian telah terealisasikan secara keseluruhan sehingga apabila terdapat beberapa kali Do/Sj, maka invoice/Faktur hanya dibuat apabila order penjualan telah dipenuhi secara keseluruhan. Untuk itu diperlukan informasi ringgkas mengenai dokumen-dokumen yang terkait dengan tagihan tersebut. Keperluan tersebut dibutuhkan baik bagi penerima tagiahan maupun pembuat invoice.
3. Dalam kontrak Order dalam jangka waktu tertentu kebijakan poin 2 tidak berlaku sehingga Invoice dibuat setiap Delivery Order telah ditandatangani oleh penerima.
4. Pembuatan Invoice secara automatis akan mengupdate buku piutang dagang. Dengan ini dapat diartikan pembuat invoice adalah bagian yang juga mencatat piutang.
5. Dalam prosedur internal kontrol system akuntansi metode manual disarankan untuk membuat invoice di atas formulir dengan nomor urut tercetak namun dengan sistem akuntansi komputer semakin banyak perusahaan menggunakan nomor komupterisasi. Keunggulan penggunaan nomor tercetak menjamin tidak terjadinya nomor ganda dalam pembuatan Invoice namun apabila terjadi kegagalan, nomor transaksi dicatat pada nomor berikutnya sesuai dengan nomor urut dokumen tercetak. Bila menggunakan nomor urut yang di create komputer perlu pengawasan lebih ketat karena memungkinan terjadinya invoice ganda yang dapat menimbulkan kerugian perusahaan.
Untuk lebih jelasnya mari kita perhatikan screen shot berikut :

sekarang kita menuliskan kode program alias source-code untuk form tersebut. Namun sebelum kita mulai mulai dengan kontrol-kontrol yang ada pada form tersebut, ada beberapa fungsi tambahan yang harus kita buat. Yang pertama adalah fungsi Pads(), yang berguna untuk memberikan angka “0” di depan angka yang akan kita olah. Bingung ya? Hehe, saya juga sebenarnya bingung untuk menerangkannya. Tapi nanti juga akan jelas kok, saat sudah mulai dan melihat hasilnya. Fungsi kedua adalah fungsi untuk menghasilkan Nomor Faktur. Jadi, kita namakan saja fungsi tersebut dengan nama NomorFaktur(). Dan fungsi ke tiga yang bernama IsiKodeBarang, sesuai dengan namanya, adalah untuk mengisi combobox cbKodeBarang, dengan data KodeBarang yang sudah ada pada tabel master Barang.

Langsung saja, buka form penjualan yang telah kita buat, lalu klik kanan di sembarang area kosong (yang tidak berisi kontrol) pada form penjualan, dan pilih View Code pada popmenu yang muncul.
Nah, tekan Enter satu kali untuk memberi ruang satu spasi di bawah tulisan tersebut, lalu ketikkan kode berikut:
Function Pads(nAngka) As String
'kita akan menetapkan batas panjang angka maksimal 3 digit
'jika lebih dari 3 digit, tiga angka pertama yang akan dipakai
If Len(Trim(Str(nAngka))) > 3 Then
Pads = Left(Trim(Str(nAngka)), 3)
Exit Function
'jika panjangnya hanya 3 digit, angka itulah yang dipakai
ElseIf Len(Trim(Str(nAngka))) = 3 Then
Pads = Trim(Str(nAngka))
Exit Function
'jika hanya 2 digit, tambahkan satu "0" (nol) di depannya
ElseIf Len(Trim(Str(nAngka))) = 2 Then
Pads = "0" & Trim(Str(nAngka))
Exit Function
'jika hanya 1 digit, tambahkan dua "0" (nol) di depannya
ElseIf Len(Trim(Str(nAngka))) = 1 Then
Pads = "00" & Trim(Str(nAngka))
Exit Function
End If
End Function
Berikan lagi satu spasi di bawah fungsi ini, dan ketikkan fungsi ke dua ini di bawahnya:
Function NomorFaktur() As String
Dim sNF As String
Dim nUrut As Single
nUrut = 1
Ulang:
'tetapkan dulu format nomor faktur di sini
'(4 digit tahun + 2 digit bulan + 3 digit nomor urut)
sNF = Format(dtpTanggal.Value, "yyyymm") & Pads(nUrut)
'kemudian cari record dengan nomor faktur tersebut
datPenjualan.RecordSource = "SELECT * FROM Penjualan WHERE No_Faktur = '" & sNF & "'"
datPenjualan.Refresh
'jika tidak ada, tetapkan ini sebagai nomor faktur
If datPenjualan.Recordset.RecordCount = 0 Then
NomorFaktur = sNF
'jangan lupa untuk mengembalikan posisi awal
'dari 'RecordSource' tabel penjualan ini...
datPenjualan.RecordSource = "SELECT * FROM Penjualan"
datPenjualan.Refresh
Exit Function
'jika tidak, maka sudah ada record lama,
'jadi tambahkan saja nomor urutnya, dan ulangi pencarian
Else
nUrut = nUrut + 1
GoTo Ulang
End If
End Function
Sekali lagi, berikan lagi satu spasi di bawahnya untuk menambahkan fungsi ke tiga ini:
Sub IsiKodeBarang()
cbKodeBarang.Clear
datBarang.RecordSource = "SELECT * FROM Barang ORDER BY Kode_Barang"
datBarang.Refresh
If datBarang.Recordset.RecordCount = 0 Then
MsgBox "Data Master Barang masih kosong. Isi dulu datanya!", vbCritical
Unload Me
Exit Sub
End If
Do While Not datBarang.Recordset.EOF
cbKodeBarang.AddItem datBarang.Recordset.Fields("Kode_Barang")
datBarang.Recordset.MoveNext
Loop
cbKodeBarang.ListIndex = 0
End Sub
Tampilan pada jendela source-code, kira-kira akan seperti di bawah ini:

VB.Puzzle

2. Lalu lakukan setting di bagian properties object seperti berikut :

Button1 Visible = false
Button 2 Teks = 4
Button 3 Teks = 2
Button 4 Teks = 7
Button 5 Teks = 6
Button 6 Teks = 1
Button 7 Teks = 3
Button 8 Teks = 8
Button 9 Teks = 5

Hasilnya akan seperti berikut :

3. Lalu masukkan syntax berikut :

Public Class Puzzle

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
If Button2.Visible = False Then
Button2.Visible = True
Button1.Visible = False
Button2.Text = Button1.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button1.Visible = False
Button4.Text = Button1.Text
End If
End If
cek()
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
If Button1.Visible = False Then
Button1.Visible = True
Button2.Visible = False
Button1.Text = Button2.Text
ElseIf Button3.Visible = False Then
Button3.Visible = True
Button2.Visible = False
Button3.Text = Button2.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button2.Visible = False
Button5.Text = Button2.Text
End If
cek()
End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
If Button2.Visible = False Then
Button2.Visible = True
Button3.Visible = False
Button2.Text = Button3.Text
Else
If Button6.Visible = False Then
Button6.Visible = True
Button3.Visible = False
Button6.Text = Button3.Text
End If
End If
cek()
End Sub

Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
If Button1.Visible = False Then
Button1.Visible = True
Button4.Visible = False
Button1.Text = Button4.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button4.Visible = False
Button5.Text = Button4.Text
ElseIf Button7.Visible = False Then
Button7.Visible = True
Button4.Visible = False
Button7.Text = Button4.Text
End If
cek()
End Sub

Private Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
If Button3.Visible = False Then
Button3.Visible = True
Button6.Visible = False
Button3.Text = Button6.Text
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button6.Visible = False
Button9.Text = Button6.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button6.Visible = False
Button5.Text = Button6.Text
End If
cek()
End Sub

Private Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.Click
If Button7.Visible = False Then
Button7.Visible = True
Button8.Visible = False
Button7.Text = Button8.Text
ElseIf Button9.Visible = False Then
Button9.Visible = True
Button8.Visible = False
Button9.Text = Button8.Text
ElseIf Button5.Visible = False Then
Button5.Visible = True
Button8.Visible = False
Button5.Text = Button8.Text
End If
cek()
End Sub

Private Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
If Button8.Visible = False Then
Button8.Visible = True
Button7.Visible = False
Button8.Text = Button7.Text
Else
If Button4.Visible = False Then
Button4.Visible = True
Button7.Visible = False
Button4.Text = Button7.Text
End If
End If
cek()
End Sub

Private Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
If Button6.Visible = False Then
Button6.Visible = True
Button9.Visible = False
Button6.Text = Button9.Text
Else
If Button8.Visible = False Then
Button8.Visible = True
Button9.Visible = False
Button8.Text = Button9.Text
End If
End If
cek()
End Sub

Private Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
If Button2.Visible = False Then
Button2.Visible = True
Button5.Visible = False
Button2.Text = Button5.Text
ElseIf Button4.Visible = False Then
Button4.Visible = True
Button5.Visible = False
Button4.Text = Button5.Text
ElseIf Button6.Visible = False Then
Button6.Visible = True
Button5.Visible = False
Button6.Text = Button5.Text
ElseIf Button8.Visible = False Then
Button8.Visible = True
Button5.Visible = False
Button8.Text = Button5.Text
End If
cek()
End Sub

Private Sub cek()
If (Button1.Text = "1" And Button2.Text = "2" And Button3.Text = "3" And Button4.Text = "4") Then
If (Button5.Text = "5" And Button6.Text = "6" And Button7.Text = "7") Then
If (Button8.Text = "8") Then
MessageBox.Show("Selesai")
End If
End If
End If
End Sub

End Class









Setting DNS Server Pada OpenSuse
Buka Menu Yast Control Center

Kemudian pilih
Network Services / DNS Server
Kemudian Pilih Tab Forwarders lalu pilih "Set Forwarders Manually"
Pada Kolom IP Address ketikkan alamat DNS Forwarders
Kemudian Klik Tombol Add
Contoh Seperti gambar dibawah ini:



Kemudian Pilih DNS Zones yang ada pada panel sebelah kiri
Pada kolom name ketikkan domain name (sisca.com)
Lalu Klik Tombol Add
Seperti gambar dibawah ini:



Pada Kolom Configured DNS Zones Pilih Zone dari domain name yang telah kita masukkan sebelumnya. Yaitu aris.net. Klik edit.
Pilih Tab NS Records. Pada Kolom "Name Server to Add" ketikkan Name
Server (ns1.sisca.com). lalu Klik add.
Seperti gambar dibawah ini:


Setelah selesai di Tab NS Records kita lanjutkan Pilih Tab MX Records
Pada kolom address ketikkan mail dan pada priority masukkan angka 3 kemudian klik add.
Seperti gambar dibawah ini


Sekarang kita lanjut lagi Pilih Tab Records➢ Pertama masukkan record ns
 Ketikkan ns1 pada kolom Record Key
 lalu pada kolom Type Pilih "A: Domain Name Translation"
 Value → 192.168.100.1 alamat IP dari ns1.sisca.com
➢ Masukkan record www
 Ketikkan www pada kolom Record Key
 lalu pada kolom Type Pilih "A: Domain Name Translation"
 Value → 192.168.100.1 alamat IP dari www.sisca.com
➢ Masukkan record mail
 Ketikkan mail pada kolom Record Key
 lalu pada kolom Type Pilih "A: Domain Name Translation"
 Value → 202.43.115.83 alamat IP dari mail.aris.net
➢ Masukkan record zimbra
 Ketikkan zimbra pada kolom Record Key
 lalu pada kolom Type Pilih "CNAME: Alias for Domain Name"
 Value → www karena zimbra adalah alias dari www.aris.net
➢ Masukkan record ftp
 Ketikkan ftp pada kolom Record Key
 lalu pada kolom Type Pilih "A: Domain Name Translation"
 Value → 192.168.100.1 alamat IP dari ftp.sisca.com
Seperti gambar dibawah ini :


➢ Klik OK
➢ Kemudian Klik Finish.

Setelah selesai, kita lakukan percobaan apakah sudah bisa digunkan,untuk mengetahuinya
Dengan cara :

➢ Buka konsole
➢ login sebagai root
➢ kemudian restart dns server dengan perintah

/etc/init.d/named restart

➢ Kemudian ketikkan
ns1.sisca.com
➢ Jika DNS Server Anda berjalan dengan Benar maka akan muncul output seperti ini:

aris.net:/home/linux_user # nslookup ns1.sisca.com
Server: 192.168.100.1
Address: 192.168.100.1#53
Name: ns1.aris.net
Address: 192.168.100.1
aris.net:/home/linux_user #

KALKULATOR VB

Kalkulator VB
Program untuk membuat kalkulator sederhana yang bisa menggunakan hitung-tambah, kurang, kali, dan bagi.

Kode :
Option Explicit
Dim Operasil As Double, Operasi2 As Double
Dim Operator As String
Dim HapusTampilan As Boolean

Private Sub TblHapus_Click()
Tampilan.Caption = ""
End Sub
Private Sub Angka_Click(Index As Integer)
If HapusTampilan Then
Tampilan.Caption =""
HapusTampilan = False
End If
Tampilan.Caption = Tampilan.Caption + Angka(Index).Caption
End Sub

Private Sub Bagi_Click()
Operasi = Val (Tampilan.Caption)
Operasi = "/"
Tampilan.Caption =""
End Sub

Private Sub Desimal_Click()
If HapusTampilan Then
Tampilan.Caption =""
HapusTampilan =False
End If
If InStr(Tampilan.Caption,".") Then
Exit Sub
Else
Tampilan.Caption = Tampilan.Caption +"."
End If
End Sub
Private Sub SamaDengan_Click()
Dim hasil As Double

On Error GoTo ErrorHandler
Operasi2 = Val (Tampilan.Caption)
If Operator ="+"Then hasil = Operasi1+ Operasi2
If Operator ="-"Then hasil = Operasi1 – Operasi2
If Operator ="*"Then hasil = Operasi1* Operasi2
If Operator ="/" And Operasi2 <> "0" Then hasil = _Operasi1 / Operasi2
Tampilan,Caption = hasil
HapusTampilan = True
Exit Sub
ErrorHandler:
MsgBox "Hitungan menghasilkan kesalahan berikut" _
& vbCrLf & Err.Description
Tampilan.Caption = "SALAH"
HapusTampilan = True
End Sub
Private Sub Kurang_Click()
Operasi1 = Val(Tampilan.Caption)
Operator ="-"
Tampilan.Caption =""
End Sub
Private Sub SatuPer_Click()
If Val(Tampilan.Caption) <> 0Then Tampilan.Caption _
= 1/ Val (Tampilan.Caption)
End Sub

Private Sub Tambah_Click()
Operasi1 =Val(Tampilan.Caption)
Operator ="+"
Tampilan.Caption =""
End Sub

Private Sub TambahKurang_Click()
Tampilan.Caption =-Val(Tampilan.Caption)
End Sub

Private Sub Kali_Clilck()
Operasi1 =Val(Tampilan.Caption)
Operator ="*"
Tampilan.Caption =""
End Sub

Sedikit Tips "

Jika ingin bisa bahasa inggris namun tidak harus ikut course
bisa dengan otodidak......!!!
walau result-nya tidak seaktif orang yang mahir berbahasa enlish
1. Setiap mau tidur, minimal 5 vocabullary harus kita hafal jelang tidur....saat bangun, ingat-ingat kembali kata-kata apa saja yang kita hafal semalam
2. Jangan malu untuk berbicara sedikit-sedikit dengan kata-kata yg kita bisa or conversation in dially activity
3. Tense, agak sullit memang...namun cara mudah menghafal pattern-or rumusnya yakni
setiap adverb of time itu auxilary-nya apa saja...tobe-nya pakai apa !!!
4. Be self confident
good luck guuuuys !!!!!

Konsekuensi

Konsekuensinya adalah pengulangan akan selalu dilakukan bila hasil pengujian kondisi bernilai true (selain nol), dan statement ga pernah dieksekusi bila hasil pengujian berninali false (nol). Contoh do...loop ;
posisi=1
do while posisi<11
?posisi
posisi=posisi+1
loop


Contoh diatas nilai awal variable pposisi yakni 1. Statements selanjutnya menguji selama nilai variable posisi kurang dari 11, maka akan mencetak niali variable posisi, lalu mengcounter nilai variable posisi dengan menambah 1. Proses berikutnya yaitu mengembalikan kestatements do while u/mengetes nilail variable posisi. Demikian posisi seterusnya sampe nilai ekspresi bernilai false (nilai variable posisi tidak kurang dari 11).

Struktur Pengulangan Loop

Proses loop memberi kesempatan kita untuk megulang proses eksekusi terhadap satu ato beberapa baris kode. Struktur pengulangan dalam VB bisa diatur dengan statement :
-do...loop
-for...next
-for each.....next

Memakai struktur do.....loop
u/mengeksekusi sebuah block statement sebanyak angka yg kita definisikan didalamnya.
VB ngelanjutin eksekusi seperti if...then condition harus berupa nilai ato ekspresi false (nol) or true (selain nol).

Dalam do...loop, bagian dari statement akan dieksekusi sebanyak condition yg bernilai true. Contoh perintahnya ;

Do While condition
Statements
Loop

VB mengeksekusi do loop ini, kesatu menguji condition jika condition bernilai false maka pengaksesan melompat ke statement diluar loop. Sedangkan jika bernilai true, VB akan mengeksekusi bagian statements dan selanjutnya back to statements do while dan mmenguji lagi condition deh.

if i ain't got you

Some people live for the fortune
Some people live just for the fame
Some people live for the power, yeah
Some people live just to play the game
Some people think that the physical things
Define what's within
And I've been there before
But that life's a bore
So full of the superficial
Some people want it all
But I don't want nothing at all
If it ain't you baby
If I ain't got you baby
Some people want diamond rings
Some just want everything
But everything means nothing
If I ain't got you,

Some people search for a fountain
That promises forever young
Some people need three dozen roses
And that's the only way to prove you love them
Hand me the world on a silver platter
And what good would it be
With no one to share
With no one who truly cares for me

IF I were a Boy

If I were a boy
Even just for a day
I'll roll out of bed in the morning and throw on what i wanted and go
Drink beer with the guys and chase after girls
I can get away with what I wanted
and I never get confronted for it cause they stick up for me
If I were A boy
I think I could understand
how it feels to love a girl I swear i be a better man
I listen to her
cause I know how it hurts
when you lose the one you wanted
has taken you for granted and everything you have had got destroyed

If I were a boy
I'll would turn off my phone tell everyone it's broken
so they think that i sleeping alone
i'll put myself first and make the rules as i go
Cause I know that she'll be faithful
waiting for me to come home to come home

Lexycal Analysis

>> Beasran Lexycal

# Identifier : berupa keyword/ nama kunci seperti IF, ELSE, THEN, END (pada pascal) INTEGER, Int, float(c++), pecahan
# Konstanta : besaran yg berupa bilangan bulat (integer), bilangan pecahan (float real), boolean (true/false), string, dsb.
# Operator : operator aritmatik (-,+,*) operator logika (<,=,>)
# Delimiter : berguna sebagai pemisah/ pembatas seperti ();:, white space
# White space : sebagai pemisah yg diabaikan oleh program,( enter, spasi, ganti baris, akhir file).

Setting DHCP & Konfigurasi DHCP Server pada Linux SUSE

Instalasi dan Konfigurasi DHCP Server
DHCP (Dynamic Host Control Protocol) adalah sebuah mekanisme yang memunkinkan sebuah server untuk memberikan IP Address secara dinamik bagi client. Client melakukan permintaan IP Address kepada server, dan server memberikan alokasi bagi si client tersebut. Mekanisme ini akan sangat memberikan keuntungan bagi manajemen jaringan di karenakan proses setting IP Address tidak harus dilakukan manual untuk setiap client yang ada.
Package yang digunakan untuk membuat dhcp pada suse adalah dhcp-server.
1. Untuk menginstall ketik yast –i dhcp-server.

2. Setelah itu atur dhcp dengan mengedit file vi /etc/dhcpd.conf
Penjelasan:
Subnet : masukkan network yang digunakan beserta subnetnya
Range : range dhcp yang digunakan
Option domain-name-servers : ip dns yang akan digunakan
Option domain-name : nama domain lokal
Option routers : nomor ip router pada eth1
Option bradcast-address : ip broadcast pada network yang digunakan

3. Simpan konfigurasinya dan restart dhcp menggunakan konsole rcdhcpd restart. Jika muncul tampilan seperti dibawah, berati dhcp interfacenya belum disetting. Untuk mensetting interface tersebut, edit file vi /etc/sysconfig/dhcpd

4. Pada baris ke 17, tulisan DHCPD_INTERFACE=”“ dalam tanda petik isi nama eth yang digunakan. Contoh seperti pada gambar dibawah. Restart dhcp dan dhcp siap digunakan.

Untuk menguji dhcp pada client, pastikan setting ipnya di obtain dahulu. Alias dikosongkan agar saat kabel lan di pasang pada interface client, client otomatis meminta ip dari server.
Hasil dari konfigurasi dhcp server seperti gambar dibawah.


Membangun WAN di Linux Suse 11.