Kampung Baso (Bandung)

Terletak persis di sebelah House of Risoles Bandung, terdapat sebuah tempat wisata kuliner yang bernama Kampung Baso. Sesuai namanya, maka di tempat ini menyediakan menu special bakso rebus maupun bakso goreng. Bakso yang dihidangkan disini disebutkan bebas bahan pengawet. Tersedia dengan aneka rasa seperti baso ikan isi ayam kuah, baso urat sapi kuah, baso udang kuah, baso smooked beef kuah, dan baso gepeng kuah. Mie yang tersedia juga merupakan makanan sehat yaitu mi nabati yang terbuat dari sayuran, diantaranya mi wortel dan mi kawi. Kita dapat melihat proses pembuatan mie ini lho…

Namun jangan khawatir kalau Anda tidak suka bakso, karena disini juga menyediakan menu lain seperti mie kangkung, nasi campur, dan juga aneka jajanan dan minuman yang segar. Di dalam kios juga menyediakan aneka oleh-oleh, seperti bolu kukus, aneka keripik, pisang rol, dll.

Yang unik adalah tempat untuk menikmatinya yang berupa pendopo besar, maupun saung-saung kecil yang tersebar di kebun yang cukup luas, yang membuat anak-anak Anda akan senang bermain berlarian kesana kemari. Udara Lembang yang sejuk pun membuat kita makin betah berlama-lama di tempat ini dan membuat rasa bakso menjadi makin nikmat saja.






Tertarik mencoba si daging bulat ini ?

Struktur Pengulangan dan Pemilihan Pada Pemrograman Delphi

Dalam menyelesaikan masalah, terkadang kita harus melakukan suatu proses yang sama lebih dari satu kali. Untuk itu perlu dibuat suatu algoritma pengulangan. Pascal memberikan tiga alternatif pengulangan, yaitu dengan For, While, atau Repeat. Masing-masing memiliki karakteristik, yang akan dipelajari pada modul ini. Ada dua hal yang penting dalam melakukan merancang perintah pengulangan, yaitu :
- Inisialisasi awal
- Nilai akhir pengulangan atau kondisi berhenti.
Pengulangan digunakan untuk menjalankan satu atau beberapa pernyataan beberapa kali. Jadi anda bisa menjalankan beberapa pernyataan hanya dengan menuliskan pernyataan tersebut satu kali saja.

FOR – TO- DO
Pernyataan pengulangan yang paling sering digunakan adalah For. Pernyataan ini digunakan bila anda sudah tahu berapa kali anda akan mengulang satu atau beberapa pernyataan.
Pada pengulangan dengan For, inisialisasi awal dan kondisi akhir ditentukan dengan menggunakan suatu variabel kendali yang nilainya dibatasi dalam suatu range tertentuu.
Perbedaan antara to dan downto adalah pada kondisi nilai awal dan akhir. Pada to; nilai awal lebih kecil dari nilai akhir, sedangkan pada downto nilai awal lebih besar dari nilai akhir. Perlu diingat, bahwa variable kendali harus dideklarasikan dengan tipe data integer.
Untuk lebih jelasnya peerhatikan contoh berikut ini :

For x := 1 to 10 do
ListBox1.Items.Add (‘Borland Delphi’) ;

Pernyataan ini akan menambahkan ‘ Borland Delphi ‘ pada ListBox1 sebanyak sepuluh kali. Anda juga dapat menghasilkan hasil yang sama dengan menuliskan program berikut :

For x := 3 to 12 do
ListBox1.Items.Add (‘Borland Delphi’) ;

Meskipun hasil yang di dapat sama tetapi penulisan yang pertama lebih mudah dibaca karena anda akan segera tahu bahwa teks ‘Borland Delphi’ dituliskan sepuluh kali. Pada penulisan yang kedua anda harus menghitung ( 12 – 3 + 1) sebelum tahu berapa jumlah pengulangan yang dilakukan.
Anda dapat melakukan pengulangan dari bilangan yang lebih besar ke bilangan yang lebih kecil. Caranya adalah dengan mengganti to dengan downto seperti contoh berikut :

For x := 10 downto 1 do

Jangan menambahkan tanda koma di belakang kata kunci do, seperti contoh berikut :

For x := 1 to 10 do ;
ListBox1.Items.Add (‘Borland Delphi’) ;

Bila anda menambahkan tanda koma di belakang kata kunci do, Delphi tidak akan menjalankan pernyataan apapun. Akibatnya teks ‘Borland Delphi’ hanya akan berjumlah satu saja.

Pernyataan For Bersarang
Anda bisa juga menuliskan pernyataan for di dalam pernyataan for . Konstruksi semacam ini sering disebut dengan pernyataan for bersarang. Perhatikan contoh berikut :

For x := 1 to 3 do ;
For y := 1 to 2 do ;
ListBox1.Items.Add (IntToStr (x) + ‘ ‘ + IntToStr (y)) ;

Kalau for yang di luar ( dengan pencacah variabel x ) akan menjalankan kalang yang dalam (dengan pencacah y) sebanyak 3 kali. Dan pada setiap pengulangan di layar akan ditambahkan nilai X dan Y. Bila anda menjalankan program di atas, pada ListBox1 akan terdapat hasil sebagai berikut :

1 1
1 2
2 1
2 2
3 1
3 2

Hasilnya adalah : 1, 2, 3, 4, 5

WHILE – DO
Pernyataan pengulangan ini biasanya digunakan bila anda belum tahu pasti berapa banyak anda akan mengulang pernyataan – pernyataan. Berakhirnya pengulangan ini di tentukan oleh suatu kondisi. Bila kondisi sudah tidak terpenuhi maka pengulangan akan berakhir. Dengan kata lain, selama kondisi masih terpenuhi, pengulangan akan terus dilakukan.

Pada metode pengulangan ini aksi hanya akan diproses bila kondisi pengulangan terpenuhi, bentuk sintaks dari pengulangan ini adalah :


Selama kondisi pengulangan bernilai true maka aksi kan dilakukan, dan baru akan berhenti setelah kondisi pengulangan bernilai false. Karena kondisi pengulangan diperiksa pada bagian awal, maka ada kemungkinan aksi tidak pernah dilakukan, yaitu bila kondisi pengulangan tidak pernah bernilai true.

REPEAT – UNTIL
Pernyataan pengulangan ini hamper sama dengan pernyataan pengulangan While, dan biasanya digunakan bila jumlah pengulangan belum dapat dutentukan pada saat program ditulis.
Perbedaan pernyataan repeat … until dengan while terletak pada letak pengecekan kondisi. Jika pada pernyataan while, kondisi di cek pada awal kalang, pada pernyataan repeat .. until kondisi dicek pada akhir kalang.
Perbedaan yang lain, bila pernyataan while mengulang pernyataan selama kondisi masih terpenuhi, pernyataan repeat … until mengulang pernyataan selama kondisi belum terpenuhi.
Metode pengulangan ini juga melakukan pengulangan berdasarkan pemeriksaan kondisi pengulangan. Hanya saja nature dari pengulangan ini adalah system seakan-akan memaksa untuk melakukan pengulangan, sampai diketahui adanya kondisi berhenti.
Berlawanan dengan While, yang akan memproses aksi hanya bila kondisi pengulangan bernilai true, pada pengulangan Repeat, system akan memproses aksi selama kondisiberhenti false. Dengan demikian aksi pasti akan selalu diproses (minimal satu kali). Pada tipe ini, pengulangan dapat terjadi terus menerus (tidak pernah berhenti), yaitu bila kondisi berhenti tidak pernah bernilai true.
Contoh potongan program berikut :

Repeat
X := X – 1;
Y := Y – 1;
Until ( X<=0 );
Program ini akan mengulang dua pernyataan (X := X – 1) dan (Y := Y – 1) sampai nilai X lebih kecil atau sama dengan 0.
Mungkin anda menduga bahwa contoh ini adalah pengkorvesian dari contoh pengulangan dengan pernyataan while di atas. Bila diperhatikan sekilas memang keduanya seolah-olah sama. Tetapi keduanya memiliki sedikit perbedaan. Untuk lebih jelasnya ikuti penjelasan berikut :
Pada contoh while di atas, program akan melakukan pengulangan selama nilai X masih lebih besar dari pada 0., sedangkan pada contoh repeat … until disini, program akan melakukan pengulangan sampai nilai X lebih kecil atau sama dengan 0. Bila nilai X sebelum masuk kalang adalah positif, kedua pernyataan pengulangan ini memang sama. Tetapi jika nilai X negative, masalahnya akan berbeda.
Untuk pernyataan while, program tidak akan pernah melakukan pengulangan karena sebelum masuk kalang, nilai X sudah negative. Sebaliknya pada pernyataan repeat … until program akan melakukan pengulangan satu kali. Oleh karena itu sebaiknya anda harus berhati-hati dalam memilih menggunakan pernyataan while atau repeat … until.

Pernyataan Break dan Continue
Pada beberapa kasus, anda mungkin ingin menghentikan suatu pengulangan di tengah jalan. Untuk menghentikan pengulangan, gunakanlah pernyataan break. Anda bisa menggunakan pernyataan break pada pernyataan for while, maupun repeat … until. Contoh :
X : = 0;
While (X >= 0) do
begin
X := X + 1;
If ( X > 100) then
Break;
end;

Bila di lihat sekilas, kalang di atas sepertinya tidak akan pernah berakhir. Namun bila dijalankan, setelah nilai X lebih besar dari 100, pengulangan akan berhenti. Hal ini dikarenakan adanya pernyataan break.
Pernyataan Continue, adalah bentuk pernyataan khusus lain yang digunakan pada pengulangan. Pernyataan ini digunakan untuk mengembalikan aliran program ke pengujian kondisi pengulangan. Dengan kata lain, pernyataan-pernyataan di bawah continue akan di abaikan. Contoh :

For i := 0 to100 do ;
Begin
If ( ( i mod 3) <> 0 ) then
Continue ;
ListBox1.Items.Add (IntToStr ( i ) ;
End ;

Program ini akan menuliskan semua bilangan kelipatan tiga yang kurang dari 100. Mengapa bisa demikian ? Karena pada saat nilai pencacah pengulangan habis di bagi 3, program akan memanggil pernyataan continue, akibatnya pernyataan ListBox1.Item.Add (IntToStr i)) tidak dipanggil.
Pernyataan break dan continue dapat juga digunakan pada pernyataan pengulangan bersarang (baik for, while, maupun repeat ... until) Pada pernyataan bersarang, pernyataan break dan continue akan menghentikan atau melanjutkan kalang paling dalam. Contoh :
For i := 0 to 2 do
For j := 0 to5 do
Begin
If ( j=3 ) then
Break ; ;
ListBox1.Items.Add (IntToStr ( i )) ;;
End ;

Program di atas hanya akan menampilkan 0, 1, dan 2 masing-masing sebanyak 3 kali (bukan 5 kali seperti yang tertulis pada kalang j ). Hal ini dikarenakan pada saat nilai j sama dengan 3, kalang j dihentikan.

Latihan :
Buatlah program untuk menampilkan pengulangan sebagai berikut :
- Apabila Button FortoDo di klik akan menampilkan teks ‘ Saya Belajar Delphi 7’ sebanyak lima kali.
- Apabila Button WhileDo di klik akan menampilkan teks ‘ Saya anak Informatika’ sebanyak lima kali.
- Apabila Button Repeat Until di klik akan menampilkan teks ‘ Saya anak UMB’ sebanyak lima kali.

Pemilihan 

IF…THEN : Pemilihan 1 kasus
Perintahn bersyarat If-then digunakan hanya melakukan 1 aksi bila kondisi dipenuhi. Bentuk sintaks dari perintah bersyarat ini adalah :


IF..THEN …ELSE : Pemilihan 2 kasus
Perintah bersyarat If umumnya digunakan untuk melakukan pencabangan sederhana (antara 2 atau 3 cabang). Atau untuk pencabangan yang banyak, dimana kondisi yang menjadi prasyaratnya melibatkan lebih dari satu parameter. Bentuk sintaks dari perintah bersyarat ini adalah :
IF…THEN…ELSE : Pemilihan N kasus

CASE…OF…
Perintah bersyarat Case umumnya digunakan untuk kondisi dengan banyak pencabangan. Syarat pencabangan pada bentuk ini hanya boleh melibatkan satu buah parameter dengan tipe data bukan Real. Pemeriksaan kondisi di sini lebih tepat disebutkan dalam hubungan relasi samadengan (=). Dengan demikian bila parameter bernilai tertentu maka dilakukan suatu aksi terkait, bila bernilai lain maka dilakukan aksi yang lain juga, demikian seterusnya.
Praktikum 2
If then else

unit if_then_else;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Data:integer;
begin
Data:=strtoint(edit1.Text);
if (data>=80) and (data<100) then
begin
showmessage('Nilai saya A');
edit1.Text:='';
end
else
if (data>=70) and (data<80) then
begin
showmessage('Nilai saya B');
edit1.Text:='';
end
else
if (data>=60) and (data<70) then
begin
showmessage('Nilai saya C');
edit1.Text:='';
end
else
if (data>=50) and (data<60) then
begin
showmessage('Nilai saya D');
edit1.Text:='';
end
else
if (data>=0) and (data<50) then
showmessage('Nilai saya E');
edit1.Text:='';
end;
end.

Latihan :
Rubahlah program di atas dengan menggunakan Case Of

End

Membuat Fungsi Terbilang Dengan Visual Basic 6.0

Fungsi terbilang adalah fungsi yang melakukan konversi dari angka menjadi teks terbilangnya, misalnya 123,4567 menjadi seratus dua puluh tiga koma empat lima enam tujuh. 1.Buatlah sebuah project baru dengan template Standard.EXE. 2.Rancanglah sebuah form seperti terlihat pada gambar 1. Beberapa properti form tersebut harus diberi nilai sebagai berikut: Kontrol Properti Nilai Form Caption Terbilang TextBox1 Name txtAngka TextBox2 Name txtTerbilang Multiline True CommandButton1 Name cmdTerbilang Caption &Terbilang CommandButton2 Name cmdExit Caption E&xit      Gambar.1 3. Kemudian tambahkan sebuah modul dengan cara klik kanan pada Project Explorer dan pada      menu yang muncul pilih Add > Module. Bandingkan dengan gambar 2.    Gambar.2 4. Pada module baru tersebut tambahkan kode program seperti disajikan pada listing 1. 5. Kemudian klik ganda tombol Terbilang dan tambahkan kode program seperti disajikan pada     listing 2. 6. Langkah terakhir, klik ganda tombol Exit dan tambahkan kode program seperti disajikan pada     listing 3. 7.Hasil eksekusi program tersebut ditampilkan pada gambar 3. Masukkan suatu angka pada    kotak teks Angka, klik tombol Terbilang, teks terbilang dari angka tersebut akan muncul pada    kotak teks Terbilang.      Gambar.3 LISTING PROGRAM: Listing 1. Fungsi terbilang Public Function Terbilang(x As Double) As String Dim tampung As Double Dim teks As String Dim bagian As String Dim i As Integer Dim tanda As Boolean Dim letak(5) letak(1) = "ribu " letak(2) = "juta " letak(3) = "milyar " letak(4) = "trilyun " If (x = 0) Then Terbilang = "nol" Exit Function End If If (x < 2000) Then tanda = True End If teks = "" If (x >= 1E+15) Then Terbilang = "Nilai terlalu besar" Exit Function End If For i = 4 To 1 Step -1 tampung = Int(x / (10 ^ (3 * i))) If (tampung > 0) Then bagian = ratusan(tampung, tanda) teks = teks & bagian & letak(i) End If x = x - tampung * (10 ^ (3 * i)) Next teks = teks & ratusan(x, False) Terbilang = teks End Function Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String Dim tmp As Double Dim bilang As String Dim bag As String Dim j As Integer Dim angka(9) angka(1) = "se" angka(2) = "dua " angka(3) = "tiga " angka(4) = "empat " angka(5) = "lima " angka(6) = "enam " angka(7) = "tujuh " angka(8) = "delapan " angka(9) = "sembilan " Dim posisi(2) posisi(1) = "puluh " posisi(2) = "ratus " bilang = "" For j = 2 To 1 Step -1                         tmp = Int(y / (10 ^ j)) If (tmp > 0) Then bag = angka(tmp) If (j = 1 And tmp = 1) Then y = y - tmp * 10 ^ j If (y >= 1) Then posisi(j) = "belas " Else angka(y) = "se" End If bilang = bilang & angka(y) & posisi(j) ratusan = bilang Exit Function Else bilang = bilang & bag & posisi(j) End If End If y = y - tmp * 10 ^ j Next If (flag = False) Then angka(1) = "satu " End If bilang = bilang & angka(y) ratusan = bilang End Function Listing 2. Event click pada cmdTerbilang Private Sub cmdTerbilang_Click() Dim angka As Double Dim teks As String angka = Val(txtAngka.Text) teks = Terbilang(angka) txtTerbilang.Text = teks End Sub Listing 3. Event click pada cmdExit Private Sub cmdExit_Click() End End Sub

WiFi 802.22, Teknologi Nirkabel Hingga Jarak 100 Km

Badan standar IEEE (Institute of Electrical and Electronics Engineers ) hari ini mengumumkan IEEE 802.22, generasi berikutnya dari WiFi yang dirancang untuk memfasilitasi transfer data nirkabel hingga 60 mil (atau seratus kilometer) dengan kecepatan sampai 22 Mbps. Bayangkan, anda dapat tetap terhubung langsung dengan jaringan komputer anda yang berada di Jakarta saat anda sedang berlibur di Puncak, misalnya. 

Teknologi ini mengambil keuntungan dari pita VHF dan UHF dan mengirimkan internet broadband nirkabel sampai diameter 100 km. Teknologi ini bertempat di ruang antara channel TV sehingga tidak mengganggu penerimaan stasiun siaran televisi yang ada pada saat itu. Berikut penjelasan dari para pejabat di badan standar IEEE:Standar baru untuk Wireless Regional Area Network (WRAN) mengambil keuntungan dari karakteristik transmisi dari VHF dan UHF TV untuk menyediakan akses nirkabel broadband dengan area hingga 100 km dari pemancar. Setiap WRAN akan memberikan kecepatan hingga 22 Mbps per kanal tanpa mengganggu penerimaan stasiun siaran TV yang ada, menggunakan apa yang disebut White Space yang ada di antara saluran-saluran TV IEEE adalah asosiasi profesional terbesar di dunia yang didedikasikan untuk inovasi teknologi yang lebih maju dan keunggulannya untuk kepentingan kemanusiaan. Ini sangat menarik, kita tunggu saja sampai benar-benar diterapkan.

Template Orestado

 Downloads (100)

 Demo (147)

Platform:	WordPress Theme
Name:	Orestado
Description:	Orestado WordPress Theme is free wordpress theme, premium quality theme, elegant theme, fresh and clean, dark color background, slide show ready, 2 columns layout with right sidebar. Download Orestado WordPress Theme atWordPress Theme Gallery.

Template Author:

Speedy

Instructions:

How to install a template / theme

Save / Share:

   

Tags:

download template blogger,blogger templates,free blogger templates