Produktbewertung

H

HabaneroFan

Chiligrünschnabel
Beiträge
27
Guten Tag erstmal :D
Was warscheinlich keiner Denkt ihr hab einen Amateur Programmierer unter euch. Ich kann etwas Programmieren, aber nur in Autoit, eigentlich eine der einfachsten Sprachen, die es gibt.
Wikipedia(Autoit)
Official Website
Da es auf manchen Computern zu virenmeldungen mit autoit kommen kann, will ich nur sagen, das diese Meldungen völliger quatsch sind. Trotdem werde ich euch auch den Code geben, und nicht nur das Fertige Programm.



Das Programm soll helfen eine Einheitliche Bewertung für CHiliprodukte zu finden. Erstmal ein Screenshot:
Programm.jpg

Die eingegebenen Daten, werden in eine Datei einheitlich auf dem Desktop abgelegt. Diese Datei heißt Chili.txt dh wenn ihr schon eine Datei namens Chili.txt auf dem Desktop habt wird diese Überschrieben vorsicht! :angel: .

Ein beispiel für eine Datei, wie sie generiert wird:
Code: 
>-----CHili Bewertung V.1-----<

Produktname:
Hot souce Habanero
Hersteller:
CHilifirma
Gekauft bei:
Edeka
>-----Schärfebewertung:-----<

Geschätzte Schärfe:
Ordentlich Scharf (8)

Bemerkungen:
-Sehr scharf
-nur für erfahrene Scharfesser

Geeignet Für:
Fortgeschrittene
Chili Junkies

>-----Ende der Schärfebewertung-----<

>-----Start der Geschmacks \ Geruchs \ Aussehens Bewertung-----<

Geschmack:
9 \ 10 Punkte
Geruch:
8 \ 10 Punkte
Aussehen:
6 \ 10 Punkte

Bemerkungen:
-Schmecht sehr lecker
-sehr würzig
-leckerer habanero geschmack


>-----Ende der Bewertung-----<

Fazit:
Ein sehr gutes Produkt umbedingt kaufen

>-----ENDE-----<

Die exe Datei findet ihr hier
Das passwort für die Zip ist: "chili"

DEn quelltext findet ihr hier:
Code: 
#include <file.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### 

$Form1_1 = GUICreate("Chili Produkt Bewertung", 816, 447, 192, 116)
$Label1 = GUICtrlCreateLabel("Geschätzte Schärfe:", 16, 48, 101, 17)
$Slider1 = GUICtrlCreateSlider(8, 72, 297, 25)
GUICtrlSetLimit(-1, 11, 0)
$Label2 = GUICtrlCreateLabel("Bemerkungen:", 296, 48, 73, 17)
$Edit1 = GUICtrlCreateEdit("", 376, 48, 433, 105)
$Label3 = GUICtrlCreateLabel(" Null Scharf (0)", 8, 104, 110, 17)
$Group1 = GUICtrlCreateGroup("Geschmack \ Geruch \ Aussehen", 8, 168, 801, 185)
$Slider2 = GUICtrlCreateSlider(8, 216, 297, 25)
GUICtrlSetLimit(-1, 10, 0)
$Label4 = GUICtrlCreateLabel("Bemerkungen:", 296, 184, 73, 17)
$Edit2 = GUICtrlCreateEdit("", 376, 184, 425, 137)
$Label6 = GUICtrlCreateLabel("Geschmack:", 16, 192, 64, 17)
$Label7 = GUICtrlCreateLabel("Geruch:", 16, 240, 42, 17)

$Slider3 = GUICtrlCreateSlider(8, 264, 297, 25)
GUICtrlSetLimit(-1, 10, 0)
$Label8 = GUICtrlCreateLabel("0 \ 10", 312, 216, 40, 17)

$Label9 = GUICtrlCreateLabel("0 \ 10", 312, 264, 40, 17)

$Slider4 = GUICtrlCreateSlider(8, 320, 297, 25)
GUICtrlSetLimit(-1, 10, 0)
$Label10 = GUICtrlCreateLabel("Aussehen:", 16, 296, 54, 17)
$Label11 = GUICtrlCreateLabel("0 \ 10", 312, 320, 40, 17)

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input1 = GUICtrlCreateInput("Produktname", 16, 8, 201, 21)
$Input2 = GUICtrlCreateInput("Hersteller", 280, 8, 201, 21)
$Input3 = GUICtrlCreateInput("Bezugsquelle", 560, 8, 201, 21)
$Label5 = GUICtrlCreateLabel("Geeignet Für:", 16, 136, 68, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Anfänger", 96, 128, 73, 25)
$Checkbox2 = GUICtrlCreateCheckbox("Erfahrene", 176, 128, 81, 25)
$Checkbox3 = GUICtrlCreateCheckbox("Chili Junkies", 264, 128, 81, 25)
$Label12 = GUICtrlCreateLabel("Fazit:", 8, 360, 29, 17)
$Edit3 = GUICtrlCreateEdit("", 40, 360, 521, 81)
$Button1 = GUICtrlCreateButton("Generieren", 568, 360, 241, 81, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE

			Exit
		Case $Button1
_main()


EndSwitch
Switch GUICtrlRead($Slider1)
	Case 0
		GUICtrlSetData($Label3, "Null Scharf (0)")
	Case 1
		GUICtrlSetData($Label3, "Lasch (1)")
			Case 2
		GUICtrlSetData($Label3, "Kaum Scharf (2)")
			Case 3
		GUICtrlSetData($Label3, "Ein wenig Scharf(3)")
			Case 4
		GUICtrlSetData($Label3, "Leicht Scharf(4)")
			Case 5
		GUICtrlSetData($Label3, "Mittelmäßig (5)")
			Case 6
		GUICtrlSetData($Label3, "Normal Scharf (6)")
			Case 7
		GUICtrlSetData($Label3, "Relativ Scharf (7)")
			Case 8
		GUICtrlSetData($Label3, "Ordentlich Scharf (8)")
			Case 9
		GUICtrlSetData($Label3, "Ziehmlich Scharf (9)")
			Case 10
		GUICtrlSetData($Label3, "Sehr Scharf (10)")
			Case 11
		GUICtrlSetData($Label3, "Superscharf (11)" )

EndSwitch

GUICtrlSetData($Label11, GUICtrlRead($Slider4) & " \ 10")
GUICtrlSetData($Label9, GUICtrlRead($Slider3) & " \ 10")
GUICtrlSetData($label8, GUICtrlRead($Slider2) & " \ 10")


Sleep(40)

WEnd
Func _main()
$File= _FileCreate(@DesktopDir & "\Chili.txt")
$file1 = FileOpen(@DesktopDir & "\Chili.txt", 1)
FileWrite($file1, ">-----CHili Bewertung V.1-----<" & @CRLF & @CRLF)
FileWrite($file1, "Produktname:" & @CRLF & GUICtrlRead($Input1) & @CRLF)
FileWrite($file1, "Hersteller:" & @CRLF & GUICtrlRead($Input2) & @CRLF)
FileWrite($file1, "Gekauft bei:" & @CRLF & GUICtrlRead($Input3) & @CRLF)
FileWrite($file1, ">-----Schärfebewertung:-----<" & @CRLF & @CRLF)
FileWrite($file1, "Geschätzte Schärfe:" & @CRLF & GUICtrlRead($Label3) & @CRLF & @CRLF)
FileWrite($file1, "Bemerkungen:" & @CRLF & GUICtrlRead($Edit1) & @CRLF & @CRLF)
FileWrite($file1, "Geeignet Für:" & @CRLF)


If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
	FileWrite($file1, "Anfänger" & @CRLF)
EndIf

If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
	FileWrite($file1, "Fortgeschrittene" & @CRLF)
	EndIf

If GUICtrlRead($Checkbox3) = $GUI_CHECKED	Then
	FileWrite($file1, "Chili Junkies" & @CRLF)
	EndIf
FileWrite($file1, @CRLF)
FileWrite($file1, ">-----Ende der Schärfebewertung-----<" & @CRLF &@CRLF)
FileWrite($file1, ">-----Start der Geschmacks \ Geruchs \ Aussehens Bewertung-----<" & @CRLF & @CRLF)
FileWrite($file1, "Geschmack:" & @CRLF)
FileWrite($file1, GUICtrlRead($Label8) & " Punkte" & @CRLF)
FileWrite($file1, "Geruch:" & @CRLF)
FileWrite($file1, GUICtrlRead($Label9) & " Punkte" & @CRLF)
FileWrite($file1, "Aussehen:" & @CRLF)
FileWrite($file1, GUICtrlRead($Label11) & " Punkte" & @CRLF & @CRLF)
FileWrite($file1, "Bemerkungen:" & @CRLF)
FileWrite($file1, GUICtrlRead($Edit2) & @CRLF & @CRLF)
FileWrite($file1, ">-----Ende der Bewertung-----<" & @CRLF & @CRLF)
FileWrite($file1, "Fazit:" & @CRLF)
FileWrite($file1, GUICtrlRead($Edit3) & @CRLF & @CRLF)
FileWrite($file1, ">-----ENDE-----<")

EndFunc
Naja villeicht mag ja Jemand das Programm mal testen. Wenn jemand möchte kann ich ihm das auch gerne über Teamviewer zeigen.
Wenn es irgendwelche Fehler geben sollte oder der Pc abstürzen sollte oder sonstwas sagt mir sofort bescheid.
gruß nonever
 
Zuletzt bearbeitet von einem Moderator:
Klingt sehr interessant.
Kannst du uns noch das Passwort der Zip verraten :whistling:
Gruß matze
 
Sehr schöne Idee. :thumbup:
Die Frage ist nur wie man das ganze effektiv nutzen könnte und einbinden könnte.
Ich denke der Zeitaufwand ist nicht höher wenn man die Produkte wie im Musterformular angegeben einträgt.

Den Ansatz finde ich aber gar nicht so schlecht. :)
 
Finde es ebenfalls ganz gut, stelle mir aber auch die Frage ob es im Forum überhaupt direkt nutzbar ist.
 
Wieso man gibt die Daten in Das Programm ein, und kopiert den Tex hier ins forum, dann ist es einheitlich. :blush:
 
Es wäre sicherlich nicht einheitlicher wie die jetzige Vorlage auch.
Ich denke man kann davon ausgehen das Viele ( die Meißten ? ) es so zur Produktbewertung nicht nutzen würden. Das mag vielen zu kompliziert oder zu aufwendig sein.
Program installieren -> Program nutzen -> Bewertung erstellen -> Bewertung kopieren -> Bewertung ins Forum eintragen...
Der Weg wäre zu lang, ohne Programm ist er einfach kürzer.
Sinnig wäre dies nur wenn es irgendwie automatisch eingebunden werden könnte. Ohne das es erst jeder installieren muss.
Vorlage Produktbewertung
 
Hhhhmmmm Ich könnte mich Ja mal wieder in Php einarbeiten und als Seite Programmieren.
Dann könnte man das als Link direkt im Forum einbinden zb. über dem Fenster, wo man die Beiträge schreibt. Dann kopiert das script die daten in die Zwischenablage und man bräuchte nurnoch auf einfügen zu drücken, und schon ist der text da.
naja das Programm war eh nur so ein "Gack" weil ich heute morgen nix besseres zu tuen hatte.
 
Du musst dich einloggen oder registrieren, um hier zu antworten.
Zurück
Oben Unten