CHANDRA MS

Rabu, 16 Januari 2013

Membuat Aplikasi Perhitungan Nilai Menggunakan VB 6.0

Sudah lama gak posting sob....posting lagi aaahhhh ! hehehe… kali ini saya mau share mengenai pembuatan program sederhana berbasis GUI dengan menggunakan VB 6.0

Object Oriented Programming

berikut interface hasil desain form nya…

Nah, setelah tampilan desain nya uda jadi, trus klik dua kali pada kontrol Command Button (CmdProses) untuk menuliskan listing program nya seperti dibawah ini…
=========================================================================================

Private Sub CmdProses_Click()

Dim Rata As Single

Dim Mutu As String

Rata = (Val(TxtUTS.Text) * 0.3) + (Val(TxtUAS.Text) * 0.4) + (Val(TxtTugas.Text) * 0.2) + (Val(TxtAbsen.Text) * 0.1)

If Rata >= 80 Then

Mutu = “A”

ElseIf Rata >= 70 Then

Mutu = “B”

ElseIf Rata >= 60 Then

Mutu = “C”

ElseIf Rata >= 40 Then
Mutu = “D”

Else

Mutu = “E”

End If

ListTampil.AddItem ” NIM = ” + TxtNIM.Text

ListTampil.AddItem ” Nama = ” + TxtNama.Text

If OptLk.Value = True Then

ListTampil.AddItem ” Jenis Kelamin = ” + OptLk.Caption

Else

ListTampil.AddItem ” Jenis Kelamin = ” + OptPr.Caption

End If

ListTampil.AddItem ” “

ListTampil.AddItem ” Jurusan = ” + CmbJurusan.Text

ListTampil.AddItem ” Kelas = ” + TxtKelas.Text

ListTampil.AddItem ” Semester = ” + CmbSemester.Text

ListTampil.AddItem ” “

ListTampil.AddItem ” Mata Kuliah = ” + TxtMatkul.Text

ListTampil.AddItem ” Nilai UTS = ” + TxtUTS.Text

ListTampil.AddItem ” Nilai UAS = ” + TxtUAS.Text

ListTampil.AddItem ” Nilai Tugas = ” + TxtTugas.Text

ListTampil.AddItem ” Nilai Absen = ” + TxtAbsen.Text

ListTampil.AddItem ” “

ListTampil.AddItem ” Total Nilai = ” + Str(Rata)

ListTampil.AddItem ” Mutu = ” + Mutu

ListTampil.AddItem ” “

If Mutu = “A” Then

ListTampil.AddItem ” Sukses ! Terus Semangat Belajar !!”

ElseIf Mutu = “B” Then

ListTampil.AddItem ” Cukup Baik, Rajin & Tekun Belajar !”

ElseIf Mutu = “C” Then

ListTampil.AddItem “Kurang Baik, Disarankan Untuk Mengikuti Her !”

ElseIf Mutu = “D” Then

ListTampil.AddItem “Buruk, Fokus dan Serius Lagi Belajar !”

Else

ListTampil.AddItem “Teramat Buruk, Anda Harus Lebih Serius Belajar !”

End If

MsgBox “Nilai kamu untuk mata kuliah ini adalah ” + Mutu

End Sub

Private Sub CmdReset_Click()

TxtNIM.Text = Empty

TxtNama.Text = Empty

OptLk.Value = False

OptPr.Value = False

CmbJurusan.Text = ” “

TxtKelas.Text = Empty

CmbSemester.Text = ” “

TxtMatkul.Text = Empty

TxtUTS.Text = Empty

TxtUAS.Text = Empty

TxtTugas.Text = Empty

TxtAbsen.Text = Empty

ListTampil.Clear

End Sub

Private Sub CmdKeluar_Click()

x = MsgBox(“Anda Yakin Akan Keluar ??”, vbQuestion + vbOKCancel, “AnnaLee Exit”)

If x = vbOK Then

End

End If

End Sub

=======================================================

Selamat mencoba ya sob… !

Membuat kalkulator sederhana menggunakan HTML dan menggunakan IF

Membuat kalkulator sederhana menggunakan HTML
dan menggunakan
IF

Pertama,kita masuk terelebih dahulu ke tampilan notepad dan ketikan listing program di bawah ini...
Ingat! kalau listing program masih berwarna merah di bawah huruf atau bertanda garis merah,berarti menandakan program masih salah,atau error.

Silahkan mencoba sob...

<html>
<head>
<title>Kalkulator Online</title>
<script>
function hitung(angka1,angka2,operator)
{
var hasil;
if (operator==”tambah”){
hasil = parseInt(angka1) + parseInt(angka2);
}else if(operator==”kurang”){
hasil = parseInt(angka1) – parseInt(angka2);
}else if(operator==”kali”){
hasil = parseInt(angka1) * parseInt(angka2);
}else if(operator==”bagi”){
hasil = parseInt(angka1) / parseInt(angka2);
}
document.getElementById(“hasil”).innerHTML = “<b>” +hasil+ “</b>”;
return false;
}
</script>
</head>
<body>
<form name=”form1″ method=”post” action=”hitung.php” onsubmit=”return hitung
(form1.angka.value,form1.angka2.value,form1.operator.value);”>
<table align=”center” width=”28%” border=”5″ bgcolor=”lime”>
<tr>
<td align=”center”>
<h1><center><u>Online Calculator</u></center></h1>
<h3>
Bilangan 1<input name=”angka” type=”text” id=”angka”><br>
<center><select name=”operator” id=”operator”>
<option value=”tambah”>+</option>
<option value=”kurang”>-</option>
<option value=”kali”>*</option>
<option value=”bagi”>/</option>
</select></center>Bilangan 2<input name=”angka2″ type=”text” id=”angka2″><br>
<center><input type=”submit” name=”Submit” value=”Hitung”></center><div style=”float:left;”>- Hasil :</div><br>
<div id=”hasil”></div>
</h3>
<marquee><h6>Kalkulator Online dengan operator Aritmatika</h6></marquee>
</td>
</tr>
</table>
</form>
</body>
</html>
berikut adalah hasil nya…

Kalkulator Online

Jumat, 11 Januari 2013

PUNGSI PERULANGAN (LOOPING) DENGAN MENGGUNAKAN DO UNTIL - DO WHILE – FOR NEXT – WHILE AND WHILE – MENGURUTKAN ANGKA DARI 0-9 – A-Z – Z-A – TAHUN 1-ETS – KATA PERULANGAN(LOOPING) DARI ATAS KE BAWAH DAN DARI KIRI KE KANAN.

PUNGSI PERULANGAN (LOOPING) DENGAN MENGGUNAKAN

DO UNTIL - DO WHILE – FOR NEXT – WHILE AND WHILE –MENGURUTKAN ANGKA DARI 0-9 – A-Z – Z-A – TAHUN 1-ETS – KATA PERULANGAN(LOOPING)DARI ATAS KE BAWAH DAN DARI KIRI KE KANAN.

1. Pertama desain terlebih dahulu form load Perulangan(looping)

2. Kemudian klik 2 x di form load dan listing program ke private sub

Listing Program

Public Class Form1

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

Dim X As Byte

ListBox1.Items.Clear()

X = 1

Do Until X > 10

ListBox1.Items.Add(X)

X += 1

Loop

End Sub

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

Dim z As Byte

ListBox2.Items.Clear()

z = 1

Do While z <= 10

ListBox2.Items.Add(z)

z = z + 1

Loop

End Sub

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

Dim y As Byte

ListBox3.Items.Clear()

y = 1

For y = 1 To 10

ListBox3.Items.Add(y)

End Sub

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

Dim b As Byte

ListBox4.Items.Clear()

b = 1

While b <= 10

ListBox4.Items.Add(b)

b = b + 1

End While

End Sub

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

Dim L As Integer

ListBox5.Items.Clear()

For L = 1 To 10

ListBox5.Items.Add("CINTA")

End Sub

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

Dim B As Integer

For B = 1 To 10

TextBox1.Text = TextBox1.Text & "CINTA "

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Dim C As Byte

ListBox6.Items.Clear()

C = 10

While C >= 1

ListBox6.Items.Add(C)

C = C - 1

End While

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

Dim A As Integer

ListBox7.Items.Clear()

For A = 65 To 90

ListBox7.Items.Add(Chr(A))

Next A

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

Dim B As Integer

ListBox7.Items.Clear()

B = 90

For B = 90 To 65 Step -1

ListBox7.Items.Add(Chr(B))

Next B

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

Dim R As Integer

ListBox8.Items.Clear()

For R = 2007 To Year(Now)

ListBox8.Items.Add(R & "/" & R + 1)

End Sub

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

End Sub

End Class

3. Lalu debug,jadi deh…

Tapi ingat! Listing program atau klik di kotak atau kolom satu persatu untuk listing programnya.

Selamat mencoba…!!!!

Kamis, 20 Desember 2012

MENGETAHUI DATA MAHASISWA DENGAN MENGGUNAKAN FUNGSI STRING

1.Design form terlebih dahulu

Menggunakan table yg ada di common controls yang ada di ssebelah kiri toolbar

Menggunakan combobox dan ini menggunakan textbox

Kemudian klik 2 x di form load dan isikan liting programnya

LISTING PROGRAM

Public Class Form1

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

NPM.Items.Add("0911010")

NPM.Items.Add("1002001")

NPM.Items.Add("1102001")

NPM.Items.Add("1111100")

NPM.Items.Add("1202101")

End Sub

Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

Dim x As String

x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)

Select Case x

Case "11"

Prodi.Text = "Teknik Informatika"

Jenjang.Text = "S1"

Case "02"

Prodi.Text = "Manajemen Informatika"

Jenjang.Text = "D3"

End Select

NoPendaftaran.Text = Microsoft.VisualBasic.Right(NPM.Text, 3)

Tahun.Text = "20" & Microsoft.VisualBasic.Left(NPM.Text, 2)

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

End Class

Lalu lanjutkan dengan menekan tombol debug maka akan tampil seperti gambar di bawah ini

Lalu isikan atau pilih kolom NPM salah satu dan seterusnya sampai ke kolom Tahun

Kemudian isikan juga nama anda. Missal Chandra Maulana MS

Nah, sudah selesai sobat.. gampangkan?

SELAMAT MENCOBA!!!!!!!!!!!!!!!!

KenapaIbu Menangis?

KenapaIbu Menangis?

Seorang anak kecil bertanya kepada ibunya,

"Mengapa engkau menangis?" "Karena aku perlu" katanya. "Saya tidak mengerti,"

katanya.

Ibu-Nya hanya memeluknya dan berkata,

"Dan kau tidak akan pernah."

Kemudian anak laki-laki itu bertanya kepada ayahnya,

"Mengapa ibu suka menangis tanpa alasan?"

"Semua wanita menangis tanpa alasan,"

jawab ayahnya sembarangan.

Anak laki-laki kecil, masih bertanya-tanya mengapa wanita menangis, akhirnya meminta bijak Syekh tua (Guru Islamnya).

"Dia pasti tahu jawabannya",

pikirnya.

"Ya Syaikh! Mengapa wanita menangis begitu mudah? "

Para guru yang bijaksana menjawab,

"Ketika Allah membuat wanita dia harus dibuat begitu istimewa. Dia membuat bahunya cukup kuat untuk menopang dunia, namun cukup lembut untuk memberikan kenyamanan. Dia memberikannya kekuatan dari dalam untuk mampu melahirkan anak dan menerima penolakan yang datang dari anak-anaknya. Dia memberinya kekerasan yang memungkinkan dia untuk terus ketika orang lain menyerah, dan mengurus keluarganya melalui penyakit dan kelelahan tanpa mengeluh. Dia memberinya kepekaan untuk mencintai anak-anaknya dalam setiap dan semua keadaan, bahkan ketika anaknya menyakitinya sangat buruk. Dia memberinya kekuatan untuk mendukung suaminya dalam kegagalannya dan kuno nya dari tulang rusuk untuk melindungi hatinya.

Dia memberinya kebijaksanaan untuk mengetahui bahwa seorang suami yang baik takkan pernah menyakiti isterinya, tetapi kadang menguji kekuatannya dan ketetapan hatinya untuk berada disisi suaminya tanpa ragu. Dan terakhir, Dia memberinya air mata. Ini adalah miliknya dan hanya miliknya untuk digunakan kapan pun dia membutuhkannya. Dia tidak memerlukan alasan, penjelasan, itu miliknya ... Anda lihat ibumu, keindahan seorang wanita bukanlah dari pakaian yang dikenakannya, keindahan wajahnya, atau bagaimana ia menyisir rambutnya. Keindahan seorang wanita harus dilihat dari matanya, karena itulah pintu hatinya -. Tempat dimana cinta itu ada "

Anak kecil menemukan jawabannya dan tidak pernah mengajukan pertanyaan yang sama lagi.

Renungan :

" Begitulah pengorbanan seorang Wanita terutama ibumu. Tiada lagi alasan untuk membuatnya menangis selain menjadi kebutuhannya sebagai miliknya satu-satunya. "

Setuju silakan SHARE cerita ini.

Selasa, 18 Desember 2012

Setting dan konfigurasi Router Mikrotik

Setting dan konfigurasi Router Mikrotik

SKENARIO

LAN —> Mikrotik RouterOS —> Modem ADSL —> INTERNET

Untuk LAN, kita menggunakan ip address class C, dengan network 192.168.10.0/24. Untuk Mikrotik RouterOS, kita perlu dua ethernet card. Satu (ether1 – 192.168.1.2/24) untuk sambungan ke Modem ADSL dan satu lagi (ether2 – 192.168.10.1/24) untuk sambungan ke LAN. Untuk Modem ADSL, IP kita set 192.168.1.1/24.

Sebelum mengetikkan apapun, pastikan Anda telah berada pada root menu dengan mengetikkan “/”

1. Set IP untuk masing² ethernet card

ip address add address=192.168.1.2/24 interface=ether1 (public)

ip address add address=192.168.10.1/24 interface=ether2 (local)

Untuk menampilkan hasil perintah di atas ketikkan perintah berikut:

ip address print

Kemudian lakukan testing dengan mencoba nge-ping ke gateway atau ke komputer yg ada pada LAN. Jika hasilnya sukses, maka konfigurasi IP Anda sudah benar

ping 192.168.1.1

ping 192.168.10.10

2. Menambahkan Routing

ip route add gateway=192.168.1.1

3. Setting DNS

ip dns set primary-dns=202.134.1.10 allow-remote-requests=yes

ip dns set secondary-dns=202.134.0.155 allow-remote-requests=yes

Karena koneksi ini menggunakan Speedy dari Telkom, maka DNS yg aq pake ya punya Telkom. Silahkan sesuaikan dengan DNS provider Anda.

Setelah itu coba Anda lakukan ping ke yahoo.com misalnya:

ping yahoo.com

Jika hasilnya sukses, maka settingan DNS sudah benar

4. Source NAT (Network Address Translation) / Masquerading

Agar semua komputer yg ada di LAN bisa terhubung ke internet juga, maka Anda perlu menambahkan NAT (Masquerade) pada Mikrotik.

ip firewall nat add chain=srcnat action=masquerade out-interface=ether1

Sekarang coba lakukan ping ke yahoo.com dari komputer yang ada di LAN

ping yahoo.com

Jika hasilnya sukses, maka setting masquerade sudah benar

5. DHCP (Dynamic Host Configuration Protocol)

Karena alasan supaya praktis, temenku pengin pake DHCP Server. Biar klo tiap ada klien yang konek, dia ga perlu setting IP secara manual. Tinggal obtain aja dari DHCP Server, beres dah. Untungnya Mikrotik ini juga ada fitur DHCP Servernya. Jadi ya ga ada masalah.. 8)

* Membuat IP Address Pool

ip pool add name=dhcp-pool ranges=192.168.0.2-192.168.0.254

* Menambahkan DHCP Network

ip dhcp-server network add address=192.168.10.0/24 gateway=192.168.10.1 dns-server=202.134.1.10,202.134.0.155

* Menambahkan Server DHCP

ip dhcp-server add name=DHCP_LAN disabled=no interface=ether2 address-pool=dhcp-pool

Sekarang coba lakukan testing dari komputer klien, untuk me-request IP Address dari Server DHCP. Jika sukses, maka sekali lagi, settingannya udah bener

6. Management Bandwidth

Agar semua komputer klien pada LAN tidak saling berebut bandwidth, maka perlu dilakukan yg namanya bandwidth management atau bandwidth control, idea: (saya menggunakan simple que supaya lebih mudah ;

queue simple add name=”Billing” target-address=192.168.10.2/32 dst-address=0.0.0.0/0 interface=Local queue=default priority=8 limit-at=16000/32000 max-limit=16000/64000

queue simple add name=”Kasir” target-addresses=192.168.10.3/32 dst-address=0.0.0.0/0 interface=Local parent=Shaping priority=8 queue=default/default limit-at=0/8000 max-limit=0/256000 total-queue=default

Lanjutkan perintah tersebut untuk semua client yang ingin di limit bnadwithnya.

7. Graphing

Mikrotik ini juga dilengkapi dengan fungsi monitoring traffic layaknya MRTG biasa. Jadi kita bisa melihat berapa banyak paket yg dilewatkan pada PC Mikrotik kita.

tool graphing set store-every=5min

Berikutnya yang akan kita monitor adalah paket² yg lewat semua interface yg ada di PC Mikrotik kita, klo di komputerku ada ether1 dan ether2.

tool graphing interface add interface=all store-on-disk=yes

Sekarang coba arahkan browser anda ke IP Router Mikrotik. Klo aq di sini:

http://192.168.10.1/graphs/

Nanti akan ada pilihan interface apa aja yg ada di router Anda. Coba klik salah satu, maka Anda akan bisa melihat grafik dari paket2 yg lewat pada interface tersebut.

Apa ItuWireless

Wireless adalah teknologi tanpa kabel, dalam hal ini adalah melakukan hubungan telekomunikasi dengan menggunakan gelombang elektromagnetik sebagai pengganti kabel. Saat ini teknologi wireless berkembang dengan pesat, secara kasat mata dapat dilihat dengan semakin banyaknya pemakaian telepon sellular, selain itu berkembang pula teknologi wireless yang digunakan untuk akses internet.

Wireless LAN menggunakan gelombang elektromagetik (radio dan infra merah) untuk melakukan komunikasi data menyalurkan data dari satu point ke point yang lain tanpa melalui fasilitas fisik. Koneksi ini menggunakan frekuensi tertentu untuk menyalurkan data tersebut, kebanyakan Wireless LAN menggunakan frekuensi 2,4 GHz. Frekuensi inilah yang disebut dengan Industrial, Scientific and Medical Band atau sering disebut ISM Band, seperti telah dijelaskan di atas.

Dalam beberapa produk peralatan ini menggunakan PCMCIA Card dengan kemampuan 11 mbps. Sering terjadi kesalahpahaman di sini. Yang dimaksud dengan 11 mbps di sini adalah kemampuan maksimal Card tersebut untuk melakukan suatu transmisi, bisa dikatakan jumlah maksimal upstream dan downstream alat tersebut. Kemampuan ini tidak selalu dapat berjalan seperti yang disebut 11 mbps tadi, kalau kita hitung paling tidak akan terjadi loss sekitar 50%, jadi alat tersebut mampu mentransmit data 5,5 mbps. Ini bisa dilakukan bila kita menggunakan point-to-point, artinya di kedua sisi menggunakan peralatan yang sama.

Bila sudah melakukan point-to-multipoint, akan terjadi pengurangan yang cukup signifikan, Multipoint disini dapat dianalogikan dengan hub, jadi semakin banyak yang tersambung dengan multipoint tersebut maka akan terjadi penurunan kemampuan transmit data. Dalam suatu alat Multipoint yang menggunakan Wireless LAN 11 mbps atau kadang-kadang disebut Access Point, dapat menampung lebih kurang 32 pengguna perseorangan, tetapi bila yang tersambung adalah suatu jaringan LAN pula, maka akan terjadi penurunan kemampuan paling tidak setengahnya, jadi maksimal suatu Base Transceiver System (BTS) adalah menerima 16 pengguna dari LAN.

Kemampuan ini pun dapat menurun apabila di BTS dilakukan pen’cekek’an bandwidth seperti 128 kbps, maka kemampuan penyaluran data dari BTS itu pun akan berkurang pula.