OSO STC8H1K28

OSO-STC development board microcontroller STC8H1K28

programing mendukung :
keil C51 uvision 4
platformio intel-C51
bascom 8051

8051-based microcontroller with 1T(1-clock) High-Speed Core,
Up to 29 I/O Lines,
5 Timers/Counters,
Build-in up to 35MHz oscillator,
28K bytes flash ROM,
1024 bytes data RAM,
On-chip EEPROM,
2 UARTs,
WDT,
ISP/IAP,
PWM,
CMP,
ADC,
I2C,
SPI

gb1: board oso-stc8h1k28

sample program dan software keil c51 download

#include <reg51.h>

sbit led1 = P3 ^ 3;    //pin output P33
sbit led2 = P3 ^ 4;    //pin output P34
sfr P3M0 = 0xb2;
sfr P3M1 = 0xb1;

void Delay1000ms() //@11.0592MHz
{
  unsigned char i, j, k;
  i = 43;
  j = 6;
  k = 203;
  do
  {
    do
    {
      while (--k)
        ;
    } while (--j);
  } while (--i);
}

void main()
{
  P3M0 = 0x18;
  P3M1 = 0x00;

  while (1)
  {
    led1 = !led1;
    led2 = !led2;
    Delay1000ms();
  }
}

gb2: koneksi downloader

gb3: top

gb4: bootom

gb5: port pin

No Wa : OSO 08982762476

3D minsys at89s52

3D minsys at89s52

JAM DIGITAL 7 Segment AT89s52

JAM DIGITAL 7 Segment AT89s52

Ukuran PCB 100 mm x 100 mm

program JAM DIGITAL 7 Segment AT89s52 menggunakan BASCOM 8051
$crystal = 12000000

' ------------------------------------------alokasi memori-----------------------------------------'
Dim Detik_sat As Byte , Detik_pul As Byte
Dim Menit_sat As Byte , Menit_pul As Byte
Dim Jam_sat As Byte , Jam_pul As Byte
Dim X As Word , Data_segment As Byte

'-----------------------------------Konfigurasi interupsi------------------------------------------'
 Porta Alias P2
 Portd.0 Alias P3.0
 Portd.1 Alias P3.1
 Portd.2 Alias P3.2
 Portd.3 Alias P3.3
 Portd.4 Alias P3.4
 Portd.5 Alias P3.5
 Pinb.0 Alias P0.0
 Pinb.1 Alias P0.1
 Portd Alias P3
 P2 = 255
 P3 = 255
 Portb Alias P0
 P0 = 255
 P1 = 0

'----------------------------------Program utama----------------------------------------------------'
Do
Gosub Baca_tombol                                             'Gosub Display_detik
Gosub Kalkulasi
Gosub Tampil_segment
Incr Detik_sat
Loop


'---------------------------------------Sub Program--------------------------------------------------'
Kalkulasi:
If Detik_sat = 10 Then
    Detik_sat = 0
    Incr Detik_pul
End If

If Detik_pul = 6 Then
    Detik_pul = 0
    Incr Menit_sat
End If

If Menit_sat = 10 Then
    Menit_sat = 0
    Incr Menit_pul
End If

If Menit_pul = 6 Then
    Menit_pul = 0
    Incr Jam_sat
End If

If Jam_sat = 10 Then
    Jam_sat = 0
    Incr Jam_pul
End If

If Jam_pul = 1 And Jam_sat = 2 Then
    Jam_sat = 0
    Jam_pul = 0
End If

Return

'------------------------------------Tampilan------------------------------------'
Tampil_segment:
For X = 1 To 157
   Portd = &B01000000
     Data_segment = Lookup(detik_sat , 7_seg1)
     P1 = Not Data_segment
     Waitms 1
   Portd = &B00100000
     Data_segment = Lookup(detik_pul , 7_seg)
     Porta = Not Data_segment
     Waitms 1
   Portd = &B00000001
     Data_segment = Lookup(menit_sat , 7_seg)
     Porta = Not Data_segment
     Waitms 1
   Portd = &B00000010
     Data_segment = Lookup(menit_pul , 7_seg)
     Porta = Not Data_segment
     Waitms 1
   Portd = &B00000100
     Data_segment = Lookup(jam_sat , 7_seg)
     Porta = Not Data_segment
     Waitms 1
   Portd = &B00001000
     Data_segment = Lookup(jam_pul , 7_seg)
     Porta = Not Data_segment
     Waitms 1
Next X
   Portd = 255
Return

'-------------------------------------Baca tombol-------------------------------------'
Baca_tombol:
If Pinb.0 = 0 Then
Incr Menit_sat
Gosub Tampil_segment
End If

If Pinb.1 = 0 Then
Incr Jam_sat
Gosub Tampil_segment
End If
Return

'--------------------------------------Data 7-segment-----------------------------------------
7_seg:
Data &B00111111                                               '0
Data &B00000110                                               '1
Data &B11011011                                               '2
Data &B11001111                                               '3
Data &B11100110                                               '4
Data &B01101101                                               '5
Data &B01111101                                               '6
Data &B10000111                                               '7
Data &B11111111                                               '8
Data &B11101111                                               '9
Return

7_seg1:
Data &B00000000
Data &B10000000
Data &B00000000
Data &B10000000
Data &B00000000
Data &B10000000
Data &B00000000
Data &B10000000
Data &B00000000
Data &B10000000
Return

Semoga membantu  dengan postingan program JAM DIGITAL 7 Segment AT89s52 menggunakan BASCOM 8051

LCD 16x2 AT89s52

TES LCD 16x2

 

 Tes LCD 16x2 AT89s52

$crystal = 12000000
$baud = 9600
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = P1.3 , Db5 = P1.2 , Db6 = P1.1
Config Lcdpin = Pin , Db7 = P1.0 , E = P1.4 , Rs = P1.5
Cursor Off
Cls
Wait 2
Cls
Locate 1 , 7
Lcd "ASA"
Wait 2
Locate 2 , 2
Lcd "HAYANG TORPEDO"
Wait 10