Visual Basic

Private Sub SerialPort_DataReceived1(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles sp.DataReceived
        Try
          Dim str1 As String = sp.ReadLine()
          Dim firststr As String = Mid(str1, 1, 4)
          Invoke(myDelegate1, firststr)          
          BeginInvoke(myDelegate1, firststr)
        Catch ioex As IOException
          System.Diagnostics.Debug.Print("IOException {0}", ioex.Message)
        EndTry
    End Sub

Member 10735492 wrote:

I dont know where to start.

Member 10735492 wrote:

What I would like is to be able to choose the "VarName" via a ComboBox and via a DateTimePicker the day, so as to produce a chart with "TimeString" on the X axis and "Temperature" on Y.

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

Imports System.Runtime.InteropServices

Module MsgBoxHelper
    <StructLayout(LayoutKind.Sequential)> _
    Private Structure RECT
        Public ReadOnly Left As Integer
        Public ReadOnly Top As Integer
        Public ReadOnly Right As Integer
        Public ReadOnly Bottom As Integer
    End Structure

    Private Delegate Function HookProc(ByVal code As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

    <DllImport("user32.dll", SetLastError:=True)> _
    Private Function SetWindowsHookEx(ByVal hookType As Integer, ByVal lpfn As HookProc, ByVal hMod As IntPtr, ByVal dwThreadId As Integer) As IntPtr
    End Function

    <DllImport("user32.dll")> _
    Private Function CallNextHookEx(ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function

    <DllImport("user32.dll", SetLastError:=True)> _
    Private Function UnhookWindowsHookEx(ByVal hhk As IntPtr) As Boolean
    End Function

    <DllImport("user32.dll", SetLastError:=True)> _
    Private Function GetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer) As IntPtr
    End Function

    <DllImport("kernel32.dll")> _
    Private Function GetCurrentThreadId() As Integer
    End Function

    <DllImport("user32.dll")> _
    Private Function GetWindowRect(ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
    End Function

    <DllImport("user32.dll", SetLastError:=True)> _
    Private Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, _
        ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As Integer) As Boolean
    End Function


    Private Const GWL_HINSTANCE As Integer = -6
    Private Const HCBT_ACTIVATE As Integer = 5
    Private Const SWP_NOSIZE As Integer = &H1
    Private Const SWP_NOZORDER As Integer = &H4
    Private Const SWP_NOACTIVATE As Integer = &H10
    Private Const WH_CBT As Integer = 5

    Private theForm As IWin32Window
    Private plMsgHook As IntPtr

    Public Sub CenterMessageBox(ByVal parentForm As IWin32Window)
        If parentForm Is Nothing Then
            Throw New ArgumentNullException("parentForm")
        End If

        If plMsgHook <> IntPtr.Zero Then
            Throw New InvalidOperationException("The hook is already installed.")
        End If

        theForm = parentForm

        Dim lInstance As IntPtr = GetWindowLong(parentForm.Handle, GWL_HINSTANCE)
        Dim lThreadID As Integer = GetCurrentThreadId()

        plMsgHook = SetWindowsHookEx(WH_CBT, AddressOf CenterMsgCallBack, lInstance, lThreadID)
    End Sub

    Private Function CenterMsgCallBack(ByVal code As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
        If code = HCBT_ACTIVATE Then
            Dim typFormRect As RECT
            Dim typMsgRect As RECT
            Dim lxPos As Integer, lyPos As Integer

            GetWindowRect(theForm.Handle, typFormRect)
            GetWindowRect(wParam, typMsgRect)

            lxPos = CInt((typFormRect.Left + (typFormRect.Right - typFormRect.Left) / 2) - ((typMsgRect.Right - typMsgRect.Left) / 2))
            lyPos = CInt((typFormRect.Top + (typFormRect.Bottom - typFormRect.Top) / 2) - ((typMsgRect.Bottom - typMsgRect.Top) / 2))

            SetWindowPos(wParam, IntPtr.Zero, lxPos, lyPos, 0, 0, SWP_NOSIZE Or SWP_NOZORDER Or SWP_NOACTIVATE)

            UnhookWindowsHookEx(plMsgHook)
            plMsgHook = IntPtr.Zero
            theForm = Nothing
        End If

        Return CallNextHookEx(IntPtr.Zero, code, wParam, lParam)
    End Function
End Module

CenterMessageBox(Me)
MessageBox.Show("This is a centered Message Box")

public int vl1
{
    get { return ...; }
}

public int vl1
{
    get { return ...; }
    set { ...; }
}

ource=(From t in context.Mytable Select t).Tolist

MyBindingsource.datasource=(From t in context.Mytable Select t.id , t.vl1 , t.vl2).Tolist

dilkonika wrote:

Because , if I try the following code everything works ok :

Mybindingsource.Current.vl1=25

dilkonika wrote:

MyBindingsource.datasource=(From t in context.Mytable Select t.id , t.vl1 , t.vl2).Tolist

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

MyBindingsource.datasource=(From t in context.Mytable Select t).Tolist

Mybindingsource.Current.vl1=25

dilkonika wrote:

If I use

SQL

MyBindingsource.datasource=(From t in context.Mytable Select t).Tolist

and after :

Mybindingsource.Current.vl1=25

everything is ok.

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

Sub Main()
    Dim customerType As String
    Dim unitsConsumed As Decimal = 0
    Dim costPerUnit As Decimal = 0
    Dim totalCharges As Decimal = 0
    Do
        Console.Write("Enter the customer type as commercial, industrial, or residential: ")
        customerType = Console.ReadLine()
        While customerType <> "commercial" And customerType <> "industrial" And customerType <> "residential"
            Console.WriteLine("ERROR - Enter commerical, industrial, or residential.")
            Console.Write("Enter the customer type as commercial, industrial, or residential: ")
            customerType = Console.ReadLine()
        End While
        Console.Write("Enter the units consumed: ")
        unitsConsumed = Console.ReadLine()
        While unitsConsumed < 0
            Console.WriteLine("ERROR - Please enter a value greater than zero.")
            Console.Write("Enter the units consumed. ")
            unitsConsumed = Console.ReadLine()
        End While
        If unitsConsumed <= 1000 Then
            costPerUnit = 0.5
            If unitsConsumed < 1000 Then
                costPerUnit = 0.5
                If unitsConsumed < 800 Then
                    costPerUnit = 0.65
                    If (unitsConsumed > 800) And (unitsConsumed <= 2000) Then
                        costPerUnit = 0.55
                        If unitsConsumed > 2000 Then
                            costPerUnit = 0.5
                            If unitsConsumed < 500 Then
                                costPerUnit = 0.85
                                If unitsConsumed >= 500 Then
                                    costPerUnit = 0.75
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
        totalCharges = unitsConsumed * costPerUnit
        Console.WriteLine("The total charges are: " & totalCharges)
        Console.ReadLine()
    Loop
End Sub

If x < 1000 Then
  If x < 800 Then
    If x > 2000 Then
      ' when does this line get evaluated?
      ' A: if x < 1000 AND x < 800 AND x > 2000
    End If 
  End If
End If

Member 10728667 wrote:

Commercial <= 1,000 $0.50 per unit
Commercial 1,000 < $0.50 per unit

If unitsConsumed <= 1000 Then
            costPerUnit = 0.5
            If unitsConsumed > 1000 Then

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