Pascal

Dalam dunia Komputer Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari Matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.

Read more

Kalender Blog

Berikut ini merupakan cara memasang kalender pada BlogSpot

yang paling pertama kita lakukan, ya sudah pasti kita harus login terlebih dahulu ke blogger dengan aku anda... hehehe...

kemudian...

klik layout klik layout

klik add gadget

klik more gadgets dan scroll ke bawah

klik daily calender

pada title ketik judul dari kalender yang akan ditampilkan pada blog misalnya "kalender"

atau

"kalender harian"

atau

"kalender masehi"

setelah selesai semuanya klik save

selamat mencoba...

Read more

Meperbaiki flash disk yang rusak

Jika flashdisk kesayangan anda rusak dan bahkan tidak terdeteksi oleh komputer anda.

pasti hal yang akan anda lakukan adalah mencoba memformatnya, tapi terkadang memformat masih tidak berpengaruh apa-apa. karena flashdisk milik anda tidak terdeteksi baik oleh sistem komputer anda.

Terkadang ada sebuah cara konyol untuk menyelesaikan permasalahan seperti ini.
jika anda berani dan nekat coba buka casing plastik yang menyelubungi flashdisk, buka dengan menggunakan pisau atau silet (hati-hati jangan sampai melenceng kena tangan nanti berdarah).


jika sudah maka anda akan mendapatkan sebuah flashdisk yang terlihat semua jerohannya (isi). (lihat gambar)

1. konektor

2. IC Controller

3. test point

4. IC Memory

5. Crystal (pengatur frekuensi)

6. LED

7. Switch write protection

8. Tempat untuk menaruh memory tambahan


(NB : flashdisk anda mungkin tidak sama posisi komponennya dengan gambar diatas tapi secara umum komponen yang ada sama dan mirip dengan semua flashdisk.)

jika anda memiliki blow-air silahkan gunakan tapi jika tidak ada coba pergi ke tempat service handphone lalu minta keringkan dengan blow-air, jangan menggunakan hair-dryer karena panas yang dihasilkan kurang panas.

blow seluruh permukaan IC berikut kaki-kakinya dan semua solderan yang ada.

kemudian angin-anginkan sebentar dan coba anda colokkan kekomputer.

dari pengalaman saya melakukan ini (karena nekat dan pengen mencoba) maka flashdisk saya yang bermerek MyFlash dapat diselamatkan.

Attention : data tidak dijamin terselamatkan, karena target operasi adalah menyelamatkan hardware flashdisk bukan data.

Read more

Setting simpati,as,telkomsel flash di Nokia modem menggunakan Nokia PC Suite

Simpati / As time based (telkomsel flash reguler)


Biaya pemakaian berdasarkan waktu/lama pemakaian

Perbedaan dengan versi simpati volume based adalah dalam pengaturan apn (access point name, dan user name-nya)

Proses aktifasi gprs dan flash

Setting HP Nokia N70 (type lain menyesuaikan)
a. Anda bisa gunakan OTA Setting, (untuk mengaktifkan GPRS)
Ketik : GPRS spasi kemudian 16 Nomor yang ada di belakang simcard anda,
misal : GPRS 6210114227074XXX, kirim ke 6616
Ketik : S NOKIA N70 kirim sms ke 5432,
tunggu hingga ada pesan dari telkomsel,anda akan dikirimkan PIN
gunakan PIN yang diberikan oleh Telkomsel untuk membuka pesan konfigurasi
yang dikirim oleh telkomsel.

pesan konfigurasi yang akan anda terima:
(Pilih 'Simpan' dari 'Pilihan' untuk mengkonfogurasi semua pengaturan
Jalur akses multim:
Telkomsel MMS
Jalur akses:
Telkomsel MMS
Telkomsel WAP
Penanda:
Telkomsel WAP
Pengaturan web:
Telkomsel WAP )

Simpan setting tersebut sebagai default.

b. Aktifkan GPRS ketik : ACT GPRS kirim sms ke 888
c. Aktifkan MMS hp anda ,Ketik : MMS spasi kemudian 16 Nomor yang ada di belakang simcard anda,
misal : MMS 6210114227074XXX, kirim ke 6616
d. Untuk mengaktifkan telkomsel flash
ketik : flash kirim ke 3636

Tunggu hingga ada balasan pesan dari telkomsel berikut:
(Selamat! Layanan Telkomsel Flash anda sudah diaktifkan. Anda dapat menikmati
cepatnya akses internet hingga 3,2 Mbps secara nirkabel dari laptop/PC anda)


Langkah 1 sampai 5 lihat pada setting simpati as volume base

5. Atur apn, user name


Titik akses : flash
Nama pengguna : flash
Kode sandi : 123456

Klik tanda centang


6. Klik tombol dial (panah dua arah)


7. Akan tersambung ke internet

8. Sampai tahap ini anda hanya terhubung ke server telkomsel flash
jika di adrres bar browser, mengetik www.google.co.id
akan muncul halaman berikut, berarti anda terhubung ke server telkomsel flash
Anda bisa memilih paket telkomsel flash

Ada beberapa paket: (menurut saya paket ini terlalu mahal, mungkin karena telkomsel hanya cari untung saja).
1. pay as you go
2. paket 3 jam 30.000 (10.000/jam) harus dipakai dalam 24 jam setelah pemesanan
3. paket 24 jam 100.000 (4167/jam)


Setelah memesan paket di atas, anda bisa memulai koneksi internet, secara otomatis pulsa di hp anda akan dikurangi sebesar paket yang anda beli.

Read more

Program Pertokoan

Sebenarnya gue dapet ilmu ini dari skul juga seh...
hehehehe...

Ne scripnya...

TABEL PROPERTIES
object		properties	setting
label1		caption	kode barang
label2		caption	nama barang
label3		caption	harga
label4		caption	jumlah harga
label5		caption	total awal
label6		caption	keterangan
label7		caption	diskon
label8		caption	total akhir
text box1		name	txtkode
		onlostfocus	Private Sub txtkode_LostFocus()
			If txtkode = "1" Then
			txtnama = "pensil"
			txtharga = "1000"
			ElseIf txtkode = "2" Then
			txtnama = "polpen"
			txtharga = "1500"
			ElseIf txtkode = "3" Then
			txtnama = "tipe x"
			txtharga = "2000"
			ElseIf txtkode = "4" Then
			txtnama = "buku"
			txtharga = "1250"
			ElseIf txtkode = "5" Then
			txtnama = "penggaris"
			txtharga = "1350"
			ElseIf txtkode = "6" Then
			txtnama = "penghapus"
			txtharga = "2000"
			Else
			MsgBox ("pintar")
			txtkode.SetFocus
			End If
			End Sub
text box2		name	txtnama
text box3		name	txtharga
text box4		name	txtjumlah
		onlostfocus	Private Sub txtjumlah_LostFocus()
			Dim a, b, c, d As Double
			If txtawal >= "100000" Then
			txtketerangan = "diskon sebesar 15%"
			txtdiskon = "15%"
			b = txtharga
			c = txtjumlah
			a = c * b
			txtawal = a
			d = a - (a * 15 / 100)
			txtakhir = d
			Else
			txtketerangan = "anda tidak mendapat diskon"
			txtdiskon = "0%"
			b = txtharga
			c = txtjumlah
			a = b * c
			txtawal = a
			d = a
			txtakhir = d
			End If
			End Sub
text box5		name	txtawal
text box6		name	txtketerangan
text box7		name	txtdiskon
text box8		name	txtakhir
command button1		name	cmdbatal
		caption	batal
command button2		name	cmdhapus
		caption	hapus
		onclick	Private Sub cmdhapus_Click()
			txtkode = ""
			txtnama = ""
			txtharga = ""
			txtjumlah = ""
			txtawal = ""
			txtdiskon = ""
			txtakhir = ""
			txtketerangan = ""
			txtkode.SetFocus
			End Sub
command button3		name	cmdkeluar
		caption	keluar
		onclick	Private Sub cmdclose_Click()
			DoCmd.Close
			End Sub

Read more

virus sederhana

ne sebenarnya cuman berfungsi mematikan komputer dengan waktu yang sudah kita tentukan... tapi icon pada virusnya juga harus kita ganti supaya lebih menarik... hehehe...


begono bos caranya... [ingat ne hannya sebagai bahan pembelajaran jangan di gunakan sebagai alat untuk menjahili orang o.k...]

1. klik kanan pada desktop plih new>shortcut...
2. kemudian ketikkan kalimat berikut (shutdown -s -t 300 -c "komputer anda terserang virus dalam waktu 300 detik kmputer anda akan mati dengan sendirinya") .
3. -s berfungsi untuk menshutdown komputer, -t untuk memberikan waktu komputer akan mati, -c untuk memberikan pesan pada saat program berjalan.
4. klik next dan ganti namanya menjadi internet explorer(sebenarnya mengganti nama apa aja seh bisa, cuaman icon yang gue punya cuman nto... hehehe..)
5. klik finish...


selanjutnya ganti iconnya...
6. klik kanan pada programnya dan pilih properties>change icon>pilih icon yang kamu suka>ok>apply>ok



virus selesai...

wkwkwkw...

nto virus gak bisa di close... jadi biar di klik tanda X-nya ampe bodo pun gak bakalan bisa te-close... hehehe..

tapi da caranya buat ngeclose...

caranya klik start>run>dan ketik kan shutdown -a
maka virus dengan otomatis akan ter-close dengan sendirinya... hehehe...

selamat mencoba...

Read more