Changes: Added 5 band Calculator
Added E6, E12, E24, E48, E96 Series
Added Range inputs and AutoRange option <-- Made it alot faster!
Rewrote combination functions to allow larger combinations sets
Once again let me know if you see or have any problems. Thanks for looking!
Edit: fixed 30 second hang and window positioning in Version 2.
AutoIt
#include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Include <GuiComboBox.au3> #include <GuiListView.au3> #Include <array.au3> #Include <file.au3> #include <Date.au3> Dim $R_Values Global $tfound = 0, $tchecked = 0, $Gui_time_comb = 1, $Gui_time_list = 1, $ltimeS, $current_series $Form1 = GUICreate("Resistance Calculator", 629, 657) GUISetBkColor(0xFFFFFF) $B_Target = GUICtrlCreateButton("Calculate", 488, 472, 89, 33, 0) $Target = GUICtrlCreateInput("", 80, 408, 81, 21) $Tolerance = GUICtrlCreateInput("1.00", 184, 408, 81, 21) $Label1 = GUICtrlCreateLabel("Target Value", 80, 384, 82, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Label2 = GUICtrlCreateLabel("% Tolerance", 184, 384, 81, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $nResistors = GUICtrlCreateCombo("2", 288, 408, 81, 25) GUICtrlSetData(-1, "3|4|5") $Label3 = GUICtrlCreateLabel("# of Resistors", 288, 384, 85, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Label4 = GUICtrlCreateLabel("Combinations Checked = ", 272, 592, 156, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $checked = GUICtrlCreateLabel("0", 427, 592, 200, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Label6 = GUICtrlCreateLabel("Combinations Found = ", 56, 592, 140, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $found = GUICtrlCreateLabel("0", 197, 592, 67, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") Global $List1 = GUICtrlCreateListView('Resistors|Value|% Tolerance', 56, 448, 425, 136) _GUICtrlListView_SetColumnWidth ($List1, 0, 190) _GUICtrlListView_SetColumnWidth ($List1, 1, 100) _GUICtrlListView_SetColumnWidth ($List1, 2, 130) $Checkbox_series = GUICtrlCreateCheckbox("Series", 112, 320, 65, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Checkbox_Parallel = GUICtrlCreateCheckbox("Parallel", 184, 320, 81, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Group = GUICtrlCreateGroup("Resistor Connection", 96, 296, 177, 57, $BS_CENTER) GUICtrlSetBkColor(-1, 0xFFFFE1) GUICtrlCreateGroup("", -99, -99, 1, 1) $B_Save = GUICtrlCreateButton("Save List", 488, 528, 89, 33, 0) $Group1 = GUICtrlCreateGroup("Settings", 56, 360, 337, 81, $BS_CENTER) GUICtrlCreateGroup("", -99, -99, 1, 1) $Qcalc_Input = GUICtrlCreateInput("", 32, 112, 161, 21) $Label5 = GUICtrlCreateLabel("Ex: 10k, 68, 3.3M", 64, 88, 88, 17) $B_Qcalc = GUICtrlCreateButton("Calculate", 72, 144, 73, 33, 0) $Group3 = GUICtrlCreateGroup("Quick Calc", 8, 56, 209, 137, $BS_CENTER) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlCreateGroup("", -99, -99, 1, 1) $Band_1_4 = GUICtrlCreateCombo("Black", 296, 56, 97, 25, $CBS_DROPDOWNLIST) GUICtrlSetData(-1, "Brown|Red|Orange|Yellow|Green|Blue|Violet|Gray|white") $label = GUICtrlCreateLabel("Band 1", 248, 56, 38, 17, $SS_CENTERIMAGE) $Band_2_4 = GUICtrlCreateCombo("Black", 296, 88, 97, 25, $CBS_DROPDOWNLIST) GUICtrlSetData(-1, "Brown|Red|Orange|Yellow|Green|Blue|Violet|Gray|white") $Label7 = GUICtrlCreateLabel("Band 2", 248, 88, 38, 17, $SS_CENTERIMAGE) $Band_3_4 = GUICtrlCreateCombo("Black", 296, 120, 97, 25, $CBS_DROPDOWNLIST) GUICtrlSetData(-1, "Brown|Red|Orange|Yellow|Green|Blue|Violet|Gray|White|Gold|Silver") $Label8 = GUICtrlCreateLabel("Band 3", 248, 120, 38, 17, $SS_CENTERIMAGE) $Band_4_4 = GUICtrlCreateCombo("Gold", 296, 152, 97, 25, $CBS_DROPDOWNLIST) GUICtrlSetData(-1, "Silver|Brown|Red|Green|Blue|Violet|Gray|None") $Label9 = GUICtrlCreateLabel("Band 4", 248, 152, 38, 17, $SS_CENTERIMAGE) $B_Colors4 = GUICtrlCreateButton("Calculate", 280, 184, 81, 33, 0) $Color = GUICtrlCreateGroup("4 Band Calc", 224, 16, 193, 209, $BS_CENTER) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Resistor Combination Calculator ", 40, 253, 553, 369, $BS_CENTER) GUICtrlSetFont(-1, 18, 400, 0, "MS Sans Serif") GUICtrlCreateGroup("", -99, -99, 1, 1) $Checkbox_allowdup = GUICtrlCreateCheckbox("Allow Duplication of Resistors", 309, 322, 201, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Group4 = GUICtrlCreateGroup("Options", 296, 296, 217, 57, $BS_CENTER) GUICtrlSetBkColor(-1, 0xFFFFE1) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group5 = GUICtrlCreateGroup("5 Band Calc", 424, 0, 193, 241, $BS_CENTER) GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") GUICtrlCreateGroup("", -99, -99, 1, 1) $Band_1_5 = GUICtrlCreateCombo("Black", 496, 40, 97, 25, $CBS_DROPDOWNLIST) GUICtrlSetData(-1, "Brown|Red|Orange|Yellow|Green|Blue|Violet|Gray|White") $Label10 = GUICtrlCreateLabel("Band 1", 448, 40, 38, 17, $SS_CENTERIMAGE) $Band_2_5 = GUICtrlCreateCombo("Black", 496, 72, 97, 25, $CBS_DROPDOWNLIST) GUICtrlSetData(-1, "Brown|Red|Orange|Yellow|Green|Blue|Violet|Gray|White") $Label11 = GUICtrlCreateLabel("Band 2", 448, 72, 38, 17, $SS_CENTERIMAGE) $Band_3_5 = GUICtrlCreateCombo("Black", 496, 104, 97, 25, $CBS_DROPDOWNLIST) GUICtrlSetData(-1, "Brown|Red|Orange|Yellow|Green|Blue|Violet|Gray|White") $Label12 = GUICtrlCreateLabel("Band 3", 448, 104, 38, 17, $SS_CENTERIMAGE) $Band_4_5 = GUICtrlCreateCombo("Black", 496, 136, 97, 25, $CBS_DROPDOWNLIST) GUICtrlSetData(-1, "Brown|Red|Orange|Yellow|Green|Blue|Violet|Gray|White|Gold|Silver") $Label13 = GUICtrlCreateLabel("Band 4", 448, 136, 38, 17, $SS_CENTERIMAGE) $B_Colors5 = GUICtrlCreateButton("Calculate", 480, 200, 81, 33, 0) $Band_5_5 = GUICtrlCreateCombo("Gold", 496, 168, 97, 25) GUICtrlSetData(-1, "Silver|Brown|Red|Green|Blue|Violet|Gray|None") $Label14 = GUICtrlCreateLabel("Band 5", 448, 168, 38, 17, $SS_CENTERIMAGE) Global $Range_Start = GUICtrlCreateInput("", 416, 408, 49, 21) $Range_End = GUICtrlCreateInput("", 480, 408, 49, 21) $Label15 = GUICtrlCreateLabel("Start", 426, 384, 31, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Label16 = GUICtrlCreateLabel("End", 491, 384, 28, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Group6 = GUICtrlCreateGroup("Range", 400, 360, 145, 81, $BS_CENTER) GUICtrlCreateGroup("", -99, -99, 1, 1) $MenuItem1 = GUICtrlCreateMenu("&File") $MenuItem8 = GUICtrlCreateMenuitem("View Loaded Values", $MenuItem1) $Auto_Range = GUICtrlCreateMenuitem("Auto Range", $MenuItem1) GUICtrlSetState(-1, $GUI_CHECKED) $MenuItem3 = GUICtrlCreateMenuitem("Exit", $MenuItem1) $MenuItem9 = GUICtrlCreateMenu("&Load") $MenuItem10 = GUICtrlCreateMenuitem("E6 Series", $MenuItem9) $MenuItem11 = GUICtrlCreateMenuitem("E12 Series", $MenuItem9) $MenuItem12 = GUICtrlCreateMenuitem("E24 Series", $MenuItem9) $MenuItem13 = GUICtrlCreateMenuitem("E48 Series", $MenuItem9) $MenuItem14 = GUICtrlCreateMenuitem("E96 Series", $MenuItem9) $MenuItem7 = GUICtrlCreateMenuitem("Default Values", $MenuItem9) $MenuItem4 = GUICtrlCreateMenuitem("Import Custom Values", $MenuItem9) $MenuItem2 = GUICtrlCreateMenu("&Help") $MenuItem5 = GUICtrlCreateMenuitem("How to Use", $MenuItem2) $MenuItem6 = GUICtrlCreateMenuitem("About", $MenuItem2) GUISetState(@SW_SHOW) GUICtrlSetState($Checkbox_Parallel, $GUI_CHECKED) GUICtrlSetState($Checkbox_allowdup, $GUI_CHECKED) GUICtrlSetState($Checkbox_series, $GUI_CHECKED) _Load_Default_Values($R_Values) $current_series = 'Default Values' While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $Auto_Range If BitAND(GUICtrlRead($Auto_Range), $GUI_CHECKED) = $GUI_CHECKED Then GUICtrlSetState($Auto_Range, $GUI_UNCHECKED) GUICtrlSetData($Range_Start, '') GUICtrlSetData($Range_End, '') Else GUICtrlSetState($Auto_Range, $GUI_CHECKED) GUICtrlSetData($Range_End, '') GUICtrlSetData($Range_Start, '') EndIf Case $B_Save _SaveList($List1) Case $MenuItem7 Dim $R_Values[66] _Load_Default_Values($R_Values) $current_series = 'Default Values' MsgBox(0, 'Default Values Loaded!', UBound($R_Values) & ' Values have been Loaded') Case $MenuItem4 Dim $R_Values_Temp _Import_Custom_Values($R_Values_Temp) If IsArray($R_Values_Temp) = 1 Then $R_Values = $R_Values_Temp MsgBox(0, 'Custom Values Imported!', UBound($R_Values) & ' Values have been Loaded') Else ContinueLoop EndIf Case $B_Target If GUICtrlRead($Target) = '' Then MsgBox(0, 'ERROR!', 'No Value Entered') ContinueLoop EndIf If BitAND(GUICtrlRead($Checkbox_Parallel) = $GUI_UNCHECKED, GUICtrlRead($Checkbox_series) = $GUI_UNCHECKED) Then MsgBox(0, 'ERROR!', 'You must select at least one type of connection') ContinueLoop EndIf $vtarget = GUICtrlRead($Target) _Format_View2Value($vtarget) Dim $hour, $mins, $secs, $time $timeS = TimerInit() $ltimeS = TimerInit() $tfound = 0 $tchecked = 0 $Gui_time_comb = 1 $Gui_time_list = 1 _GUICtrlListView_DeleteAllItems ($List1) GUICtrlSetData($found, $tfound) GUICtrlSetData($checked, $tchecked) ;_Calc_Total(GUICtrlRead($Checkbox_series),GUICtrlRead($Checkbox_Parallel),$vtarget, $R_Values, GUICtrlRead($nResistors)) Select Case BitAND(GUICtrlRead($Checkbox_Parallel) = $GUI_CHECKED, GUICtrlRead($Checkbox_series) = $GUI_CHECKED, BitAND(GUICtrlRead($Auto_Range), $GUI_CHECKED) = $GUI_CHECKED) If GUICtrlRead($Checkbox_allowdup) = $GUI_CHECKED Then _AutoRange('Parallel', $vtarget, $R_Values) $Range_Rvalues = _Create_Range($R_Values, GUICtrlRead($Range_Start), GUICtrlRead($Range_End)) _Combo_Dups($Range_Rvalues, $vtarget, GUICtrlRead($Tolerance), $GUI_UNCHECKED, $GUI_CHECKED, GUICtrlRead($nResistors)) _AutoRange('Series', $vtarget, $R_Values) $Range_Rvalues = _Create_Range($R_Values, GUICtrlRead($Range_Start), GUICtrlRead($Range_End)) _Combo_Dups($Range_Rvalues, $vtarget, GUICtrlRead($Tolerance), $GUI_CHECKED, $GUI_UNCHECKED, GUICtrlRead($nResistors)) EndIf If GUICtrlRead($Checkbox_allowdup) = $GUI_UNCHECKED Then _AutoRange('Parallel', $vtarget, $R_Values) $Range_Rvalues = _Create_Range($R_Values, GUICtrlRead($Range_Start), GUICtrlRead($Range_End)) _Combo($Range_Rvalues, $vtarget, GUICtrlRead($Tolerance), $GUI_UNCHECKED, $GUI_CHECKED, GUICtrlRead($nResistors)) _AutoRange('Series', $vtarget, $R_Values) $Range_Rvalues = _Create_Range($R_Values, GUICtrlRead($Range_Start), GUICtrlRead($Range_End)) _Combo($Range_Rvalues, $vtarget, GUICtrlRead($Tolerance), $GUI_CHECKED, $GUI_UNCHECKED, GUICtrlRead($nResistors)) EndIf Case BitAND(GUICtrlRead($Checkbox_Parallel) = $GUI_CHECKED, GUICtrlRead($Checkbox_series) = $GUI_UNCHECKED, BitAND(GUICtrlRead($Auto_Range), $GUI_CHECKED) = $GUI_CHECKED) If GUICtrlRead($Checkbox_allowdup) = $GUI_CHECKED Then _AutoRange('Parallel', $vtarget, $R_Values) $Range_Rvalues = _Create_Range($R_Values, GUICtrlRead($Range_Start), GUICtrlRead($Range_End)) _Combo_Dups($Range_Rvalues, $vtarget, GUICtrlRead($Tolerance), $GUI_UNCHECKED, $GUI_CHECKED, GUICtrlRead($nResistors)) EndIf If GUICtrlRead($Checkbox_allowdup) = $GUI_UNCHECKED Then _AutoRange('Parallel', $vtarget, $R_Values) $Range_Rvalues = _Create_Range($R_Values, GUICtrlRead($Range_Start), GUICtrlRead($Range_End)) _Combo($Range_Rvalues, $vtarget, GUICtrlRead($Tolerance), $GUI_UNCHECKED, $GUI_CHECKED, GUICtrlRead($nResistors)) EndIf Case BitAND(GUICtrlRead($Checkbox_Parallel) = $GUI_UNCHECKED, GUICtrlRead($Checkbox_series) = $GUI_CHECKED, BitAND(GUICtrlRead($Auto_Range), $GUI_CHECKED) = $GUI_CHECKED) If GUICtrlRead($Checkbox_allowdup) = $GUI_CHECKED Then _AutoRange('Series', $vtarget, $R_Values) $Range_Rvalues = _Create_Range($R_Values, GUICtrlRead($Range_Start), GUICtrlRead($Range_End)) _Combo_Dups($Range_Rvalues, $vtarget, GUICtrlRead($Tolerance), $GUI_CHECKED, $GUI_UNCHECKED, GUICtrlRead($nResistors)) EndIf If GUICtrlRead($Checkbox_allowdup) = $GUI_UNCHECKED Then _AutoRange('Series', $vtarget, $R_Values) $Range_Rvalues = _Create_Range($R_Values, GUICtrlRead($Range_Start), GUICtrlRead($Range_End)) _Combo($Range_Rvalues, $vtarget, GUICtrlRead($Tolerance), $GUI_CHECKED, $GUI_UNCHECKED, GUICtrlRead($nResistors)) EndIf Case BitAND(GUICtrlRead($Auto_Range), $GUI_UNCHECKED) = $GUI_UNCHECKED If GUICtrlRead($Checkbox_allowdup) = $GUI_CHECKED Then $Range_Rvalues = _Create_Range($R_Values, GUICtrlRead($Range_Start), GUICtrlRead($Range_End)) _Combo_Dups($Range_Rvalues, $vtarget, GUICtrlRead($Tolerance), GUICtrlRead($Checkbox_series), GUICtrlRead($Checkbox_Parallel), GUICtrlRead($nResistors)) EndIf If GUICtrlRead($Checkbox_allowdup) = $GUI_UNCHECKED Then $Range_Rvalues = _Create_Range($R_Values, GUICtrlRead($Range_Start), GUICtrlRead($Range_End)) _Combo($Range_Rvalues, $vtarget, GUICtrlRead($Tolerance), GUICtrlRead($Checkbox_series), GUICtrlRead($Checkbox_Parallel), GUICtrlRead($nResistors)) EndIf EndSelect Global $B_DESCENDING[_GUICtrlListView_GetColumnCount ($List1) ] _GUICtrlListView_SimpleSort ($List1, $B_DESCENDING, 2) $dif = TimerDiff($timeS) If $dif < 60000 Then $time = Round($dif / 1000, 2) & ' Seconds' Else _TicksToTime(Int($dif), $hour, $mins, $secs) If $hour = 0 Then $time = $mins & ' Minutes and ' & $secs & ' Seconds' Else $time = $hour & 'Hours ' & $mins & 'Minutes and ' & $secs & ' Seconds' EndIf EndIf MsgBox(0, 'Finished!', 'Search Took ' & $time) If _GUICtrlListView_GetItemCount ($List1) = 0 Then MsgBox(0, 'No Matches', 'You had 0 matches so you should increase the tolerance.' & @LF & _ 'Remember for low Values you can increase the tolerance pretty high without changing value much.') Case $B_Colors4 Dim $colors[4] $colors[0] = _GUICtrlComboBox_GetCurSel ($Band_1_4) $colors[1] = _GUICtrlComboBox_GetCurSel ($Band_2_4) $colors[2] = _GUICtrlComboBox_GetCurSel ($Band_3_4) $colors[3] = _GUICtrlComboBox_GetCurSel ($Band_4_4) $resistor_Color_Value = _Color_Value_4($colors) Case $B_Colors5 Dim $colors[5] $colors[0] = _GUICtrlComboBox_GetCurSel ($Band_1_5) $colors[1] = _GUICtrlComboBox_GetCurSel ($Band_2_5) $colors[2] = _GUICtrlComboBox_GetCurSel ($Band_3_5) $colors[3] = _GUICtrlComboBox_GetCurSel ($Band_4_5) $colors[4] = _GUICtrlComboBox_GetCurSel ($Band_5_5) _Color_Value_5($colors) Case $B_Qcalc $F_Value = _Stringformat(GUICtrlRead($Qcalc_Input), 1) $RP_String = _Parallel_Value($F_Value) $RS_String = _Series_Value($F_Value) MsgBox(0, 'Resistance Value', 'Parallel Value = ' & $RP_String & ' Ohms' & @LF & _ 'Series Value = ' & $RS_String & ' Ohms') Case $GUI_EVENT_CLOSE Exit Case $MenuItem3 Exit Case $MenuItem6 MsgBox(0, 'About', 'Resistance Calculator' & @LF & 'Version 2' & @LF & 'Writen by Brian J Christy') Case $MenuItem5 MsgBox(0, 'How to Use', "All values entered can be abbreviated with a K for thousand or M for Million." & @LF & _ "For imported values the same rule applies. Also the file you import" & @LF & "can only have one value per line and must be a .txt file." & @LF & @LF & _ "Default Values are preloaded startup. These Values include all values found in " & @LF & _ "RadioShacks Assortment Pack." & @LF & @LF & "A Comma is the character used to seperate values in the Quick calc and you can" & @LF & _ "enter as many values as you want. The Calc will return both series and parallel values.") Case $MenuItem8 Dim $Atemp = $R_Values For $i = 0 To UBound($Atemp) - 1 _Format_Value2View($Atemp[$i]) Next _ArrayDisplay($Atemp, $current_series) Case $MenuItem10 _Load_E6_Values($R_Values) $current_series = 'E6 Series' MsgBox(0, 'E6 Series Loaded!', UBound($R_Values) & ' Values have been Loaded') Case $MenuItem11 _Load_E12_Values($R_Values) $current_series = 'E12 Series' MsgBox(0, 'E12 Series Loaded!', UBound($R_Values) & ' Values have been Loaded') Case $MenuItem12 _Load_E24_Values($R_Values) $current_series = 'E24 Series' MsgBox(0, 'E24 Series Loaded!', UBound($R_Values) & ' Values have been Loaded') Case $MenuItem13 _Load_E48_Values($R_Values) $current_series = 'E48 Series' MsgBox(0, 'E48 Series Loaded!', UBound($R_Values) & ' Values have been Loaded') Case $MenuItem14 _Load_E96_Values($R_Values) $current_series = 'E96 Series' MsgBox(0, 'E96 Series Loaded!', UBound($R_Values) & ' Values have been Loaded') EndSwitch WEnd Func _AutoRange($connection, $aTarget, $aArray) Local $i, $index GUICtrlSetData($Range_End, '') GUICtrlSetData($Range_Start, '') If $connection = 'Parallel' Then For $i = UBound($aArray) - 1 To 0 Step - 1 If $aArray[$i] <= $aTarget Then $index = $i - 1 If $index <= 0 Then GUICtrlSetData($Range_End, '') GUICtrlSetData($Range_Start, '') Return EndIf GUICtrlSetData($Range_Start, $index) Return EndIf Next EndIf If $connection = 'Series' Then For $i = 0 To UBound($aArray) - 1 If $aArray[$i] = $aTarget Then GUICtrlSetData($Range_End, $i + 1) GUICtrlSetData($Range_Start, '') Return EndIf If $aArray[$i] > $aTarget Then GUICtrlSetData($Range_End, $i) GUICtrlSetData($Range_Start, '') Return EndIf Next EndIf EndFunc ;==>_AutoRange Func _Combo(ByRef $avArray, $Target, $Tolerance, $series, $parallel, $iSet, $sDelim = ",") Local $i, $aIdx[1], $Resistor_Set, $iN = 0, $iR = 0, $iLeft = 0, $iTotal = 0 Local $sParallelV, $sSeriesV, $high, $low, $Resistor_Set $high = $Target+ ($Target* ($Tolerance / 100)) $low = $Target- ($Target* ($Tolerance / 100)) $iN = UBound($avArray) $iR = $iSet Dim $aIdx[$iR] For $i = 0 To $iR - 1 $aIdx[$i] = $i Next $iTotal = New_Array_Combinations($iN, $iR) $iLeft = $iTotal While Int($iLeft) > 0 _Array_GetNext ($iN, $iR, $iLeft, $iTotal, $aIdx) For $i = 0 To $iSet - 1 $Resistor_Set &= $avArray[$aIdx[$i]] & $sDelim Next If $sDelim <> "" Then $Resistor_Set = StringTrimRight($Resistor_Set, 1) If $parallel = $GUI_CHECKED Then $sParallelV = _Parallel_Value($Resistor_Set) _Tolerance_Check($sParallelV, $Target, $high, $low, 'P', $Resistor_Set) EndIf If $series = $GUI_CHECKED Then $sSeriesV = _Series_Value($Resistor_Set) _Tolerance_Check($sSeriesV, $Target, $high, $low, 'S', $Resistor_Set) EndIf $Resistor_Set = '' WEnd GUICtrlSetData($checked, $tchecked) EndFunc ;==>_Combo Func _Combo_Dups(ByRef $array, $Target, $Tolerance, $series, $parallel, $iSet) Local $i, $done, $iSet2[1] Local $sParallelV, $sSeriesV, $high, $low, $Resistor_Set $high = $Target+ ($Target* ($Tolerance / 100)) $low = $Target- ($Target* ($Tolerance / 100)) For $i = 0 To $iSet - 1 _ArrayAdd($iSet2, '0') Next _ArrayDelete($iSet2, 0) Do $Resistor_Set = '' For $i = 0 To UBound($iSet2) - 1 $Resistor_Set &= $array[$iSet2[$i]] & ',' Next $Resistor_Set = StringTrimRight($Resistor_Set, 1) If $parallel = $GUI_CHECKED Then $sParallelV = _Parallel_Value($Resistor_Set) _Tolerance_Check($sParallelV, $Target, $high, $low, 'P', $Resistor_Set) EndIf If $series = $GUI_CHECKED Then $sSeriesV = _Series_Value($Resistor_Set) _Tolerance_Check($sSeriesV, $Target, $high, $low, 'S', $Resistor_Set) EndIf _Shift($array, $iSet2, $done) Until $done = 1 GUICtrlSetData($checked, $tchecked) EndFunc ;==>_Combo_Dups Func _Tolerance_Check($value, $Target, $high, $low, $connection, $Resistor_Set) If BitAND(($value <= $high) , ($value >= $low)) Then Select Case $value > $Target $vTolerance = Round((($value - $Target) / $Target) * 100, 4) Case $value < $Target $vTolerance = Round((($Target - $value) / $Target) * 100, 4) Case $value = $Target $vTolerance = 0 EndSelect $format_set = _Stringformat($Resistor_Set, 0) GUICtrlCreateListViewItem($connection & ' - ' & $format_set & '|' & $value & '|' & $vTolerance, $List1) $tfound += 1 GUICtrlSetData($found, $tfound) If BitAND(TimerDiff($ltimeS) > $Gui_time_list, $tfound < 50) Then Global $B_DESCENDING[_GUICtrlListView_GetColumnCount ($List1) ] _GUICtrlListView_SimpleSort ($List1, $B_DESCENDING, 2) $Gui_time_list += 1000 EndIf EndIf $tchecked += 1 If TimerDiff($ltimeS) > $Gui_time_comb Then GUICtrlSetData($checked, $tchecked) $Gui_time_comb += 200 EndIf EndFunc ;==>_Tolerance_Check Func _SaveList(ByRef $list) Local $count, $iArray, $tArray[1], $tString, $location $count = _GUICtrlListView_GetItemCount ($list) If $count = 0 Then MsgBox(0, 'ERROR', 'You have no values in your list!') Return EndIf For $i = 0 To $count - 1 $iArray = _GUICtrlListView_GetItemTextArray ($list, $i) $tString = 'Resistor = ' & $iArray[1] & ' --- Value = ' & $iArray[2] & ' --- Tolerance = ' & $iArray[3] & '%' _ArrayAdd($tArray, $tString) Next $location = FileSaveDialog( "Choose a Filename and Location.", @ScriptDir, "Text files (*.txt)", 2) If StringRight($location, 4) <> '.txt' Then $location &= '.txt' _FileWriteFromArray($location, $tArray, 0) EndFunc ;==>_SaveList Func _Color_Value_4($color_Array) Local $value Select Case $color_Array[2] = 0 $value = ($color_Array[0] & $color_Array[1]) Case $color_Array[2] = 1 $value = ($color_Array[0] & $color_Array[1]) * 10 Case $color_Array[2] = 2 $value = ($color_Array[0] & $color_Array[1]) * 100 Case $color_Array[2] = 3 $value = ($color_Array[0] & $color_Array[1]) * 1000 Case $color_Array[2] = 4 $value = ($color_Array[0] & $color_Array[1]) * 10000 Case $color_Array[2] = 5 $value = ($color_Array[0] & $color_Array[1]) * 100000 Case $color_Array[2] = 6 $value = ($color_Array[0] & $color_Array[1]) * 1000000 Case $color_Array[2] = 7 $value = ($color_Array[0] & $color_Array[1]) * 10000000 Case $color_Array[2] = 8 $value = ($color_Array[0] & $color_Array[1]) * 100000000 Case $color_Array[2] = 9 $value = ($color_Array[0] & $color_Array[1]) * 1000000000 Case $color_Array[2] = 10 $value = ($color_Array[0] & $color_Array[1]) * .1 Case $color_Array[2] = 11 $value = ($color_Array[0] & $color_Array[1]) * .01 EndSelect If StringLeft($value, 1) = 0 Then $value = StringTrimLeft($value, 1) _Format_Value2View($value) If $color_Array[3] = 0 Then MsgBox(0, '4 Band Value', $value & ' Ohms +/- 5% ') If $color_Array[3] = 1 Then MsgBox(0, '4 Band Value', $value & ' Ohms +/- 10% ') If $color_Array[3] = 2 Then MsgBox(0, '4 Band Value', $value & ' Ohms +/- 1% ') If $color_Array[3] = 3 Then MsgBox(0, '4 Band Value', $value & ' Ohms +/- 2% ') If $color_Array[3] = 4 Then MsgBox(0, '4 Band Value', $value & ' Ohms +/- 0.5% ') If $color_Array[3] = 5 Then MsgBox(0, '4 Band Value', $value & ' Ohms +/- 0.25% ') If $color_Array[3] = 6 Then MsgBox(0, '4 Band Value', $value & ' Ohms +/- 0.1% ') If $color_Array[3] = 7 Then MsgBox(0, '4 Band Value', $value & ' Ohms +/- 0.05% ') If $color_Array[3] = 8 Then MsgBox(0, '4 Band Value', $value & ' Ohms +/- 20%') EndFunc ;==>_Color_Value_4 Func _Color_Value_5($color_Array) Local $value Select Case $color_Array[3] = 0 $value = ($color_Array[0] & $color_Array[1] & $color_Array[2]) Case $color_Array[3] = 1 $value = ($color_Array[0] & $color_Array[1] & $color_Array[2]) * 10 Case $color_Array[3] = 2 $value = ($color_Array[0] & $color_Array[1] & $color_Array[2]) * 100 Case $color_Array[3] = 3 $value = ($color_Array[0] & $color_Array[1] & $color_Array[2]) * 1000 Case $color_Array[3] = 4 $value = ($color_Array[0] & $color_Array[1] & $color_Array[2]) * 10000 Case $color_Array[3] = 5 $value = ($color_Array[0] & $color_Array[1] & $color_Array[2]) * 100000 Case $color_Array[3] = 6 $value = ($color_Array[0] & $color_Array[1] & $color_Array[2]) * 1000000 Case $color_Array[3] = 7 $value = ($color_Array[0] & $color_Array[1] & $color_Array[2]) * 10000000 Case $color_Array[3] = 8 $value = ($color_Array[0] & $color_Array[1] & $color_Array[2]) * 100000000 Case $color_Array[3] = 9 $value = ($color_Array[0] & $color_Array[1] & $color_Array[2]) * 1000000000 Case $color_Array[3] = 10 $value = ($color_Array[0] & $color_Array[1] & $color_Array[2]) * .1 Case $color_Array[3] = 11 $value = ($color_Array[0] & $color_Array[1] & $color_Array[2]) * .01 EndSelect If StringLeft($value, 1) = 0 Then $value = StringTrimLeft($value, 1) _Format_Value2View($value) If $color_Array[4] = 0 Then MsgBox(0, '5 Band Value', $value & ' Ohms +/- 5%') If $color_Array[4] = 1 Then MsgBox(0, '5 Band Value', $value & ' Ohms +/- 10%') If $color_Array[4] = 2 Then MsgBox(0, '5 Band Value', $value & ' Ohms +/- 1%') If $color_Array[4] = 3 Then MsgBox(0, '5 Band Value', $value & ' Ohms +/- 2%') If $color_Array[4] = 4 Then MsgBox(0, '5 Band Value', $value & ' Ohms +/- 0.5% ') If $color_Array[4] = 5 Then MsgBox(0, '5 Band Value', $value & ' Ohms +/- 0.25% ') If $color_Array[4] = 6 Then MsgBox(0, '5 Band Value', $value & ' Ohms +/- 0.1% ') If $color_Array[4] = 7 Then MsgBox(0, '5 Band Value', $value & ' Ohms +/- 0.05% ') If $color_Array[4] = 8 Then MsgBox(0, '5 Band Value', $value & ' Ohms +/- 20%') ;Return $value EndFunc ;==>_Color_Value_5 Func _Series_Value($Resistors) Local $string, $array $Resistors = StringReplace($Resistors, ' ', '') $array = StringSplit($Resistors, ',') For $i = 1 To $array[0] $string += $array[$i] Next Return $string EndFunc ;==>_Series_Value Func _Parallel_Value($Resistors) Local $string, $array $Resistors = StringReplace($Resistors, ' ', '') $array = StringSplit($Resistors, ',') For $i = 1 To $array[0] $string += (1 / $array[$i]) If $i = $array[0] Then $string = 1 / $string Next If $string < 5 Then $string = Round($string, 4) Else $string = Round($string, 2) EndIf Return $string EndFunc ;==>_Parallel_Value Func _Format_View2Value(ByRef $value) If StringInStr($value, 'k') <> 0 Then $value = StringReplace($value, 'k', '') $value *= 1000 EndIf If StringInStr($value, 'm') <> 0 Then $value = StringReplace($value, 'm', '') $value *= 1000000 EndIf Return $value EndFunc ;==>_Format_View2Value Func _Format_Value2View(ByRef $value) Local $count $count = StringLen($value) Select Case $count > 6 $value = ($value / 1000000) & 'M' Return Case $count > 3 If StringInStr($value, '.') <> 0 Then Return $value = ($value / 1000) & 'K' Return EndSelect EndFunc ;==>_Format_Value2View Func _Stringformat($string, $type) Local $Atemp, $newString $string = StringReplace($string, ' ', '') $Atemp = StringSplit($string, ',') If $type = 0 Then For $i = 1 To $Atemp[0] _Format_Value2View($Atemp[$i]) $newString &= $Atemp[$i] & ', ' Next $newString = StringTrimRight($newString, 3) Return $newString EndIf If $type = 1 Then For $i = 1 To $Atemp[0] _Format_View2Value($Atemp[$i]) $newString &= $Atemp[$i] & ',' Next $newString = StringTrimRight($newString, 1) Return $newString EndIf EndFunc ;==>_Stringformat Func _Import_Custom_Values(ByRef $Custom) Local $R_V_Check, $file $file = FileOpenDialog("Select File to Import", @ScriptDir & "\", "Text files (*.txt)", 1) If $file = '' Then Return _FileReadToArray($file, $R_V_Check) _ArrayDelete($R_V_Check, 0) _ArrayDeleteBlanks($R_V_Check) For $i = 0 To UBound($R_V_Check) - 1 $R_V_Check[$i] = Number(_Format_View2Value($R_V_Check[$i])) Next _ArraySort($R_V_Check, 0) $Custom = $R_V_Check EndFunc ;==>_Import_Custom_Values Func _Load_E6_Values(ByRef $E6_Values) Local $E6[6] = [1, 1.5, 2.2, 3.3, 4.7, 6.8] _Expand_Series($E6) $E6_Values = $E6 EndFunc ;==>_Load_E6_Values Func _Load_E12_Values(ByRef $E12_Values) Local $E12[12] = [1, 1.2, 1.5, 1.8, 2.2, 2.7, 3.3, 3.9, 4.7, 5.6, 6.8, 8.2] _Expand_Series($E12) $E12_Values = $E12 EndFunc ;==>_Load_E12_Values Func _Load_E24_Values(ByRef $E24_Values) Local $value, $E24[24] = [1, 1.1, 1.2, 1.3, 1.5, 1.6, 1.8, 2, 2.2, 2.4, 2.7, 3, 3.3, 3.6, _ 3.9, 4.3, 4.7, 5.1, 5.6, 6.2, 6.8, 7.5, 8.2, 9.1] _Expand_Series($E24) $E24_Values = $E24 EndFunc ;==>_Load_E24_Values Func _Load_E48_Values(ByRef $E48_Values) Local $value, $E48[48] = [1, 1.05, 1.1, 1.15, 1.21, 1.27, 1.33, 1.4, 1.47, 1.54, 1.62, 1.69, 1.78, 1.87, _ 1.96, 2.05, 2.15, 2.26, 2.37, 2.49, 2.61, 2.74, 2.87, 3.01, 3.16, 3.32, 3.48, 3.65, 3.83, 4.02, 4.22, _ 4.42, 4.64, 4.87, 5.11, 5.36, 5.62, 5.9, 6.19, 6.49, 6.81, 7.15, 7.5, 7.87, 8.25, 8.66, 9.09, 9.53] _Expand_Series($E48) $E48_Values = $E48 EndFunc ;==>_Load_E48_Values Func _Load_E96_Values(ByRef $E96_Values) Local $value, $E96[96] = [1, 1.02, 1.05, 1.07, 1.1, 1.13, 1.15, 1.18, 1.21, 1.24, 1.27, 1.3, 1.33, 1.37, 1.4, 1.43, 1.47, 1.5, _ 1.54, 1.58, 1.62, 1.65, 1.69, 1.74, 1.78, 1.82, 1.87, 1.91, 1.96, 2, 2.05, 2.1, 2.15, 2.21, 2.26, 2.32, 2.37, 2.43, 2.49, 2.55, 2.61, _ 2.67, 2.74, 2.8, 2.87, 2.94, 3.01, 3.09, 3.16, 3.24, 3.23, 3.4, 3.48, 3.57, 3.65, 3.74, 3.83, 3.92, 4.02, 4.12, 4.22, 4.32, 4.42, _ 4.53, 4.64, 4.75, 4.87, 4.99, 5.11, 5.23, 5.36, 5.49, 5.62, 5.76, 5.9, 6.04, 6.19, 6.34, 6.49, 6.65, 6.81, 6.98, 7.15, 7.32, _ 7.5, 7.68, 7.87, 8.06, 8.25, 8.45, 8.66, 8.87, 9.09, 9.31, 9.53, 9.76] _Expand_Series($E96) $E96_Values = $E96 EndFunc ;==>_Load_E96_Values Func _Load_Default_Values(ByRef $RadioShack) Local $T_RadioShack[65] = [1, 2.2, 10, 15, 22, 33, 39, 47, 51, 68, 82, 100, 120, 150, 180, 220, 270, 300, 330, _ 390, 470, 510, 560, 680, 820, 1000, 1200, 1500, 1800, 2200, 2700, 3000, 3300, 3900, 4700, 5100, 5600, _ 6800, 8200, 10000, 12000, 15000, 18000, 22000, 27000, 33000, 39000, 47000, 51000, 56000, 68000, 82000, _ 100000, 120000, 150000, 180000, 220000, 270000, 330000, 1000000, 1500000, 2200000, 3300000, 4700000, 10000000] $RadioShack = $T_RadioShack EndFunc ;==>_Load_Default_Values Func _Expand_Series(ByRef $Eseries) Local $value For $i = 0 To UBound($Eseries) - 1 $value = $Eseries[$i] * 10 _ArrayAdd($Eseries, $value) $value = $Eseries[$i] * 100 _ArrayAdd($Eseries, $value) $value = $Eseries[$i] * 1000 _ArrayAdd($Eseries, $value) $value = $Eseries[$i] * 10000 _ArrayAdd($Eseries, $value) $value = $Eseries[$i] * 100000 _ArrayAdd($Eseries, $value) $value = $Eseries[$i] * 1000000 _ArrayAdd($Eseries, $value) Next _ArrayAdd($Eseries, 10000000) _ArraySort($Eseries, 0) EndFunc ;==>_Expand_Series Func _ArrayDeleteBlanks(ByRef $array) $i = 0 Do If $array[$i] = '' Then _ArrayDelete($array, $i) $i -= 1 EndIf $i += 1 Until $i = UBound($array) EndFunc ;==>_ArrayDeleteBlanks Func New_Array_Combinations($n, $r) Local $total = 1 For $i = $r To 1 Step - 1 $total *= ($n / $i) $n -= 1 Next Return $total EndFunc ;==>New_Array_Combinations Func _Create_Range(ByRef $rR_Values, $start, $end) Local $R_Range If BitAND($start = '', $end = '') Then $R_Range = $rR_Values Return $R_Range EndIf If $start = '' Then $start = 0 If $end = '' Then $end = UBound($rR_Values) Else $end += 1 EndIf $total = $end - $start Local $R_Range[$total] For $i = 0 To $total - 1 $R_Range[$i] = $rR_Values[$start + $i] Next Return $R_Range EndFunc ;==>_Create_Range Func _Shift(ByRef $array, ByRef $iSet, ByRef $done) Local $l If $iSet[0] = UBound($array) - 1 Then $done = 1 Return EndIf $x = UBound($iSet) - 1 While $x <> 0 If $iSet[$x] <> UBound($array) - 1 Then $iSet[$x] += 1 Return EndIf $x -= 1 If $iSet[$x] <> UBound($array) - 1 Then $iSet[$x] += 1 $l = $x Do $iSet[$l + 1] = $iSet[$x] $l += 1 Until $l = UBound($iSet) - 1 Return EndIf WEnd EndFunc ;==>_Shift Func _Calc_Total($series, $parallel, $aTarget, $aArray, $resistorsN) Local $i, $index, $parallel_start = 0, $parallel_end = 0, $series_Start = 0, $series_end = 0, $totalp = 0, $totals = 0, $total If $parallel = $GUI_CHECKED Then For $i = UBound($aArray) - 1 To 0 Step - 1 If $aArray[$i] <= $aTarget Then $index = $i - 1 If $index <= 0 Then $parallel_start = 0 $parallel_end = UBound($aArray) - 1 ExitLoop EndIf $parallel_start = $index $parallel_end = UBound($aArray) - 1 ExitLoop EndIf Next EndIf $totalp = $parallel_end - $parallel_start + 1 $totalp = New_Array_Combinations($totalp, $resistorsN) If $series = $GUI_CHECKED Then For $i = 0 To UBound($aArray) - 1 If $aArray[$i] = $aTarget Then $series_end = $i + 1 If $series_end > UBound($aArray) - 1 Then $series_end = UBound($aArray) - 1 $series_Start = 0 ExitLoop EndIf If $aArray[$i] > $aTarget Then $series_end = $i $series_Start = 0 ExitLoop EndIf Next EndIf $totals += $series_end - $series_Start + 1 $totals = New_Array_Combinations($totals, $resistorsN) $total += $totalp + $totals MsgBox(0, 'final', $total) EndFunc ;==>_Calc_Total
Attached Files
-
Complete_Resistance_Calculator.au3 19.72K
278 downloads
-
Complete_Resistance_Calculator_V2.au3 32.59K
299 downloads
Edited by bchris01, 09 February 2009 - 09:03 PM.
