Stap 7: Thats it! U kunt nu genereren een webformulier met behulp van Wolfram taal en evalueren van de uitvoer alsmede!
De volgende link brengt u naar het Wolfram-ontwikkelplatform voor dit voorbeeld. U kunt sleutelen rond en maak uw eigen ontzagwekkend webformulieren na ondertekening!
In het geval je hoe het programma zou keek afvraagt je zonder gebruik te maken van functies die we gedefinieerd, is hier het! Haar lange maar gaan door het zorgvuldig, we kunnen zien wat elk onderdeel van de code doet.
Code:
Efficiëntie = CreateDatabin [< | " Naam"->"Energie-efficiëntie Calculator"toestemmingen ->"Publiek","Interpretatie"-> {"thermostaat"->"Integer","isolatie"->"Integer","verlichting"->"Integer","energyStar"->"Integer","koelkast"->"Integer","draftyWindows"->"Integer","beluchters"->"Integer","lowFlow"->"Integer","schaduw"->"Integer","insDucts"->"Integer"} | >]
lay-out [fo_FormObject]: = kolom [{fo [AppearanceRules, "Titel"], fo [AppearanceRules, "Description"], [waarden 'Label'] raster, fo [All, "Control"]}, identiteit], uitlijning -> links]}];
CloudDeploy [FormFunction [FormObject [< | " Thermostaat"-> < |" Interpreter"-> {"Ja"-> 10,"Nee"-> 1},"Control"-> RadioButtonBar,"Label"->"Hebt u een programmeerbare thermostaat?"| >, "isolatie" -> < | "Tolk" -> {"Ja" -> 10, "Nee" -> 1, "Misschien" -> 5} "Label" -> "Is uw huis goed geïsoleerd?", "Control" -> RadioButtonBar | >, "verlichting" -> < | " Interpreter"-> {" Meeste/All"-> 10,"Ongeveer de helft"-> 5," zeer paar/geen "-> 1}"Label"->"welk percentage van de verlichting is CFL?","Control"-> RadioButtonBar | >, "energyStar" -> < | " Interpreter"-> {"Ja"-> 10,"Nee"-> 1},"Control"-> RadioButtonBar,"Label"->"Zijn de toestellen energyStar gecertificeerd?"| >, "koelkast" -> < | " Interpreter"-> {"1"-> 10, '2' -> 5,"3"-> 1}"Label"->"hoeveel koelkasten heb je?","Control"-> RadioButtonBar | >, "draftyWindows" -> < | " Interpreter"-> {"Ja"-> 1,"Nee"-> 10,"Misschien"-> 5}"Label"->"Is het huis heeft tochtig windows?","Control"-> RadioButtonBar | >, "beluchters" -> < | " Interpreter"-> {"Ja"-> 10,"Nee"-> 1},"Control"-> RadioButtonBar,"Label"->"Hebben de kranen beluchters?"| >, "lowFlow" -> < | " Interpreter"-> {"Ja"-> 10,"Nee"-> 1},"Control"-> RadioButtonBar,"Label"->"Zijn de douches low-flow?"| >, "schaduw" -> < | " Interpreter"-> {"Ja"-> 10,"Nee"-> 1},"Control"-> RadioButtonBar,"Label"-> 'Beschikt het huis over struiken en bomen voor schaduw?' | >, "insDucts" -> < | " Interpreter"-> {"Ja"-> 10,"Nee"-> 1},"Control"-> RadioButtonBar,"Label"->"Zijn de buizen van de verwarming in de niet verwarmde gebieden geïsoleerd?"| > | >, AppearanceRules -> < | " Titel"->"Take the energie efficiëntie Quiz.","Omschrijving"->"een score hoger dan 70 is energiezuinig!","SubmitLabel"->"Berekenen"| >, FormLayoutFunction -> lay-out], (DatabinAdd [efficiëntie, < |" Thermostaat"-> #thermostat,"isolatie"-> #insulation,"verlichting"-> #lighting,"energyStar"-> #energyStar,"koelkast"-> #fridge,"draftyWindows"-> #draftyWindows,"beluchters"-> #aerators,"lowFlow"-> #lowFlow,"schaduw"-> #shade,"insDucts"-> #insDucts| >]; Rasteren [Style ["dank u voor het indienen van uw efficiëntie ratings! Uw energie-efficiëntie-score is: "<> TextString [totaal [waarden [efficiëntie]] [[-1]]], FontSize -> 20, FontFamily ->"Aparajita"]]) &,"PNG", FormTheme ->"Blue"],"energyEfficiencyWorkingCopy", machtigingen ->"Publiek"]
