Soal Praktek Algoritma

1. Masukkan kalimat, kemudian Tampilkan Kalimat tersebut dimulai dari urutan yang paling
belakang (terbalik). Contoh = Hallo -> ollaH
2. Masukkan kalimat, cari huruf yang diinginkan dan menghitung jumlah huruf tersebut
dalam kalimat
3. Masukkan kalimat, hitung jumlah karakter yang ada di kalimat
4. Buat Tampilan angka berikut : 122333444455555666666
5. Buat Tampilan angka berikut : 666666555554444333221
6. Buat Tampilan angka berikut : 112123123412345123456
7. Buat Tampilan angka berikut : 654321543214321321211
8. Buat Tampilan angka berikut : 112333123455555123456
9. Buat Tampilan angka berikut : 122123444412345666666
10. Buat Tampilan angka berikut : 654321555554321333211
11. Buat Tampilan angka berikut : 666666123454444123221
12. Buat Tampilan angka berikut : 122123123455555666666123456712345678999999999...
13. Buat Tampilan angka berikut : 112333444412345123456777777788888888123456789...
14. Buat Tampilan angka berikut : 888888887777777654321543214444333211
15. Buat Tampilan angka berikut : 876543217654321666666555554321321221
16. Buat Tampilan angka berikut : 1 5 3 7 5 9 7 11 9 13 11 15 , => n+4,n-2,...
17. Buat Tampilan angka berikut : 2 12 7 17 12 22 17 27 22 32 , => n+10,n-5,...
18. Buat Tampilan angka berikut : 5 2 7 4 9 6 11 8 13 10 15 12 , => n-3,n+5,...
19. Buat Tampilan angka berikut : 3 9 4 12 7 21 16 48 43 129 , => n*3,n-5,...
20. Buat Tampilan angka berikut : 1 2 4 7 8 10 13 14 16 19 20 22 25 , => n+1,n+2,n+3,...
21. Buat Tampilan angka berikut : 1 2 4 8 16 32 64 128 256 512
22. Tampilkan bilangan Faktorial dari n! dan hasilnya => 3! = 3 x 2 x 1 = 6
23. Buat Program untuk menampilkan bilangan Fibonaci -> 0,1,1,2,3,5,8,13,21,34,… dengan
nilai maksimum ditentukan
24. Buat Program untuk menampilkan Tahun kabisat dari n_awal hingga n_akhir yang angka
terakhirnya 0
25. Buat Program untuk menampilkan Tahun kabisat dari n_awal hingga n_akhir yang angka terakhirnya 2
26. Buat Program untuk menampilkan Tahun kabisat dari n_awal hingga n_akhir yang angka terakhirnya 4
27. Buat Program untuk menampilkan Tahun kabisat dari n_awal hingga n_akhir yang angka
terakhirnya 6
28. Buat Program untuk menampilkan Tahun kabisat dari n_awal hingga n_akhir yang angka terakhirnya 8
29. Program menampilkan bilangan yang habis dibagi 3 dari n_awal hingga n_akhir
30. Program menampilkan bilangan yang habis dibagi 4 dari n_awal hingga n_akhir
31. Program menampilkan bilangan yang habis dibagi 5 dari n_awal hingga n_akhir
32. Program menampilkan bilangan yang habis dibagi 6 dari n_awal hingga n_akhir
33. Program menampilkan bilangan yang habis dibagi 7 dari n_awal hingga n_akhir
34. Animasi angka 0 berjalan dari pojok kiri atas hingga pojok kanan atas dan kembali lagi dari pojok kiri
atas ke kanan atas dalam satu baris
35. Animasi angka 0 berjalan dari pojok kiri atas hingga pojok kanan atas dan kembali lagi dari
pojok kanan atas ke kiri atas dalam satu baris
36. Animasi angka 0 berjalan dari pojok kiri bawah hingga pojok kanan bawah dan kembali lagi dari pojok
kiri bawah ke kanan bawah dalam satu baris
37. Animasi angka 0 berjalan dari pojok kiri bawah hingga pojok kanan bawah dan kembali lagi
dari pojok kanan bawah ke kiri bawah dalam satu baris
38. Animasi angka 0 berjalan dari pojok kiri atas hingga pojok kiri bawah dan kembali lagi dari pojok kiri
atas ke pojok kiri bawah
39. Animasi angka 0 berjalan dari pojok kiri atas hingga pojok kiri bawah dan kembali lagi dari pojok kiri
bawah ke pojok kiri atas
40. Animasi angka 0 berjalan dari pojok kanan atas hingga pojok kanan bawah dan kembali lagi dari pojok
kanan atas ke pojok kanan bawah
41. Animasi angka 0 berjalan dari pojok kanan atas hingga pojok kanan bawah dan kembali lagi dari pojok
kanan bawah ke pojok kanan atas
42. Masukkan beberapa angka (min 10) dengan looping, kemudian cari bilangan terbesar dari beberapa
masukan tersebut
43. Masukkan beberapa angka (min 10) dengan looping, kemudian cari bilangan terkecil dari beberapa
masukan tersebut
44. Masukkan beberapa angka (min 10) dengan looping, kemudian hitung jumlah bilangan genap dari
beberapa masukan tersebut
45. Masukkan beberapa angka (min 10) dengan looping, kemudian hitung jumlah bilangan ganjil dari
beberapa masukan tersebut
46. Program untuk menghitung total bilangan bulat positif dari n_awal hingga n_akhir
47. Program untuk menghitung total bilangan genap dari n_awal hingga n_akhir
48. Program untuk menghitung total bilangan ganjil dari n_awal hingga n_akhir
49. Program untuk menampilkan bilangan Prima dari n_awal hingga n_akhir

Blackberry Curve 8520

Berikut adalah sekilas fitur Blackberry Curve 8520 : kamera 2 Megapixel dengan 5x digital-zoom dan video-recording tanpa flash, optical-trackball, memori internal berkapasitas 256 MB, WiFi, Bluetooth dst. Bagi Anda yang punya keinginan mengganti casing BB Curve 8520 atau bahkan mengganti lcd sendiri, saya akan bagikan cara melakukannya step by step. Persiapkan peralatan pembuka casing BB Curve 8520 yaitu obeng set, pinset, pin plastik dll. Dan jangan lupa Anda diwajibkan memiliki keyakinan kalau Anda bisa melakukan hal ini, yakin bisa teliti dan hati-hati. Terakhir jangan lupa berdoa agar diberikan kelancaran dan keberhasilan, he he he … semoga cukup wejangan dari saya ( mirip pidato “Kepsek” gak ya ). Oke deh, langsung saja di klik lanjutannya …
Cara Ganti Casing Dan LCD Blackberry Curve 8520
1. Pertama buka tutup belakang ponsel dan keluarkan baterainya. Lalu buka 2 baut seperti yang ditunjukkan gambar di bawah ini.

2. Selanjutnya buka panel bawah seperti gambar menggunakan pin plastik atau alat pengungkit celah casing yang terbuat dari plastik. Setelah itu buka 2 baut yang ada di bawah panel tadi. Lalu ungkit casing atas pakai pin plastik seperti yang di tunjukkan panah.

3. Beginilah keadaan setelah panel / casing depan terbuka. Nah, silahkan ganti dengan casing yang baru. Namun jika Anda ingin mengganti LCD, silahkan dilanjutkan ke bawah.

4. Buka cover lcd depan dimulai dari sisi yang di tunjukkan panah dan lakukan hal yang sama pada sisi yang lain. Cover ini berperekat double tape, jadi agar mudah membukanya, panaskan sedikit pinggiran cover menggunakan hair dryer. Ingat, LCD mudah rusak dengan suhu panas yang tinggi, jadi panaskan pinggirnya saja dan jangan terlalu lama.

5. Nah sekarang cover LCD sudah terlepas.

6. Buka 2 baut di bagian atas LCD seperti tampak pada gambar.

7. Sekarang pisahkan mesin utama dengan back casing.

8. Ungkitlah keatas konektor LCD seperti ditunjukkan gambar. Gunakan pin plastik dan berhati-hatilah agar tidak merusak flexiblenya.
9. Beginilah keadaan LCD yang sudah terlepas dari mesin utama ponsel

10. Bukalah rangka metal pelindung LCD dan pisahkan. Nah sekarang LCD siap diganti

Mudah bukan ? Untuk cara merakitnya kembali, silahkan urutkan langkah tersebut dari bawah ke atas Baiklah, sudah saatnya saya undur diri dari hadapan Anda. Sampai jumpa pada postingan berikutnya yang lebih seru, salam hangat pa awan,,,

BONGKAR LAPTOP Toshiba Satellite L355/L355D

Langkah 1.
Lepaskan baterai laptop.
Lepaskan dua sekrup penutup cover harddisk kemudian lepaskan dari tempatnya.
Lepaskan satu sekrup penutup cover memori dan lepaskan dari tempatnya.
(klik gambar agar lebih jelas)

 Langkah 2.
Tarik harddisk ke kiri lalu Lepaskan dari motherboard.
lepaskan juga kedua modul memori.
Langkah 3
lepas satu sekrup penahan DVD drive ( lingkaran merah ).
Dorong DVD drive dengan obeng min kecil atau dengan sebuah testpen
lepaskan DVD drive dari laptop.

Langkah 4.
lepaskan semua sekrup di bagian bawah laptop.

Langkah 5.
Lepaskan panel keyboard menggunakan obeng min berukuran kecil, lakukan dengan hati-hati panel tersebut gampang patah.

Langkah 6.
Lepaskan empat buah sekrup penahan keyboard.
Tekan kunci plastik ( panah merah ) dan melepaskan keyboard.

langkah 7.
Angkat keyboard dengan Hati-hati karena kabel konektor keyboard masih melekat pada motherboard.

Langkah 8.
buka konektor keyboard dengan menggeser kunci konektor berwarna coklat kearah atas dari rumah konektor sekitar 1-2 mm.
setelah kunci konektor terbuka, cabut kabel keyboard.

Langkah 9.
Cabut dan lepaskan kabel yang ditunjukan dengan panah merah.

Langkah 10.
Pisahkan casing penutup atas dari casing laptop bagian bawah.
Masukkan pick gitar diantara pembatas casing penutup atas dan casing bawah laptop.
lakukan dengan hati-hati saat memindahkannya pick gitar di sepanjang sisi pembatas casing.

Langkah 11.
setelah casing atas laptop terbuka sedikit, lanjutkan membukanya dengan jari-jari anda.

Langkah 12.
angkat dan lepaskan cover casing bagian atas.

langkah 13.
Anda dapat melihat laptop pada gambar dibawah ini tanpa cover penutup atas.

Langkah 14.
Lepaskan semua konektor kabel yang ditandai dengan panah merah.
lepaskan 2 kabel antena dari wirelee card.

Langkah 15.
Lepaskan juga konektornya

Langkah 16.
lepaskan 1 buah sekrup penahan motherboard dan satu buah sekrup penahan kipas pendingin.

Langkah 17.
lepaskan kabel DVD driver dari samping sebelah kanan motherboard.

Langkah 18.
Angkat dan lepaskan motherboard dari casing laptop bagian bawah.

Langkah 19.
Motherboard sudah terlepas dari casing laptop bagian bawah, anda bisa lepaskan heat sink kipas pendingin dan processor.

 

   

 

Konversi Bilangan

Biner Oktal Desimal Hexadesimal

Didalam dunia komputer kita mengenal empat jenis bilangan, yaitu bilang biner, oktal, desimal dan hexadesimal. Bilangan biner atau binary digit (bit) adalah bilangan yang terdiri dari 1 dan 0. Bilangan oktal terdiri dari 0,1,2,3,4,5,6 dan 7. Sedangkan bilangan desimal terdiri dari 0,1,2,3,4,5,6,7,8 dan 9. Dan bilangan hexadesimal terdiri dari 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E dan F.

Konversi Antar Basis Bilangan

Sudah dikenal, dalam bahasa komputer terdapat empat basis bilangan. Keempat bilangan itu adalah biner, oktal, desimal dan hexadesimal. Keempat bilangan itu saling berkaitan satu sama lain. Rumus atau cara mencarinya cukup mudah untuk dipelajari. Konversi dari desimal ke non-desimal, hanya mencari sisa pembagiannya saja. Dan konversi dari non-desimal ke desimal adalah:

1. Mengalikan bilangan dengan angka basis bilangannya 
2. Setiap angka yang bernilai satuan, dihitung dengan pangkat NOL (0). Digit puluhan, dengan pangkat SATU (1), begitu pula dengan digit ratusan, ribuan, dan seterusnya. Nilai pangkat selalu bertambah satu point.

Konversi Biner ke Oktal

Metode konversinya hampir sama. Cuma, karena pengelompokkannya berdasarkan 3 bit saja, maka hasilnya adalah: 1010 ₍₂₎ = ...... ₍₈₎ Solusi: Ambil tiga digit terbelakang dahulu. 010₍₂₎ = 2₍₈₎ Sedangkan sisa satu digit terakhir, tetap bernilai 1. Hasil akhirnya adalah: 12.

Konversi Biner ke Hexadesimal

Metode konversinya hampir sama dengan Biner ke Oktal. Namun pengelompokkannya sejumlah 4 bit. Empat kelompok bit paling kanan adalah posisi satuan, empat bit kedua dari kanan adalah puluhan, dan seterusnya. Contoh: 11100011₍₂₎ = ...... ₍₁₆₎ Solusi: kelompok bit paling kanan: 0011 = 3 kelompok bit berikutnya: 1110 = E Hasil konversinya adalah: E3₍₁₆₎

Konversi Biner ke Desimal

Cara atau metode ini sedikit berbeda. Contoh: 10110₍₂₎ = ......₍₁₀₎ diuraikan menjadi: (1x2⁴)+(0x2³)+(1x2²)+(1x2¹)+(0x2⁰) = 16 + 0 + 4 + 2 + 0 = 22 Angka 2 dalam perkalian adalah basis biner-nya. Sedangkan pangkat yang berurut, menandakan pangkat 0 adalah satuan, pangkat 1 adalah puluhan, dan seterusnya.

Konversi Oktal ke Biner

Sebenarnya, untuk konversi basis ini, haruslah sedikit menghafal tabel konversi utama yang berada di halaman atas. Namun dapat dipelajari dengan mudah. Dan ambillah tiga biner saja. Contoh: 523₍₈₎ = ...... ₍₂₎ Solusi: Dengan melihat tabel utama, didapat hasilnya adalah: 3 = 011 2 = 010 5 = 101 Pengurutan bilangan masih berdasarkan posisi satuan, puluhan dan ratusan. Hasil: 101010011₍₂₎

Konversi Hexadesimal ke Biner

Metode dan caranya hampir serupa dengan konversi Oktal ke Biner. Hanya pengelompokkannya sebanyak dua bit. Seperti pada tabel utama. Contoh: 2A₍₁₆₎ = ......₍₂₎

Solusi:

• A = 1010,
• 2 = 0010

caranya: A=10

• 10:2=5(0)-->sisa
• 5:2=2(1)
• 2:2=1(0)
• 1:2=0(1)

ditulis dari hasil akhir

hasil :1010

• 2:2=1(0)-->sisa
• 1:2=0(1)

ditulis dari hasil akhir

hasil:010
jadi hasil dan penulisannya 0101010 sebagai catatan angka 0 diawal tidak perlu di tulis.

Konversi Desimal ke Hexadesimal

Ada cara dan metodenya, namun bagi sebagian orang masih terbilang membingungkan. Cara termudah adalah, konversikan dahulu dari desimal ke biner, lalu konversikan dari biner ke hexadesimal. Contoh: 75₍₁₀₎ = ......₍₁₆₎ Solusi: 75 dibagi 16 = 4 sisa 11 (11 = B). Dan hasil konversinya: 4B₍₁₆₎

Konversi Hexadesimal ke Desimal

Caranya hampir sama seperti konversi dari biner ke desimal. Namun, bilangan basisnya adalah 16. Contoh: 4B₍₁₆₎ = ......₍₁₀₎ Solusi: Dengan patokan pada tabel utama, B dapat ditulis dengan nilai "11". (4x16¹)+(11x16⁰) = 64 + 11 = 75₍₁₀₎

Konversi Desimal ke Oktal

Caranya hampir sama dengan konversi desimal ke hexadesimal. Contoh: 25₍₁₀₎ = ......₍₈₎ Solusi: 25 dibagi 8 = 3 sisa 1. Hasilnya dapat ditulis: 31₍₈₎

25 : 8 sisa 1 3 -------- 3 hasilnya adalah 31

Konversi Oktal ke Desimal

Metodenya hampir sama dengan konversi hexadesimal ke desimal. Dapat diikuti dengan contoh di bawah ini: 764₍₈₎ = ......₍₁₀₎ Solusi: (3x8¹)+(1x8⁰) = 24 + 1 = 25₍₁₀₎

Sintaks Pascal dan C++

Sintaks Pascal
uses crt;
var
begin
(isi program)
end.

Sintaks C++
#include ..........
void main()
{
 (isi program)
}

SOAL LATIHAN PRAKTEK PASCAL

Latihan 1
Buatlah Program Pascal seperti berikut ini :

Nis       :..
Nama   :..
Kerengan :
Semua data yang ada di input langsung dalam program.

Latihan 2.
Buatlah Program Pascal seperti berikut ini dengan menggunakan GOTOXY :
Daftar Nama Siswa SMK MANDALAHAYU

Nama Siswa     :………
Alamat Siswa   : ………
Kelas               : ……….
Nilai Mid         : ……….
Nilai Semester  : ………..
Nilai Raport     : ………..
Keterangan      : ………..



Latihan 4
Buatlah Program Pascal untuk mencari rumus matematika berikut ini :

Mencari Hasil Penjumlahan

Masukkan Nilai A :
Masukkan Nilai B :
Masukkan Nilai C :

Berapa Hasil X berikut in :
1. X = A + B – C
2. X = A + B * C
3. X = (A + B) / C
4. X = A * (B + C)
5. X = B – A + C

Latihan 5
Buatlah Program Pascal untuk mencari rumus matematika berikut ini :
1. Menghitung Luas Segitiga
2. Menghitung Keliling Segitiga
3. Menghitung Luas Persegi Panjang
4. Menghitung Keliling Persegi Panjang

Latihan 6
Buatlah Program Pascal untuk mencari rumus matematika berikut ini :

1. Menghitung Luas lingkaran, dengan jari-jari diketahui (diinput).
2. Menghitung Keliling lingkaran, dengan jari-jari diketahui (diinput).
3. Mengubah derajat temperatur, dari derajat Celcius ke derajat Fahreinheit dan
Reamur (derajat Celcius diinput)

Latihan 7
Buatlah Program Pascal untuk mencari rumus matematika berikut ini dengan
menggunakan GOTOXY:
1. Mencari akar dan kuadrat dari suatu nilai (nilai diinput).
2. Mencari nilai Sinus, Cosinus, dan Tangen dengan sudut diinput.
3. Mencari nilai bulat dan pecahan dari suatu nilai yang dimasukkan melalui
keyboard (diinput). Nilai pecahan tersebut dibulatkan sampai 3 angka
dibelakang koma (,).

Latihan 8
Buatlah Program Pascal yang akan menghitung pembayaran penumpang taksi berikut?
Setiap buka pintu taksi pertama penumpang dikenakan biaya Rp.5.000, kemudian setiap 1
km penumpang harus membayar sebanyak Rp 1.000/km. berapa penumpang harus
membayar ?

Jumlah Kilo Meter    = 25
Buka Pintu            =1
Bayar                   = Rp. 30.000,

Kumpulan Latihan-latihan Pemrograman Pascal

uses wincrt;
var
nm_dpn, nm_tgh, nm_blkg, nm_lgkp:string;
begin
write('Nama Depan   :');readln(nm_dpn);
write('Nama Tengah  :');readln(nm_tgh);
write('Nama Belakang:');readln(nm_blkg);
writeln;
writeln;
nm_lgkp:=nm_dpn+nm_tgh+nm_blkg;
write(‘Nama Lengkap Adalah  :’, nm_lgkp);
end.
Latihan 2
uses wincrt;
begin
write('Hasil 2+2*4: ',2+2*4);
end.
Latihan 3
uses wincrt;
var
a,b,c:integer;
begin
write('Bilangan a: ');readln(a);
write('Bilangan b: ');readln(b);
c:=a+b;
writeln;
writeln;
write('Penjumlahan Bilangan ',a,'*',b,'=',c);
end.

Latihan 4
uses wincrt;
var
a,b,c,d,e:integer;
f:real;
begin
write('Bilangan a: ');readln(a);
write('Bilangan b: ');readln(b);
c:=a+b;
d:=a-b;
e:=a*b;
f:=a/b;
writeln;
writeln;
writeln('Penjumlahan Bilangan ',a,'+',b,'=',c);
writeln('Pengurangan Bilangan ',a,'-',b,'=',d);
writeln('Perkalian Bilangan ',a,'x',b,'=',e);
writeln('Pembagian Bilangan ',a,'/',b,'=',f :6:2);
end.
Lupa latihan ke-brp
uses wincrt;
var
nm_dpn, nm_tgh, nm_blkg, nm_lgkp:string;
begin
write('Nama Depan :');readln(nm_dpn);
write('Nama Tengah :');readln(nm_tgh);
write('Nama Belakang:');readln(nm_blkg);
writeln;
writeln;
nm_blkg:=concat(nm_dpn, nm_tgh, nm_blkg);
write(‘Nama Lengkap Adalah :’, nm_blkg);
end.
Lupa juga yg ini
program contoh;
uses wincrt;
var
nama:string[25];
nilai_akhir:integer;
nilai_rata2:integer;
nilai_huruf:char;
keterangan:string;
begin
(*inputan data*)
write('masukan nama:');readln(nama);
write('masukan nilai akhir:');readln(nilai_akhir);
write('masukan nilai rata-rata:');readln(nilai_rata2);
write('masukan grade:');readln(nilai_huruf);
write('masukan keterangan:');readln(keterangan);
(*tampilan data*)
writeln('nama siswa adalah ',nama);
writeln('nilai akhir adalah ',nilai_akhir);
writeln('nilai rata-rata adalah ',nilai_rata2);
writeln('gradernya adalah ',nilai_huruf);
writeln('keterangan adalah ',keterangan);
end.
Yg ini Tugas
program penjualan;
uses wincrt;
label
atas;
var
mkn, mnm:string;
hrgmkm, nrgmnm, jmlmkm, jmlmnm, total:real;
begin
atas:
write(‘Input kode makanan : ‘);readln(mkn);
write(‘Jumlah beli : ‘);readln(jmlmkm);
write(‘Input kode Minuman : ‘);readln(mnm);
write(‘Input beli : ‘);readln(jmlmnm);
if (mkn = ‘bks’) and (mnm= ‘jm’) then
begin
hrgmkm:=10000;
nrgmnm:=6000;
total:=(hrgmkm*jmlmkm)+(nrgmnm*jmlmnm);
writeln(‘Harga Total: ‘,total:2:2);
end
else if (mkn= ‘bks’) and (mnm=’et’) then
begin
hrgmkm:=10000;
nrgmnm:=1500;
total:=(hrgmkm*jmlmkm)+(nrgmnm*jmlmnm);
writeln(‘Harga Total: ‘,total:2:2);
end
else if (mkn= ‘bks’) and (mnm=’ek’) then
begin
hrgmkm:=10000;
nrgmnm:=2500;
total:=(hrgmkm*jmlmkm)+(nrgmnm*jmlmnm);
writeln(‘Harga Total: ‘,total:2:2);
end
else if (mkn= ‘may’) and (mnm=’jm’) then
begin
hrgmkm:=8000;
nrgmnm:=6000;
total:=(hrgmkm*jmlmkm)+(nrgmnm*jmlmnm);
writeln(‘Harga Total: ‘,total:2:2);
end
else if (mkn= ‘may’) and (mnm=’et’) then
begin
hrgmkm:=8000;
nrgmnm:=1500;
total:=(hrgmkm*jmlmkm)+(nrgmnm*jmlmnm);
writeln(‘Harga Total: ‘,total:2:2);
end
else if (mkn= ‘may’) and (mnm=’ek’) then
begin
hrgmkm:=8000;
nrgmnm:=2500;
total:=(hrgmkm*jmlmkm)+(nrgmnm*jmlmnm);
writeln(‘Harga Total: ‘,total:2:2);
end
else if (mkn= ‘lpn’) and (mnm=’jm’) then
begin
hrgmkm:=15000;
nrgmnm:=6000;
total:=(hrgmkm*jmlmkm)+(nrgmnm*jmlmnm);
writeln(‘Harga Total: ‘,total:2:2);
end
else if (mkn= ‘lpn’) and (mnm=’et’) then
begin
hrgmkm:=15000;
nrgmnm:=1500;
total:=(hrgmkm*jmlmkm)+(nrgmnm*jmlmnm);
writeln(‘Harga Total: ‘,total:2:2);
end
else if (mkn= ‘lpn’) and (mnm=’ek’) then
begin
hrgmkm:=15000;
nrgmnm:=2500;
total:=(hrgmkm*jmlmkm)+(nrgmnm*jmlmnm);
writeln(‘Harga Total: ‘,total:2:2);
end
else
begin
writeln(‘Kode yang Anda masukan salah!!!’);
Goto atas;
end
end.
Menu dengan If
uses wincrt;
var
pilih, bil1, bil2, hsl:integer;
begin
writeln('Menu Operasi');
writeln('1. Penjumlahan');
writeln('2. Pengurangan');
writeln('3. Perkalian');
write('Input pilihan Operasi: ');readln(pilih);
if pilih=1 then
begin
write(‘Bilangan 1: ‘);readln(bil1);
write(‘Bilangan 2: ‘);readln(bil2);
hsl:=bil1+bil2;
writeln(‘Hasil Penjumlahan : ‘,hsl);
end
else if pilih=2 then
begin
write(‘Bilangan 1: ‘);readln(bil1);
write(‘Bilangan 2: ‘);readln(bil2);
hsl:=bil1-bil2;
writeln(‘Hasil Pengurangan : ‘,hsl);
end
else if pilih=3 then
begin
write(‘Bilangan 1: ‘);readln(bil1);
write(‘Bilangan 2: ‘);readln(bil2);
hsl:=bil1*bil2;
writeln(‘Hasil Perkalian : ‘,hsl);
end
else
writeln(‘Pilihan Anda Salah!!’);
uses wincrt;
var
pilih, bil1, bil2, hsl:integer;
begin
writeln(‘Menu Operasi’);
writeln(’1. Penjumlahan’);
writeln(’2. Pengurangan’);
writeln(’3. Perkalian’);
write(‘Input pilihan Operasi: ‘);readln(pilih);
if pilih=1 then
begin
write(‘Bilangan 1: ‘);readln(bil1);
write(‘Bilangan 2: ‘);readln(bil2);
hsl:=bil1+bil2;
writeln(‘Hasil Penjumlahan : ‘,hsl);
end
else if pilih=2 then
begin
write(‘Bilangan 1: ‘);readln(bil1);
write(‘Bilangan 2: ‘);readln(bil2);
hsl:=bil1-bil2;
writeln(‘Hasil Pengurangan : ‘,hsl);
end
else if pilih=3 then
begin
write(‘Bilangan 1: ‘);readln(bil1);
write(‘Bilangan 2: ‘);readln(bil2);
hsl:=bil1*bil2;
writeln(‘Hasil Perkalian : ‘,hsl);
end
else
writeln(‘Pilihan Anda Salah!!’);uses wincrt;
var
pilih, bil1, bil2, hsl:integer;
begin
writeln(‘Menu Operasi’);
writeln(’1. Penjumlahan’);
writeln(’2. Pengurangan’);
writeln(’3. Perkalian’);
write(‘Input pilihan Operasi: ‘);readln(pilih);
if pilih=1 then
begin
write(‘Bilangan 1: ‘);readln(bil1);
write(‘Bilangan 2: ‘);readln(bil2);
hsl:=bil1+bil2;
writeln(‘Hasil Penjumlahan : ‘,hsl);
end
else if pilih=2 then
begin
write(‘Bilangan 1: ‘);readln(bil1);
write(‘Bilangan 2: ‘);readln(bil2);
hsl:=bil1-bil2;
writeln(‘Hasil Pengurangan : ‘,hsl);
end
else if pilih=3 then
begin
write(‘Bilangan 1: ‘);readln(bil1);
write(‘Bilangan 2: ‘);readln(bil2);
hsl:=bil1*bil2;
writeln(‘Hasil Perkalian : ‘,hsl);
end
else
writeln(‘Pilihan Anda Salah!!’);
end.
Menu Case
uses wincrt;
var
pilih, bil1, bil2, hsl:integer;
begin
writeln('Menu Operasi');
writeln('1. Penjumlahan');
writeln('2. Pengurangan');
writeln('3. Perkalian');
write('Input pilihan Operasi: ');readln(pilih);
case pilih of
1: begin
write(‘Bilangan 1: ‘);readln(bil1);
write(‘Bilangan 2: ‘);readln(bil2);
hsl:=bil1+bil2;
writeln(‘Hasil Penjumlahan : ‘,hsl);
end;
2: begin
write(‘Bilangan 1: ‘);readln(bil1);
write(‘Bilangan 2: ‘);readln(bil2);
hsl:=bil1-bil2;
writeln(‘Hasil Penjumlahan : ‘,hsl);
end;
3: begin
write(‘Bilangan 1: ‘);readln(bil1);
write(‘Bilangan 2: ‘);readln(bil2);
hsl:=bil1*bil2;
writeln(‘Hasil Penjumlahan : ‘,hsl);
end;
end
end.

Latihan Pascal

1. uses crt;

var i : byte;
var nama : string;
begin
nama := 'ika intan rahmawati ';
textbackground(0);
clrscr;
window(15,5,65,20);
textbackground(blue);
clrscr;
textcolor(15);
i := 1;
repeat
write(copy(nama,i,1));
if i = 22 then
i := 1
else
i := i + 1
until (wherey = 16) and (wherex = 51);
readkey;
end.
 output :

2. uses crt;
type sets : set of char;
var
a,b,irisan,union,selisih1,selisih2:sets;
lagi : char;

procedure input (var n : sets; y : byte);
var i:byte;
var ch:char;
begin
for i := 1 to 5 do
begin
gotoxy(k22+i*3,y);
ch:=upcase(readkey);
n:=n+[ch];
if i = 5 then
begin
gotoxy(22+i*3,y);writeln(ch,'}');
end
else
begin
gotoxy(22+i*3,y);
write(ch,',');
end;
end;
end;

procedure inputdata;
var i:byte;
begin
gotoxy(10,2);write('operasi himpunan');
gotoxy(10,4);write('Himpunan A = {');input(a,4);
gotoxy(10,5);write('Himpunan B = {');input(b,5);
end;

procedure cetak (n:sets;y:byte);
var i : char;
begin
gotoxy(30,y);
for i := #00 to #255 do
if n*[i] = [i] then write(' ',i,' ');
write(' } ');
end;

procedure tampilan;
begin
gotoxy(10,15);write('irisan (a,b) = {');
gotoxy(10,17);write('gabungan (a,b) = {');
gotoxy(10,19);write('selisih (a,b) = {');
gotoxy(10,21);write('selisih (b,a) = {');

cetak(irisan,15);cetak(union,17);
cetak(selisih1,19);cetak(selisih2,21);
end;

procedure proses;
begin
union := a+b;
irisan := a*b;
selisih1 := (a-b);
selisih2 := (b-a);
tampilan;
repeat
gotoxy(20,23);write('coba lagi (y/t) = ');
lagi := upcase(readkey);
until lagi in ['Y','T'];
end;

begin
while lagi <> 'T' do
begin
clrscr;
inputdata;
proses;
end;
end.
output:

Membuat Jam Digital dengan visual basic 6.0

Membuat jam Digital dengan bahasa pemrograman visual basic memang sangat sederhana dan ada beberapa cara... hanya memasukan beberapa code saja, Langsung dehh jadi,, hehehe nggaya :-D,,
untuk lebih jelasnya kita praktekan saja.. oke??

berikut langkah-langkahnya :

1. buat New project - Standard Exe
2. masukan 2 buah Label
3. masukan 1 buah timer, ubah interval menjadi 1000
4. lalu masukan code berikut :

Private Sub Timer1_Timer() label1.caption = Date '/untuk menampilkan tanggal pada label1 label2.caption = Time   '/untuk menampilkan waktu pada label2 End Sub 

Penjelasan code :

• Date =  menampilkan tanggal sekarang
• Time =  menampilkan waktu sekarang

Teman-teman juga bisa mengganti code di atas dengan code di bawah :

Private Sub Timer1_Timer() label1.caption = Format(Now, "dd-mm-yyyy") label2.caption = Format(Now, "h:n:s") End Sub

Lalu silahkan running !!
Penjelasan code :

•  Format(Now, = code format untuk waktu&tanggal sekarang
• d = day (hari) , 
• m = month (bulan), 
• y = year (tahun)
• q = quartal
• w = hari ke-
• c = menampilkan secara lengkap tanggal dan waktu 
• h = hour (jam)
• n = minute (menit) 
• s = second (detik)
• jika d dan m hanya ditulis 2 huruf, maka akan di tampilkan "d=tanggal" dan "m=bulan ke-". sedangkan jika di tulis lebih dari 2 huruf, maka yang muncul adalah "d=nama hari" dan "m=nama bulan". berikut contohnya :
• jika ditulis dd-mm-yy maka yang muncul adalah 13-07-12
• jika ditulis dddd-mmmm-yyyy maka yang muncul adalah Jumat-Juli-2012
• sebenarnya untuk minute(menit) menggunakan m juga bisa,, tapi harus diawali dengan "h(hour)". jika hanya "m" nya saja, maka yang muncul bukan menit, tapi month(bulan)
• code diatas bisa di gabung-gabungkan,, contoh jika kita mengetik code berikut:
• Format(Now, "dddd-h-n") lalu setelah di running keluar "jumat-21-45" artinya hari jumat pukul 21.45 .
• Format(Now, "n-s") maka akan keluar "45-30" artinya 45 menit 30 detik

Tips and Triks Visual Basic 6.0

Kumpulan Source Code tuk Validasi Program dengan menggunakan Visual Basic 6.o, Jika anda tertatik dengan Tips dan Trik Visual Basic ini Silahkan Baca di...

--> Hanya Angka yang bisa di Input dalam TextBoxt

Private Sub txtNomor_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) _
And KeyAscii <= Asc("9") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace) Then
Beep
KeyAscii = 0
End If
End Sub

--> Hanya Huruf

Private Sub txtNama_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("a") & Chr(13) _
And KeyAscii <= Asc("z") & Chr(13) _
Or (KeyAscii >= Asc("A") & Chr(13) _
And KeyAscii <= Asc("Z") & Chr(13) _
Or KeyAscii = vbKeyBack _
Or KeyAscii = vbKeyDelete _
Or KeyAscii = vbKeySpace)) Then
Beep
KeyAscii = 0
End If

End Sub

--> membersihkan Seluruh Control TextBox dan Combo Box

Sub Clear()
For Each Control In Me.Controls
If TypeOf Control Is TextBox Then
Control.Text = ""
End If
If TypeOf Control Is ComboBox Then
Control.Text = ""
End If
Next Control
End Sub

NB: jika ada tombol yang lain tinggal di tambah kondisi IFnya aja, dan tuk menonaktifkan seluruh tombol tinggal ganti "Control.Text=Enabled" aja

--> Get Auto Number

Private Sub Auto()
Dim Urutan As String * 10
Dim Tgl As String
Dim Hitung
Set TMasuk = New ADODB.Recordset
TMasuk.Open "Select * from Masuk", Persediaan, adOpenDynamic, adLockPessimistic
'TMasuk.MoveFirst
Tgl = Format(Now, "yy/mm/dd")
With TMasuk
If .RecordCount = 0 Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"
Else
.MoveLast
If Left(![No Masuk], 6) <> Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) Then
Urutan = Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2) + "0001"
Else
Hitung = (![No Masuk]) + 1
Urutan = (Right(Tgl, 2) + Mid(Tgl, 4, 2) + Left(Tgl, 2)) + Right("0000" & Hitung, 4)
End If
End If
txtNomor = Urutan
End With
End Sub

--> Mengambil record ke dalam COmboBox

Sub DaftarPelanggan()
Me.MousePointer = 11
Pesan = "Select * from Pelanggan Order By kodePlg"
Set TPelanggan = New ADODB.Recordset
TPelanggan.Open Pesan, Persediaan, adOpenStatic
cmbPlg.Clear
If Not TPelanggan.EOF Then
TPelanggan.MoveFirst
While Not TPelanggan.EOF
cmbPlg.AddItem TPelanggan!KodePlg
TPelanggan.MoveNext
Wend
End If
TPelanggan.Close
Set TPelanggan = Nothing
Me.MousePointer = 1
End Sub

-- Laporan dengan Crystall Report

Sub CetakLap()
With CrtLaporan
.Reset
.DataFiles(0) = App.Path & "\Penduduk.mdb"
.ReportFileName = App.Path & "\Lap Lahir.rpt"
.WindowMinButton = False
.WindowShowCancelBtn = True
.WindowShowCloseBtn = True
.WindowShowPrintBtn = True
.WindowShowPrintSetupBtn = True
.WindowState = crptMaximized
.Action = 1
End With
end sub