O
onemilimeter
Guest
Demo versi PRO PICBASIC tidak berfungsi penuh.Apakah keterbatasan?Terima kasih.
Navigation
Install the app
How to install the app on iOS
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
More options
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
N
news
Guest
Na początku maja br. media obiegła wiadomość o kradzieży danych 1,3 miliona francuskich klientów operatora Orange. Coraz więcej firm pada ofiarą ukierunkowanych ataków hakerów. Dotyczą one nie tylko korporacji, ale w dużej mierze sektora MŚP. Utrata poufnych informacji to prawdziwa katastrofa biznesowa, oznacza straty finansowe i kładzie się cieniem na wizerunku firmy.
Read more...
Read more...
R
rkodaira
Guest
Hai!
Jika saya tidak salah, larangan utama dari program versi demo:
- Terbatas pada beberapa beberapa model PIC (dan yang paling umum digunakan) dan 25 baris perintah (tidak termasuk judul dan konfigurasi baris).
I think 25 baris tidak berguna untuk aplikasi apapun, kecuali untuk membuat leds blink atau say "hello" ke LCD.
Jika saya tidak salah, larangan utama dari program versi demo:
- Terbatas pada beberapa beberapa model PIC (dan yang paling umum digunakan) dan 25 baris perintah (tidak termasuk judul dan konfigurasi baris).
I think 25 baris tidak berguna untuk aplikasi apapun, kecuali untuk membuat leds blink atau say "hello" ke LCD.
S
SAR
Guest
Berikut adalah keterbatasan resmi:
http://www.mecanique.co.uk/products/compiler/pbp-demo-limits.html
http://www.mecanique.co.uk/products/compiler/pbp-demo-limits.html
O
onemilimeter
Guest
Memungkinkan untuk berbagi satu contoh yang dapat dikompilasi dalam salinan yang berlisensi, tapi tidak dalam versi demo?Terima kasih.
O
onemilimeter
Guest
Do you think ini dapat dikompilasi PICBASIC PRO dalam versi demo?
Kode:'************************************************* ***************
'* Nama: * SLED4_2.BAS
'* Pengarang: Bruce Reynolds *
'* Notice: Copyright (c) 2004 Reynolds Elektronik *
'*: * All Rights Reserved
'* Date: 7/02/2004 *
'* Versi: 1.0 *
'* Catatan: Uji rutinitas untuk SLED4 4-angka serial *
'*: LED menampilkan modul *
'************************************************* ***************
'PIC16F876A @ 20MHz w / boot loaderDefine OSC 20
Define LOADER_USED 1
TERMASUK "modedefs.bas"ID Var PORTB.5 'Enable pin
CLK Var PORTB.6 'Jam pin
DOUT Var PORTB.7 'Data keluar pin
Var X WORD 'GP var
Var Y Byte 'GP var
'Bank # 1 mengontrol titik dua ":"
D2 Var Byte 'Bank # 2 kanan LED angka
D3 Var Byte 'Bank # 3
D4 Var Byte 'Bank # 4
D5 Var Byte 'Bank kiri LED # 5 angka
CFG Var Byte 'memegang layar bank / config nilai angkaTRISB = 0Utama:
GoSub Counter2 'Count 0-1000
GoSub LampTest 'LAMPU tes dengan 8,8.: 8,8.
Berkedip
GoSub Jam '4 digit jam 16:50-17:00 w / berkedip titik dua
GoSub Counter0 'Colon 100% ON terang, hitung di kanan 2, kemudian 50% di kiri 2
GoSub Bantuan 'Tampilkan HELP pulsing kecerahan dari 50% sampai 100%
GoSub Counter1 'Counte 9994-0000 @ 50% brightness
GoSub Ouch 'Tampilkan OUCH pulsing kecerahan dari 50% sampai 100%
Goto UtamaCounter0: "Count 00-14h di kanan 100% terang, kemudian dihitung pada kiri dengan terang 50%
CFG =% 11110001 'Digit 5,4 khusus membaca sandi / OFF, 3,2,1 Hex membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar'Sekarang menulis data ke layar
Untuk X = 0 TO 20 'Count 0 hingga 14h pada angka 3 & 2 dengan terkemuka 0 blanking
EN = 0 'Tampilkan bank 5 4 3 \ 2: = ON
ShiftOut DOUT, CLK, MSBFIRST, [% 1000 \ 4, $ 0 \ 4, $ 0 \ 4, X, $ 2 \ 4]
EN = 1 'Transfer data ke dalam layar register
Jeda 150 'Jeda 150mS
Berikut XCFG =% 11001101 'Digit Hex 5,4,1 membaca sandi, khusus 3,2 / OFF
GoSub Konfigurasi 'Konfigurasikan layarUntuk X = 0 TO 20 'Count 14h dari 0 sampai pada angka 5 & 4 dengan terkemuka 0 blanking
EN = 0 'Aktifkan data input 5 \ 4 3 2: = ON
ShiftOut DOUT, CLK, MSBFIRST, [% 0000 \ 4, X, $ 0 \ 4, $ 0 \ 4, $ 2 \ 4]
EN = 1 'Transfer data ke dalam layar register
Jeda 150 'Tampilkan count 0 sampai 14h
Berikut X
Jeda 500
KembaliCounter1: "Count 9994-0000
CFG =% 11000011 'Digit 5,4,3,2 Hex membaca sandi, 1 khusus membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar'Sekarang menulis data ke layar
D5 = 9: D4 = 9: D3 = 9: D2 = 4 'Load counter pada 9994 dengan mulai
Untuk X = 0 TO 6 'Count 9994-0000
EN = 0 'Aktifkan data masukan
JIKA D2> 9 Kemudian D2 = 0: D3 = D3 1 'setiap kenaikan tinggi pada angka # 9
JIKA D3> 9 Kemudian D3 = 0: D4 = D4 1 'nilai lebih rendah dari setiap angka # untuk BCD
JIKA D4> 9 Kemudian D4 = 0: D5 = D5 1 'dihitung
JIKA D5> 9 Kemudian D5 = 0 'terang 5 4 3 2: = OFF
ShiftOut DOUT, CLK, MSBFIRST, [% 0000 \ 4, D5 \ 4, D4 \ 4, D3 \ 4, D2 \ 4, $ 0 \ 4]
EN = 1 'Transfer data ke dalam layar register
Jeda 500 'Tanpa jeda, layar dapat dihitung 0-9999 di ~ 6 detik
D2 = D2 1 'increment counter
Berikut X
Jeda 500
KembaliCounter2: "Count 0-1000
CFG =% 11000011 'Digit 5,4,3,2 Hex membaca sandi, 1 khusus membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar'Sekarang menulis data ke layar
D5 = 0: D4 = 0: D3 = 0: D2 = 0 'Load counter pada 0000 dengan mulai
Untuk X = 0 TO 1000 'Count 0-1000
EN = 0 'Aktifkan data masukan
JIKA D2> 9 Kemudian D2 = 0: D3 = D3 1 'setiap kenaikan tinggi pada angka # 9
JIKA D3> 9 Kemudian D3 = 0: D4 = D4 1 'nilai lebih rendah dari setiap angka # untuk BCD
JIKA D4> 9 Kemudian D4 = 0: D5 = D5 1 'dihitung
JIKA D5> 9 Kemudian D5 = 0 'terang 5 4 3 2: = OFF
ShiftOut DOUT, CLK, MSBFIRST, [% 0000 \ 4, D5 \ 4, D4 \ 4, D3 \ 4, D2 \ 4, $ 0 \ 4]
EN = 1 'Transfer data ke dalam layar register
Jeda 20 'Tanpa jeda, layar counts 0-9999 di ~ 6 detik
D2 = D2 1 'increment counter
Berikut X
Jeda 500
KembaliHelp: 'Tampilkan HELP toggling sementara kecerahan dari 100% menjadi 50%
CFG =% 11101111 'Digit 5,3,2,1 khusus membaca sandi, 4 Hex membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar'Sekarang menulis untuk menampilkan HELP berkedip 50% sampai 100% kecerahan
Y =% 00001111 'Setup 3 bit untuk toggling kecerahan layar
Untuk X = 0 TO 4 'dan semua DP's ON
EN = 0 'Aktifkan data masukan
Y.0 [3] = Y.0 [3] ^ 1 'Flip Y.bit.3 oleh XOR-ing dengan 1 [Dim = 0, 1 = CERAH]
Y = kecerahan & DP dari 5 4 3 2: = OFF
ShiftOut DOUT, CLK, MSBFIRST, [Y \ 4, $ 2 \ 4, $ E \ 4, $ 5 \ 4, $ 8 \ 4, $ 0 \ 4]
EN = 1 'Transfer data ke dalam layar register
Jeda 200
Berikut X
Jeda 500
KembaliOuch: 'Tampilkan OUCH toggling sementara kecerahan dari 100% menjadi 50%
CFG =% 11010111 'Khusus membaca sandi 4,2,1.
3,5 Hex membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar'Sekarang menulis untuk menampilkan OUCH
Y =% 00001000 'Set bit 3 untuk toggling kecerahan & semua DP's OFF
Untuk X = 0 TO 4
EN = 0 'Aktifkan data masukan
Y.0 [3] = Y.0 [3] ^ 1 'Flip Y.bit.3 oleh XOR-ing dengan 1 [Dim = 0, 1 = CERAH]
'5 4 3 2: = OFF
ShiftOut DOUT, CLK, MSBFIRST, [Y \ 4, $ 0 \ 4, $ A \ 4, $ C \ 4, $ 2 \ 4, $ 0 \ 4]
'^ --- 3 dari 4 bit-bit nilai toggles kecerahan
EN = 1 'Transfer data ke dalam layar register
Jeda 200
Berikut X
Jeda 500
KembaliLampTest: "LAMPU pengujian untuk menampilkan 8,8.: 8,8.
CFG =% 11000001 'Semua angka normal Hex membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar'Sekarang menulis 8,8.: 8,8.
EN = 0 '5 = 8 4 = 8 3 = 8 2 = 8: = ON
ShiftOut DOUT, CLK, MSBFIRST, [$ M \ 4, $ 8 \ 4, $ 8 \ 4, $ 8 \ 4, $ 8 \ 4, $ 2 \ 4]
'^ - Terang layar semua DP's ON
EN = 1 'Transfer data ke dalam layar register
Jeda 3000
'Sekarang layar berkedip ON & OFF 3 kali
'Catatan: Toggling bit.0 dari 8-bit byte toggles konfigurasi yang
'Pada layar (1) & MATI (0) biasa / rendah daya mode
Untuk X = 0 TO 2
CFG =% 11000000 'Semua angka Hex membaca sandi / off display
GoSub Konfigurasi 'Konfigurasikan layar
Jeda 250
CFG =% 11000001 'Semua angka Hex membaca sandi / layar ON
GoSub Konfigurasi 'Konfigurasikan layar
Jeda 250
Berikut X
KembaliJam: "24-jam waktu dari 16:50 ke 17:00 w / berkedip titik dua
CFG =% 11000011 '5,4,3,2 Hex membaca sandi, 1 khusus membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar
Y = 8 'Digunakan untuk beralih titik dua.
8 = ON, 0 = OFF'Sekarang menulis data ke layar
D5 = 1: D4 = 6: D3 = 5: D2 = 0 'Set waktu ke jam 16:50
Untuk X = 0 TO 10 'Tampilan waktu jam 16:50-17:00
EN = 0 'Aktifkan data masukan
JIKA D2> 9 Kemudian D2 = 0: D3 = D3 1 'setiap kenaikan tinggi pada angka 9
JIKA D3> 5 Lalu D3 = 0: D4 = D4 1 'Ranjang-lebih dari 59 menit
JIKA D4> 9 Kemudian D4 = 0: D5 = D5 1 'Ranjang-lebih dari puluhan jam untuk hari
JIKA D5> 2 Kemudian D5 = 0 'Jangan pernah> 2 selama 10 jam dari angka
IF (D5 = 2) DAN (D4> 3) Maka 'Ranjang-dari 23:59 ke 00:00
D5 = 0: D4 = 0
Endif '5 = 1 4 = 6 3 = 5 2 = 0: = berkedip
ShiftOut DOUT, CLK, MSBFIRST, [% 0000 \ 4, D5 \ 4, D4 \ 4, D3 \ 4, D2 \ 4, Y \ 4]
Y = Y ^ 8 '8 ^ 8 = 0, 0 ^ 8 = 8
EN = 1 'Transfer data ke dalam layar register
Jeda 250 'Perbarui frekuensi atau jam ticks
D2 = D2 1 'kenaikan angka rendah counter
Berikut X
Jeda 500
KembaliConfig:
EN = 0 'Aktifkan data masukan
ShiftOut DOUT, CLK, MSBFIRST, [CFG] Message mendaftar untuk menampilkan konfigurasi
EN = 1 'Transfer data ke dalam layar register
KembaliAkhir
Kode:'************************************************* ***************
'* Nama: * SLED4_2.BAS
'* Pengarang: Bruce Reynolds *
'* Notice: Copyright (c) 2004 Reynolds Elektronik *
'*: * All Rights Reserved
'* Date: 7/02/2004 *
'* Versi: 1.0 *
'* Catatan: Uji rutinitas untuk SLED4 4-angka serial *
'*: LED menampilkan modul *
'************************************************* ***************
'PIC16F876A @ 20MHz w / boot loaderDefine OSC 20
Define LOADER_USED 1
TERMASUK "modedefs.bas"ID Var PORTB.5 'Enable pin
CLK Var PORTB.6 'Jam pin
DOUT Var PORTB.7 'Data keluar pin
Var X WORD 'GP var
Var Y Byte 'GP var
'Bank # 1 mengontrol titik dua ":"
D2 Var Byte 'Bank # 2 kanan LED angka
D3 Var Byte 'Bank # 3
D4 Var Byte 'Bank # 4
D5 Var Byte 'Bank kiri LED # 5 angka
CFG Var Byte 'memegang layar bank / config nilai angkaTRISB = 0Utama:
GoSub Counter2 'Count 0-1000
GoSub LampTest 'LAMPU tes dengan 8,8.: 8,8.
Berkedip
GoSub Jam '4 digit jam 16:50-17:00 w / berkedip titik dua
GoSub Counter0 'Colon 100% ON terang, hitung di kanan 2, kemudian 50% di kiri 2
GoSub Bantuan 'Tampilkan HELP pulsing kecerahan dari 50% sampai 100%
GoSub Counter1 'Counte 9994-0000 @ 50% brightness
GoSub Ouch 'Tampilkan OUCH pulsing kecerahan dari 50% sampai 100%
Goto UtamaCounter0: "Count 00-14h di kanan 100% terang, kemudian dihitung pada kiri dengan terang 50%
CFG =% 11110001 'Digit 5,4 khusus membaca sandi / OFF, 3,2,1 Hex membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar'Sekarang menulis data ke layar
Untuk X = 0 TO 20 'Count 0 hingga 14h pada angka 3 & 2 dengan terkemuka 0 blanking
EN = 0 'Tampilkan bank 5 4 3 \ 2: = ON
ShiftOut DOUT, CLK, MSBFIRST, [% 1000 \ 4, $ 0 \ 4, $ 0 \ 4, X, $ 2 \ 4]
EN = 1 'Transfer data ke dalam layar register
Jeda 150 'Jeda 150mS
Berikut XCFG =% 11001101 'Digit Hex 5,4,1 membaca sandi, khusus 3,2 / OFF
GoSub Konfigurasi 'Konfigurasikan layarUntuk X = 0 TO 20 'Count 14h dari 0 sampai pada angka 5 & 4 dengan terkemuka 0 blanking
EN = 0 'Aktifkan data input 5 \ 4 3 2: = ON
ShiftOut DOUT, CLK, MSBFIRST, [% 0000 \ 4, X, $ 0 \ 4, $ 0 \ 4, $ 2 \ 4]
EN = 1 'Transfer data ke dalam layar register
Jeda 150 'Tampilkan count 0 sampai 14h
Berikut X
Jeda 500
KembaliCounter1: "Count 9994-0000
CFG =% 11000011 'Digit 5,4,3,2 Hex membaca sandi, 1 khusus membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar'Sekarang menulis data ke layar
D5 = 9: D4 = 9: D3 = 9: D2 = 4 'Load counter pada 9994 dengan mulai
Untuk X = 0 TO 6 'Count 9994-0000
EN = 0 'Aktifkan data masukan
JIKA D2> 9 Kemudian D2 = 0: D3 = D3 1 'setiap kenaikan tinggi pada angka # 9
JIKA D3> 9 Kemudian D3 = 0: D4 = D4 1 'nilai lebih rendah dari setiap angka # untuk BCD
JIKA D4> 9 Kemudian D4 = 0: D5 = D5 1 'dihitung
JIKA D5> 9 Kemudian D5 = 0 'terang 5 4 3 2: = OFF
ShiftOut DOUT, CLK, MSBFIRST, [% 0000 \ 4, D5 \ 4, D4 \ 4, D3 \ 4, D2 \ 4, $ 0 \ 4]
EN = 1 'Transfer data ke dalam layar register
Jeda 500 'Tanpa jeda, layar dapat dihitung 0-9999 di ~ 6 detik
D2 = D2 1 'increment counter
Berikut X
Jeda 500
KembaliCounter2: "Count 0-1000
CFG =% 11000011 'Digit 5,4,3,2 Hex membaca sandi, 1 khusus membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar'Sekarang menulis data ke layar
D5 = 0: D4 = 0: D3 = 0: D2 = 0 'Load counter pada 0000 dengan mulai
Untuk X = 0 TO 1000 'Count 0-1000
EN = 0 'Aktifkan data masukan
JIKA D2> 9 Kemudian D2 = 0: D3 = D3 1 'setiap kenaikan tinggi pada angka # 9
JIKA D3> 9 Kemudian D3 = 0: D4 = D4 1 'nilai lebih rendah dari setiap angka # untuk BCD
JIKA D4> 9 Kemudian D4 = 0: D5 = D5 1 'dihitung
JIKA D5> 9 Kemudian D5 = 0 'terang 5 4 3 2: = OFF
ShiftOut DOUT, CLK, MSBFIRST, [% 0000 \ 4, D5 \ 4, D4 \ 4, D3 \ 4, D2 \ 4, $ 0 \ 4]
EN = 1 'Transfer data ke dalam layar register
Jeda 20 'Tanpa jeda, layar counts 0-9999 di ~ 6 detik
D2 = D2 1 'increment counter
Berikut X
Jeda 500
KembaliHelp: 'Tampilkan HELP toggling sementara kecerahan dari 100% menjadi 50%
CFG =% 11101111 'Digit 5,3,2,1 khusus membaca sandi, 4 Hex membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar'Sekarang menulis untuk menampilkan HELP berkedip 50% sampai 100% kecerahan
Y =% 00001111 'Setup 3 bit untuk toggling kecerahan layar
Untuk X = 0 TO 4 'dan semua DP's ON
EN = 0 'Aktifkan data masukan
Y.0 [3] = Y.0 [3] ^ 1 'Flip Y.bit.3 oleh XOR-ing dengan 1 [Dim = 0, 1 = CERAH]
Y = kecerahan & DP dari 5 4 3 2: = OFF
ShiftOut DOUT, CLK, MSBFIRST, [Y \ 4, $ 2 \ 4, $ E \ 4, $ 5 \ 4, $ 8 \ 4, $ 0 \ 4]
EN = 1 'Transfer data ke dalam layar register
Jeda 200
Berikut X
Jeda 500
KembaliOuch: 'Tampilkan OUCH toggling sementara kecerahan dari 100% menjadi 50%
CFG =% 11010111 'Khusus membaca sandi 4,2,1.
3,5 Hex membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar'Sekarang menulis untuk menampilkan OUCH
Y =% 00001000 'Set bit 3 untuk toggling kecerahan & semua DP's OFF
Untuk X = 0 TO 4
EN = 0 'Aktifkan data masukan
Y.0 [3] = Y.0 [3] ^ 1 'Flip Y.bit.3 oleh XOR-ing dengan 1 [Dim = 0, 1 = CERAH]
'5 4 3 2: = OFF
ShiftOut DOUT, CLK, MSBFIRST, [Y \ 4, $ 0 \ 4, $ A \ 4, $ C \ 4, $ 2 \ 4, $ 0 \ 4]
'^ --- 3 dari 4 bit-bit nilai toggles kecerahan
EN = 1 'Transfer data ke dalam layar register
Jeda 200
Berikut X
Jeda 500
KembaliLampTest: "LAMPU pengujian untuk menampilkan 8,8.: 8,8.
CFG =% 11000001 'Semua angka normal Hex membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar'Sekarang menulis 8,8.: 8,8.
EN = 0 '5 = 8 4 = 8 3 = 8 2 = 8: = ON
ShiftOut DOUT, CLK, MSBFIRST, [$ M \ 4, $ 8 \ 4, $ 8 \ 4, $ 8 \ 4, $ 8 \ 4, $ 2 \ 4]
'^ - Terang layar semua DP's ON
EN = 1 'Transfer data ke dalam layar register
Jeda 3000
'Sekarang layar berkedip ON & OFF 3 kali
'Catatan: Toggling bit.0 dari 8-bit byte toggles konfigurasi yang
'Pada layar (1) & MATI (0) biasa / rendah daya mode
Untuk X = 0 TO 2
CFG =% 11000000 'Semua angka Hex membaca sandi / off display
GoSub Konfigurasi 'Konfigurasikan layar
Jeda 250
CFG =% 11000001 'Semua angka Hex membaca sandi / layar ON
GoSub Konfigurasi 'Konfigurasikan layar
Jeda 250
Berikut X
KembaliJam: "24-jam waktu dari 16:50 ke 17:00 w / berkedip titik dua
CFG =% 11000011 '5,4,3,2 Hex membaca sandi, 1 khusus membaca sandi
GoSub Konfigurasi 'Konfigurasikan layar
Y = 8 'Digunakan untuk beralih titik dua.
8 = ON, 0 = OFF'Sekarang menulis data ke layar
D5 = 1: D4 = 6: D3 = 5: D2 = 0 'Set waktu ke jam 16:50
Untuk X = 0 TO 10 'Tampilan waktu jam 16:50-17:00
EN = 0 'Aktifkan data masukan
JIKA D2> 9 Kemudian D2 = 0: D3 = D3 1 'setiap kenaikan tinggi pada angka 9
JIKA D3> 5 Lalu D3 = 0: D4 = D4 1 'Ranjang-lebih dari 59 menit
JIKA D4> 9 Kemudian D4 = 0: D5 = D5 1 'Ranjang-lebih dari puluhan jam untuk hari
JIKA D5> 2 Kemudian D5 = 0 'Jangan pernah> 2 selama 10 jam dari angka
IF (D5 = 2) DAN (D4> 3) Maka 'Ranjang-dari 23:59 ke 00:00
D5 = 0: D4 = 0
Endif '5 = 1 4 = 6 3 = 5 2 = 0: = berkedip
ShiftOut DOUT, CLK, MSBFIRST, [% 0000 \ 4, D5 \ 4, D4 \ 4, D3 \ 4, D2 \ 4, Y \ 4]
Y = Y ^ 8 '8 ^ 8 = 0, 0 ^ 8 = 8
EN = 1 'Transfer data ke dalam layar register
Jeda 250 'Perbarui frekuensi atau jam ticks
D2 = D2 1 'kenaikan angka rendah counter
Berikut X
Jeda 500
KembaliConfig:
EN = 0 'Aktifkan data masukan
ShiftOut DOUT, CLK, MSBFIRST, [CFG] Message mendaftar untuk menampilkan konfigurasi
EN = 1 'Transfer data ke dalam layar register
KembaliAkhir
M
meax98
Guest
Tidak, ia tidak bisa, karena Anda menggunakan perintah TERMASUK.Batas 31 baris dan kode perintah tanpa TERMASUK.
salam
meax98
salam
meax98