erna
Minggu, 27 Oktober 2013
Selasa, 08 Oktober 2013
Jumat, 27 September 2013
Jumat, 20 September 2013
Hasil screen shoot pada www.yahoo.com #tugas
Tampilan pada brower www.yahoo.com
dan tampilan perintah ping pada command promt, dan menghasilkan alamat ip www.yahoo.com adalah 106.10.139.246.
Berikut adalah tampilan pengaksesan alamat ip yang didapat
dari CMD tadi, terlihat hasilnya seperti digambar ini :
dan ini hasil ping dari alamat ip tersebut :
Minggu, 03 Maret 2013
Conversion: bits and bytes
| Name | Symbol | Before the standardization | After the standardization | ||||||
| bit | b | 1 | bit | = | 1 bit | 1 | bit | = | 1 bit |
| byte | B | 1 | B | = | 8 bit | 1 | B | = | 8 bit |
| kilobit | kbit / kb | 1 | kbit | = | 1024 bit | 1 | kBit | = | 1000 bit |
| Kibibit | KiBit | 1 | KiBit | = | 1024 bit | ||||
| kilobyte | kB | 1 | kB | = | 1024 B = Byte | 1 | kB | = | 1000 Byte |
| kibibyte | KiB | 1 | KiB | = | 1024 Byte | ||||
| megabit | MBit / Mb | 1 | MBit | = | 1024 KBit | 1 | MBit | = | 1000 kBit |
| mebibit | MiBit / Mib | 1 | Mib | = | 1024 KiBit | ||||
| megabyte | MB | 1 | MB | = | 1024 kB | 1 | MB | = | 1000 kB |
| Mebibyte | MiBit / MiB | 1 | MiB | = | 1024 KiB | ||||
| gigabit | GBit / Gb | 1 | GBit | = | 1024 MBit | 1 | GBit | = | 1000 MBit |
| gibibit | GiBit / Gib | 1 | Gib | = | 1024 MiBit | ||||
| gigabyte | GB | 1 | GB | = | 1024 MB | 1 | GB | = | 1000 MB |
| gibibyte | GiB | 1 | GiB | = | 1024 MiB | ||||
| terabyte | TB | 1 | TB | = | 1024 GB | 1 | TB | = | 1000 GB |
| tebibyte | TiB | 1 | TiB | = | 1024 GiB | ||||
| petabyte | PB | 1 | PB | = | 1024 TB | 1 | PB | = | 1000 TB |
| pebibyte | PiB | 1 | PiB | = | 1024 TiB | ||||
| exabyte | EB | 1 | EB | = | 1024 PB | 1 | EB | = | 1000 PB |
| exbibyte | EiB | 1 | EiB | = | 1024 PiB | ||||
| zettabyte | ZB | 1 | ZB | = | 1024 EB | 1 | ZB | = | 1000 EB |
| zebibyte | ZiB | 1 | ZiB | = | 1024 EiB | ||||
| yottabyte | YB | 1 | YB | = | 1024 ZB | 1 | YB | = | 1000 ZB |
| yobibyte | YiB | 1 | YiB | = | 1024 ZiB | ||||
- Old Definitions:
- 1 kb = (210) bits = 1,024 bits
-
1 MB = (210)2 Bytes = 1,048,576 Bytes
Name Prefix Symbol Factor kilobinary kibi Ki 210 megabinary mebi Mi (210)2 gigabinary gibi Gi (210)3 terabinary tebi Ti (210)4 petabinary pebi Pi (210)5 exabinary exbi Ei (210)6 - 1 kilo-bit = 1 kb = 103 bits = 1,000 bits
- 1 kilobinarybit = 1 kibibit = 1 Kib =210 bits = 1,024 bits
- 1 megabyte = 1 MB = 106 Bytes = 1,000,000 Bytes
Connection
|
Theoretical
rate in KBit |
Optimal
rate in KByte |
Probable
rate in KByte |
|||
| 14.4 modem | 14.4 kbit/s | 1.2 KByte/s | 1 KByte/s | |||
| 28.8 modem | 28.8 kbit/s | 2.4 KByte/s | 2 KByte/s | |||
| 33.6 modem | 33.6 kbit/s | 3 KByte/s | 2.5KByte/s | |||
| 56 k modem | 53 kbit/s | 4.8 KByte/s | 4 KByte/s | |||
| Single ISDN | 64 kbit/s | 6 KByte/s | 5 KByte/s | |||
| Dual ISDN | 128 kbit/s | 12 KByte/s | 10 KByte/s | |||
| DSL - light | 384 kbit/s | 35 KByte/s | 30 KByte/s | |||
| DSL | 1024 kbit/s | 125 KByte/s | 90 KByte/s | |||
| DSL | 2048 kbit/s | 250 KByte/s | 180 KByte/s | |||
| DSL | 3072 kbit/s | 500 KByte/s | 360 KByte/s | |||
| T1 | 1,54 Mbis/s | 150 KByte/s | 50 Kbyte/s | |||
| Cable modem | 6 Mbits/s | 300 KByte/s | 50 KByte/s | |||
| Intranet / LAN | 10 Mbits/s | 350 KByte/s | 35 KByte/s | |||
| 100 base-T Lan | 100 Mbits/s | 500 KByte/s | 50 KByte/s |
| The new IEC Standard | ||
| bit | bit | 0 or 1 |
| byte | B | 8 bits |
| kibibit | Kibit | 1024 bits |
| kilobit | kbit | 1000 bits |
| kibibyte (binary) | KiB | 1024 bytes |
| kilobyte (decimal) | kB | 1000 bytes |
| megabit | Mbit | 1000 kilobits |
| mebibyte (binary) | MiB | 1024 kibibytes |
| megabyte (decimal) | MB | 1000 kilobytes |
| gigabit | Gbit | 1000 megabits |
| gibibyte (binary) | GiB | 1024 mebibytes |
| gigabyte (decimal) | GB | 1000 megabytes |
| terabit | Tbit | 1000 gigabits |
| tebibyte (binary) | TiB | 1024 gibibytes |
| terabyte (decimal) | TB | 1000 gigabytes |
| petabit | Pbit | 1000 terabits |
| pebibyte (binary) | PiB | 1024 tebibytes |
| petabyte (decimal) | PB | 1000 terabytes |
| exabit | Ebit | 1000 petabits |
| exbibyte (binary) | EiB | 1024 pebibytes |
| exabyte (decimal) | EB | 1000 petabytes |
| File Storage Capacity by Bits and Bytes | |||||
| bit | byte | Kilobyte | Megabyte | Gigabyte | |
| bit | 1 | 0.125 | 0.000122070312 | 1.192092895 × 10-7 | 1.16415321875 × 10-10 |
| byte | 8 | 1 | 0.0009765625 | 9.53674316 × 10-7 | 9.31322575 × 10-10 |
| Kilobyte | 8 192 | 1 024 | 1 | 0.0009765625 | 9.53674316 × 10-7 |
| Megabyte | 8 388 608 | 1 048 576 | 1 024 | 1 | 0,0009765625 |
| Gigabyte | 8,589,934,592 | 1,073,741,824 | 1,048,576 | 1,024 | 1 |
| Terabyte | 8,796,093,022,208 | 1,099,511,627,776 | 1,073,741,824 | 1,048,576 | 1,024 |
| Petabyte | 9,007,199,254,740,990 | 1,125,899,906,842,624 | 1,099,511,627,776 | 1,073,741,824 | 1,048,576 |
| Exabyte | 9,223,372,036,854,780,000 | 1,152,921,504,606,846,976 | 1,125,899,906,842,624 | 1,099,511,627,776 | 1,073,741,824 |
| Zettabyte | 9,444,732,965,739,290,000,000 | 1,180,591,620,717,411,303,424 | 1,152,921,504,606,846,976 | 1,125,899,906,842,624 | 1,099,511,627,776 |
CD: 2 · 44100 · 16 = 1,4112 MBit/s : 8 bit/byte = 176,4 kbyte/s
2 · 44100 · 20 = 1,764 MBit/s : 8 bit/byte = 220,5 kbyte/s
2 · 44100 · 24 = 2,1168 MBit/s : 8 bit/byte = 264,6 kbyte/s
2 · 48000 · 24 = 2,304 MBit/s : 8 bit/byte = 288,0 kbyte/s
| These words are generally not accepted. Units from Amendment 2 - International Standard IEC 60027-2 |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
Sabtu, 23 Februari 2013
Pengenalan Visual Basic
hy....
pasti kalian masih duduk di perkuliah s1 semester 1 bukan ???
tentunya kalian mendapatkan beberapa bahasa pemrograman yang diajarkan kpd kalian ...
bahasa pemrograman dapat meliputi:
- bahasa visual basic
- bahasa pascal
- bahasa c
- bahasa c++
- bahasa java
dll.....
kali ini saya akan memberikan modul kepada teman-teman semua, untuk mengenal dan belajar tentang visual basic...
semoga modul ini bermanfaat bagi teman-teman sekalian,,
sebelum download, jangan lupa beri like, dan isi buku tamu yah,,,
terimakasih ^_^...
silahkan klik link dibawah ini,,,,
http://www.4shared.com/office/IDX30rTQ/Pengenalan_Visual_Basic.html
## Selamat Belajar ##
pasti kalian masih duduk di perkuliah s1 semester 1 bukan ???
tentunya kalian mendapatkan beberapa bahasa pemrograman yang diajarkan kpd kalian ...
bahasa pemrograman dapat meliputi:
- bahasa visual basic
- bahasa pascal
- bahasa c
- bahasa c++
- bahasa java
dll.....
kali ini saya akan memberikan modul kepada teman-teman semua, untuk mengenal dan belajar tentang visual basic...
semoga modul ini bermanfaat bagi teman-teman sekalian,,
sebelum download, jangan lupa beri like, dan isi buku tamu yah,,,
terimakasih ^_^...
silahkan klik link dibawah ini,,,,
http://www.4shared.com/office/IDX30rTQ/Pengenalan_Visual_Basic.html
## Selamat Belajar ##
Kamis, 15 November 2012
contoh program C++ penjualan
Uses WinCrt;
Var
JumlahBeli:Array[1..100] Of Integer;
DataKei,BanyakDataKei:Integer;
Ulang:Char;
TotalPembayaran:Array[1..10] of Real;
Bayar:Real;
lagi : char;
potongan : integer;
pembelian : integer;
Const
NomorBarang:Array [1..10] Of Integer=(1,2,3,
4,5,6,7,8,9,10);
NamaBarang:Array [1..10] Of String[10]=('Pulpen','Buku','Tipe-X',
'Pensil','Penggaris','Spidol','Gunting','Lem','Stopmap','CD');
HargaSatuan:Array [1..10] Of Integer=(1000,2000,1500,
700,500,2000,3000,1000,500,2500);
begin
lagi :='y';
while (lagi='y') or (lagi='y') do
Begin
DataKei:=0;
Bayar:=0;
writeln;
case potongan of
0..30000 : potongan := 500;
end;
Repeat
ClrScr;
DataKei:=DataKei+1;
writeln(' DATA BARANG ');
WriteLn('-------------------------------------------------------');
WriteLn('| Kode barang: 1 , Nama Barang = Pulpen ; 1000 |');
writeLn('| Kode barang: 2 , Nama Barang = Buku ; 2000 |');
WriteLn('| Kode barang: 3 , Nama Barang = Tipe-X ; 1500 |');
WriteLn('| Kode barang: 4 , Nama Barang = Pensil ; 700 |');
WriteLn('| Kode barang: 5 , Nama Barang = Penggaris ; 500 |');
WriteLn('| Kode barang: 6 , Nama Barang = Spidol ; 2000 |');
WriteLn('| Kode barang: 7 , Nama Barang = Gunting ; 3000 |');
WriteLn('| Kode barang: 8 , Nama Barang = Lem ; 1000 |');
WriteLn('| Kode barang: 9 , Nama Barang = Stopmap ; 500 |');
WriteLn('| Kode barang: 10 , Nama Barang = CD ; 2500 |');
WriteLn('-------------------------------------------------------');
gotoxy(10,15);Write('Tentukan kode barang: ');ReadLn(NomorBarang[DataKei]);
If NomorBarang[DataKei]=1 Then
WriteLn('Nama Barang: ',NamaBarang[1]);
If NomorBarang[DataKei]=2 Then
WriteLn('Nama Barang: ',NamaBarang[2]);
If NomorBarang[DataKei]=3 Then
WriteLn('Nama Barang: ',NamaBarang[3]);
If NomorBarang[DataKei]=4 Then
WriteLn('Nama Barang: ',NamaBarang[4]);
If NomorBarang[DataKei]=5 Then
WriteLn('Nama Barang: ',NamaBarang[5]);
If NomorBarang[DataKei]=6 Then
WriteLn('Nama Barang: ',NamaBarang[6]);
If NomorBarang[DataKei]=7 Then
WriteLn('Nama Barang: ',NamaBarang[7]);
If NomorBarang[DataKei]=8 Then
WriteLn('Nama Barang: ',NamaBarang[8]);
If NomorBarang[DataKei]=9 Then
WriteLn('Nama Barang: ',NamaBarang[9]);
If NomorBarang[DataKei]=10 Then
WriteLn('Nama Barang: ',NamaBarang[10]);
WriteLn('Harga satuan = Rp.',HargaSatuan[NomorBarang[DataKei]]);
Write('Jumlah beli = ');ReadLn(JumlahBeli[DataKei]);
TotalPembayaran[DataKei]:=HargaSatuan[NomorBarang[DataKei]] * JumlahBeli[DataKei];
WriteLn;
Write('Apakah Anda ingin mengisi lagi(Y/T) ? ');ReadLn(Ulang);
Until UpCase(Ulang)<>'Y';
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+TotalPembayaran[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn('Total belanja ',NamaBarang[NomorBarang[DataKei]],' = Rp.' ,TotalPembayaran[DataKei]:2:0);
WriteLn('===================================== +');
WriteLn('Total semua : Rp.',Bayar:2:0);
WriteLn('=======================================');
WriteLn;
WriteLn('::-----------------------------------------------------------------------::');
WriteLn(' [Kode Barang]-[Nama Barang]-[Harga /1an]-[Jumlah Beli]-[Total]');
WriteLn('::-----------------------------------------------------------------------::');
For DataKei:=1 to BanyakDataKei Do
WriteLn (' ',NomorBarang[DataKei],' - ',
NamaBarang [NomorBarang[DataKei]],' - Rp.',
HargaSatuan [NomorBarang[DataKei]],' - ',
JumlahBeli [DataKei],' - ', 'Rp.',
TotalPembayaran [DataKei]:2:0);
WriteLn('::-----------------------------------------------------------------------::');
WriteLn(':: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
writeln;
writeln ('total pembayaran = Rp.', bayar:2:0);
writeln ('potongan = Rp.', potongan);
writeln(' ------------- -');
writeln('jumlah dibayar = Rp.',bayar-Potongan:2:0);
write(' masuk lagi (y/t) ? ' ); readln(lagi);
End;
End;
end.
Var
JumlahBeli:Array[1..100] Of Integer;
DataKei,BanyakDataKei:Integer;
Ulang:Char;
TotalPembayaran:Array[1..10] of Real;
Bayar:Real;
lagi : char;
potongan : integer;
pembelian : integer;
Const
NomorBarang:Array [1..10] Of Integer=(1,2,3,
4,5,6,7,8,9,10);
NamaBarang:Array [1..10] Of String[10]=('Pulpen','Buku','Tipe-X',
'Pensil','Penggaris','Spidol','Gunting','Lem','Stopmap','CD');
HargaSatuan:Array [1..10] Of Integer=(1000,2000,1500,
700,500,2000,3000,1000,500,2500);
begin
lagi :='y';
while (lagi='y') or (lagi='y') do
Begin
DataKei:=0;
Bayar:=0;
writeln;
case potongan of
0..30000 : potongan := 500;
end;
Repeat
ClrScr;
DataKei:=DataKei+1;
writeln(' DATA BARANG ');
WriteLn('-------------------------------------------------------');
WriteLn('| Kode barang: 1 , Nama Barang = Pulpen ; 1000 |');
writeLn('| Kode barang: 2 , Nama Barang = Buku ; 2000 |');
WriteLn('| Kode barang: 3 , Nama Barang = Tipe-X ; 1500 |');
WriteLn('| Kode barang: 4 , Nama Barang = Pensil ; 700 |');
WriteLn('| Kode barang: 5 , Nama Barang = Penggaris ; 500 |');
WriteLn('| Kode barang: 6 , Nama Barang = Spidol ; 2000 |');
WriteLn('| Kode barang: 7 , Nama Barang = Gunting ; 3000 |');
WriteLn('| Kode barang: 8 , Nama Barang = Lem ; 1000 |');
WriteLn('| Kode barang: 9 , Nama Barang = Stopmap ; 500 |');
WriteLn('| Kode barang: 10 , Nama Barang = CD ; 2500 |');
WriteLn('-------------------------------------------------------');
gotoxy(10,15);Write('Tentukan kode barang: ');ReadLn(NomorBarang[DataKei]);
If NomorBarang[DataKei]=1 Then
WriteLn('Nama Barang: ',NamaBarang[1]);
If NomorBarang[DataKei]=2 Then
WriteLn('Nama Barang: ',NamaBarang[2]);
If NomorBarang[DataKei]=3 Then
WriteLn('Nama Barang: ',NamaBarang[3]);
If NomorBarang[DataKei]=4 Then
WriteLn('Nama Barang: ',NamaBarang[4]);
If NomorBarang[DataKei]=5 Then
WriteLn('Nama Barang: ',NamaBarang[5]);
If NomorBarang[DataKei]=6 Then
WriteLn('Nama Barang: ',NamaBarang[6]);
If NomorBarang[DataKei]=7 Then
WriteLn('Nama Barang: ',NamaBarang[7]);
If NomorBarang[DataKei]=8 Then
WriteLn('Nama Barang: ',NamaBarang[8]);
If NomorBarang[DataKei]=9 Then
WriteLn('Nama Barang: ',NamaBarang[9]);
If NomorBarang[DataKei]=10 Then
WriteLn('Nama Barang: ',NamaBarang[10]);
WriteLn('Harga satuan = Rp.',HargaSatuan[NomorBarang[DataKei]]);
Write('Jumlah beli = ');ReadLn(JumlahBeli[DataKei]);
TotalPembayaran[DataKei]:=HargaSatuan[NomorBarang[DataKei]] * JumlahBeli[DataKei];
WriteLn;
Write('Apakah Anda ingin mengisi lagi(Y/T) ? ');ReadLn(Ulang);
Until UpCase(Ulang)<>'Y';
Begin
ClrScr;
BanyakDataKei:=DataKei;
For DataKei:=1 to BanyakDataKei Do
Bayar:=Bayar+TotalPembayaran[DataKei];
For DataKei:=1 to BanyakDataKei Do
WriteLn('Total belanja ',NamaBarang[NomorBarang[DataKei]],' = Rp.' ,TotalPembayaran[DataKei]:2:0);
WriteLn('===================================== +');
WriteLn('Total semua : Rp.',Bayar:2:0);
WriteLn('=======================================');
WriteLn;
WriteLn('::-----------------------------------------------------------------------::');
WriteLn(' [Kode Barang]-[Nama Barang]-[Harga /1an]-[Jumlah Beli]-[Total]');
WriteLn('::-----------------------------------------------------------------------::');
For DataKei:=1 to BanyakDataKei Do
WriteLn (' ',NomorBarang[DataKei],' - ',
NamaBarang [NomorBarang[DataKei]],' - Rp.',
HargaSatuan [NomorBarang[DataKei]],' - ',
JumlahBeli [DataKei],' - ', 'Rp.',
TotalPembayaran [DataKei]:2:0);
WriteLn('::-----------------------------------------------------------------------::');
WriteLn(':: => Total Pembayaran : Rp.',Bayar:2:0,' <= ::');
writeln;
writeln ('total pembayaran = Rp.', bayar:2:0);
writeln ('potongan = Rp.', potongan);
writeln(' ------------- -');
writeln('jumlah dibayar = Rp.',bayar-Potongan:2:0);
write(' masuk lagi (y/t) ? ' ); readln(lagi);
End;
End;
end.
Langganan:
Komentar (Atom)

















