Stefan4

Member Since: October 3, 2009

Country: United States

  • Product LCD-08884 | about 5 years ago

    That does not work correctly:
    $regfile = “M8def.dat"
    $crystal = 1000000
    $baud = 4800
    $hwstack = 32
    $swstack = 10
    $framesize = 40
    Declare Sub Ser_cls
    Declare Sub Ser_kreis(byval X As Byte , Byval Y As Byte , Byval Radius As Byte , Byval Farbe As Byte)
    Const Befehl_folgt = &H7C
    Dim Kommando As Byte
    Do
    Call Ser_cls ‘Bildschirm loeschen
    Print "Hallo Welt ”;
    Wait 1
    Call Ser_kreis(80 , 64 , 5 , 1)
    Wait 4
    Loop
    End
    Sub Ser_cls
    Kommando = &H00
    Printbin Befehl_folgt ; Kommando; 'Bildschirm l?schen
    End Sub
    Sub Ser_demo
    Kommando = &H04
    Printbin Befehl_folgt ; Kommando; 'Demo
    End Sub
    Sub Ser_kreis(byval X As Byte , Byval Y As Byte , Byval Radius As Byte , Byval Farbe As Byte)
    Kommando = &H03
    Printbin Befehl_folgt ; Kommando ; X ; Y ; Radius ; Farbe ; 'print passed variables
    End Sub

  • Product LCD-08884 | about 5 years ago

    That works:
    $regfile = “M8def.dat"
    $crystal = 1000000
    $baud = 4800
    $hwstack = 32
    $swstack = 10
    $framesize = 40
    Declare Sub Ser_cls
    Const Befehl_folgt = &H7C
    Dim Kommando As Byte
    Do
    Call Ser_cls ‘Bildschirm loeschen
    Print "Hallo Welt ”;
    Wait 1
    'Wait 10
    Loop
    End
    Sub Ser_cls
    Kommando = &H00
    Printbin Befehl_folgt ; Kommando; 'Bildschirm l?schen
    End Sub

  • Product LCD-08884 | about 5 years ago

    Hi,
    nice display.
    Does anyone have BASCOM source code for this display?
    I have some success (writing text, Clear Screen, Call Demo Code is working) but drawing circles is only working ‘half the way’ (it draws a circle which is too bif and it prints some strange characters). Setting coordinates does not work yet.
    Thank you
    Stefan

No public wish lists :(