E' possibile effettuare il test di verifica previa registrazione.

Il test verifica il raggiungimento da parte di uno studente al termine del terzo anno di studi dell'indirizzo informatica dell'Istituto Tecnico Industriale

delle seguenti discipline:

Informatica - Algoritmi e introduzione alla programmaizone in C e C++

Sistemi e Reti - Architettura dei sistemi di calcolo e Assembler x86

Tecnologia e Progettazione di Sistemi Informatici e di Telecomunicazioni - Sistemi Operativi e uso della shell di Widnows e/o Linux

Le domande sono state costruite  per uno studente che al termine del terzo anno supera con piena sufficienza.

Alla fine della prova viene visualizzato anche il punteggio.

Leggere le istruzioni prima di iniziare il test

Test per la valutazione delle conoscenze di informatica, sistemi e reti e tecnologie e progettazione

Una semplice macro in Excel con Visual Basic

Utilizzare Excel 2016 per convertire un numero decimale in binario in quanto il programma con le sue funzioni interne non riesce a convertire numeri

decimali molto grandi non più di 10 cifre binarie.

Creiamo allo scopo un foglio di calcolo nelle quali celle A1 e B1 unite digitiamo "NUMERO DECIMALE" e nelle celle A2 e B2 unite sarà inserito tramite macro il

numero decimale da convertire. 

Il Numero binario sarò visualizzato nelle celle A4 e B4 unite.  L'unione delle celle è necessaria per avere maggiore spazio per scrivere. 

Nelle celle A3 e B3 unite scriviamo "NUMERO BINARIO".

Apriamo la scheda Sviluppo di Excel e ckicchiamo sul pulsante Visual Basic Editor si apre l'ambiente di sviluppo e da menò Inserisci inserire un modulo.

Il codice è questo sotto riportato;

Option Explicit
Dim num As Long
Dim base As Integer
Dim num_binario As String
Dim r, q As Long
Dim x As String
Sub main()
num = InputBox("Inserici il numero decimale", "Richiesta di Input")
Foglio1.Cells(2, 1) = num
base = 2
q = num
num_binario = ""
Foglio1.Cells(4, 1) = ""
Do
r = q Mod 2
q = q \ base
num_binario = num_binario & CStr(r)
Loop Until (q < 1)
Dim k As Integer
k = Len(num_binario)
While (k >= 1)
x = Mid(num_binario, k, 1)
Foglio1.Cells(4, 1) = Foglio1.Cells(4, 1) & x
k = k - 1
Wend
End Sub


Per la spiegazione del codice Consulta l'articolo Spiegazione Macro VBAo riservato agli utenti registrati