bascom driver converter

-

$regfile = "89c51cc.dat"
$crystal = 11059200
$baud = 9600


'52 bit data
Dim D0 As Byte
Dim D1 As Byte
Dim D2 As Byte
Dim D3 As Byte
Dim D4 As Byte
Dim D5 As Byte
Dim D6 As Byte
Dim D7 As Byte
Dim D8 As Byte
Dim D9 As Byte
Dim D10 As Byte
Dim D11 As Byte
Dim D12 As Byte
Dim D13 As Byte
Dim Isi As String * 3
Dim I As Integer
Dim X As Integer
Declare Sub Baca

Datax Alias P0.3
Clock Alias P0.1
Req Alias P0.2

 Print "TESTER"

Do

Req = 0
Clock = 1

 Input Isi Noecho

   If Isi = "1" Then
'       Print "baca sekali"
       Call Baca
   End If

   If Isi = "2" Then
       Print "baca 100 kali"

       For X = 1 To 100
 '      Waitms 200
       Call Baca

       Next X

   End If

Loop



Sub Baca:
Req = 1

       For I = 1 To 13
       D0 = 0

       Bitwait Clock , Reset
       D0.0 = Datax
       Req = 0
       Bitwait Clock , Set


       Bitwait Clock , Reset
       D0.1 = Datax
       Bitwait Clock , Set

       Bitwait Clock , Reset
       D0.2 = Datax
       Bitwait Clock , Set

       Bitwait Clock , Reset
       D0.3 = Datax
       Bitwait Clock , Set


       D13 = D12
       D12 = D11
       D11 = D10
       D10 = D9
       D9 = D8
       D8 = D7
       D7 = D6
       D6 = D5
       D5 = D4
       D4 = D3
       D3 = D2
       D2 = D1
       D1 = D0


       Next I

       D0 = Inkey
       D0 = Inkey
       D0 = Inkey

      Print D9 ; D8 ; D7 ; D6 ; D5 ; "," ; D4 ; D3


End Sub

Postingan populer dari blog ini

LCD 2x16 via ESP32

-
 Kalau menggunakan ESP32-S3 dengan konfigurasi: SDA → GPIO8 SCL → GPIO9 LCD 16x2 + modul I2C (PCF8574) Berikut contoh program sederhana di Arduino IDE untuk menampilkan: Hallo ESP32 1. Install Library Di Arduino IDE buka: Sketch → Include Library → Manage Libraries Install: hd44780 by Bill Perry Library ini lebih modern, lebih stabil, dan bisa otomatis mendeteksi alamat I2C. Cari di Library Manager: hd44780 Contoh programnya: #include <Wire.h> #include <hd44780.h> #include <hd44780ioClass/hd44780_I2Cexp.h> hd44780_I2Cexp lcd ; void setup () { Wire .begin( 8 , 9 ); lcd .begin( 16 , 2 ); lcd .backlight(); lcd .setCursor( 0 , 0 ); lcd .print( "Hallo" ); lcd .setCursor( 0 , 1 ); lcd .print( "ESP32" ); } void loop () { } Kelebihannya: Tidak perlu tahu alamat 0x27 atau 0x3F. Bisa mendeteksi alamat LCD otomatis. Sangat cocok untuk ESP32.
Baca selengkapnya

Perencanaan awal ESP32 S3 testing

-
  RTC DS1302 bukan perangkat I2C. DS1302 menggunakan antarmuka 3-wire serial , sehingga tidak bisa dipasang pada jalur SDA/SCL seperti LCD I2C. Jadi wiring-nya menjadi seperti ini. 1. LCD 16x2 I2C Misalkan kita memakai pin I2C yang umum pada ESP32-S3: LCD I2C ESP32-S3 VCC 5V (atau 3.3V jika modul mendukung) GND GND SDA GPIO 8 SCL GPIO 9 GPIO 8 dan GPIO 9 merupakan konfigurasi I2C yang umum digunakan pada banyak board ESP32-S3, meskipun sebenarnya ESP32-S3 dapat memetakan I2C ke hampir semua GPIO yang bebas. 2. RTC DS1302 DS1302 mempunyai pin: VCC GND CLK DAT (IO) RST/CE Contoh wiring: DS1302 ESP32-S3 VCC 3.3V GND GND CLK GPIO 4 DAT GPIO 5 RST/CE GPIO 6 P...
Baca selengkapnya

winsocket vb.net

-
Imports System.Net ' for IPAddress Imports System.Net.Sockets 'for TcpListener Module Module1     Sub Main()         Dim port As Integer 'this is the port number         Dim localAddr As IPAddress ' this is the IP address         Dim server As    TcpListener ' This is for the TCP/IP Protocol         Try             'define the two values for your Server             port = 1234             localAddr = IPAddress .Loopback 'loopbak = 127.0.0.1 = myself             'Create your server             server = New...
Baca selengkapnya