LOGO FUTSAL FC MANIFORA

Contoh program ARRAY c++

Program array menampilkan indeks areay dengan angka genap dan penjumlahannya.

#include<iostream>
using namespace std;

int main(){
int data[5]={1,3,4,8,7};
int jumlah=0;

for (int i=1; i<=5; i++){
if(i%2==0){
cout<<data[i]<<endl;
jumlah=jumlah+data[i];
}
}
cout<<jumlah;
}

 

ini hasilnya:

 

silahkan dicoba jangan lupa like dan komentarnya 😀

pengen lebih banyak lebih jelas KLIK DISINI >>

GOOD LUCK TEMAN

11 Cara Cepat Menurunkan Berat Badan

Berikut saya akan menuliskan cara diet ALAMI:

1. Tingkatkan Waktu Olahraga
Cara ini sudah terbukti bisa menurunkan berat badan. Anda bisa memulai dengan olahraga kecil seperti jalan ditempat dan lainnya. Agar lebih efektif anda bisa membuat jadwal rutin berolah raga. Anda juga bisa datang ke gym dan mencoba menggunakan elliptical trainer selama 40 menit dalam 5 hari, ini akan membatu anda untuk menurunkan berat badan, dan tentunya badan anda akan terasa lebih bugar.

INTERNET

A.   Internet

1.    Pengertian Internet

2.    Sejarah Internet

3.    Manfaat Internet

B.   Web Site atau Situs

1.    Pengertian Web Site atau Situs

2.    Unsur-Unsur Web Site atau Situs

3.    Pemeliharaan Web Site atau Situs

A.Internet

1.Pengertian Internet

Internet dapat diartikan sebagai jaringan komputer luas dan besar yang mendunia, yaitu menghubungkan pemakai komputer dari suatu negara ke negara lain di seluruh dunia, dimana di dalamnya terdapat berbagai sumber daya informasi dari mulai yang statis hingga yang dinamis dan interaktif.

6 Tips Futsal Menurut The King Of Futsal.

Dilansir dari performance.fourfourtwo.com , berikut ini adalah 6 hal penting dalam permainan futsal menurut Falcao:

1.  Pengendalian Bola

Menurut Falcao, pengendalian bola secara dekat adalah hal yang fundamental dalam permainan ini dan cara untuk menguasai teknik ini adalah berlatih dengan bola setiap hari. Latihan yang baik untuk meningkatkan kontrol bola adalah dengan berdiri di depan dinding dan menendang bola ke arah dinding dengan bagian kaki yang berbeda. Lakukan latihan ini dengan menggunakan kaki kiri dan kaki kanan.

 2. Shooting

Falcao berpendapat bahwa banyak pemain membuat kesalahan dengan melakukan shooting tanpa pemikiran. Tips dari Falcao ketika melakukan shooting adalah melihat posisi kiper, rileks, dan selalu mencoba untuk mengarahkan bola ke arah tertentu. Selain itu, jangan lupa memvisualisasikan diri mencetak gol sebelum melakukan shooting.

 3. Passing

Dua hal yang penting untuk melakukan passing dalam permainan smal-sided football adalah kecepatan dan ketegasan dari passing. Falcao mengatakan bahwa ketika kita sedang menunggu untuk menerima bola, lihatlah sekitar untuk mengetahui posisi lawan, kawan, dan ruang kosong. Hal ini dapat membantu kita untuk menentukan langkah selanjutnya ketika sudah menerima bola dimana akan membantu kita meningkatkan kecepatan pergerakan dan pelepasan bola. Jangan lupa untuk menegaskan arah passing karena ruang sangat sempit dan pemain lawan akan datang dengan cepat

 4. Komunikasi

Falcao berpendapat bahwa pemberi instruksi terbaik di dalam lapangan adalah pemain yang berada di area pertahanan karena mereka mampu melihat permainan secara keseluruhan. Hal ini membuat pemain lain dapat berkonsentrasi untuk menyerang karena mereka menerima instruksi dari rekan tim yang dapat melihat apa pun di lapangan.

 5. Organisasi

Menurut Falcao, dari sudut pandang bertahan, semakin sedikit bergerak, semakin sulit anda untuk dihancurkan. Zone defense adalah cara bertahan terbaik dalam small sided football. Jangan habiskan energi anda untuk mengejar bola ke area dimana lawan tidak bisa mengancam kita. Pertahankan zona kita.

 6. Fitness

Tidak ada cara terbaik untuk meningkatkan fitness kita selain sering memainkan permainan ini. Namun, Falcao memiliki tips lain. Lakukan sprint beberapa menit, turunkan kecepatan sebentar, kemudian sprint lagi. Hal ini diyakini Falcao mampu meningkatkan fitness kita.

Membuat aplikasi LOADING

Pertama yang harus kita siapkan pada form aplication adalah komponen ProgressBar dan Time.Kalau kita ingin menambah gambar pilih komponen image untuk menambah gambar pada saat loading nanti berjalan.Contohnya sebagai berikut:

Jika sudah kita edit mau gimana bentuk loadingnya nanti.Kemudian kita click dua kali pada komponen Time untuk memulai pembuatan aplikasi Loading,Codingnya sebagai berikut :

var
FLoading: TFLoading;
a:integer;

implementation
uses UUtama_kuis1_3133111041;

{$R *.dfm}

procedure TFLoading.Timer1Timer(Sender: TObject);
begin
a:=a+1;
ProgressBar1.Position:=a;
if a=100 then
begin
FLoading.Hide;
FUtama.Show;

end;
end;

Hasilnya seprti ini :

 

 

 

Mudah kan gan…Selamat mencoba ya (y)

Jangan lupa comentnya 😀

 

by:wawan khoirul anam

 

PROGRAM PERCABANGAN MENGGUNAKAN DELPHI 7

Ini kita membuat sebuah program yang menggunakan percabangan (IF ELSE) dalam delphi.Pertama yang harus dikerjakan kita harus membuat Form baru kita beri nama FPercabangan lalu kita masukkan komponen 5 Label,3 edit,5 edit dan colordialog.Dari komponen berikut ini contohnya:

 

Selanjutnya jika sudah selesai membuat formnya kita langsung masukkan resourcenya satu persatu.Pertama kita click dua kali pada button Proses lalu kita masukkan codingnya seperti dibawah:

var
A:Integer;
begin
A := StrToInt (Ednilai.Text);
if (A>=0) and (A < 30) then
begin
Edpredikat.Text:=’E’;
Edket.Text:=’Gagal’;
end
else if (A>=30) and (A<50) then
begin
Edpredikat.text:=’D’;
Edket.Text:=’Gagal’;
end
else if (A>=50) and (A<70) then
begin
Edpredikat.text:=’C’;
Edket.Text:=’Lulus’;
end
else if (A>=70) and (A<85) then
begin
Edpredikat.Text:=’B’;
Edket.Text:=’Lulus’;
end
else if (A>=85) and (A<=100) then
begin
Edpredikat.Text:=’A’;
Edket.Text:=’Lulus’;
end
else
begin
Edpredikat.Text:=’Salah Input’;
Edket.Text:=’Ulangi Lagi’;
end;
end;

Kemudian selanjutnya click dua kali pada button Ubah Warna untuk mengganti warna Font yang sudah berjalan.Berikut codingnya:

procedure TFPercabangan.BtnubahClick(Sender: TObject);
begin
Ednilai.Font.Color:=clred;
Edpredikat.Font.Color:=clblue;
Edket.Font.Color:=clgreen;
end;

Berikutnya kita ingin menghapus font yang sudah ada untuk menulis dari awal kembali,caranya seprti dibawah:

procedure TFPercabangan.BtnclearClick(Sender: TObject);
begin
Ednilai.Text:=”;
Edpredikat.Text:=”;
Edket.Text:=”;
end;

 Yang terakhir kita buatkan tombol keluar untukk mengakhiri programnya,berikut codingnya:

procedure TFPercabangan.BtnexitClick(Sender: TObject);
begin
if(Application.MessageBox(‘Are You Sure To Exit The Program’,’Exit’,MB_YesNo)=ID_Yes)then
begin
Application.Terminate;
end;
end;

ini tambahan untuk membuat menu warna untuk mengganti warna formnya,berikut resource:
procedure TFPercabangan.BtngantiClick(Sender: TObject);
begin
if colordialog1.Execute then
FPercabangan.color := colordialog1.Color;
end;

end.

Hasil dari coding diatas adalah sebagai berikut:

Sukses ya teman teman 😀 😀 😀

 

by:wawan khoirul anam

PROGRAM DELPHI 7 FOR TO DO and FOR DOWN TO DO

Pertama yang harus dilakukan adalah membuat form baru.Form tersebut kita beri nama misal perulangan,dan dalam form tersebut kita masukkan komponen diantaranya:6 button,2 edit.memo,dan colordialog.
Kita ubah masing-masing komponen tadi seperti gambar dibawah :

 

Kalau sudah seperti diatas click button FOR TO DO dua kali dan akan pindah ke Unit untuk memasukkan resourcenya.Resourcenay seperti berikut:

var i,j : integer;
begin
Mdata.Clear;
i := StrToint (Ednilai.Text);
for j := 1 to StrToint(Edbanyak.Text)do
begin
Mdata.Lines.add(‘Di Ulang Ke = ‘+Inttostr(j)+’=’+inttostr(i));
i := i+1;
end
end;

Kemudian kita click dua kali lagi pada button FOR DOWN TO DO,dan kita masukkan resource sebagai berikut:

procedure TFPerulangan.Button4Click(Sender: TObject);
var i,j,k: integer;
begin
Mdata.Clear;
k :=StrToInt(Ednilai.text);
j := 1;
for i := StrToInt(Edbanyak.Text)downto j do
begin
Mdata.Lines.Add(‘Di Ulang Ke = ‘+ IntToStr(j)+’=’+IntToStr(k));
k := k-1;
j := j+1;
end;
end;

Selanjutnya click dua kali pada button Ganti Warna untuk mengganti warna pada saat di running nanti,komponen colordialog tidak akan muncul pada saat di run langsung hasilnya.resourcenya sebagai berikut:

procedure TFPerulangan.Button5Click(Sender: TObject);
begin
if colordialog1.Execute then
FPerulangan.color := colordialog1.Color;
end;

Yang terakhir kita click dua kali pada button close untuk mengakhiri program nanti:

procedure TFPerulangan.Button6Click(Sender: TObject);
begin
if(Application.MessageBox(‘Are You Sure To Exit The Program’,’Exit The Program’,MB_YesNo)=ID_Yes)then
begin
Application.Terminate;
end;
end;

Kalau sudah semua coba di RUN,hasil dari saya seperti dibawah :

Sekiranya itu yang bisa saya contohkan,GOOD LUCK gan 😀

 

by:wawan khoirul anam

Pesan Dari AL Habib Muhammad Al Husain

Dalam sehari kita banyak ingat Allah SWT atau kita malah melupakannya? Apakah kita tidak ingin dianggap selalu ingat sama TUhan kita (ALLAH SWT).

Caranya:

Ada empat waktu yang harus dipenuhi,yaitu:

Ingatlah Allah 15 menit sebelum subuh setela subuh hingga terbit fajar.Ingatlah Allah 15 enit sebelum maghrib dan setelahnya sampai isya’ tiba.InsyAllah kita selalu dianggap ingat kepada Alla SWT.Dan bagaimana cara mengingatnya?

Caranya bisa dengan berdzikir kepada-Nya,membaca Al-Qur’an ataupun ibadah yang lainya.

LAILLAHAILALLAH MUHAMMAD RASULULLAH :3

GURU MULIA AL HABIB UMAR BIN SALIM BIN HAFIDZ

DARI GURU MULIA AL HABIB UMAR BIN SALIM BIN HAFIDZ :

* SIMAK KEISTIMEWAAN BAGI ORANG- ORANG YANG MAU MENGHADIRI MAJELIS *

Al-Habib Umar bin Muhammad bin Salim bin Hafidz Rahimullohu Ta’ala ibn Syekh Abu Bakar bin Salim Radhiyallohuanhu.

Berapa orang yang masuk kedalam majlis ini, tadinya dia dicatat sebagai orang yang celaka, dia keluar dari majlis ini sebagai orang yang beruntung. Dan berapa banyak orang yang hadir dalam majlis ini tadinya hatinya penuh dengan kekotoran, keluar dengan membawa hati yang bersih bercahaya. Berapa banyak orang yang hadir dalam majlis ini, hatinya gelap gulita, dia keluar dengan membawa hati yang terang benderang. Berapa banyak orang yang masuk dalam majlis ini dalam keadaan ALLAH Ta’ala tidak suka, berpaling dengan orang tersebut, tetapi tidaklah dia keluar dari majelis ini melainkan ALLAH Ta’ala mencintai orang tersebut..

Semoga kita semua termasuk orang2 yg tidak pernah bosan untuk melangkahkan kaki dengan niat hati ketempat tempat muliaNya ALLAH Ta’ala.