Ephyteac

Ini untuk membaca Real Time Clock semoga berhasil : $regfile = "reg51.dat" $crystal = 11059200 $baud = 9600 Dim Address As Byte , Alamat As Byte Dim Reg_sec As Byte , Reg_min As Byte , Reg_hour As Byte Dim Num_hour As Byte , Num_min As Byte , Num_sec As Byte Dim Reg_date As Byte , Reg_month As Byte , Reg_year As Byte Dim Num_date As Byte , Num_month As Byte , Num_year As Byte Dim Pm_bit As Bit Dim Masuk As String * 1 '------------------------------------------ ' config I2C bus Config Scl = P2.0 ' I2C Clock Config Sda = P2.1 ' I2C Data '------------------------------------------- Const Ds1307w = &HD0 ' Write Const Ds1307r = &HD1 ' Read Const Sec_addmap = &H00 'Const Min_addmap = &H01 'Const Hour_addmap = &H02 Const Date_addmap = &H04 'Const Month_addmap = &H05 'Const Year_addmap = &H06 Declare Sub Siapkan(alamat As Byte) Do    Input Masuk    Select Case Masuk    Case "t" : Call Read_time  ...

    Zero Detector (LM393)   Z ero Detector berfungsi untuk mendeteksi sinyal AC saat mengalami tegangan nol volt (saat zero ). ini digunakan untuk mentriger INT0 pada saat signal listrik kondisi 0

RUANG HAMPA Terkurung ku dalam dimensi khayal saat semua impian pergi tak terjadi dan semua asa terbuang tersia yang membuatku semakin rapuh dan terluka andai kini datang walau sedikit asa temani ku lewati kosong tak bertepi menarik aku dari sepinya ruang lepaskan aku dari pasung kehidupan saat tenang kembali usik lantunan bimbang kudapati silaunya secercah harapan tetapi ternyata semua terlalu gelap kini jatuh lagi otak pun tetap kosong.. .. kini ku tetap sendiri terkurung di ruang hampa ini oh khayal biarkan aku pergi jangan kau ikat aku disini . hidupku tlah butakan hatiku kehampaan mengunci langkahku hidupku ltah butakan hatiku merapuh aku disini. -*Ruang Hampa 1999*-

$regfile = "reg51.dat" $crystal = 11059200 $baud = 9600 Dim B1 As Byte , B2 As Byte , N As Byte , Status As Byte , Key As Byte Dim Caps As Bit , Caps_lock As Bit , Ctrl As Bit , Alt As Bit , Tmp As Bit Dim Temp As String * 1 Declare Sub Tx_byte(b1 As Byte) Declare Sub Rx_byte Declare Sub Kbd_status Kbd_data Alias P1.1                 ' connected with 4K7 pull up resistor Kbd_clk Alias P1.0                   ' connected with 4K7 pull up resistor Buzzer Alias P3.7                      ' for details see BASCOM51 documentation Res_sw Alias P3.5                    ' optional output (see code) Dim Frequency As C...

Berikut adalah tabel Ascii untuk keyboard standard