.NET (Core and Framework)

Public Sub CommPortSetup()
 
        If mySerialPort.IsOpen Then
            mySerialPort.Close()
 
        End If
 
        Try
            With mySerialPort
                .PortName = "COM1"
                .BaudRate = 115200
                .DataBits = 8
                .Parity = Parity.None
                .StopBits = StopBits.One
                .Handshake = Handshake.None
                .DtrEnable = True
                .RtsEnable = True
                .NewLine = vbCrLf
            End With
            mySerialPort.Open()
            MessageBox.Show("Connected to COMMPORT1")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
        mySerialPort.WriteLine("AT+CMGF=1" & vbCrLf)
        System.Threading.Thread.Sleep(200)
        mySerialPort.WriteLine("AT+CMGS=+6390720831187" & vbCrLf)
        System.Threading.Thread.Sleep(200)
        mySerialPort.WriteLine("SUCCESS!" & vbCrLf )
        System.Threading.Thread.Sleep(200)
 

 

 

    End Sub
 
End Module

If savRequestData.PropRequestWage IsNot Nothing Then
                               wagesegment = New List(Of ReqWage)
                               For Each temp In savRequestData.PropRequestWage
                                   Dim wage As New ReqWage
                                   wage.DailyWage = IIf(Not String.IsNullOrEmpty(temp.DailyWage), IIf(Decimal.TryParse(temp.DailyWage, tempDecimal), tempDecimal, CType(Nothing, System.Nullable(Of Decimal))), CType(Nothing, System.Nullable(Of Decimal)))
                                   wage.RequestId = request_Id
                                   wage.WorkDate = temp.WorkDate
                                   wage.WorkHours = IIf(Not String.IsNullOrEmpty(temp.WorkHours), IIf(Decimal.TryParse(temp.WorkHours, tempDecimal), tempDecimal, CType(Nothing, System.Nullable(Of Decimal))), CType(Nothing, System.Nullable(Of Decimal)))
                                   wagesegment.Add(wage)
                                   requestedamount += IIf(temp.DailyWage IsNot Nothing, temp.DailyWage, 0)
                               Next
                            End If

static public int boxCount = 0;
static public TextBox[] tbox = new TextBox[16];
private void Form1_Load(object sender, EventArgs e)
{
 tbox[0] = textBox1;
 tbox[1] = textBox2;
 tbox[2] = textBox3;
 boxCount = 3;
}

private void loadBoxes()
{
 for (int x = 0; x < boxCount; x++)
 {
  if (tbox[x].Text == "")
   tbox[x].Text = "0";
 }
}

Using _databasefactory As New DatabaseFactory()
    Dim context = _databasefactory.DatabaseContext

    If Not String.IsNullOrEmpty(temp_doc_id) And Not String.IsNullOrEmpty(doc_id) Then
        Dim reqs = (From r In context.requests Where r.claim.claim_no.Equals(claim_no) And r.temp_doc_id.Equals(temp_doc_id)) 'r.empl_accnt_no.Equals(emplacctnumber) and _

        Dim i = reqs.Count()
        If Constants.EnableLogger And logr IsNot Nothing And Constants.DirectoryExists(Constants.GetLoggerDirectory()) Then
            logr.log(1, "Begin RequestEntity : UpdateOrInsertRequestDocId, claim_no, temp_doc_id, i: " + claim_no + ", " + temp_doc_id + ", " + i.ToString())
        End If

        If Constants.EnableLogger And logr IsNot Nothing And Constants.DirectoryExists(Constants.GetLoggerDirectory()) Then
            logr.log(1, "Inserting RequestEntity : UpdateOrInsertRequestDocId emplacctnumber, ManualClaimNo, doc_id, temp_doc_id, request_status, requestreceivedhow: " + _
                     emplacctnumber + ", " + ManualClaimNo.ToString + ", " + doc_id + ", " + temp_doc_id + ", " + request_status + ", " + requestreceivedhow)
        End If

        Dim res = 0
        If reqs Is Nothing Then
            Dim rq = New request()
            rq.claim = (From r In context.claims Where r.claim_no.Equals(claim_no)).FirstOrDefault()
            rq.empl_accnt_no = emplacctnumber
            rq.manual_claim_no = ManualClaimNo
            rq.doc_id = doc_id
            rq.temp_doc_id = temp_doc_id
            rq.request_status = request_status '"OANEW"
            rq.request_received_how = requestreceivedhow
            rq.last_update_ts = DateTime.Now
            rq.created_ts = DateTime.Now
            rq.created_by = created_by
            rq.last_updated_by = lastupdated_by
            rq.comments = String.Empty
            context.AddTorequests(rq)

            If Constants.EnableLogger And logr IsNot Nothing And Constants.DirectoryExists(Constants.GetLoggerDirectory()) Then
                logr.log(1, "Inserting RequestEntity : UpdateOrInsertRequestDocId emplacctnumber, ManualClaimNo, doc_id, temp_doc_id, request_status, requestreceivedhow: " + _
                         emplacctnumber + ", " + ManualClaimNo.ToString + ", " + doc_id + ", " + temp_doc_id + ", " + request_status + ", " + requestreceivedhow)
            End If

            Return context.SaveChanges()
        ElseIf reqs.Count() <= 0 Then
            Dim rq = New request()
            rq.claim = (From r In context.claims Where r.claim_no.Equals(claim_no)).FirstOrDefault()
            rq.empl_accnt_no = emplacctnumber
            rq.manual_claim_no = ManualClaimNo
            rq.doc_id = doc_id
            rq.temp_doc_id = temp_doc_id
            rq.request_status = request_status '"OANEW"
            rq.request_received_how = requestreceivedhow
            rq.last_update_ts = DateTime.Now
            rq.created_ts = DateTime.Now
            rq.created_by = created_by
            rq.last_updated_by = lastupdated_by
            rq.comments = String.Empty

            If Constants.EnableLogger And logr IsNot Nothing And Constants.DirectoryExists(Constants.GetLoggerDirectory()) Then
                logr.log(1, "Inserting RequestEntity : UpdateOrInsertRequestDocId, emplacctnumber, ManualClaimNo, doc_id, temp_doc_id, request_status, requestreceivedhow: " + _
                         emplacctnumber + ", " + ManualClaimNo.ToString + ", " + doc_id + ", " + temp_doc_id + ", " + request_status + ", " + requestreceivedhow)
            End If

            context.AddTorequests(rq)
            Return context.SaveChanges()
        Else
            Dim rq = reqs.FirstOrDefault()
            rq.doc_id = doc_id
            res = context.SaveChanges()
            Return res
        End If
    End If
End Using