Friday, June 29, 2012

Program Calculator pada C++

#include<stdio.h>

float add(float,float);
float sub(float,float);
float product(float,float);
float divide(float,float);

void main()
{
    float n1,n2;
    char sym,choice;
    printf("This Program is a program for calculator\n\n");
    scanf("%f%c%f",&n1,&sym,&n2);
    if(sym=='+')
        printf("\n%f",add(n1,n2));
    if(sym=='-')
        printf("\n%f",sub(n1,n2));
    if(sym=='*')
        printf("\n%f",product(n1,n2));
    if(sym=='/')
        printf("%f",divide(n1,n2));
    printf("\nDo you wish to continue[y/n]");
    scanf("%s",&choice);
    if(choice=='y'||choice=='Y')
        main();
}

float add(float m1,float m2)
{
    return(m1+m2);
}

float sub(float m1,float m2)
{
    return(m1-m2);
}

float product(float m1,float m2)
{
    return(m1*m2);
}

float divide(float m1,float m2)
{
    return(m1/m2);
} 

Program Calculator Visual Basic 6.0

Begin VB.Form Calculator 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Calculator"
   ClientHeight    =   2970
   ClientLeft      =   2580
   ClientTop       =   1485
   ClientWidth     =   3270
   ClipControls    =   0   'False
   BeginProperty Font 
      name            =   "System"
      charset         =   1
      weight          =   700
      size            =   9.75
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   Height          =   3375
   Icon            =   "CALC.frx":0000
   Left            =   2520
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2970
   ScaleWidth      =   3270
   Top             =   1140
   Width           =   3390
   Begin VB.CommandButton Number 
      Caption         =   "7"
      Height          =   480
      Index           =   7
      Left            =   120
      TabIndex        =   7
      Top             =   600
      Width           =   480
   End
   Begin VB.CommandButton Number 
      Caption         =   "8"
      Height          =   480
      Index           =   8
      Left            =   720
      TabIndex        =   8
      Top             =   600
      Width           =   480
   End
   Begin VB.CommandButton Number 
      Caption         =   "9"
      Height          =   480
      Index           =   9
      Left            =   1320
      TabIndex        =   9
      Top             =   600
      Width           =   480
   End
   Begin VB.CommandButton Cancel 
      Caption         =   "C"
      Height          =   480
      Left            =   2040
      TabIndex        =   10
      Top             =   600
      Width           =   480
   End
   Begin VB.CommandButton CancelEntry 
      Caption         =   "CE"
      Height          =   480
      Left            =   2640
      TabIndex        =   11
      Top             =   600
      Width           =   480
   End
   Begin VB.CommandButton Number 
      Caption         =   "4"
      Height          =   480
      Index           =   4
      Left            =   120
      TabIndex        =   4
      Top             =   1200
      Width           =   480
   End
   Begin VB.CommandButton Number 
      Caption         =   "5"
      Height          =   480
      Index           =   5
      Left            =   720
      TabIndex        =   5
      Top             =   1200
      Width           =   480
   End
   Begin VB.CommandButton Number 
      Caption         =   "6"
      Height          =   480
      Index           =   6
      Left            =   1320
      TabIndex        =   6
      Top             =   1200
      Width           =   480
   End
   Begin VB.CommandButton Operator 
      Caption         =   "+"
      Height          =   480
      Index           =   1
      Left            =   2040
      TabIndex        =   12
      Top             =   1200
      Width           =   480
   End
   Begin VB.CommandButton Operator 
      Caption         =   "-"
      Height          =   480
      Index           =   3
      Left            =   2640
      TabIndex        =   13
      Top             =   1200
      Width           =   480
   End
   Begin VB.CommandButton Number 
      Caption         =   "1"
      Height          =   480
      Index           =   1
      Left            =   120
      TabIndex        =   1
      Top             =   1800
      Width           =   480
   End
   Begin VB.CommandButton Number 
      Caption         =   "2"
      Height          =   480
      Index           =   2
      Left            =   720
      TabIndex        =   2
      Top             =   1800
      Width           =   480
   End
   Begin VB.CommandButton Number 
      Caption         =   "3"
      Height          =   480
      Index           =   3
      Left            =   1320
      TabIndex        =   3
      Top             =   1800
      Width           =   480
   End
   Begin VB.CommandButton Operator 
      Caption         =   "X"
      Height          =   480
      Index           =   2
      Left            =   2040
      TabIndex        =   14
      Top             =   1800
      Width           =   480
   End
   Begin VB.CommandButton Operator 
      Caption         =   "/"
      Height          =   480
      Index           =   0
      Left            =   2640
      TabIndex        =   15
      Top             =   1800
      Width           =   480
   End
   Begin VB.CommandButton Number 
      Caption         =   "0"
      Height          =   480
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   2400
      Width           =   1080
   End
   Begin VB.CommandButton Decimal 
      Caption         =   "."
      Height          =   480
      Left            =   1320
      TabIndex        =   18
      Top             =   2400
      Width           =   480
   End
   Begin VB.CommandButton Operator 
      Caption         =   "="
      Height          =   480
      Index           =   4
      Left            =   2040
      TabIndex        =   16
      Top             =   2400
      Width           =   480
   End
   Begin VB.CommandButton Percent 
      Caption         =   "%"
      Height          =   480
      Left            =   2640
      TabIndex        =   17
      Top             =   2400
      Width           =   480
   End
   Begin VB.Label Readout 
      Alignment       =   1  'Right Justify
      BackColor       =   &H0000FFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "0."
      BeginProperty Font 
         name            =   "MS Sans Serif"
         charset         =   1
         weight          =   700
         size            =   12
         underline       =   0   'False
         italic          =   0   'False
         strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   120
      TabIndex        =   19
      Top             =   105
      Width           =   3000
   End
End
Attribute VB_Name = "Calculator"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
' ------------------------------------------------------------------------
'               Copyright (C) 1994 Microsoft Corporation
'
' You have a royalty-free right to use, modify, reproduce and distribute
' the Sample Application Files (and/or any modified version) in any way
' you find useful, provided that you agree that Microsoft has no warranty,
' obligations or liability for any Sample Application Files.
' ------------------------------------------------------------------------
Option Explicit
Dim Op1, Op2                ' Previously input operand.
Dim DecimalFlag As Integer  ' Decimal point present yet?
Dim NumOps As Integer       ' Number of operands.
Dim LastInput               ' Indicate type of last keypress event.
Dim OpFlag                  ' Indicate pending operation.
Dim TempReadout

' Click event procedure for C (cancel) key.
' Reset the display and initializes variables.
Private Sub Cancel_Click()
    ReadOut = Format(0, "0.")
    Op1 = 0
    Op2 = 0
    Form_Load
End Sub

' Click event procedure for CE (cancel entry) key.
Private Sub CancelEntry_Click()
    ReadOut = Format(0, "0.")
    DecimalFlag = False
    LastInput = "CE"
End Sub

' Click event procedure for decimal point (.) key.
' If last keypress was an operator, initialize
' readout to "0." Otherwise, append a decimal
' point to the display.
Private Sub Decimal_Click()
    If LastInput = "NEG" Then
        ReadOut = Format(0, "-0.")
    ElseIf LastInput <> "NUMS" Then
        ReadOut = Format(0, "0.")
    End If
    DecimalFlag = True
    LastInput = "NUMS"
End Sub

' Initialization routine for the form.
' Set all variables to initial values.
Private Sub Form_Load()
    DecimalFlag = False
    NumOps = 0
    LastInput = "NONE"
    OpFlag = " "
    ReadOut = Format(0, "0.")
    Decimal.Caption = Format(0, ".")
End Sub

' Click event procedure for number keys (0-9).
' Append new number to the number in the display.
Private Sub Number_Click(Index As Integer)
    If LastInput <> "NUMS" Then
        ReadOut = Format(0, ".")
        DecimalFlag = False
    End If
    If DecimalFlag Then
        ReadOut = ReadOut + Number(Index).Caption
    Else
        ReadOut = Left(ReadOut, InStr(ReadOut, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".")
    End If
    If LastInput = "NEG" Then ReadOut = "-" & ReadOut
    LastInput = "NUMS"
End Sub

' Click event procedure for operator keys (+, -, x, /, =).
' If the immediately preceeding keypress was part of a
' number, increments NumOps. If one operand is present,
' set Op1. If two are present, set Op1 equal to the
' result of the operation on Op1 and the current
' input string, and display the result.
Private Sub Operator_Click(Index As Integer)
    TempReadout = ReadOut
    If LastInput = "NUMS" Then
        NumOps = NumOps + 1
    End If
    Select Case NumOps
        Case 0
        If Operator(Index).Caption = "-" And LastInput <> "NEG" Then
            ReadOut = "-" & ReadOut
            LastInput = "NEG"
        End If
        Case 1
        Op1 = ReadOut
        If Operator(Index).Caption = "-" And LastInput <> "NUMS" And OpFlag <> "=" Then
            ReadOut = "-"
            LastInput = "NEG"
        End If
        Case 2
        Op2 = TempReadout
        Select Case OpFlag
            Case "+"
                Op1 = CDbl(Op1) + CDbl(Op2)
            Case "-"
                Op1 = CDbl(Op1) - CDbl(Op2)
            Case "X"
                Op1 = CDbl(Op1) * CDbl(Op2)
            Case "/"
                If Op2 = 0 Then
                   MsgBox "Can't divide by zero", 48, "Calculator"
                Else
                   Op1 = CDbl(Op1) / CDbl(Op2)
                End If
            Case "="
                Op1 = CDbl(Op2)
            Case "%"
                Op1 = CDbl(Op1) * CDbl(Op2)
            End Select
        ReadOut = Op1
        NumOps = 1
    End Select
    If LastInput <> "NEG" Then
        LastInput = "OPS"
        OpFlag = Operator(Index).Caption
    End If
End Sub

' Click event procedure for percent key (%).
' Compute and display a percentage of the first operand.
Private Sub Percent_Click()
    ReadOut = ReadOut / 100
    LastInput = "Ops"
    OpFlag = "%"
    NumOps = NumOps + 1
    DecimalFlag = True
End Sub 
 
 
 
 
Hello world!
Hello world!
Hello world!
Hello world! 

access webcam from the visual basic 6

Introduction

This is a simple program and can be use to access webcam from the visual basic 6.
This program checks whether webcam is available or not. If not available simple gives
a message otherwise capture from the webcam and displays in picture box.
This program has 3 diffrent functionality.
  1. Capture from the webcam
  2. Close the webcam
  3. Format the video

Source Code

'This program check whether webcam is available or not
' if available then capture and displays in picture box

'Created by Dixanta Bahadur Shrestha
'Created Date: 12-March-2006

'Programmer does not garuntees if  not functions well

Global Const ws_child As Long = &H40000000
Global Const ws_visible As Long = &H10000000

Global Const WM_USER = 1024
Global Const wm_cap_driver_connect = WM_USER + 10
Global Const wm_cap_set_preview = WM_USER + 50
Global Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Global Const WM_CAP_DRIVER_DISCONNECT As Long = WM_USER + 11
Global Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_USER + 41
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (
    ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, 
    ByVal lParam As Long) As Long
Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias 
    "capCreateCaptureWindowA" (
    ByVal a As String, ByVal b As Long, ByVal c As Integer, 
    ByVal d As Integer, ByVal e As Integer, ByVal f As Integer, 
    ByVal g As Long, ByVal h As Integer) As Long


 

Dim hwdc As Long
Dim startcap As Boolean
Private Sub cmdCapture_Click()
Dim temp As Long

  hwdc = capCreateCaptureWindow("Dixanta Vision System", 
      ws_child Or ws_visible, 0, 0, 320, 240, Picture1.hWnd, 0)
  If (hwdc <> 0) Then
    temp = SendMessage(hwdc, wm_cap_driver_connect, 0, 0)
    temp = SendMessage(hwdc, wm_cap_set_preview, 1, 0)
    temp = SendMessage(hwdc, WM_CAP_SET_PREVIEWRATE, 30, 0)
    startcap = True
    Else
    MsgBox ("No Webcam found")
  End If
End Sub

Private Sub cmdClose_Click()
Dim temp As Long
If startcap = True Then
temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
startcap = False
End If
End Sub

Private Sub cmdVideoFormat_Click()
 Dim temp As Long
 If startcap = True Then
  temp = SendMessage(hwdc, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
End If
End Sub

download Program Code

  • E-BOOK Mahir Visual Basic 6.0 Download
  • Source code Program Banquet Hotel Download
  • Source code Program Billing Warnet Download
  • Source code Program Chatting Client Server Download
  • Source code Program Hospital Download
  • Source code Program Inventory Download
  • Source code Program Absensi Dosen Download
  • Source code Program Virus Download
  • Tutorial Latihan Vb 6.0 Download Download
  • Source code Program Penjualan Tunai Download

PROGRAM BERAT BADAN IDEAL

PROGRAM BERATBADANIDEAL (BMI)

#include <stdio.h>
#include <conio.h>
void main()
{int BB,TB1;float TB2;float BBI,BMI;mulai:printf("\t# HITUNG BERAT BADAN IDEAL #\n");printf("\t# BODY MASS INDEX CALCULATION #\n\n");printf("BERAT BADAN(kg) =\n");scanf("%d",&BB);printf("TINGGI BADAN(cm)(ex:180) =\n");scanf("%d",&TB1);printf("TINGGI BADAN(m)(ex:1.80) =\n");scanf("%f",&TB2);printf("========================================\n");BMI=BB/(TB2*TB2);BBI=(TB1-100)*90/100;printf
("BERAT IDEAL ANDA = %f\n",BBI);
printf("BODY MASS INDEX ANDA = %f\n",BMI);if (BMI<18.5 && BMI>=0){printf("KETERANGAN = UNDER WEIGHT\n\n");}else if (BMI>=18.5 && BMI<25){printf("KETERANGAN = NORMAL\n\n");}else if (BMI>=25 && BMI<30){printf("KETERANGAN = OVER WEIGHT\n\n");}else if (BMI>=30){printf("KETERANGAN = OBESITAS\n\n");}else{printf("KETERANGAN = ERROR ON INPUT NUMBER\n\n");}printf("ULANGI PERHITUNGAN ?");getch();clrscr();goto mulai;}
http://htmlimg1.scribdassets.com/8uz6zdi0hse8ovo/images/1-66ffe69696.jpg

Cara Mengamankan Router dengan Password (Cisco Packet Tracer )

Cara Mengamankan Router dengan Password ( Cisco Packet Tracer )



Beberapa waktu lalu ada salah seorang pengunjung blog saya yang menanyakan bagaimana caranya untuk Mengamankan Router dengan Password di Cisco Packet Tracer..?

Mengamankan Router dengan Password ini memang sangat perlu dilakukan oleh pihak administrator jaringan,hal ini dimaksudkan agar tidak ada orang yang tidak berhak dapat masuk pada konfigurasi Router,karna bisa saja orang tersebut mengacaukan konfigurasi yang telah dibangun sehingga semua sistem yang telah kita set menjadi berantakan dan tidak berfungsi sebagaimana mestinya.
Untuk menyulitkan orang yang tidak berhak mengubah dan mengacau konfigurasi Router, maka Router tersebut perlu dilindungi dengan kata sandi (password). Password untuk console Jika password diaktifkan pada console, maka user tidak bisa begitu saja mendapatkan akses ke Router melalui console tanpa menuliskan password console terlebih dahulu.

Ok gays langsung aja kita praktekan yah....

Pertama buka terlebih dahulu Tools Cisco Packet Tracer

Klik 2 kali pada Router yang akan di password dan masuk pada menu CLI


Ok sekarang kita setting Router tersebut ketikan perintah-perintah di bawah ini :



Continue with configuration dialog? [yes/no]: no


Press RETURN to get started!



Router>enable
Router#configure terminal
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)#line console 0
Router(config-line)#login
% Login disabled on line 0, until 'password' is set
Router(config-line)#password terserahkalian
Router(config-line)#exit
Router(config)#exit

%SYS-5-CONFIG_I: Configured from console by console
Router# exit

Sampai disana kita telah berhasil mengamankan router dengan password jika ingin mencoba apakah kita telah berhasil atau tidak menyeting Router tersebut tekan enter pada CLI tersebut maka akan muncul seperti gambar dibawah :


untuk dapat masuk pada Router tersebut maka kita harus memasukan Password yang telah kita seting sebelumnya,yakni pada praktek ini saya menyetting password nya dengan key terserahkalian.

Membuat Simulasi Jaringan Router EIGRP (Cisco Packet Tracer)

Membuat Simulasi Jaringan Router EIGRP (Cisco Packet Tracer)

Yuhu,akhirnya saya bisa juga Membuat Simulasi Jaringan Router EIGRP di Cisco Packet Tracer ,Lumayan Susah juga ternyata hehe tapi alhamdulilah setelah beberpa kali dicoba akhirnya bisa juga.

Apa itu EIGRP ?
EIGRP (Enhanced Interior Gateway Routing Protocol) adalah routing protocol yang hanya di adopsi oleh router cisco atau sering disebut sebagai proprietary protocol pada cisco. Dimana EIGRP ini hanya bisa digunakan sesama router cisco saja.
Intinya adalah, EIGRP berfungsi untuk menghubungkan router 1 dengan router yang lain dengan cara mengenalkan network-network pada setiap interface yang berada pada router itu sendiri.

Ok Sekarang mari kita belajar bersama Membuat Simulasi Jaringan Router EIGRP dengan Cisco Packet Tracer,Pada Praktek kali ini kita menggunakan 2 Router dan juga 2 PC

Langsung Saja Buka Cisco Packet Tracer ,dan Temen temen buat Simulasi Jaringan seperti gambar di bawah ini.


Setelah Itu Setting IP Address Pada kedua PC tersebut

PC A IP Address 192.168.2.2 Subnet Mask 255.255.255.0 Default Gateway 192.168.2.1
PC B IP Address 172.10.10.2 Subnet Mask 255.255.0.0 Default Gateway 172.10.10.1

Setting IP PC A
Setting IP PC B

Ok Setelah itu kita seting router 1

Klik Router 1 dan Setlah itu masuk pada Menu CLI


Continue with configuration dialog? [yes/no]: no
Press RETURN to get started! ketik enter
Router>enable
Router#configure terminal
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)#interface fa 0/0
Router(config-if)#ip address 192.168.2.1 255.255.255.0
Router(config-if)#no shutdown


%LINK-5-CHANGED: Interface FastEthernet0/0, changed state to up


%LINEPROTO-5-UPDOWN: Line protocol on Interface FastEthernet0/0, changed state to up


Router(config-if)# exit
Router(config)#interface fa 0/1
Router(config-if)#ip address 192.168.0.1 255.255.255.252
Router(config-if)#no shutdown


%LINK-5-CHANGED: Interface FastEthernet0/1, changed state to up


Router(config-if)#exit
Router(config)#exit


%SYS-5-CONFIG_I: Configured from console by console
Router#write
Building configuration...
[OK]

Setelah selesai setting Router 1 Sekarang Lanjut Setting Router 2
Klik Router 2 dan Setlah itu masuk pada Menu CLI

Continue with configuration dialog? [yes/no]: no




Press RETURN to get started!



c


Router>enable
Router#configure terminal
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)#interface fa 0/0
Router(config-if)#ip address 192.168.0.2 255.255.255.252
Router(config-if)#no shutdown


Router(config-if)#
%LINK-5-CHANGED: Interface FastEthernet0/0, changed state to up


%LINEPROTO-5-UPDOWN: Line protocol on Interface FastEthernet0/0, changed state to up


Router(config-if)#exit
Router(config)#interface fa 0/1
Router(config-if)#ip address 172.10.10.1 255.255.0.0
Router(config-if)#no shutdown


Router(config-if)#
%LINK-5-CHANGED: Interface FastEthernet0/1, changed state to up


%LINEPROTO-5-UPDOWN: Line protocol on Interface FastEthernet0/1, changed state to up


Router(config-if)#exit
Router(config)#exit


%SYS-5-CONFIG_I: Configured from console by console
Router#write
Building configuration...
[OK]

Setting EIGRP Pada Router
Pada Router 1

Router>enable
Router#configure terminal
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)#router eigrp 10
Router(config-router)#network 192.168.2.0
Router(config-router)#network 192.168.0.0
Router(config-router)#exit
Router(config)#exit
Router#
%SYS-5-CONFIG_I: Configured from console by console


Router#write
Building configuration...
[OK]

Setting Router EIGRP 
Pada Router 2

Router#enable
Router#configure terminal
Enter configuration commands, one per line.  End with CNTL/Z.
Router(config)#router eigrp 10
Router(config-router)#network 192.168.0.0
Router(config-router)#network 172.10.0.0
Router(config-router)#exit
Router(config)#exit

%SYS-5-CONFIG_I: Configured from console by console
Router#write
Building configuration...
[OK]

Proses Setting Router Telah Selesai Sekarang Coba ping dari PC A KE PC B
Apabila Berhasil Maka Ada Jawaban Reply

Membuat Jaringan LAN Router (Cisco Packet Tracer)

Membuat Jaringan LAN Router (Cisco Packet Tracer)

Pada Praktek Kali Ini Saya akan mencoba Membuat Simulasi Jaringan Router Menggunakan Cisco Packet Tracer,Untuk menyeting Router ini sedikit agak Susah dibandingkan dengan pada praktek saya sebelumnya,dimana untuk menyeting sebuah router kita harus mengetik secara manual dalam consule agar setingan yang kita buat sesuai dengan topologi yang kita rancang.
Contoh kasus,Ada 2 ruangan kerja yang berbeda tempat dan ingin dibuat menjadi satu jaringan tujuanya untuk share data, 
Akan tetapi IP Adress Dari Masing Masing Ruangan Tersebut Berbeda,Bagaimanakah Caranya Agar Dapat Saling Terhubung??

Nah disinilah kita dapat memanfaatkan router.
 
Dalam Gambar Ini Terlihat Ruangan A Menggunakan IP Address Local 192.168.0.1/24 sedangkan Ruangan B Menggunakan IP Address Local 192.168.1.1/24

Karna Ada Perbedaan IP otomatis Jaringan Seperti ini tidak akan saling terhubung antara Ruangan A Dan Ruangan B
Dengan Menggunakan Router Maka Masalah Perbedaan tersebut dapat di Atasi,sehingga Kedua Jaringan Tersebut dapat Saling Berkomunikasi
Dibawah Ini Saya Tambahkan Penjelasan Tentang Fungsi Router Yang saya Copas Dari Wikipedia

Router berfungsi sebagai penghubung antar dua atau lebih jaringan untuk meneruskan data dari satu jaringan ke jaringan lainnya. Router berbeda dengan switch. Switch merupakan penghubung beberapa alat untuk membentuk suatu Local Area Network (LAN). Sebagai ilustrasi perbedaan fungsi dari router dan switch merupakan suatu jalanan, dan router merupakan penghubung antar jalan. Masing-masing rumah berada pada jalan yang memiliki alamat dalam suatu urutan tertentu. Dengan cara yang sama, switch menghubungkan berbagai macam alat, dimana masing-masing alat memiliki alamat IP sendiri pada sebuah LAN.
Router sangat banyak digunakan dalam jaringan berbasis teknologi protokol TCP/IP, dan router jenis itu disebut juga dengan IP Router. Selain IP Router, ada lagi AppleTalk Router, dan masih ada beberapa jenis router lainnya. Internet merupakan contoh utama dari sebuah jaringan yang memiliki banyak router IP. Router dapat digunakan untuk menghubungkan banyak jaringan kecil ke sebuah jaringan yang lebih besar, yang disebut dengan internetwork, atau untuk membagi sebuah jaringan besar ke dalam beberapa subnetwork untuk meningkatkan kinerja dan juga mempermudah manajemennya. Router juga kadang digunakan untuk mengoneksikan dua buah jaringan yang menggunakan media yang berbeda (seperti halnya router wireless yang pada umumnya selain ia dapat menghubungkan komputer dengan menggunakan radio, ia juga mendukung penghubungan komputer dengan kabel UTP), atau berbeda arsitektur jaringan, seperti halnya dari Ethernet ke Token Ring.
Router juga dapat digunakan untuk menghubungkan LAN ke sebuah layanan telekomunikasi seperti halnya telekomunikasi leased line atau Digital Subscriber Line (DSL). Router yang digunakan untuk menghubungkan LAN ke sebuah koneksi leased line seperti T1, atau T3, sering disebut sebagai access server. Sementara itu, router yang digunakan untuk menghubungkan jaringan lokal ke sebuah koneksi DSL disebut juga dengan DSL router. Router-router jenis tersebut umumnya memiliki fungsi firewall untuk melakukan penapisan paket berdasarkan alamat sumber dan alamat tujuan paket tersebut, meski beberapa router tidak memilikinya. Router yang memiliki fitur penapisan paket disebut juga dengan packet-filtering router. Router umumnya memblokir lalu lintas data yang dipancarkan secara broadcast sehingga dapat mencegah adanya broadcast storm yang mampu memperlambat kinerja jaringan.

Ok Mungkin temen temen sudah mengerti fungsi router ini dan sekarang mari kita lanjutkan praktek ini

Langkah Pertama Buka Tools Cisco Packet Tracer ,dan buat simulasi Jaringan Seperti ini
Setelah Selesai Membuat Simulasi Seperti gambar diatas,kemudian temen temen setting terlebih dulu IP dari Tiap2 PC Cara Settingnya Mungkin temen temen sudah pada paham,apabila belum paham baca postingan saya sebelumnya,Ingat dalam praktek ini Ruangan A dan Ruangan B Harus Beda Yah IP Nya

Misal dalam praktek Saya Ruangan

Ruangan A 192.168.0.1/24 255.255.255.0
Ruangan B 192.168.1.1/24 255.255.255.0

Setelah Itu Mari Kita Menyeting Router Klik 2 kali Pada Router kemudian Masuk pada Menu CLI Nanti Akan Muncul Jendela Seperti gambar di Bawah Ini :

Nah disini yang agak repot menurut saya hehe ok kita lanjutkan saja
Perintah-perintahnya 
a.       Awalnya ada pertanyaan kita ketikkan aja no
b.      Enable
c.       Configure terminal
d.      Interface fa 0/0 --> Karena yang akan kita setting fashethernet ke 0/0
e.      Ip address 192.168.0.10 255.255.255.0 --> setting ip address dan subnet mask..
f.        No shutdown
g.       Exit --> keluar dari interface 0/0
h.      Exit --> keluar dari configure terminal
i.         Write  --> menyimpan
j.        Exit --> keluar dari router
 
Setelah Selesai Masih pada CLI dan Masukan lagi Perintah Sama Persis Kaya di Atas Cuma Nantinya IP Addressnya Dirubah dan juga Interface fa menjadi 0/1
a.      Enable
b.       Configure terminal
c.      Interface fa 0/1 --> Karena yang akan kita setting fashethernet ke 0/1
d.      Ip address 192.168.1.10 255.255.255.0 --> setting ip address dan subnet mask..
e.        No shutdown
f.       Exit --> keluar dari interface 0/1
g.      Exit --> keluar dari configure terminal
h.         Write  --> menyimpan
i.        Exit --> keluar dari router
 
Ok sejauh ini temen temen telah selsai menyeting Router tersebut Sekarang Tinggal Menyeting Default Gateway dari tiap tiap PC Saya contohkan Satu Saja Yah 
Klik Dua kali pada Komputer Ruangan A dan Masuk Ke Desktop,Kemudian IP Configuration 
dan Isi  
Default Gatewaynya dengan 192.168.0.10
Isi Default Gateway dengan 192.168.0.10







Jangan Lupa Juga kan ada 4 Komputer tuh di Ruangan A ,semuanya Isikan Default Gateway 192.168.0.10

Dan Setelah Itu,Temen temen Masuk Pada Jaringan Komputer B Dan Isikan Juga Default Gatewaynya Dengan 192.168.1.10

Pengaturan Selesai,setelah Itu coba temen temen Test Ping dari komputer Ruangan A ke IP ruangan B

ping 192.168.1.1

Apabila ada reply maka pengaturan router berhasil


erver, 1 buah

Baca Tutorialnya Di: http://afrissmknpur.blogspot.com/2011/10/cara-membuat-jaringan-sederhana.html
Postingan with-miqdi.blogspot.com Silahkan Berkunjung
Cara Membuat Jaringan Sederhana Menggunakan Cisco Packet Tracer Diposkan oleh Efisiensi Oktober - 29 4 komentar Dalam postingan sebelumnya sudah dijelaskan tentang Cisco Packet Tracer,, Nah untuk postingan kali ini saya memberikan cara membuat Jaringan LAN yang sederhana menggunakan aplikasi Cisco Packet Tracer. Dalam pembuatan jaringan ini memakai 1 buah server, 1 buah switch, dan 1 buah PC.. Semua sudah terdapat di dalam aplikasi Cisco Packet Tracer tersebut. Langsung saja, berikut langkah-langkahnya : 1. Buka aplikasi Cisco Packet Tracer yang sudah terinstal di PC/Laptop anda. Sehingga muncul jendela seperti di bawah ini: 2. Untuk peripheral2 atau komponen yang dibutuhkan terdapat pada bagian kiri bawah. Untuk menambahkan Server dan Komputer Client klik pada icon yang berbentuk Komputer. Kemudian pilih gambar komputer lalu klik pada tempat yang disediakan (jumlah terserah namun di sini saya memakai 3 buah PC).. juga pada server (cukup 1).. Cara meletakkannya seperti gambar di bawah ini 3. Kemudian tambahkan switch atau HUB, caranya sama seperti menambahjan PC/server.. Sehingga seperti dibawah ini 4. Kemudian hubungkan semua komponen menggunakan kabel, karena menggunakan perantara Switch / HUB kita menggunakan kabel Straight 5. Pilih jenis kabel (Coopper Straight-Through) kemudian klik.kan pada salah satu komponen , sehingga muncul jenis port (Fast Ethernet) yang terdapat pada komponen tersebut , klik pada jenis port tersebut. 6. Kemudian klik pada Switch sehingga muncul juga port yang ada namun lebih banyak (karena memang port pada switch jumlahnya banyak), klik pada salah satu port (kecuali console) Sehingga kedua komponen terhubung seperti dibawah ini 7. Sambungkan seluruh PC dengan Switch dengan cara seperti no 6. Sehingga seluruh komponen terhubung seperti ini : 8. Kemudian setting IP server. Klik pada icon server yang sudah dibuat sehingga muncul jendela seperti di bawah ini. 9. Pilih Config, lalu pada menu sebelah kiri pilih DHCP. Isi Start IP Address sesuai kebutuhan, isi juga Subnet Mask. Kemudian tentukan banyak maksimal user dengan mengisi Maximum number of user. setelah itu klik save. 10. Lalu pada menu sebelah kiri pilih Fast Ethernet. Isi IP Address Untuk IP Server dan juga Subnet Mask (biarkan default). Kemudian Close 11. Setelah itu kita setting masing-masing PC agar terhubung dengan server. Klik icon PC - pilih Config kemudian pada menu sebelah kiri pilih FastEthernet. Ganti IP Configuration menjadi DHCP agar PC mendapat IP Address otomatis dari server sehingga tidak perlu mengatur. Kemudian Close. (Lakukan pada semua PC) 12. Setelah selesai kita cek apa semua koneksi lancar, dengan cara klik icon pesan si bagian kanan. Kemudian klik.kan pada salah satu PC sehingga pada Icon PC terdapat gambar pesan. Lalu klik pada salah satu PC yang lain. Jika berhasil, pada bagian kanan bawah akan muncul tanda Sukses seperti di bawah ini. Untuk melihat proses berjalannya data klik pada Simulation pada bagian kanan dibawah icon pesan. Kemudian klik Auto Capture / Play sehingga proses pengiriman dan penerimaan data akan dianimasikan. Selesai sudah kita membuat Sebuah Jaringan LAN sederhana menggunakan Cisco Packet Tracer....

Baca Tutorialnya Di: http://afrissmknpur.blogspot.com/2011/10/cara-membuat-jaringan-sederhana.html
Postingan with-miqdi.blogspot.com Silahkan Berkunjung
Cara Membuat Jaringan Sederhana Menggunakan Cisco Packet Tracer Diposkan oleh Efisiensi Oktober - 29 4 komentar Dalam postingan sebelumnya sudah dijelaskan tentang Cisco Packet Tracer,, Nah untuk postingan kali ini saya memberikan cara membuat Jaringan LAN yang sederhana menggunakan aplikasi Cisco Packet Tracer. Dalam pembuatan jaringan ini memakai 1 buah server, 1 buah switch, dan 1 buah PC.. Semua sudah terdapat di dalam aplikasi Cisco Packet Tracer tersebut. Langsung saja, berikut langkah-langkahnya : 1. Buka aplikasi Cisco Packet Tracer yang sudah terinstal di PC/Laptop anda. Sehingga muncul jendela seperti di bawah ini: 2. Untuk peripheral2 atau komponen yang dibutuhkan terdapat pada bagian kiri bawah. Untuk menambahkan Server dan Komputer Client klik pada icon yang berbentuk Komputer. Kemudian pilih gambar komputer lalu klik pada tempat yang disediakan (jumlah terserah namun di sini saya memakai 3 buah PC).. juga pada server (cukup 1).. Cara meletakkannya seperti gambar di bawah ini 3. Kemudian tambahkan switch atau HUB, caranya sama seperti menambahjan PC/server.. Sehingga seperti dibawah ini 4. Kemudian hubungkan semua komponen menggunakan kabel, karena menggunakan perantara Switch / HUB kita menggunakan kabel Straight 5. Pilih jenis kabel (Coopper Straight-Through) kemudian klik.kan pada salah satu komponen , sehingga muncul jenis port (Fast Ethernet) yang terdapat pada komponen tersebut , klik pada jenis port tersebut. 6. Kemudian klik pada Switch sehingga muncul juga port yang ada namun lebih banyak (karena memang port pada switch jumlahnya banyak), klik pada salah satu port (kecuali console) Sehingga kedua komponen terhubung seperti dibawah ini 7. Sambungkan seluruh PC dengan Switch dengan cara seperti no 6. Sehingga seluruh komponen terhubung seperti ini : 8. Kemudian setting IP server. Klik pada icon server yang sudah dibuat sehingga muncul jendela seperti di bawah ini. 9. Pilih Config, lalu pada menu sebelah kiri pilih DHCP. Isi Start IP Address sesuai kebutuhan, isi juga Subnet Mask. Kemudian tentukan banyak maksimal user dengan mengisi Maximum number of user. setelah itu klik save. 10. Lalu pada menu sebelah kiri pilih Fast Ethernet. Isi IP Address Untuk IP Server dan juga Subnet Mask (biarkan default). Kemudian Close 11. Setelah itu kita setting masing-masing PC agar terhubung dengan server. Klik icon PC - pilih Config kemudian pada menu sebelah kiri pilih FastEthernet. Ganti IP Configuration menjadi DHCP agar PC mendapat IP Address otomatis dari server sehingga tidak perlu mengatur. Kemudian Close. (Lakukan pada semua PC) 12. Setelah selesai kita cek apa semua koneksi lancar, dengan cara klik icon pesan si bagian kanan. Kemudian klik.kan pada salah satu PC sehingga pada Icon PC terdapat gambar pesan. Lalu klik pada salah satu PC yang lain. Jika berhasil, pada bagian kanan bawah akan muncul tanda Sukses seperti di bawah ini. Untuk melihat proses berjalannya data klik pada Simulation pada bagian kanan dibawah icon pesan. Kemudian klik Auto Capture / Play sehingga proses pengiriman dan penerimaan data akan dianimasikan. Selesai sudah kita membuat Sebuah Jaringan LAN sederhana menggunakan Cisco Packet Tracer....

Baca Tutorialnya Di: http://afrissmknpur.blogspot.com/2011/10/cara-membuat-jaringan-sederhana.html
Postingan with-miqdi.blogspot.com Silahkan Berkunjung

Wednesday, June 27, 2012

Usman Ginting - Lanai Tudu

Tuesday, June 26, 2012

Goal! 3 Taking on the world full movie eng

Goal 2 Living the Dream Full Movie

Goal! The Dream Begins | Full Movie [English] 1

Tekken 2010 Full Movie!!!

Indonesian Idol 2012 ~Sean (Feat Chrisye) ~ Menunggumu