Prosty kalkulator, trudny powrót po latach...

Tieru · 25 Czerwca 2018

Witam, czy jest ktoś w stanie napisać w miarę prosty kalkulator? Ja od kilku lat już nie piszę i nie jestem w stanie teraz wszystkiego się uczyć na nowo.

Mianowicie, chodzi o kalkulator, który:

ma 2 inputy, jeden to wartość do końca, drugi to wartość, która mnoży wpisaną liczbę *1,9 *2

label to 1 input - drugi input

gotowe gui

	#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=G:\PROGRAMY\AutoIt3\KODA\Forms\BLOKER.kxf
$BLOKER = GUICreate("BLOKER", 282, 124, 302, 218)
$Input1 = GUICtrlCreateInput("KONIEC PERLY", 40, 24, 209, 21)
$Input2 = GUICtrlCreateInput("NAGRODA PR ZA PIERWSZE MIEJSCE", 40, 56, 209, 21)
$Label1 = GUICtrlCreateLabel("Label1", 128, 88, 36, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
	While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Bardzo bym prosił o pomoc.

Pozdrawiam!

Skayblas · 26 Czerwca 2018

Cytat

ma 2 inputy, jeden to wartość do końca, drugi to wartość, która mnoży wpisaną liczbę *1,9 *2

label to 1 input - drugi input

Że co? Mógłbyś to bardziej precyzyjnie napisać bo nie idzie nic z tego zrozumieć. Poniżej masz najprostszy kalkulator dodający 2 liczby. Resztę można zrobić analogicznie. Kod dla ciebie powinien być czytelny jeśli znasz podstawy angielskiego.

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$BLOKER = GUICreate("BLOKER", 282, 124, 302, 218)
$Input1 = GUICtrlCreateInput("", 40, 24, 209, 21)
$Input2 = GUICtrlCreateInput("", 40, 56, 209, 21)
$Label1 = GUICtrlCreateLabel("...", 128, 88, 36, 17)
$Button1 = GUICtrlCreateButton("oblicz",20,100,60,20)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
		Case $Button1
			$x1 = GUICtrlRead($Input1)
			$x2 = GUICtrlRead($Input2)
			$y = $x1+$x2
			GUICtrlSetData($Label1,$y)
    EndSwitch
WEnd

Tieru · 27 Czerwca 2018

Dnia 26.06.2018 o 09:45, Skayblas napisał:
Że co? Mógłbyś to bardziej precyzyjnie napisać bo nie idzie nic z tego zrozumieć. Poniżej masz najprostszy kalkulator dodający 2 liczby. Resztę można zrobić analogicznie. Kod dla ciebie powinien być czytelny jeśli znasz podstawy angielskiego.
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$BLOKER = GUICreate("BLOKER", 282, 124, 302, 218)
$Input1 = GUICtrlCreateInput("", 40, 24, 209, 21)
$Input2 = GUICtrlCreateInput("", 40, 56, 209, 21)
$Label1 = GUICtrlCreateLabel("...", 128, 88, 36, 17)
$Button1 = GUICtrlCreateButton("oblicz",20,100,60,20)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
		Case $Button1
			$x1 = GUICtrlRead($Input1)
			$x2 = GUICtrlRead($Input2)
			$y = $x1+$x2
			GUICtrlSetData($Label1,$y)
    EndSwitch
WEnd

Jesteś wielki! Powiedz mi jeszcze, jak zrobić by wynik się zaokrąglał? Np. jeśli jest w -$x2*1.9 wynik 345,5 to aby liczba wyniosła 346. Da się prosto zastosować w kodzie funkcję matematyczną? Zwyżanie od 0,5, a zniżanie od 0,4.

	Case $Button1
            $x1 = GUICtrlRead($Input1)
            $x2 = GUICtrlRead($Input2)
            $y = $x1-$x2*1.9*2
            GUICtrlSetData($Label2,$y)

Pawellek · 28 Czerwca 2018

$y = Round($x1-$x2*1.9*2)

Tieru · 4 Lipca 2018

Dnia 28.06.2018 o 09:52, Pawellek napisał:
$y = Round($x1-$x2*1.9*2)

To nie pomaga niestety w moim kodzie, pytanie dlaczego skompilowany program przez wszystko jest traktowany jako wirus?

Pawellek · 4 Lipca 2018

1 godzinę temu, Tieru napisał:

To nie pomaga niestety w moim kodzie, pytanie dlaczego skompilowany program przez wszystko jest traktowany jako wirus?

To pokaz kod. "U mnie dziala".

Program jest wykrywany jako wirus dlatego, ze duzo wirusow bylo/jest pisanych wlasnie w tym jezyku. Niewazne co skompilujesz to sygnatura ktora wykrywaja programy antywirusowe jest taka sam.

Tieru · 4 Lipca 2018

2 godziny temu, Pawellek napisał:

To pokaz kod. "U mnie dziala".

Program jest wykrywany jako wirus dlatego, ze duzo wirusow bylo/jest pisanych wlasnie w tym jezyku. Niewazne co skompilujesz to sygnatura ktora wykrywaja programy antywirusowe jest taka sam.

To mój kod

	#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("1.0", 410, 363, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 40, 145, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER,$WS_BORDER))
$Input2 = GUICtrlCreateInput("", 8, 64, 145, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_NUMBER,$WS_BORDER))
$Button1 = GUICtrlCreateButton("OBLICZ", 8, 96, 147, 25)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("WYNIK", 8, 152, 335, 33, $SS_CENTER, $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 18, 800, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
$Label4 = GUICtrlCreateLabel("", 160, 43, 136, 17)
$Label5 = GUICtrlCreateLabel("", 160, 68, 132, 17)
GUISetState(@SW_SHOW)
	While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            $x1 = GUICtrlRead($Input1)
            $x2 = GUICtrlRead($Input2)
            $y = Round ($x1-$x2*1.90*2)
            GUICtrlSetData($Label2,$y)
    EndSwitch
WEnd

Chciałbym aby te Round działało, niestety nie działa

Np wpisuje w pierwszy label 1440, w drugi 355, wynik powinien wynieść 90, a kalkulator liczy na 91.

$x1-$x2*1.90*2

przy $x1-$x2*1.90 (w tym miejscu ma być = round, a potem)*2

Pawellek · 5 Lipca 2018

Cytat

$x1-$x2*1.90*2

przy $x1-$x2*1.90 (w tym miejscu ma być = round, a potem)*2

No i w czym problem?

$y = $x1-Round($x2*1.90)*2

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("1.0", 410, 363, 192, 124)
$Input1 = GUICtrlCreateInput("1440", 8, 40, 145, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER, $WS_BORDER))
$Input2 = GUICtrlCreateInput("355", 8, 64, 145, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER, $WS_BORDER))
$Button1 = GUICtrlCreateButton("OBLICZ", 8, 96, 147, 25)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("WYNIK", 8, 152, 335, 33, $SS_CENTER, $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 18, 800, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
$Label4 = GUICtrlCreateLabel("", 160, 43, 136, 17)
$Label5 = GUICtrlCreateLabel("", 160, 68, 132, 17)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$x1 = GUICtrlRead($Input1)
			$x2 = GUICtrlRead($Input2)
			$y = $x1 - Round($x2 * 1.90) * 2
			GUICtrlSetData($Label2, $y)
	EndSwitch
WEnd

Tieru · 5 Lipca 2018

8 godzin temu, Pawellek napisał:

No i w czym problem?


$y = $x1-Round($x2*1.90)*2


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("1.0", 410, 363, 192, 124)
$Input1 = GUICtrlCreateInput("1440", 8, 40, 145, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER, $WS_BORDER))
$Input2 = GUICtrlCreateInput("355", 8, 64, 145, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER, $WS_BORDER))
$Button1 = GUICtrlCreateButton("OBLICZ", 8, 96, 147, 25)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("WYNIK", 8, 152, 335, 33, $SS_CENTER, $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 18, 800, 2, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000000)
$Label4 = GUICtrlCreateLabel("", 160, 43, 136, 17)
$Label5 = GUICtrlCreateLabel("", 160, 68, 132, 17)
GUISetState(@SW_SHOW)
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$x1 = GUICtrlRead($Input1)
			$x2 = GUICtrlRead($Input2)
			$y = $x1 - Round($x2 * 1.90) * 2
			GUICtrlSetData($Label2, $y)
	EndSwitch
WEnd

Dzięki mistrzu!

Szkoda, że skompilowany program jest tak często wykrywany jako wirus, poczytam może znajdę "obejście" tego...

Zaloguj się

👋 Witaj na MPCForum!

Prosty kalkulator, trudny powrót po latach...

Rekomendowane odpowiedzi

Tieru

Tieru

Skayblas

Skayblas

Tieru

Tieru

Pawellek

Pawellek

Tieru

Tieru

Pawellek

Pawellek

Tieru

Tieru

Pawellek

Pawellek

Tieru

Tieru

Zarchiwizowany