Suppongo tu voglia usare delle checkbox per fare questa cosa. Un piccolo esempio: hai 3 checkbox e una textbox per il risultato. Ti fa una sub per il calcolo
SUB ricalcola()
DIM n AS Integer = 0
IF CheckBox1.value = TRUE THEN n = n + 1
IF CheckBox2.value = TRUE THEN n = n + 2
IF CheckBox3.value = TRUE THEN n = n + 4
TextBox1.text = CStr(n)
END
dove il nome delle checkbox e il punteggio ovviamente lo devi mettere giusto, e poi negli eventi click delle checkbox scrivi semplicemente
Ok mi ci sono voluti due giorni ma l'ho fatto:
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB ricalcola()
DIM n AS Integer = 0
IF CheckBox1.value = TRUE THEN n = n + 3
IF CheckBox2.value = TRUE THEN n = n + 2
IF CheckBox3.value = TRUE THEN n = n + 1
IF CheckBox4.Value = TRUE THEN n = n - 1
IF CheckBox5.Value = TRUE THEN n = n + 3
IF CheckBox6.Value = TRUE THEN n = n + 2
IF CheckBox7.Value = TRUE THEN n = n - 1
IF CheckBox8.Value = TRUE THEN n = n + 2
IF CheckBox9.value = TRUE THEN n = n + 1
IF CheckBox10.Value = TRUE THEN n = n + 3
IF CheckBox11.Value = TRUE THEN n = n + 2
IF CheckBox12.value = TRUE THEN n = n - 1
IF CheckBox13.value = TRUE THEN n = n - 1
IF CheckBox14.value = TRUE THEN n = n + 2
IF CheckBox15.value = TRUE THEN n = n + 2
IF CheckBox16.value = TRUE THEN n = n + 2
IF ComboBox1.Text = "SEVERO" THEN n = n + 2
IF ComboBox1.Text = "MODERATO" THEN n = n + 1
Label1.text = CStr(n)
END
PUBLIC SUB CheckBox1_Click()
ricalcola()
END
PUBLIC SUB CheckBox2_Click()
ricalcola()
END
PUBLIC SUB CheckBox3_Click()
ricalcola()
END
PUBLIC SUB CheckBox4_Click()
ricalcola()
END
PUBLIC SUB CheckBox5_Click()
ricalcola()
END
PUBLIC SUB ComboBox1_Click()
ricalcola()
END
PUBLIC SUB CheckBox6_Click()
ricalcola()
END
PUBLIC SUB CheckBox7_Click()
ricalcola()
END
PUBLIC SUB CheckBox8_Click()
ricalcola()
END
PUBLIC SUB CheckBox9_Click()
ricalcola()
END
PUBLIC SUB CheckBox10_Click()
ricalcola()
END
PUBLIC SUB CheckBox11_Click()
ricalcola()
END
PUBLIC SUB CheckBox12_Click()
ricalcola()
END
PUBLIC SUB CheckBox13_Click()
ricalcola()
END
PUBLIC SUB CheckBox14_Click()
ricalcola()
END
PUBLIC SUB CheckBox15_Click()
ricalcola()
END
PUBLIC SUB CheckBox16_Click()
ricalcola()
END
Ma qualcuno mi spiegherebbe come creare un .exe di questo programmino per farlo andare su windows in quanto lo installerei sul computer a lavoro.