Für 64Bit Programieren?

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von m0nst3rkill3r.

    Hi, danke für deine Hilfe.
    Hier ist mein Code.

    VB.NET-Quellcode

    1. Imports System.Xml
    2. Imports System.IO
    3. Imports System.Net
    4. Imports System.Text
    5. Imports GammaJul.LgLcd
    8. ''' <summary>
    9. ''' The main module which runs when the program is executed
    10. ''' </summary>
    11. ''' <remarks>Sub Main is the first procedure to run.</remarks>
    12. Module Main2
    13. 'Declare the LCD class
    14. Public lcd As New lcd(AddressOf ButtonPress, AddressOf ConfigPress)
    16. ''' <summary>
    17. ''' The Main subroutine of the application which runs on execution.
    18. ''' </summary>
    19. Sub Main()
    20. 'Init the LCD
    21. lcd.InitLCD("JDownloader G15 Applet")
    23. 'With the LCD initialised, lets draw something
    24. Dim x = 1
    25. While x = 1
    26. DrawLcd()
    27. lcd.UpdateLCD()
    28. End While
    30. 'Allows the application to consistently
    32. Application.Run()
    33. End Sub
    34. ''' <summary>
    35. ''' Does some sample drawing on the LCD.
    36. ''' </summary>
    37. '''
    38. ''' <remarks></remarks>
    39. '''
    42. Public Sub DrawLcd()
    44. Downloader.dwlByLink("http://localhost:10025/get/downloads/currentlist", "C:\Users\Jdown.xml")
    45. Dim img As New System.Drawing.Bitmap(160, 43)
    47. Dim screen As Drawing.Graphics = Graphics.FromImage(img)
    48. Dim strformat As New Drawing.StringFormat
    49. strformat.Alignment = StringAlignment.Center
    50. strformat.LineAlignment = StringAlignment.Center
    52. Dim m_xmlr As XmlTextReader
    55. m_xmlr = New XmlTextReader("C:\Users\Jdown.xml")
    56. m_xmlr.WhitespaceHandling = WhitespaceHandling.None
    57. m_xmlr.Read()
    58. While Not m_xmlr.EOF
    59. If m_xmlr.IsStartElement() AndAlso m_xmlr.Name = "file" Then
    60. screen.DrawString(m_xmlr.GetAttribute("file_name"), New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Pixel), Brushes.White, New RectangleF(0, 0, 170, 10))
    61. screen.DrawRectangle(Pens.White, New Rectangle(2, 13, 100, 5))
    62. screen.FillRectangle(Brushes.White, New Rectangle(2, 13, (0 + m_xmlr.GetAttribute("file_percent")), 5))
    63. screen.DrawString("" & m_xmlr.GetAttribute("file_percent") & "%", New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Pixel), Brushes.White, New RectangleF(104, 10, 170, 10))
    64. screen.DrawString(m_xmlr.GetAttribute("file_status"), New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Pixel), Brushes.White, New RectangleF(0, 20, 170, 10))
    65. screen.DrawString(m_xmlr.GetAttribute("file_package"), New Font("Arial", 10, FontStyle.Regular, GraphicsUnit.Pixel), Brushes.White, New RectangleF(0, 30, 170, 10))
    67. End If
    68. m_xmlr.Read()
    70. End While
    71. lcd.DrawLCD(img)
    72. lcd.UpdateLCD()
    73. m_xmlr.Close()
    75. End Sub
    79. ''' <summary>
    80. ''' Function to handle an LCD button being pressed.
    81. ''' </summary>
    82. ''' <param name="device">The device on which the button was pressed.</param>
    83. ''' <param name="dwButtons">The value of the button pressed.</param>
    84. ''' <param name="pContext"></param>
    85. ''' <returns></returns>
    86. ''' <remarks></remarks>
    87. Public Function ButtonPress(ByVal device As Integer, ByVal dwButtons As Integer, ByVal pContext As System.IntPtr) As Integer
    88. 'Button presses are passed to this routine
    89. Select Case dwButtons
    90. Case 1
    91. ' Button 1
    92. Case 2
    94. Case 4
    96. Case 8
    98. End Select
    99. End Function
    101. ''' <summary>
    102. ''' Function to handle the Configuration button being pressed in the LCD Manager.
    103. ''' </summary>
    104. ''' <param name="connection">The connection number of the application selected.</param>
    105. ''' <param name="pcontext"></param>
    106. ''' <returns></returns>
    107. ''' <remarks></remarks>
    108. Public Function ConfigPress(ByVal connection As Integer, ByVal pcontext As System.IntPtr) As Integer
    109. ' This function is called when the "Config" button is pressed in the Logitech LCD Manager
    111. ' If you want a form to appear to provide a GUI, then the following line works:
    112. ' Note: Just using .Show will not work [try it and see ;-)]
    114. 'However, the above line blocks the running of the application (No LCD updates)
    115. 'So instead, you can open this dialog in a new thread.
    116. 'To do this use the following code:
    118. 'Dim a As New Threading.Thread(AddressOf Showdialog)
    119. 'a.Start()
    121. ''Then create the following new subroutine
    122. ''Public Sub Showdialog()
    123. 'ConfigureScreen.ShowDialog()
    124. lcd.UpdateLCD()
    126. End Function
    128. End Module

    grüße

    Falls du dein Programm für x64 kompilieren willst, musst im Menü folgende Schritte machen:

    Erstellen > Konfigurations-Manager > Dein Projekt > Plattform > Neu > Neue Plattform > x64

    Dann alles abspeichern.

    Falls der Menüpunkt "Konfigurations-Manager" nicht erscheint, musst du davor folgende Einstellung vornehmen:

    Extras > Optionen > "Alle Einstellungen anzeigen" (Häkchen setzen)

    Allerdings garantiert das nicht, dass dein Programm dann läuft. Es ist immer wahrscheinlicher (außer bei MDX),
    dass der Fehler im Code liegt.

    mfg Lindi666

    Hi!
    Dann bekomm ich aber ne Menge warnungen :/
    und Any"PROCESSOR" sollte doch auch bei x64 funzen :/

    ohoh.. Ja, also 2 Posts übersehen^^
    Wenn ich es auf X64 stelle gibts Warnungen

    Edith:
    Habs mal jetzt als angebliche 64Bit version gekompiled. Ich schiebs mal meinen Cousain unter und gucke obs geht.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „m0nst3rkill3r“ ()

Facebook
Telefonspende