[VB.NET] Riconoscere versione del sistema operativo

[giacomo1991]

Salve,
ho bisogno urgente di un aiuto.
Dovrei creare un programma in Visual Basi. Premetto che utilizzo Visual basic 2008 Express e devo realizzare un form che identifica il sistema operativo. Se è windows xp/vista/7, il programma può accedere al form seguente, altrimenti da errore.

Inoltre, se fosse possibile, mi piacerebbe inserire la barra di avanzamento per il controllo.

Grazie a tutti.

[oregon]

Sì ... ma qui non si realizza software per altri ... tanto meno "con urgenza" ...

Quindi, cosa non sai fare? Cosa hai fatto? Hai del codice? Hai degli errori?

P.S. E dai anche un'occhiata al regolamento per i titoli ...

[giacomo1991]

Il problema è che io usavo vb 6, ma ora devo utilizzare vb 2008 e tutti i comandi si sono evoluti e sono cambiati con il software.
Devo solo sapere come posso raccogliere informazioni sul sistema operativo in uso. Non ho codice poiché se lo avessi avrei giù provveduto. Basterebbe anche una guida ecc.

[oregon]

Vedi se ti basta questo

http://msdn.microsoft.com/it-it/libr...osversion.aspx

(che avresti potuto trovare con una semplice ricerchina ...)

[giacomo1991]

Grazie, ora ho un altro problema, la progressbar:
Vi do il codice che ho scritto:

'pulsante di avvio'
Private Sub avvio_controllo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles avvio_controllo.Click
Dim ni As Integer
Bar1.Maximum = 100
For ni = 0 To 100
Bar1 = ni

Next ni

End Sub
'bar progress'
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bar1.Click
Bar1.Minimum = 0
Bar1.Maximum = 100
End Sub
End Class

mi da errore nel pulsante, nel senso che "ni" non riesce a convertirlo da tipo integer a windows.system.fomr.progressbar

[oregon]

Un problema per thread ... leggi il regolamento.

P.S. Come per il minimo e per il massimo, esiste una proprietà apposita per assegnare il valore corrente .. non puoi scrivere Bar1 = ni

[giacomo1991]

Me ne sono accorto. Ho risolto comunque, funziona tutto, o quasi. Devo ancora capire come apprendere i dati sul sistema operativo.

[giacomo1991]

Ho fatto tutto, potreste, cortesemente, controllare se va bene?

Public Class os

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub os_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Select Case Environment.OSVersion.Platform
End Select


End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub avvio_controllo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles avvio_controllo.Click


controllo.Text = ("Avvio controllo sui file")
Timer1.Enabled = True
lb.Text = ("controllo")

End Sub

Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bar1.Click
Bar1.Minimum = 1
Bar1.Maximum = 100
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Bar1.Value < 100 Then
Bar1.Value += 1
ElseIf Bar1.Value = Bar1.Maximum Then
Timer1.Stop()
controllo.Text = ("Controllo terminato")
MsgBox("Controllo terminato")
'Qui esegue il controllo attraverso la tabelle di microsoft che specifica le major relase'
If Environment.OSVersion.Version.Major > 5 Then
lb.Text = ("Il sistema è supportato")
Else
lb.Text = ("Siamo spiacenti, il software non è utilizzabile su questo computer")
End If

End If
End Sub

Private Sub avviso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub controllo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles controllo.Click

End Sub
End Class

[alka]

Originariamente inviato da giacomo1991
Ho fatto tutto, potreste, cortesemente, controllare se va bene?

Non è così che funziona il forum: se noti dei problemi specifici nel tuo programma, li segnali e vediamo di risolverli, senza essere costretti a ricompilare il tuo codice per fare il test e vedere se restituisce le informazioni corrette (è un compito tuo).

Rinnovo l'invito a leggere e a rispettare il Regolamento per il futuro.

[giacomo1991]

Forse non comprendete molto bene.
Ho detto che funziona, ma volevo un parere da chi è più esperto per essere sicuro che la restituzione dei valori non fosse casuale ma ponderata.
Comunque ho concluso da me.