lat VB

Private Sub Form_Load()
cmbjenis.AddItem "umum"
cmbjenis.AddItem "executive"
cmbjenis.AddItem "VIP"
Label4.Caption = Date
End Sub

Private Sub optumum_Click()
txtumum.Text = 50000
txtspesialis.Text = ""
End Sub

Private Sub optspesialis_Click()
txtspesialis.Text = 100000
txtumum.Text = ""
End Sub

Read More

Array c++

#include,conio.h,
#include,stdio.h,
#include,iostream.h,
#include,iomanip.h,
main()
{
int x,y;
char lagi,kd[3],*makanan[20];
long int hrg[5],jml[5],total[5],ttl=0,ubay,ukem;
atas:
clrscr();
cout<<"=========================================",,endl; cout<<"\tRESTORAN SIAP SAJI TAMA",,endl; cout<<"=========================================",,endl; cout<<" KODE NAMA HARGA",,endl; cout<<"MAKANAN MAKANAN",,endl; cout<<"=========================================",,endl; cout<<"A Ayam Bakar Rp.8.000",,endl; cout<<"T Tuna Pedas Rp.6.500",,endl; cout<<"D Dendeng Goreng Rp.9.000",,endl; cout<<"=========================================",,endl; cout<<"Silahkan Masukkan Pesanan:";cin>>y;
for(x=1;x<=y;x++) { cout<<"Pesanan Ke-",,x,,endl; cout<<"Silahkan Masukkan Kode Makanan:";cin>>kd[x];
if(kd[x]=='A')
{makanan[x]="Ayam Bakar";hrg[x]=8000;}
else if(kd[x]=='T')
{makanan[x]="Tuna Pedas";hrg[x]=6500;}
else
{makanan[x]="Dendeng Goreng";hrg[x]=9000;}
cout<<"Silahkan Masukkan JUmlah Beli:";cin>>jml[x];
total[x]=hrg[x]*jml[x];
cout,,endl;
}
clrscr();

Read More

HARI WANITA??

Hari Wanita....?????
sebenernya apa sih hari wanita untuk lo yang merasa sebagai wanita...
sebuah sosok yang sangat diidam-idamkan oleh kaum adam....(terlalu berat ga artikel gw...enggak kan)
kenapa wanita lebih ditonjolkan dalam segala spek.....contohnya:

1. ada yang namanya hari ibu....
2. di dalam kitab suci ada yang namanya surat annisa(yang arinya wanita).
3. kata guru agama gw surga itu dibawah telapak kaki ibu bukan di kaki bapa yang bau sikilll...(he..... maaf ya pap)
4. trus ada kalimat ladies first....

trus banyak deh.....yang kalo di lanjutin bisa ga selesai nih gw nulis artikelnya...
cukup sampe sini gw nulis kelebihan wanita..

Read More

Actually what women want?

Women's really created by god to keep a pair of men are already .in provisions of the sacred book of the woman comes from the rib of men. Fact a rib is bend. we must straighten the crooked rib, but we try not to the nature and behavior of these women continue to be crooked.
If you are a man what should you do if you meet a woman above?
Fact man is a leader who must be firm and fair and he should also be responsible for what he has talking.while figure woman is her soft full with sensitive and always want to be a central concern.
From research using the emotional question of women or use heart is always larger than males.
Now if you already have a female friend?
If so you should be able to understand Because to bend bone is difficult to take a long time.

Read More

latihan pascal

Dan Scriptnya :

program sewamobil;

uses crt;

var

nm,nmmobil,almt,kd:string;

hrg,lm,ttl,ubay,ukem:real;

begin

clrscr;

writeln('------------TAMA RENT CAR---------------');

writeln(' we will serve you ');

writeln('|||||||||||||||||||||||||||||||||||||||||||||||||||||||');

writeln('KodeMobil JenisMobil Harga/hari');

writeln('|||||||||||||||||||||||||||||||||||||||||||||||||||||||');

writeln('ALP ALPHARD Rp.1.000.000');

writeln('XNA XENIA Rp.500.000');

writeln('AVZ AVANZA Rp.600.000');

writeln('LRV LANDROVER Rp.800.000');

writeln('========================================');

Read More

Latihan C++

{Latihan UTS C++

#include,,conio.h,,

#include,,stdio.h,,

#include,,iostream.h,,

main()

{

char nm[25],lagi,*nmkue;

int no,jml,hrg,total,ukem,ubay;

clrscr();

cout<<"\tTOKO KUE ENAK TAMA",,endl

cout<<"\tJl.Kebagusan No.14",,endl

cout<<"*************************************",,endl

cout<<"No NamaKue Harga ",,endl

cout<<"=====================================",,endl

cout<<"1. Bolu Rp.10.000",,endl

cout<<"2. Blakforest Rp.40.000",,endl

cout<<"3. Donat Rp.4.500",,endl

cout<<"************************************",,endl

cout<<"Nama pembeli :";cin>>nm;

cout<<"Jumlah Beli :";cin>>jml;

cout<<"Masukkan Kode Kue[1/2/3]:";cin>>no;

Read More

Komputer VS Wanita

Sekarang saatnya ngomongin cinta…. Jauhin dulu apa itu pascal,Vb,C++ ataupun php apalah itu namanya semua program.

Mari kita ngomongin yang sering banget diomongin tiap orang,dimiliki setiap saat oleh manusia, dan sangat dijaga banget kemurniannya oleh sang pujangga…(puitis banget ya gw.)

Komputer dan Wanita…..sebenernya gw jelasin juga semuanya dah pada tau apa itu komputer dan apa itu yang namanya wanita.

Tapi kata ibu gw wanita itu adalah sosok yang tidak bisa digantikan oleh bapak..(loh gak nyambung ya..piss)

Iya bagi gw kedua hal diatas sangat penting untuk kelangsungan hidup gw.

Pertama komputer, hampir setiap hari gw megang yang namanya komputer krjaan gw ngerjain program..program ..dan program lagi sampe2 gw nenggak panadol biar ga puyeng(terlalu lebai ya he..he..).selain ngerjain program ya paling gw nge-blog jadi komputer itu emang susah dilepaskan ibaratnya gw ini amplop ya komputer itu perangkonya…

Kalo gw mawar ya komputer itu kumbangnya (loh kok jadi manjangnya sori terlalu lebai.)

Read More

Cari Dollar Lewat Bl;og

Sebelum gw mgejelasin informasi diatas ada 1 pertanyaan buat lo....
Sebenarnya apa alasan lo bikin blog?....
(Jawabannya Lo simpen aja dalam hati aja... ntar kalo lu ceritain jatohnya curhat lagi.)

Sekarang gw akan ngebahas tentang Paid Review.Ngerti ga Paid Review.....?
Paid Review adalah salah satu cara kita mendapatkan dollar dengan cara kita mereview atau mengupdate konten-konten produk advertiser(pihak yang akan membayar karena produknya kita review).
Kunci menggaet advertiser adalah blog kita harus memiliki page rank yang tinggi agar cepat diterima oleh advertiser.

Read More

Script Suara Dengan Pascal

Buat lu yang emang cinta sama program pascal lu bisa lihat listing code berikut buat referensi lu aja dalam belajar pascal....
met mencobanya....
uses crt;
procedure kata(k,b:integer);
const k1='SELAMAT BELAJAR';
k2='TURBO PASCAL';
begin
gotoxy(k,b);write(k1);
gotoxy(k+2,b+2);write(k2);
end;

Read More

Apa Itu Jamur Korea(KOMBUCHA) Dan Apa Gunanya???

KOMBUCHA?????
Mungkin jika di indonesia orang pasti bertanya-tanya apa itu kombucha...ini dalah sejenis jamur yang sangat berkhasiat pada zaman kerajaan di negeri tiongkok.. asal kombucha atau jamur korea ini sangat mudah pembudidayaannya.jamur korea ini sangat dipercaya untuk mnyembuhkan berbagai macam penyakit.Daiantaranya:

1. Kanker
2. Tumor
3. Kista
4. Myom
5. Rheumatik
6. Asam Urat dan Kolesterol Tinggi
7. Hipertensi
8. Stroke
9. Penyumbatan darah ke otak
10. wasir Berdarah
11. Maag Kronis
12. Diabetes Melitus
13. Sinusitis
14. Sulit Punya Keturunan

Read More