logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Konwersja BCD dużych liczb- BASCOM

mazomen 11 Lip 2009 09:30 2327 5
REKLAMA
  • #1 6764988
    mazomen
    Poziom 16  
    Witam.
    W książce "Mikroprocesory dla początkujących" Pan Piotr Górecki wspomniał w ćwiczeniu 30 o funkcji BIN2BCD16 do konwersji liczb 16 bitowych lecz nie udało mi się nigdzie znaleźć składni użycia tej funkcji ani w sieci ani w helpie BASCOMA.
    Proszę o pomoc.
  • REKLAMA
  • #2 6766749
    janbernat
    Poziom 38  
    Coś Ci się chyba pomyliło.
    Podaj stronę.
  • REKLAMA
  • #3 6766795
    Konto nie istnieje
    Konto nie istnieje  
  • REKLAMA
  • REKLAMA
  • Pomocny post
    #5 6767124
    janbernat
    Poziom 38  
    No, zrobiłem "przekop" i nigdzie nie znalazłem.
    Ani w helpie by ZG, ani w helpie do wersji ...
    JEST.
    W samplach.

    '--------------------------------------------------------------------------------
    'name                     : bin2bcd16.bas
    'copyright                : (c) 1995-2005, MCS Electronics
    'purpose                  : Test program for BIN to BCD Calculations
    'suited for demo          : yes
    'commercial addon needed  : no
    'use in simulator         : possible
    '--------------------------------------------------------------------------------
    ' Library sample from : Per Svensson
    '                       Monolitsystem AB
    '                       PS@monolitsystem.se
    
    $regfile = "m48def.dat"                           ' specify the used micro
    $crystal = 8000000                                ' used crystal frequency
    $baud = 19200                                     ' use baud rate
    $hwstack = 32                                     ' default use 32 for the hardware stack
    $swstack = 10                                     ' default use 10 for the SW stack
    $framesize = 40                                   ' default use 40 for the frame space
    
    '=====================  BASIC PROGRAM Bin2BCD16.BAS =======================
    'Test program for BIN to BCD Calculations
    
    'define external user library
    $lib "bcd.lbx"
    'define used function/sub
    $external Bin2bcd16
    
    'this is needed so the parameters will be placed correct on the stack
    Declare Function Bin2bcd16(binval As Word) As Long
    
    Dim S As Word
    Dim A As Long
    Dim Temp As Word
    S = &H8765
    A = &HEDCB
    Temp = 1234
    
    A = Bin2bcd16(temp)                               'call function from lib
    S = Temp
    End
  • #6 6767580
    Konto nie istnieje
    Poziom 1  
REKLAMA