19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
PUBLIC SUB Button2_Click() DIM r1 AS Float DIM r2 AS Float DIM c AS Float DIM fre AS Float DIM a AS Float IF ComboBox1.Text = "Kohm" THEN r1 = TextBox1.text * 1000 ELSE IF ComboBox1.Text = "Mohm" THEN r1 = TextBox1.text * 1000000 ENDIF IF ComboBox2.Text = "Kohm" THEN r2 = TextBox2.text * 1000 ELSE IF ComboBox2.text = "Mohm" THEN r2 = TextBox2.text * 1000000 ENDIF IF ComboBox3.Text = "mF" THEN c = TextBox3.text * 0.001 ELSE IF ComboBox3.text = "uF" THEN c = TextBox3.text * 0.000001 ELSE IF ComboBox3.text = "nF" THEN c = TextBox3.text * 0.000000001 ELSE IF ComboBox3.text = "pF" THEN c = TextBox3.text * 0.000000000001 ENDIF
grazie mille!!l'END l'avevo proprio scordato