Daily Cup of Tech, always on the (b)leading edge of technology, is coining a new phrase and developing a new program. DCoT is proud to present donation source. What is donation source? Read on!

Daily Cup of Tech is starting to slowly amass a number of application and programs that are coded specifically for readers of DCoT. I see that the number of requests will probably continue to increase and I am very excited about some of the new ideas that people are presenting to me.

While I love to design these programs, they are very time consuming. The initial coding, maintaining, supporting, etc. all take a lot of time and effort.

So, I have come up with the concept of donation source. Donation source is basically a process from which an application idea goes from the idea stage to a freeware release stage to an open source release stage. This is how the process works (please refer to the diagram below for further clarity):

1. I or a reader of DCoT has an idea for a program or application (Donation Source - R&D Phase)
2. DCoT designs the application
3. DCoT releases the application as freeware (Donation Source - Freeware Phase)
4. DCoT sets a donation amount. This is the amount of money that must be donated toward the project to initiate the Donation Source - Open Source Phase
5. DCoT collects donations until the donation amount is reached
6. DCoT releases the source code for the project (Donation Source - Open Source Phase)
7. The cycle starts over with a new application or new version of an already released application

Essentially, when DCoT received enough donations toward a project, the source code will be made available to everyone.

Projects in R&D Phase

Here is a list of applications that are presently in the R&D Phase of the Donation Source Cycle. Keep your eyes peeled for these to be released in the future:

• Remote Presenter - a program to manage and control PowerPoint presentations on multiple computers at the same time.
• USB Custom Splash - a custom splash screen for USB drives that would allow non-technical people to easily manage and install it. Suggested by CARD - Collaborating Agencies Responding to Disasters.
• MedInfo Keeper - a program that will provide information to medical workers specific to the person’s needs. Like a USB based Medic Alert bracelet. Suggested by the Fibromuscular Dysplasia Society of America.

While these projects have not been completed yet, you can still donate toward the release of their code. This will help in a number of ways:

Remote Presenter Dollars: 25.00 / 100.00 (25.00%) Donation Level: $100 $3.00 $5.00 $10.00 $25.00 $50.00 $100.00

USB Custom Splash Dollars: 0.00 / 100.00 (0.00%) Donation Level: $100 $3.00 $5.00 $10.00 $25.00 $50.00 $100.00

MedInfo Keeper Dollars: 35.00 / 100.00 (35.00%) Donation Level: $100 $3.00 $5.00 $10.00 $25.00 $50.00 $100.00

Projects in Freeware Phase

These applications have been released as freeware programs on DCoT. Now, you can select your favorite application and contribute to the release of the source code for that application. Once the donation level for an application is reached, the source code for that application will be made available.

Here are the applications that you can contribute toward right now:

External IP Dollars: 5.00 / 100.00 (5.00%) Donation Level: $100 $3.00 $5.00 $10.00 $25.00 $50.00 $100.00

Projects in Open Source Phase

All projects that have had the source code released into open source are listed here along with their source code.

DCoT Menu

Special thanks to all who donated:

• AlwaysWebHosting.com (twice!)
• Barry H.
• Brian C.
• Eric John W.
• Mark H.

Source Code

#Include <Constants.au3>
#NoTrayIcon
 
Dim $DriveLetter = StringLeft(@ScriptDir,2)
Dim $ConfigFile = @ScriptDir & "\DCoTMenu.ini"
Dim $AppListFile = @ScriptDir & "\" & IniRead($ConfigFile,"General","AppListFile","AppList.ini")
Dim $AppList
Dim $MenuItem[1]
Dim $AppExecutable[1]
Dim $AppCounter
Dim $ApplicationName
Dim $Executable
Dim $WorkingDirectory
Dim $Author
Dim $Website
Dim $BrowseDrive
Dim $CreditsItem
Dim $DCoTWebsite
Dim $AppsInMenu = 0
Dim $Credits = "DCoT Menu by Daily Cup of Tech" & @CRLF & "Website: http://www.DailyCupOfTech.com"
Dim $DisplaySystemCredit = IniRead($ConfigFile,"General","DisplaySystemCredit","")
Dim $SystemCredit = IniRead($ConfigFile,"General","SystemCredit","")
Dim $DisplayBrowse = IniRead($ConfigFile,"General","DisplayBrowse","")
Dim $DisplayCredit = IniRead($ConfigFile,"General","DisplayCredits","")
 
 
If $DisplaySystemCredit = "True" Then
	$Credits &= @CRLF & @CRLF & "USB Drive System Concept by " & $SystemCredit
EndIf
 
Opt("TrayMenuMode",1)
 
$AppList = IniReadSectionNames($AppListFile)
 
If @error Then
	MsgBox (0,"No Apps","No apps available")
	Exit
EndIf
 
ReDim $MenuItem[$AppList[0]+1]
ReDim $AppExecutable[$AppList[0]+1]
 
For $AppCounter = 1 To $AppList[0]
	$ApplicationName = $AppList[$AppCounter]
	$Executable = @ScriptDir & IniRead($AppListFile,$ApplicationName,"Executable","")
	$Author = IniRead($AppListFile,$ApplicationName,"Author","")
	$Website = IniRead($AppListFile,$ApplicationName,"Website","")

	If FileExists($Executable) Then
		$MenuItem[$AppCounter] = TrayCreateItem($ApplicationName)
		$AppExecutable[$AppCounter] = $Executable
		$Credits &= @CRLF & @CRLF & $ApplicationName

		If $Author <> "" Then
			$Credits &= " by " & $Author
		EndIf

		If $Website <> "" Then
			$Credits &= @CRLF & "Website: " & $Website
		EndIf

		$AppsInMenu += 1
	EndIf
Next
 
If $AppsInMenu = 0 Then
	MsgBox (0,"No Apps","No apps available")
	Exit
EndIf
 
TrayCreateItem("")
 
If $DisplayBrowse = "True" Then
	$BrowseDrive = TrayCreateItem("Browse USB Drive")
EndIf
 
If $DisplayCredit = "True" Then
	$CreditsItem = TrayCreateItem("Credits")
EndIf
 
$DCoTWebsite = TrayCreateItem("Daily Cup of Tech")
TrayCreateItem("")
$ExitItem = TrayCreateItem("Exit")
 
TraySetState()
TraySetToolTip("Click to show menu")
TrayTip("DCoT Menu","Access your USB applications by clicking this icon at any time.",5,1)
 
While 1
    $TrayMessage = TrayGetMsg()
	For $AppCounter = 1 To $AppList[0]
		If $TrayMessage = $MenuItem[$AppCounter] Then
			$Executable = $AppExecutable[$AppCounter]
			$WorkingDirectory = StringLeft($Executable,StringInStr($Executable,"\",0,-1))
			Run($Executable,$WorkingDirectory)
		EndIf
	Next

    Switch $TrayMessage
		Case 0

			If Not FileExists(@ScriptFullPath) Then
				ExitLoop
			Else
				ContinueLoop
			EndIf
 
        Case $ExitItem
            ExitLoop

		Case $BrowseDrive
			Run("explorer.exe " & $DriveLetter)

		Case $DCoTWebsite
			Local $Url = "http://www.DailyCupOfTech.com"
			Run(@ComSpec & " /c Start " & $Url, "", @SW_HIDE)

		Case $CreditsItem
			MsgBox(64,"Credits",$Credits)

    EndSwitch
WEnd

Download this code: DCoTMenu.au3

Trackback link - http://www.DailyCupOfTech.com/release-the-code/trackback/

Be the first to comment on this post!

Leave a Reply