Skip to content

Instantly share code, notes, and snippets.

View msarchet's full-sized avatar

Michael Sarchet msarchet

14 followers · 5 following
View GitHub Profile
@msarchet
msarchet / WEOnlyDoExample.vb
Created September 23, 2010 14:54
Private WithEvents sFTP As WeOnlyDo.Client.FtpDLX
Private Sub ConnectAndGetFile()
Try
If sFTP.State = WeOnlyDo.Client.States.Receiving Or sFTP.State = WeOnlyDo.Client.States.Connected Then
sFTP.Abort()
End If
sFTP = New WeOnlyDo.Client.FtpDLX
_status = Enums.eStatus.Downloading
sFTP.LicenseKey = "RAYJ-S8Y9-RTRE-EKZS"
@msarchet
msarchet / dataconnectionCheck.vb
Created September 28, 2010 14:59
''' <summary>
''' Determines whether database connection valid [the specified connection string].
''' </summary>
''' <param name="ConnectionString">The connection string.</param>
''' <returns>
''' <c>true</c> if [is database connection valid] [the specified connection string]; otherwise, <c>false</c>.
''' </returns>
Public Function IsDatabaseConnectionValid(ByVal ConnectionString As String) As Boolean
Try
Using cn As New SqlClient.SqlConnection(ConnectionString)
@msarchet
msarchet / EZTwainScan.VB
Created October 7, 2010 19:37
Public Module scanning
Public Function scanImage() As Byte()
Dim fileScanned As Integer = 0
Dim filepath As String = String.Format("{0}\RXImage.png", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData))
EZTwain.SetAppTitle("Script Assist 9")
Call EZTwain.SetVendorKey("RS Software", -469019609)
Call EZTwain.SetHideUI(False)
Call EZTwain.SetFileAppendFlag(False)
Call EZTwain.SetMultiTransfer(False)
@msarchet
msarchet / gist:617433
Created October 8, 2010 20:03
'This is how you use the Scanning Library
'Create A New Instance of the Scanning Lib
Dim scanner As New RSScanningLibrary.Scan
'[Optional] Set you applications Title
scanner.ApplicationTitle = "Application Title"
'[Optional] Set the default Scanning Device
scanner.SetDefaultTwainDevice
@msarchet
msarchet / CenterOfGravity.CS
Created January 25, 2011 20:19
Calculates the center of gravity from an input file
//This was written as an exercise for a friend for a CFD class
using System;
using System.Collections.Generic;
using System.IO;
namespace CenterOfGravity
{
class Program
{
@msarchet
msarchet / LinqMerge.CS
Created April 14, 2011 21:28
A Linq extension in the making that is for merging XML Documents.
using System;
using System.Linq;
using System.Xml.Linq;
public class Foo
{
public static void Main()
{
XDocument test = new XDocument();
//SetValue(test, "thing3", new object[] {"Root", "Blargh", "Node3", "ChildNode"});
@msarchet
msarchet / XLinqExtensions
Created April 23, 2011 18:41
XLinq Extensions
using System;
using System.Linq;
using System.Xml.Linq;
using System.Runtime.CompilerServices;
using System.Diagnostics;
//This class is simply used as a demonsration on how to use the extensions
public class Foo
{
public static void Main()
@msarchet
msarchet / scheduleByFacility.sql
Created October 11, 2011 15:23
Schedule Facility Query
Select
RXInfo.Patient,
RXInfo.Number,
Facility.Name,
RxInfo.RefillNumber
From scriptassist.RXInfo AS RXInfo
Left Join scriptAssist.Patient As PatientT On PatientT.PatientId = RXInfo.PatientID
Left Join scriptAssist.Facility On Facility.FacilityID = PatientT.FacilityID
Where
RXInfo.Schedule In ('2','3','4','5')
@msarchet
msarchet / count.html
Created November 16, 2011 22:04
Count super fast
<html>
<script type="text/javascript">
function countToFiveBillion(counter, num){
if(num < 5000000000)
{
num++;
if(num % 18700 == 0){
counter.innerHTML = num;
setTimeout(function() {countToFiveBillion(counter, num)}, 1);
} else {
@msarchet
msarchet / getPrice.sql
Created December 16, 2011 19:26
getPrice
USE [RxDataSQL]
GO
/****** Object: StoredProcedure [scriptassist].[getPrice] Script Date: 12/16/2011 12:15:15 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER Procedure [scriptassist].[getPrice]