cachak » Personal

Tau ah Gelap….

rini — Tue, 24 Nov 2009 07:22:57 +0000

Kemarin sih ingin banget ngisi blog …. tapi setelah papa kasih blog nya kok jadi blank gini.

Tiap hari saat jam istirahat, kalo g main game dikomputer, Up date Facebook, Tidur dengan posisi duduk… lama-lama bosen juga.

Terus ada lagi nih …masa tiap pagi yang ingin diliat saat membuka mata adalah Erfan tapi ini kok papa. Ujung-ujungnya jadi malas ngerjain semuanya dipagi hari. G ada semangat sama sekali.

Kok jadi curhat disini … papa g jelous kan?

Udah ah segini dulu, nti kalo dah biasa mungkin bunda bisa cerita lebih banyak lagi atau papa dulu saja yang mulai. Tapi jangan ngisi install, setting, install, setting terus.

Gimana saran nya bunda?

KELUARGA MUSLIM MASA KINI

cachak — Sun, 03 Jul 2005 08:29:47 +0000

KELUARGA MUSLIM MASA KINI
sumber : Djoko P. Abdullah

1. KETIKA AKAN MENIKAH
Janganlah mencari isteri, tapi carilah ibuh bagi anak-anak kita
Janganlah mencari suami, tapi carilah ayah bagi anak-anak kita.

2. KETIKA MELAMAR
Anda bukan sedang meminta kepada orang tua/wali si gadis, tetapi meminta kepada Alloh melalui orang tua/ wali si gadis.

3. KETIKA AKAD NIKAH
Anda berdua bukan menikah di hadapan penghulu, tetapi menikah dihadapan Alloh

4. KETIKA RESEPSI PERNIKAHAN
Catat dan hitung semua tamu yang datang untuk mendo’kan anda, karena anda harus berfikir untuk mengundang mereka semua dan meminta maaf apabila anda berfikir untuk bercerai karena menyia-nyiakan do’a mereka.

5. SEJAK MALAM PERTAMA
Bersyukur dan bersabarlah.
Anda adalah sepsang anak manusia dan bukan sepasang malaikat.

6. SELAMA MENEMPUH HIDUP BERKELUARGA
Sadarilah bahwa jan yang akan dilalui tidak melalui jalan bertabur bunga, tapi juga semak belukar yang penuh onak dan duri.

7. KETIKA BIDUK RUMAH TANGGA OLENG
Jangan saling berlepas tangan, tapi sebaliknya justeru semakin erat berpegang tangan

8 .KETIKA BELUM MEMILIKI ANAK.
Cintailah isteri autau suami anda 100%

9. KETIKA TELAH MEMIKI ANAK.
Jangan bagi cinta anda kepada (suami) isteri dan anak anda, tetapi cintailah isteri atau suami anda 100% dan cintai anak-anak anda masing-masing 100%.

10.KETIKA EKONOMI KELUARGA BELUM MEMBAIK.
Yakinlah bahwa pintu rizki akan terbuka lebar berbanding lurus dengna tingkat ketaatan suami dan isteri

11.KETIKA EKONOMI MEMBAIK
Jangan lupa akan jasa pasangan hidup yang setia mendampingi kita semasa menderita

12.KETIKA ANDA ADALAH SUAMI
Boleh bermanja-manja kepada isteri tetapi jangan lupa untuk bangkit secara bertanggung jwab apabila isteri membutuhkan pertolongan Anda.

13.KETIKA ANDA ADALAH ISTERI
Tetaplah berjalan dengan gemulai dan lemah lembut, tetapi selalu berhasil menyelesaikan semua pekerjaan.

14.KETIKA MENDIDIK ANAK
Jangan pernah berpikir bahwa orang tua yang baik adalah orang tua yang tidak pernah marilah kepada anak, karena orang tua yang baik adalah orang tua yang jujur kepada anak.

15.KETIKA NAK BERMASALAH
Yakinilah bahwa tidak ada seorang anakpun yang tidak mau bekerjasama dengan orangtua, yang ada adalah anak yang merasa tidak di dengar oleh orang tuanya.

16.KETIKA ADA PIL.
Jangan diminum, cukuplah suami sebagai obat.

17.KETIKA ADA WIL
Jangan dituruti, cukuplah isteri sebagai pelbuhan hati.

18.KETIKA MEMILIH POTRET KELUARGA
Pilihlah potret keluarga sekolah yang berada dalam proses pertumbuhan menuju potret keluarga masjid.

19.KETIKA INGIN LANGGENG DAN HARMONIS
Gunakanlah formula 6 K
l Ketaqwaan
2 Kasih sayang
3 Kesetiaan
4 Komunikasi dialogis
5 Keterbukaan
6 Kejujuran

Apakah Cinta?

cachak — Mon, 27 Jun 2005 12:12:45 +0000

Mereka yang tidak menyukainya menyebutnya tanggung jawab,
Mereka yang bermain dengannya, menyebutnya sebuah permainan,
Mereka yang tidak memilikinya, menyebutnya sebuah impian,
Mereka yang mencintai, menyebutnya takdir.

Kadang Tuhan yang mengetahui yang terbaik, akan memberi kesusahan untuk menguji kita.
Kadang Ia pun melukai hati, supaya hikmat-Nya bisa tertanam dalam.

Jika kita kehilangan cinta, maka pasti ada alasan di baliknya. Alasan yang kadang sulit untuk dimengerti, namun kita tetap harus percaya bahwa ketika Ia mengambil sesuatu, Ia telah siap memberi yang lebih baik.

Mengapa menunggu?

Karena walaupun kita ingin mengambil keputusan, kita tidak ingin tergesa-gesa.
Karena walaupun kita ingin cepat-cepat, kita tidak ingin sembrono.
Karena walaupun kita ingin segera menemukan orang yang kita cintai, kita tidak ingin kehilangan jati diri kita dalam proses pencarian itu.

Jika ingin berlari, belajarlah berjalan duhulu,
Jika ingin berenang, belajarlah mengapung dahulu,
Jika ingin dicintai, belajarlah mencintai dahulu.

Pada akhirnya, lebih baik menunggu orang yang kita inginkan, ketimbang memilih apa yang ada.
Tetap lebih baik menunggu orang yang kita cintai, ketimbang memuaskan diri dengan apa yang ada.
Tetap lebih baik menunggu orang yang tepat,

Karena hidup ini terlampau singkat untuk dilewatkan bersama pilihan yang salah, karena menunggu mempunyai tujuan yang mulia dan misterius.

Perlu kau ketahui bahwa Bunga tidak mekar dalam waktu semalam,
Kota Roma tidak dibangun dalam sehari,
Kehidupan dirajut dalam rahim selama sembilan bulan,
Cinta yang agung terus bertumbuh selama kehidupan.

Kebanyakan hal yang indah dalam hidup memerlukan waktu yang lama, Dan penantian kita tidaklah sia-sia.
Walaupun menunggu membutuhkan banyak hal – iman, keberanian, dan pengharapan – penantian menjanjikan satu hal yang tidak dapat seorangpun bayangkan.
Pada akhirnya. Tuhan dalam segala hikmat-Nya, meminta kita menunggu, karena alasan yang penting.
Sumber: unknown

Program Assembler untuk ngetest Printer dot Matrix

cachak — Sun, 01 May 2005 05:36:34 +0000

Aku bikin program untuk mencetak tulisan dari mikrokontroler ke printer dot matrix, kenapa gak jalan ya hiks
programnya adalah :


;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;Program untuk mencetak tulisan
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
P0		equ	080h
P1		equ	090h
P2		equ	0A0h
P3		equ	0B0h

dpl		equ	082h		;
dph		equ	083h		;
acc		equ	0E0h		;
STBPRN		BIT	P3.1
BUSYPRN		BIT	P3.2

		ORG 00H
		LCALL 	printout
		jmp	SELESAI

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
PRNBUSY:	SETB	BUSYPRN
		JB	BUSYPRN,$
		RET

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
PRNSTB:		CLR	STBPRN
		NOP
		SETB	STBPRN
		RET

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CHECKPRINT:	LCALL	PRNBUSY
		RET

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
PRINT:		PUSH	ACC
		LCALL	CHECKPRINT
		MOV	P2,A
		LCALL	PRNSTB
		POP	ACC
		RET

;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
;
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
DATAP0:		DB	201,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,187,00
DATAP1:		DB	186,'                                ',186,00
DATAP2:		DB	186,'       SAHIR 9901060389         ',186,00
DATAP3:		DB	186,' TEKNIK ELEKTRO FAKULTAS TEKNIK ',186,00
DATAP4:		DB	186,'     UNIVERSITAS BRAWIJAYA      ',186,00
DATAP5:		DB	186,'                                ',186,00
DATAP6:		DB	200,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,205,188,00

PRINTP:		MOV	A,#00H
		MOVC	A,@A+DPTR
		JZ	PP000
		LCALL	PRINT
		INC	DPTR
		LJMP	PRINTP
PP000:		RET

CRLF:		MOV	A,#0DH
		LCALL	PRINT
		MOV	A,#0AH
		LCALL	PRINT
		RET

PRINTOUT:	MOV	A,#0FH
		LCALL 	PRINT
		MOV	DPTR,#DATAP0
		LCALL	PRINTP
		LCALL	CRLF
		MOV	DPTR,#DATAP1
		LCALL	PRINTP
		LCALL	CRLF
		MOV	DPTR,#DATAP2
		LCALL	PRINTP
		LCALL	CRLF
		MOV	DPTR,#DATAP3
		LCALL	PRINTP
		LCALL	CRLF
		MOV	DPTR,#DATAP4
		LCALL	PRINTP
		LCALL	CRLF
		MOV	DPTR,#DATAP5
		LCALL	PRINTP
		LCALL	CRLF
		MOV	DPTR,#DATAP6
		LCALL	PRINTP
		LCALL	CRLF
		LCALL	CRLF
		LCALL	CRLF
		RET

SELESAI:
		END

adakah yang salah dengan program ini ya? ada yang bisa bantu gak ya?

Template WordPress

cachak — Fri, 29 Apr 2005 17:31:19 +0000

huuuu akhirnya jadi juga aku bikin template setelah di bantuin oleh mas tatang dan mas dheche..
dan hasilnya adalah template yang di pakek sekarang dan aku kasih nama template sahir hehehehe

Program Assembler untuk ngetest LCD 2×16

cachak — Mon, 25 Apr 2005 16:11:47 +0000

Program ini di gunakan untuk mengetest apakah lcd bekerja dengan bener atau gak.
dalam program ini lcd di hubungkan dengan port 2 mikrokontroller dan untuk mengkompiler program ini di gunakan asm51.exe dan di writer ke mikrokontroller nya dengan menggunakan serial programming interface menggunakan asp_ic.exe

Program untuk mengetest lcd
code :


;Program ini untuk mencoba mengontrol LCD 2x16
;Nama Program : lcd.asm

p1		equ	090H		; port 1
data_lcd 	equ	0A0h	; DB0 - DB7 LCD dihubungkan dengan Port 2
p3		equ	0B0h		;keypad dihubungkan dengan Port 3

rs		equ	090h		;sinyal RS dengan P1.0
rw		equ	091h		;sinyal RW dengan P1.1
en		equ	092h		;sinyal E  dengan P1.2
psw		equ	0D0h		;psw = program status word
tmod		equ	089h		;timer mode register
th0		equ	08Ah		;timer 0 High Byte
tl0		equ	08Bh		;timer 0 Low Byte
th1		equ	08Ch		;timer 1 High Byte
tl1		equ	08Dh		;timer 1 Low Byte
tcon		equ	088H		;timer control register
acc		equ	0E0h		;

	org 0h

start:
	lcall delay_1_s
	lcall init_lcd
message:
	lcall clear_lcd
	mov dptr,#pesan1	;
	lcall kirimpesan_lcd
	lcall tulis_dibaris_bawah
	mov dptr,#pesan2	;
	lcall kirimpesan_lcd

	jmp selesai
kirimpesan_lcd:
;==============

loopkirimpesan_lcd:
	mov a,#00h
	movc a,@a+dptr
	cjne a,#0fh,kirim_lcd
	ret
kirim_lcd:
	lcall kirim_karakter
	inc dptr
	ajmp loopkirimpesan_lcd
kirim_karakter:
	lcall write_text

init_lcd:
;=======

	clr rw
	clr rs
	setb en
	mov data_lcd,#38h
	clr en
	call wait_lcd

	clr rw
	clr rs
	setb en
	mov data_lcd,#08h
	;cle en
	clr en
	call wait_lcd

	clr rs
	setb en
	mov data_lcd,#0eh
	clr en
	call wait_lcd

	clr rs
	setb en
	mov data_lcd,#06h
	clr en
	call wait_lcd
	ret

tulis_dibaris_bawah:
	clr rw
	clr rs
	setb en
	mov data_lcd,#0c0h
	clr en
	lcall wait_lcd
	ret

clear_lcd:
	setb en
	clr rs
	mov data_lcd,#01h
	clr en
	lcall wait_lcd
	ret

wait_lcd:
;========
	clr rs
	setb rw
	setb en
	mov data_lcd,#0ffh
	mov a,data_lcd
	jb acc.7,wait_lcd
	clr en
	clr rw
	ret

write_text:
;==========
	clr rw
	setb rs
	setb en
	mov data_lcd,a
	clr en
	lcall wait_lcd
	ret

pesan1:
	db 'SAHIR',0fh
pesan2:
	db 'Teknik Elektro',0fh

delay_50_ms:
	mov	tmod,#01h
	mov	th0,#034h
	mov	tl0,#08ch
;	setb	tr0
	setb	tcon.4		; tcon.4 = tr0
count_50_ms:
;	jbc	tf0,finish_50_ms
	jbc	tcon.5,finish_50_ms	; tcon.5 = tf0
	sjmp	count_50_ms
finish_50_ms:
	ret
;============
delay_200_us:
	mov	tmod,#01h
	mov	th0,#0ffh
	mov	tl0,#02fh
;	setb	tr0
	setb	tcon.4		; tcon.4 = tr0
count_200_us:
;	jbc	tf0,finish_200_us
	jbc	tcon.5,finish_200_us	; tcon.5 = tf0
	sjmp	count_200_us
finish_200_us:
	ret
;============
delay_1_s:
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	call delay_50_ms
	ret
selesai:

end	;end program