Att skapa ett webbformulär i Wolfram språk (7 / 7 steg)
Steg 7: Det är det! Nu kan du generera någon webbformuläret med Wolfram språk och utvärdera produktionen också!
Följande länk tar dig till Wolfram utvecklingsplattform för detta exempel. Du kan mixtra runt och göra din egen awesome webbformulär efter undertecknandet!
I fall du undrar hur programmet skulle har tittat utan att använda funktioner vi definierat, är här det! Sina långa men gå igenom det noga, kan vi se vad varje del av koden gör.
Kod:
ingenjrerna = CreateDatabin [< | " Namn"->"energieffektivitet Calculator", behörigheter ->"Allmänheten","Tolkning"> {"termostat"->"Heltal","isolering"->"Heltal","belysning"->"Heltal","energyStar"->"Heltal","kylskåp"->"Heltal","draftyWindows"->"Heltal","luftare"->"Heltal","lowFlow"->"Heltal","skugga"->"Heltal","insDucts"->"Heltal"} | >]
layout [fo_FormObject]: = kolumnen [{fo [AppearanceRules, "Rubrik"], fo [AppearanceRules, "Beskrivning"], Grid [värden "Etikett"], fo [alla, "Kontroll"]}, identitet], anpassning -> vänster]}];
CloudDeploy [FormFunction [FormObject [< | " termostat"-> < |" Tolken"-> {"Ja"-> 10,"Nej"-> 1},"Kontroll"-> RadioButtonBar,"Etikett"->"Har du en programmerbar termostat?"| >, "isolering" -> < | "Tolk" -> {"Ja" -> 10, "No" > 1, "Kanske" -> 5}, "Kontroll" -> RadioButtonBar, "Etikett" -> "Är ditt hus välisolerade?" | >, "belysning" -> < | " Tolken"-> {"De flesta/alla"-> 10,"Ungefär hälften"> 5," mycket få/inga "-> 1},"Kontroll"-> RadioButtonBar,"Etikett"->"vilken procentandel av belysningen är CFL?"| >, "energyStar" -> < | " Tolken"-> {"Ja"-> 10,"Nej"-> 1},"Kontroll"-> RadioButtonBar,"Etikett"->"Är apparater energyStar certifierade?"| >, "kylskåp" -> < | " Tolken"-> {"1"-> 10,"2"-> 5,"3"-> 1},"Kontroll"-> RadioButtonBar,"Etikett"->"hur många kylskåp har du?"| >, "draftyWindows" -> < | " Tolken"-> {"Ja"-> 1,"No"> 10,"Kanske"-> 5},"Kontroll"-> RadioButtonBar,"Etikett"->"Har huset dragiga fönster?"| >, "luftare" -> < | " Tolken"-> {"Ja"-> 10,"Nej"-> 1},"Kontroll"-> RadioButtonBar,"Etikett"->"Har blandare luftare?"| >, "lowFlow" -> < | " Tolken"-> {"Ja"-> 10,"Nej"-> 1},"Kontroll"-> RadioButtonBar,"Etikett"->"Är snålspolande duschar?"| >, "shade" -> < | " Tolken"-> {"Ja"-> 10,"Nej"-> 1},"Kontroll"-> RadioButtonBar,"Etikett"->"Huset har buskar och träd för skugga?"| >, "insDucts" -> < | " Tolken"-> {"Ja"-> 10,"Nej"-> 1},"Kontroll"-> RadioButtonBar,"Etikett"->"Är värmerör i områdena Kallbassäng isolerade?"| > | >, AppearanceRules -> < | " Titeln"->"Ta energieffektivitet frågesport.","Beskrivning"->"en poäng högre än 70 är energieffektiva!","SubmitLabel"->"Beräkna"| >, FormLayoutFunction -> layout], (DatabinAdd [ingenjrerna, < |" termostat"-> #thermostat,"isolering"-> #insulation,"belysning"-> #lighting,"energyStar"-> #energyStar,"kylskåp"-> #fridge,"draftyWindows"-> #draftyWindows,"luftare"-> #aerators,"lowFlow"-> #lowFlow,"skugga"-> #shade,"insDucts"-> #insDucts| >]; Rastrera [stil ["Tack för att skicka dina betyg! Energieffektivitet poäng är: "<> TextString [totalt [värden [ingenjrerna]] [[-1]]], FontSize -> 20, FontFamily ->"Aparajita"]]) &,"PNG", FormTheme ->"Blå"],"energyEfficiencyWorkingCopy", behörigheter ->"Allmänheten"]