Jump to content
  1. Chimp

    Chimp

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By Omga4000
      Hello

      I was wondering if it is possible to create a function that constantly checks the Input to see if Digit Grouping is needed.
      (For example: If I write 1000 it automatically changes it to 1,000. Like the calculator does)
      My code has Hebrew writing, but it shouldn't bother you much.
      Here is my code:

      #include #include #include #include #include #include #Region ### START Koda GUI section ### Form=c:\program files (x86)\autoit3\koda 1.7.30\forms\form1.kxf $GoogleForm = GUICreate("Google Adwords", 321, 505, 617, 237) $Budget_Label = GUICtrlCreateLabel("תקציב לפרסום בגוגל", 192, 24, 113, 17) $Budget_Input = GUICtrlCreateInput("", 48, 20, 121, 21) $Camp_Cost_Label = GUICtrlCreateLabel("*עלות ניהול קמפיין", 199, 68, 105, 17) $Camp_Cost_Input = GUICtrlCreateInput("", 48, 64, 121, 21, $ES_READONLY) $Click_Label = GUICtrlCreateLabel("עלות קליק (ממוצע)", 200, 112, 101, 17) $Click_Input = GUICtrlCreateInput("", 48, 108, 121, 21) $Land_Label = GUICtrlCreateLabel("*דף נחיתה ייעודי", 207, 156, 93, 17) $Land_Input = GUICtrlCreateInput("", 48, 152, 121, 21) $Phone_Label = GUICtrlCreateLabel("*פלאפון ייעודי", 220, 200, 84, 17) $Phone_Combo = GUICtrlCreateCombo("", 48, 196, 121, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL), $WS_EX_LAYOUTRTL) GUICtrlSetData(-1, "לא|כן - ₪200") $Profit_Label = GUICtrlCreateLabel("רווח מלקוח", 237, 244, 63, 17) $Profit_Input = GUICtrlCreateInput("", 48, 240, 121, 21) $Closing_Label = GUICtrlCreateLabel("יחס סגירה", 244, 288, 57, 17) $Closing_Combo = GUICtrlCreateCombo("", 49, 284, 121, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL), $WS_EX_LAYOUTRTL) GUICtrlSetData(-1, "1 מתוך 10|2 מתוך 10|3 מתוך 10|4 מתוך 10|5 מתוך 10|6 מתוך 10|7 מתוך 10|8 מתוך 10|9 מתוך 10|10 מתוך 10") $OK_Button = GUICtrlCreateButton("!חשב", 136, 328, 75, 25) $Expense_Label = GUICtrlCreateLabel("הוצאה שנתית", 213, 372, 74, 17) $Expense_Input = GUICtrlCreateInput("", 64, 368, 121, 21) $Income_Label = GUICtrlCreateLabel("הכנסה שנתית", 217, 416, 73, 17) $Income_Input = GUICtrlCreateInput("", 64, 412, 121, 21) $Total_Label = GUICtrlCreateLabel ("סה''כ רווח שנתי", 205, 460, 85, 17) $Total_Input = GUICtrlCreateInput("", 64, 456, 121, 21) $Label1 = GUICtrlCreateLabel("תשלום חד-פעמי*", 249, 488, 70, 17) GUICtrlSetFont(-1, 8, 400, 0, "MS Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $OK_Button $Budget = GUICtrlRead($Budget_Input) If $Budget >= 10000 Then GUICtrlSetData($Camp_Cost_Input, "30%") EndIf If $Budget <= 10000 AND $Budget >= 0.01 Then GUICtrlSetData($Camp_Cost_Input, "15%") Else MsgBox (1, "!שגיאה", "!אנא הכנס תקציב") EndIf $Click = GUICtrlRead($Click_Input) $oLand = GUICtrlRead($Land_Input) If $oLand >= 1 AND $oLand <=9 Then ;Calculates the total cost of Landing Pages - Case 1-9 $nLand = $oLand * "550" $fLand = $oLand & " x" & " 550" & "₪" & " = " & $nLand & "₪" $var = StringMid($fLand, 1, 1) _ResetInput($Land_Input) $nLand = $var * "550" $fLand = $var & " x" & " 550" & "₪" & " = " & $nLand & "₪" GUICtrlSetData($Land_Input, $fLand) EndIf If $oLand >= 10 AND $oLand <=99 Then ;Calculates the total cost of Landing Pages - Case 10-99 $nLand = $oLand * "550" $fLand = $oLand & " x" & " 550" & "₪" & " = " & $nLand & "₪" $var = StringMid($fLand, 1, 2) _ResetInput($Land_Input) $nLand = $var * "550" $fLand = $var & " x" & " 550" & "₪" & " = " & $nLand & "₪" GUICtrlSetData($Land_Input, $fLand) EndIf If $oLand >= 100 Then ;Special order for god damn rich people! MsgBox(1, "יש כסף, אה?", ":יא טחון.. צלצל להצעה" & @CR & "052-5317772") $nLand = "1" EndIf $Phone = GUICtrlRead($Phone_Combo) If $Phone = "כן - ₪200" Then $Phone = 200 Else $Phone = 0 EndIf $Profit = GUICtrlRead($Profit_Input) $Closing = GUICtrlRead($Closing_Combo) $oExpense = $Budget*12 + $nLand + $Phone $Expense = GUICtrlSetData($Expense_Input, $oExpense) ;Total Expense $oBudget = GUICtrlRead($Budget_Input) $oClick = GUICtrlRead($Click_Input) $oClosing = GUICtrlRead($Closing_Combo) $oProfit = GUICtrlRead($Profit_Input) If $oClosing = "1 מתוך 10" Then $oCash = $oBudget / $oClick * 0.1 * $oProfit * 12 GUICtrlSetData($Income_Input, $oCash) ;Total income 1/10 EndIf If $oClosing = "2 מתוך 10" Then $oCash = $oBudget / $oClick * 0.2 * $oProfit * 12 GUICtrlSetData($Income_Input, $oCash) ;Total income 2/10 EndIf If $oClosing = "3 מתוך 10" Then $oCash = $oBudget / $oClick * 0.3 * $oProfit * 12 GUICtrlSetData($Income_Input, $oCash) ;Total income 3/10 EndIf If $oClosing = "4 מתוך 10" Then $oCash = $oBudget / $oClick * 0.4 * $oProfit * 12 GUICtrlSetData($Income_Input, $oCash) ;Total income 4/10 EndIf If $oClosing = "5 מתוך 10" Then $oCash = $oBudget / $oClick * 0.5 * $oProfit * 12 GUICtrlSetData($Income_Input, $oCash) ;Total income 5/10 EndIf If $oClosing = "6 מתוך 10" Then $oCash = $oBudget / $oClick * 0.6 * $oProfit * 12 GUICtrlSetData($Income_Input, $oCash) ;Total income 6/10 EndIf If $oClosing = "7 מתוך 10" Then $oCash = $oBudget / $oClick * 0.7 * $oProfit * 12 GUICtrlSetData($Income_Input, $oCash) ;Total income 7/10 EndIf If $oClosing = "8 מתוך 10" Then $oCash = $oBudget / $oClick * 0.8 * $oProfit * 12 GUICtrlSetData($Income_Input, $oCash) ;Total income 8/10 EndIf If $oClosing = "9 מתוך 10" Then $oCash = $oBudget / $oClick * 0.9 * $oProfit * 12 GUICtrlSetData($Income_Input, $oCash) ;Total income 9/10 EndIf If $oClosing = "10 מתוך 10" Then $oCash = $oBudget / $oClick * $oProfit * 12 GUICtrlSetData($Income_Input, $oCash) ;Total income 10/10 EndIf $var1 = GUICtrlRead($Expense_Input) $var2 = GUICtrlRead($Income_Input) $Total_Income_Cash = $var2 - $var1 GUICtrlSetData($Total_Input,$Total_Income_Cash) EndSwitch WEnd Func _ResetInput($Land_Input) GUICtrlSetData($Land_Input, "") EndFunc
      Anyone mind helping?

      Best Regards,
      Omga4000.
×
×
  • Create New...