Visual Basic

jon2371 wrote:

sample code/form

jan212r wrote:

I want to change thye lcd display of a G510 keyboard.

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

jan212r wrote:

the price is not that high (100€ in Be)

jan212r wrote:

the older models are compatible (normaly).

jan212r wrote:

there are no real libs. only 2 dll and almost no documentation

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

jan212r wrote:

Now I already have on test program

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

Module Module1
  Public LCD As LgLcd
  Public fnt As New Font("Calibri", 8)

  'these font works for me
  'Calibri
  'batang
  'bookman old style
  'calibri
  'cambria
  'dotum
  'gulim
  'gungsuh
  'mingliu
  'ms gothic
  'nsimsun
  'pmingliu
  'simsun
  Sub main() 'args As String()
    ' LCD structures needed
    Dim conn As New lgLcdClassLibrary.lgLcd.lgLcdConnectContext()
    Dim opn As New lgLcdClassLibrary.lgLcd.lgLcdOpenContext()
    Dim bmp As New lgLcdClassLibrary.lgLcd.lgLcdBitmap160x43x1()
    Dim nAllButtonsReleased, nButton As Integer

    ' .NET drawing objects
    Dim bmpNet As Bitmap
    Dim gfx As Graphics

    ' Initialize LCD access            
    lgLcdClassLibrary.lgLcd.lgLcdInit()
    conn.appFriendlyName = "Test Application"
    conn.isAutostartable = False
    conn.isPersistent = False
    conn.connection = lgLcdClassLibrary.lgLcd.LGLCD_INVALID_CONNECTION


    lgLcdClassLibrary.lgLcd.lgLcdConnect(conn)
    opn.connection = conn.connection
    opn.index = 1

    lgLcdClassLibrary.lgLcd.lgLcdOpen(opn)
    Dim installed_fonts As New Drawing.Text.InstalledFontCollection
    Dim font_families() As FontFamily = installed_fonts.Families()

    ' Display the font families.
    'For Each font_family As FontFamily In font_families
    '  Console.Write(font_family.Name & ", ")
    'Next font_family
    Dim nCounter As Integer = 0
    Do
      Try
        fnt = New Font(font_families(nCounter).Name, 10)
      Catch ex As Exception

      End Try

      ' Graphics object
      bmpNet = New Bitmap(160, 43)
      gfx = Graphics.FromImage(bmpNet)

      ' Clear the screen            
      gfx.FillRectangle(Brushes.White, New Rectangle(0, 0, 160, 43))

      ' Drawing goes here.  We can do any .NET graphics object drawing we want.
      ' (fonts or whatever.)
      gfx.DrawString(fnt.Name, fnt, Brushes.Black, 10, 10)
      gfx.DrawString("Play    Stop     Prev     Next", fnt, Brushes.Black, 10, 27)

      ' Convert our .NET bitmap to the format that LCD wants 
      ' (treat anything non-white to be black)
      ' This is *not* the most efficient way to do this.
      bmp.hdr = New lgLcdClassLibrary.lgLcd.lgLcdBitmapHeader()
      bmp.hdr.Format = lgLcdClassLibrary.lgLcd.LGLCD_BMP_FORMAT_160x43x1
      bmp.pixels = New Byte(6879) {}

      For y As Integer = 0 To 42
        For x As Integer = 0 To 159
          Dim trueColor As Color = bmpNet.GetPixel(x, y)
          Dim nColor As Byte = CByte(If((trueColor.R = 255 AndAlso trueColor.G = 255 AndAlso trueColor.B = 255), 0, 255))

          bmp.pixels(y * 160 + x) = nColor
        Next
      Next

      ' Draw the picture.
      lgLcdClassLibrary.lgLcd.lgLcdUpdateBitmap(opn.device, bmp, lgLcdClassLibrary.lgLcd.LGLCD_PRIORITY_NORMAL)
      'bring the bitmap on the display
      lgLcdClassLibrary.lgLcd.lgLcdSetAsLCDForegroundApp(opn.device, lgLcdClassLibrary.lgLcd.LGLCD_LCD_FOREGROUND_APP_YES)
      Do
        lgLcdClassLibrary.lgLcd.lgLcdReadSoftButtons(opn.device, nButton)
      Loop Until nButton > 0
      If (nButton Or 4) = 4 Then
        nCounter -= 1
        If nCounter < 0 Then nCounter = 0
      ElseIf (nButton Or 8) = 8 Then
        nCounter += 1
        If nCounter > font_families.Count Then nCounter = font_families.Count
      End If
      Do
        lgLcdClassLibrary.lgLcd.lgLcdReadSoftButtons(opn.device, nAllButtonsReleased)
      Loop Until nAllButtonsReleased = 0
    Loop Until (nButton Or 2) = 2

    ' Shut it all down
    lgLcdClassLibrary.lgLcd.lgLcdClose(opn.device)
    lgLcdClassLibrary.lgLcd.lgLcdDisconnect(conn.connection)
    lgLcdClassLibrary.lgLcd.lgLcdDeInit()
  End Sub
End Module

jan212r wrote:

For all comments remember its quick and dirty just to find out how everythi ng works

SPSandy wrote:

The only problem is the second part of my query where-in I would like to keep a track of future installations. I would like to keep a track on whether this application is installable or not.

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

SPSandy wrote:

For example If I install a trial version somewhere, I don't want the trial version to work again after un-installing and installing it again once the trial period is over. How do I stop this?

Bastard Programmer from Hell
if you can't read my code, try converting it here[^]

void Application_Start(object sender, EventArgs e)
{
    // Code that runs on application startup
    Application["LoggedInUsers"] = 0;
}
void Session_Start(object sender, EventArgs e)
{
    // Code that runs when a new session is started
    Application.Lock();
    Application["LoggedInUsers"] = (int)Application["LoggedInUsers"] + 1;
    Application.UnLock();
}

void Session_End(object sender, EventArgs e)
{
    // Code that runs when a session ends. 
    // Note: The Session_End event is raised only when the sessionstate mode
    // is set to InProc in the Web.config file. If session mode is set to StateServer 
    // or SQLServer, the event is not raised.
    Application.Lock();
    Application["LoggedInUsers"] = (int)Application["LoggedInUsers"] - 1;
    Application.UnLock();
}