n° 216
Agosto 2017
Agosto 17, 2017, 11:10:12 *
Benvenuto! Accedi o registrati.
Hai dimenticato l'e-mail di attivazione?

Accesso con nome utente, password e durata della sessione
Notizia:
 
   Indice   Linux Windows Techassistance Gameassistance videogame hardware Aiuto Ricerca Agenda Downloads Accedi Registrati  


* Messaggi recenti
Messaggi recenti
Pagine: 1 [2]   Vai gi¨
  Stampa  
Autore Discussione: Far visualizzare il risultato del caclcolo della potenza elettrica su picturebox  (Letto 11571 volte)
0 utenti e 1 Utente non registrato stanno visualizzando questa discussione.
Alex_80
Newbie
*

Karma: +1/-0
Scollegato Scollegato

Messaggi: 5


Mostra profilo E-mail
« Risposta #15 inserita:: Dicembre 18, 2015, 11:31:54 »

E' per Visual basic6
Registrato
Liwiki
Newbie
*

Karma: +0/-1
Scollegato Scollegato

Messaggi: 20


Mostra profilo E-mail
« Risposta #16 inserita:: Dicembre 18, 2015, 08:26:30 »

Bene, vi far˛ sapere.
Registrato
Liwiki
Newbie
*

Karma: +0/-1
Scollegato Scollegato

Messaggi: 20


Mostra profilo E-mail
« Risposta #17 inserita:: Dicembre 08, 2016, 12:12:02 »

Salve, eccomi qua dopo una lunga pausa....come promesso voglio postarvi ammesso che me lo concediate, la mia soluzione: il codice preso dal mio progetto, aperto con notepad.

Codice:
VERSION 5.00
Begin VB.Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Calcolo della potenza elettrica"
   ClientHeight    =   4500
   ClientLeft      =   390
   ClientTop       =   2550
   ClientWidth     =   5940
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4500
   ScaleWidth      =   5940
   Begin VB.TextBox Text3
      Height          =   375
      Left            =   3240
      TabIndex        =   10
      Top             =   2280
      Width           =   1335
   End
   Begin VB.TextBox Text2
      Height          =   375
      Left            =   3240
      TabIndex        =   9
      Top             =   1560
      Width           =   1335
   End
   Begin VB.TextBox Text1
      Height          =   375
      Left            =   3240
      TabIndex        =   8
      Top             =   960
      Width           =   1335
   End
   Begin VB.CommandButton Command3
      Caption         =   "Azzera"
      Height          =   615
      Left            =   2280
      TabIndex        =   7
      Top             =   3600
      Width           =   1335
   End
   Begin VB.TextBox Time1
      Height          =   285
      Left            =   3840
      TabIndex        =   5
      Top             =   120
      Width           =   1215
   End
   Begin VB.Timer Timer1
      Interval        =   1000
      Left            =   5160
      Top             =   0
   End
   Begin VB.CommandButton Esci
      Caption         =   "Esci"
      Height          =   855
      Left            =   4200
      Picture         =   "Form1.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   3
      ToolTipText     =   "Termina il programma"
      Top             =   3480
      Width           =   1455
   End
   Begin VB.CommandButton Command1
      Caption         =   "Calcola P [W]"
      Height          =   615
      Left            =   360
      TabIndex        =   0
      Top             =   3600
      Width           =   1335
   End
   Begin VB.Label Label4
      Caption         =   "Time of system"
      Height          =   255
      Left            =   2640
      TabIndex        =   6
      Top             =   120
      Width           =   1215
   End
   Begin VB.Label Label3
      Caption         =   "P [Watt]"
      Height          =   255
      Left            =   1560
      TabIndex        =   4
      Top             =   2280
      Width           =   975
   End
   Begin VB.Label Label2
      Caption         =   "I   [AmpŔre]"
      Height          =   255
      Index           =   1
      Left            =   1560
      TabIndex        =   2
      Top             =   1560
      Width           =   975
   End
   Begin VB.Label Label1
      Caption         =   "R [Ohm]"
      Height          =   255
      Index           =   0
      Left            =   1560
      TabIndex        =   1
      Top             =   960
      Width           =   975
   End
   Begin VB.Menu mn¨File
      Caption         =   "&File"
      Begin VB.Menu mn¨Calcola
         Caption         =   "&Calcola"
      End
      Begin VB.Menu mn¨Azzera
         Caption         =   "&Azzera"
      End
      Begin VB.Menu mn¨Esci
         Caption         =   "&Esci"
         Index           =   0
      End
   End
   Begin VB.Menu mn¨About
      Caption         =   "&About"
   End
   Begin VB.Menu mn¨Licenza
      Caption         =   "&Licenza"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form1_Load()
'visualizza lo splashscreen prima
frmSplash.Show
Form1.Visible = False
End Sub
Private Sub Form_Load()
'sposta il cursore sulla prima casella di testo
Form1.Show
Text1.SetFocus
End Sub

Private Sub Command1_Click()
'calcola i valori inseriti nelle caselle di testo text1 e text2
  Text3.Text = Val(Text1.Text) * Val(Text2.Text) ^ 2
End Sub
Private Sub Command3_Click()
'azzera le caselle di testo
' e riporta il cursore sulla prima
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub mn¨Azzera_Click()
'azzera le caselle di testo
' e riporta il cursore sulla prima
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub mn¨Calcola_Click()
'calcola i valori inseriti nelle caselle di testo text1 e text2
  Text3.Text = Val(Text1.Text) * Val(Text2.Text) ^ 2
End Sub

Private Sub mn¨About_Click()
'visualizza il form "About"
  frmAbout.Show
End Sub
Private Sub mn¨Esci_Click(Index As Integer)
'esce dal programma mediante il comando "Esci" presente nel men¨ "File"
    Unload Me
End Sub

Private Sub mn¨Licenza_Click()
'visualizza il form "Licenza"
frmLicense.Show vbModal
End Sub
Private Sub Text3_Change()
'porta il cursore sul pulante "Azzera"
Command3.SetFocus
End Sub
Private Sub Esci_Click()
'esce dal programma quando viene premuto il tasto "esci"
  Unload Me
End Sub
Private Sub Timer1_Timer()
'visualizza l'ora di sistema da quando Ŕ stata_
'avviata l'applicazione
Time1.Text = Time()
End Sub


Codice:
VERSION 5.00
Begin VB.Form frmAbout
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Informazioni su "
   ClientHeight    =   3825
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   5730
   ClipControls    =   0   'False
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2640.083
   ScaleMode       =   0  'User
   ScaleWidth      =   5380.766
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox picIcon
      AutoSize        =   -1  'True
      ClipControls    =   0   'False
      Height          =   540
      Left            =   240
      Picture         =   "frmAbout.frx":0000
      ScaleHeight     =   337.12
      ScaleMode       =   0  'User
      ScaleWidth      =   337.12
      TabIndex        =   1
      Top             =   240
      Width           =   540
   End
   Begin VB.CommandButton cmdOK
      Cancel          =   -1  'True
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   345
      Left            =   4245
      TabIndex        =   0
      Top             =   2745
      Width           =   1260
   End
   Begin VB.CommandButton cmdSysInfo
      Caption         =   "&System Info..."
      Height          =   345
      Left            =   4260
      TabIndex        =   2
      Top             =   3195
      Width           =   1245
   End
   Begin VB.Line Line1
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   112.686
      X2              =   5183.565
      Y1              =   1739.349
      Y2              =   1739.349
   End
   Begin VB.Label lblDescription
      Caption         =   "Descrizione :"
      ForeColor       =   &H00000000&
      Height          =   1050
      Left            =   1080
      TabIndex        =   3
      Top             =   1320
      Width           =   3885
   End
   Begin VB.Label lblTitle
      Caption         =   "Calcolo della potenza elettrica"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   360
      Left            =   1080
      TabIndex        =   5
      Top             =   240
      Width           =   3885
   End
   Begin VB.Line Line1
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   112.686
      X2              =   5183.565
      Y1              =   1739.349
      Y2              =   1739.349
   End
   Begin VB.Label lblVersion
      Caption         =   "Versione:"
      Height          =   195
      Left            =   1080
      TabIndex        =   6
      Top             =   840
      Width           =   3885
   End
   Begin VB.Label lblDisclaimer
      ForeColor       =   &H00000000&
      Height          =   1065
      Left            =   240
      TabIndex        =   4
      Top             =   2640
      Width           =   3870
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

' Opzioni di protezione per la chiave del registro di configurazione
Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
                       KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
                       KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL
                    
' Chiavi principali del registro di configurazione
Const HKEY_LOCAL_MACHINE = &H80000002
Const ERROR_SUCCESS = 0
Const REG_SZ = 1                         ' Stringa Unicode che termina con un carattere Null
Const REG_DWORD = 4                      ' Numero a 32 bit

Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location"
Const gREGVALSYSINFOLOC = "MSINFO"
Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO"
Const gREGVALSYSINFO = "PATH"

Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long


Private Sub cmdSysInfo_Click()
  Call StartSysInfo
End Sub

Private Sub cmdOK_Click()
  Unload Me
End Sub

Private Sub Form_Load()
    Me.Caption = "Informazioni su: "
    lblVersion.Caption = "Versione " & App.Major & "." & App.Minor & "." & App.Revision
    lblTitle.Caption = "Calcolo della potenza elettrica"
End Sub

Public Sub StartSysInfo()
    On Error GoTo SysInfoErr
  
    Dim rc As Long
    Dim SysInfoPath As String
    
    ' Tenta di recuperare dal registro di configurazione il percorso e il nome
    ' del programma che consente di visualizzare le informazioni sul sistema
    If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then
    ' Tenta di recuperare dal registro di configurazione solo il percorso
    ' del programma che consente di visualizzare le informazioni sul sistema
    ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then
        ' Convalida l'esistenza di una versione a 32 bit del file conosciuta
        If (Dir(SysInfoPath & "\MSINFO32.EXE") <> "") Then
            SysInfoPath = SysInfoPath & "\MSINFO32.EXE"
            
        ' Errore. Il file non Ŕ stato trovato.
        Else
            GoTo SysInfoErr
        End If
    ' Errore. La chiave del registro di configurazione non Ŕ stata trovata.
    Else
        GoTo SysInfoErr
    End If
    
    Call Shell(SysInfoPath, vbNormalFocus)
    
    Exit Sub
SysInfoErr:
    MsgBox "Le informazioni sul sistema non sono attualmente disponibili.", vbOKOnly
End Sub

Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean
    Dim i As Long                                           ' Contatore per il ciclo
    Dim rc As Long                                          ' Codice restituito
    Dim hKey As Long                                        ' Handle a una chiave del registro di configurazione aperta
    Dim hDepth As Long                                      '
    Dim KeyValType As Long                                  ' Tipo di dati di una chiave del registro di configurazione
    Dim tmpVal As String                                    ' Posizione di memorizzazione temporanea del valore di una chiave del registro di configurazione
    Dim KeyValSize As Long                                  ' Dimensioni della variabile della chiave del registro di configurazione
    '------------------------------------------------------------
    ' Apre una chiave del registro di configurazione in una chiave principale {HKEY_LOCAL_MACHINE...}
    '------------------------------------------------------------
    rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Apre la chiave del registro di configurazione
    
    If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError          ' Gestione degli errori
    
    tmpVal = String$(1024, 0)                             ' Assegna spazio alla variabile
    KeyValSize = 1024                                       ' Specifica le dimensioni della variabile
    
    '------------------------------------------------------------
    ' Recupera il valore della chiave del registro di configurazione
    '------------------------------------------------------------
    rc = RegQueryValueEx(hKey, SubKeyRef, 0, _
                         KeyValType, tmpVal, KeyValSize)    ' Recupera/crea il valore della chiave
                        
    If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError          ' Gestione degli errori
    
    If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then           ' In Win95 viene aggiunta una stringa che termina con un carattere Null
        tmpVal = Left(tmpVal, KeyValSize - 1)               ' ╚ stato trovato un carattere Null, che viene estratto dalla stringa
    Else                                                    ' In WinNT non viene aggiunto un carattere Null al termine della stringa
        tmpVal = Left(tmpVal, KeyValSize)                   ' Non Ŕ stato trovato nessun carattere Null, pertanto estrae solo la stringa
    End If
    '------------------------------------------------------------
    ' Determina il tipo del valore della chiave per la conversione
    '------------------------------------------------------------
    Select Case KeyValType                                  ' Cerca i tipi di dati
    Case REG_SZ                                             ' Tipo di dati String per la chiave del registro di configurazione
        KeyVal = tmpVal                                     ' Copia il valore String
    Case REG_DWORD                                          ' Tipo di dati Double Word per la chiave del registro di configurazione
        For i = Len(tmpVal) To 1 Step -1                    ' Converte ogni bit
            KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1)))   ' Crea il valore carattere per carattere
        Next
        KeyVal = Format$("&h" + KeyVal)                     ' Converte Double Word in String
    End Select
    
    GetKeyValue = True                                      ' Restituisce un valore che indica che l'operazione Ŕ riuscita
    rc = RegCloseKey(hKey)                                  ' Chiude la chiave del registro di configurazione
    Exit Function                                           ' Esce dalla routine
    
GetKeyError:      ' Reimposta i dati se viene generato un errore
    KeyVal = ""                                             ' Imposta su una stringa vuota il valore restituito
    GetKeyValue = False                                     ' Restituisce un valore che indica che l'operazione non Ŕ riuscita
    rc = RegCloseKey(hKey)                                  ' Chiude la chiave del registro di configurazione
End Function




Ecco vi ho elencato tutto il codice del progetto contenuto nel file rar dal nome "Elettrotecnica1".
 
Registrato
Liwiki
Newbie
*

Karma: +0/-1
Scollegato Scollegato

Messaggi: 20


Mostra profilo E-mail
« Risposta #18 inserita:: Dicembre 08, 2016, 12:13:48 »

Questo Ŕ il form splash:
Codice:
[code]VERSION 5.00
Begin VB.Form frmSplash
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   4515
   ClientLeft      =   225
   ClientTop       =   1380
   ClientWidth     =   7965
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4515
   ScaleWidth      =   7965
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1
      Height          =   4290
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   7680
      Begin VB.Timer Timer
         Interval        =   6500
         Left            =   7080
         Top             =   2760
      End
      Begin VB.Image Image1
         Height          =   480
         Left            =   240
         Picture         =   "Frmspl~1.frx":0000
         Top             =   2760
         Width           =   480
      End
      Begin VB.Line Line1
         BorderColor     =   &H80000016&
         BorderWidth     =   2
         X1              =   120
         X2              =   7560
         Y1              =   2520
         Y2              =   2520
      End
      Begin VB.Label lblAuthor
         AutoSize        =   -1  'True
         Caption         =   "Autore: Kick Off"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Index           =   1
         Left            =   3000
         TabIndex        =   8
         Top             =   2640
         Width           =   1410
      End
      Begin VB.Image imgLogo
         Height          =   2145
         Left            =   120
         Picture         =   "Frmspl~1.frx":0442
         Stretch         =   -1  'True
         Top             =   240
         Width           =   1455
      End
      Begin VB.Label lblCopyright
         AutoSize        =   -1  'True
         Caption         =   "ę Copyright 2009-2015"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Index           =   0
         Left            =   360
         TabIndex        =   4
         Top             =   2640
         Width           =   1680
      End
      Begin VB.Label lblAddress
         AutoSize        =   -1  'True
         Caption         =   "E-mail: kickoff073@gmail.com    kickoff073@virgilio.it"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   840
         TabIndex        =   3
         Top             =   2880
         Width           =   3795
      End
      Begin VB.Label lblWarning
         Caption         =   $"Frmspl~1.frx":1AF26
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   915
         Left            =   240
         TabIndex        =   2
         Top             =   3240
         Width           =   6615
      End
      Begin VB.Label lblVersion
         AutoSize        =   -1  'True
         Caption         =   "Versione:  1.00"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1800
         TabIndex        =   5
         Top             =   1440
         Width           =   1695
      End
      Begin VB.Label lblPlatform
         AutoSize        =   -1  'True
         Caption         =   "For Windows 95-98-Se   32 bit"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1800
         TabIndex        =   6
         Top             =   1800
         Width           =   4485
      End
      Begin VB.Label lblProductName
         AutoSize        =   -1  'True
         Caption         =   "Calcolo della potenza elettrica"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1800
         TabIndex        =   7
         Top             =   840
         Width           =   4515
      End
      Begin VB.Label lblLicenseTo
         Caption         =   "Licenza :"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1800
         TabIndex        =   1
         Top             =   240
         Width           =   3975
      End
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub Form1_Load()
    lblVersion.Caption = "Versione " & App.Major & "." & App.Minor & "." & App.Revision
    lblProductName.Caption = "Calcolo della potenza elettrica"
End Sub

Private Sub Timer_Timer()
'Questa procedura scarica la finestra di benvenuto e passa il controllo
'alla normale esecuzione del programma.

Unload frmSplash
Form1.Visible = True
Timer.Enabled = False

End Sub
[/code]
Registrato
Liwiki
Newbie
*

Karma: +0/-1
Scollegato Scollegato

Messaggi: 20


Mostra profilo E-mail
« Risposta #19 inserita:: Dicembre 08, 2016, 12:16:40 »

SŔ posso vorrei elencare altro codice del progetto creato con un file rar dal nome "Potenza elettrica".
Anche qui in ordine di file ho messo il form, lo splashscreen e il form license ed about.

Codice:
VERSION 5.00
Begin VB.Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Calcolo della potenza elettrica "
   ClientHeight    =   5100
   ClientLeft      =   150
   ClientTop       =   720
   ClientWidth     =   8565
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5100
   ScaleWidth      =   8565
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command3
      Caption         =   "Esci"
      Height          =   855
      Left            =   6600
      Picture         =   "Form1.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   12
      ToolTipText     =   "Termina il programma"
      Top             =   3600
      Width           =   1455
   End
   Begin VB.CommandButton Command1
      Caption         =   "Calcola P [W]"
      Height          =   615
      Left            =   2280
      TabIndex        =   11
      Top             =   3840
      Width           =   1335
   End
   Begin VB.CommandButton Command2
      Caption         =   "Azzera"
      Height          =   615
      Left            =   4200
      TabIndex        =   10
      Top             =   3840
      Width           =   1335
   End
   Begin VB.Frame Frame2
      Caption         =   "Risultato"
      Height          =   1215
      Left            =   2040
      TabIndex        =   7
      Top             =   2280
      Width           =   3735
      Begin VB.TextBox Text3
         Height          =   375
         Left            =   2160
         TabIndex        =   8
         Top             =   360
         Width           =   1335
      End
      Begin VB.Label Label3
         Caption         =   "P [Watt]"
         Height          =   255
         Left            =   600
         TabIndex        =   9
         Top             =   360
         Width           =   975
      End
   End
   Begin VB.Timer Timer2
      Interval        =   1000
      Left            =   7920
      Top             =   0
   End
   Begin VB.TextBox Time1
      Height          =   285
      Left            =   6600
      TabIndex        =   3
      Top             =   120
      Width           =   1215
   End
   Begin VB.Timer Timer1
      Interval        =   1000
      Left            =   8640
      Top             =   840
   End
   Begin VB.Frame Frame1
      Caption         =   "Inserimento valori"
      Height          =   1575
      Left            =   2040
      TabIndex        =   0
      Top             =   600
      Width           =   3735
      Begin VB.TextBox Text1
         Height          =   375
         Left            =   2160
         TabIndex        =   2
         Top             =   360
         Width           =   1335
      End
      Begin VB.TextBox Text2
         Height          =   375
         Left            =   2160
         TabIndex        =   1
         Top             =   960
         Width           =   1335
      End
      Begin VB.Label Label1
         Caption         =   "R [Ohm]"
         Height          =   255
         Index           =   0
         Left            =   600
         TabIndex        =   6
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label2
         Caption         =   "I   [AmpŔre]"
         Height          =   255
         Index           =   1
         Left            =   600
         TabIndex        =   5
         Top             =   960
         Width           =   975
      End
   End
   Begin VB.Label Label4
      Caption         =   "Time of system"
      Height          =   255
      Left            =   5400
      TabIndex        =   4
      Top             =   120
      Width           =   1215
   End
   Begin VB.Menu mn¨File
      Caption         =   "&File"
      Begin VB.Menu mn¨Calcola
         Caption         =   "&Calcola"
      End
      Begin VB.Menu mn¨Azzera
         Caption         =   "&Azzera"
      End
      Begin VB.Menu mn¨Separa
         Caption         =   "-"
      End
      Begin VB.Menu mn¨Esci
         Caption         =   "&Esci"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu mn¨About
      Caption         =   "&About"
   End
   Begin VB.Menu mn¨Licenza
      Caption         =   "&Licenza"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Form1.Visible = True
frmSplash.Hide
'sposta il cursore sulla prima casella di testo
Form1.Show
Text1.SetFocus
End Sub
Private Sub Command1_Click()
'calcola i valori inseriti nelle caselle di testo text1 e text2
  Text3.Text = Val(Text1.Text) * Val(Text2.Text) ^ 2
End Sub
Private Sub Command2_Click()
'azzera le caselle di testo
' e riporta il cursore sulla prima
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
'esce dal programma quando viene premuto il tasto "esci"
  Unload Me
End Sub
Private Sub mn¨About_Click()
 frmAbout.Show vbModal
End Sub

Private Sub mn¨Azzera_Click()
'azzera le caselle di testo
' e riporta il cursore sulla prima
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Private Sub mn¨Calcola_Click()
'calcola i valori inseriti nelle caselle di testo text1 e text2
  Text3.Text = Val(Text1.Text) * Val(Text2.Text) ^ 2
End Sub

Private Sub mn¨Licenza_Click()
frmLicense.Show vbModal
End Sub
Private Sub mn¨Esci_Click()
'esce dal programma mediante il comando "Esci" presente nel men¨ "File"
Unload Me
End Sub

Private Sub Text3_Change()
'porta il cursore sul pulante "Azzera"
Command3.SetFocus
End Sub

Private Sub Timer1_Timer()
'visualizza l'ora di sistema da quando Ŕ stata_
'avviata l'applicazione
Time1.Text = Time()
End Sub
Registrato
Liwiki
Newbie
*

Karma: +0/-1
Scollegato Scollegato

Messaggi: 20


Mostra profilo E-mail
« Risposta #20 inserita:: Dicembre 08, 2016, 12:19:42 »

Il form about di "potenza elettrica"

Codice:
VERSION 5.00
Begin VB.Form frmAbout
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Informazioni su "
   ClientHeight    =   3825
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   5730
   ClipControls    =   0   'False
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2640.083
   ScaleMode       =   0  'User
   ScaleWidth      =   5380.766
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox picIcon
      AutoSize        =   -1  'True
      ClipControls    =   0   'False
      Height          =   540
      Left            =   240
      Picture         =   "frmAbout.frx":0000
      ScaleHeight     =   337.12
      ScaleMode       =   0  'User
      ScaleWidth      =   337.12
      TabIndex        =   1
      Top             =   240
      Width           =   540
   End
   Begin VB.CommandButton cmdOK
      Cancel          =   -1  'True
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   345
      Left            =   4245
      TabIndex        =   0
      Top             =   2745
      Width           =   1260
   End
   Begin VB.CommandButton cmdSysInfo
      Caption         =   "&System Info..."
      Height          =   345
      Left            =   4260
      TabIndex        =   2
      Top             =   3195
      Width           =   1245
   End
   Begin VB.Line Line1
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   112.686
      X2              =   5183.565
      Y1              =   1739.349
      Y2              =   1739.349
   End
   Begin VB.Label lblDescription
      Caption         =   "Descrizione :"
      ForeColor       =   &H00000000&
      Height          =   1050
      Left            =   1080
      TabIndex        =   3
      Top             =   1320
      Width           =   3885
   End
   Begin VB.Label lblTitle
      Caption         =   "Calcolo della potenza elettrica"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   360
      Left            =   1080
      TabIndex        =   5
      Top             =   240
      Width           =   3885
   End
   Begin VB.Line Line1
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   112.686
      X2              =   5183.565
      Y1              =   1739.349
      Y2              =   1739.349
   End
   Begin VB.Label lblVersion
      Caption         =   "Versione:"
      Height          =   195
      Left            =   1080
      TabIndex        =   6
      Top             =   840
      Width           =   3885
   End
   Begin VB.Label lblDisclaimer
      Caption         =   $"frmAbout.frx":0442
      ForeColor       =   &H00000000&
      Height          =   1065
      Left            =   240
      TabIndex        =   4
      Top             =   2640
      Width           =   3870
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

' Opzioni di protezione per la chiave del registro di configurazione
Const READ_CONTROL = &H20000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
                       KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
                       KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL
                     
' Chiavi principali del registro di configurazione
Const HKEY_LOCAL_MACHINE = &H80000002
Const ERROR_SUCCESS = 0
Const REG_SZ = 1                         ' Stringa Unicode che termina con un carattere Null
Const REG_DWORD = 4                      ' Numero a 32 bit

Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location"
Const gREGVALSYSINFOLOC = "MSINFO"
Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO"
Const gREGVALSYSINFO = "PATH"

Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long


Private Sub cmdSysInfo_Click()
  Call StartSysInfo
End Sub

Private Sub cmdOK_Click()
  Unload Me
End Sub

Private Sub Form_Load()
    Me.Caption = "Informazioni su: "
    lblVersion.Caption = "Versione " & App.Major & "." & App.Minor & "." & App.Revision
    lblTitle.Caption = "Calcolo della potenza elettrica"
End Sub

Public Sub StartSysInfo()
    On Error GoTo SysInfoErr
 
    Dim rc As Long
    Dim SysInfoPath As String
   
    ' Tenta di recuperare dal registro di configurazione il percorso e il nome
    ' del programma che consente di visualizzare le informazioni sul sistema
    If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then
    ' Tenta di recuperare dal registro di configurazione solo il percorso
    ' del programma che consente di visualizzare le informazioni sul sistema
    ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then
        ' Convalida l'esistenza di una versione a 32 bit del file conosciuta
        If (Dir(SysInfoPath & "\MSINFO32.EXE") <> "") Then
            SysInfoPath = SysInfoPath & "\MSINFO32.EXE"
           
        ' Errore. Il file non Ŕ stato trovato.
        Else
            GoTo SysInfoErr
        End If
    ' Errore. La chiave del registro di configurazione non Ŕ stata trovata.
    Else
        GoTo SysInfoErr
    End If
   
    Call Shell(SysInfoPath, vbNormalFocus)
   
    Exit Sub
SysInfoErr:
    MsgBox "Le informazioni sul sistema non sono attualmente disponibili.", vbOKOnly
End Sub

Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean
    Dim i As Long                                           ' Contatore per il ciclo
    Dim rc As Long                                          ' Codice restituito
    Dim hKey As Long                                        ' Handle a una chiave del registro di configurazione aperta
    Dim hDepth As Long                                      '
    Dim KeyValType As Long                                  ' Tipo di dati di una chiave del registro di configurazione
    Dim tmpVal As String                                    ' Posizione di memorizzazione temporanea del valore di una chiave del registro di configurazione
    Dim KeyValSize As Long                                  ' Dimensioni della variabile della chiave del registro di configurazione
    '------------------------------------------------------------
    ' Apre una chiave del registro di configurazione in una chiave principale {HKEY_LOCAL_MACHINE...}
    '------------------------------------------------------------
    rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Apre la chiave del registro di configurazione
   
    If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError          ' Gestione degli errori
   
    tmpVal = String$(1024, 0)                             ' Assegna spazio alla variabile
    KeyValSize = 1024                                       ' Specifica le dimensioni della variabile
   
    '------------------------------------------------------------
    ' Recupera il valore della chiave del registro di configurazione
    '------------------------------------------------------------
    rc = RegQueryValueEx(hKey, SubKeyRef, 0, _
                         KeyValType, tmpVal, KeyValSize)    ' Recupera/crea il valore della chiave
                       
    If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError          ' Gestione degli errori
   
    If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then           ' In Win95 viene aggiunta una stringa che termina con un carattere Null
        tmpVal = Left(tmpVal, KeyValSize - 1)               ' ╚ stato trovato un carattere Null, che viene estratto dalla stringa
    Else                                                    ' In WinNT non viene aggiunto un carattere Null al termine della stringa
        tmpVal = Left(tmpVal, KeyValSize)                   ' Non Ŕ stato trovato nessun carattere Null, pertanto estrae solo la stringa
    End If
    '------------------------------------------------------------
    ' Determina il tipo del valore della chiave per la conversione
    '------------------------------------------------------------
    Select Case KeyValType                                  ' Cerca i tipi di dati
    Case REG_SZ                                             ' Tipo di dati String per la chiave del registro di configurazione
        KeyVal = tmpVal                                     ' Copia il valore String
    Case REG_DWORD                                          ' Tipo di dati Double Word per la chiave del registro di configurazione
        For i = Len(tmpVal) To 1 Step -1                    ' Converte ogni bit
            KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1)))   ' Crea il valore carattere per carattere
        Next
        KeyVal = Format$("&h" + KeyVal)                     ' Converte Double Word in String
    End Select
   
    GetKeyValue = True                                      ' Restituisce un valore che indica che l'operazione Ŕ riuscita
    rc = RegCloseKey(hKey)                                  ' Chiude la chiave del registro di configurazione
    Exit Function                                           ' Esce dalla routine
   
GetKeyError:      ' Reimposta i dati se viene generato un errore
    KeyVal = ""                                             ' Imposta su una stringa vuota il valore restituito
    GetKeyValue = False                                     ' Restituisce un valore che indica che l'operazione non Ŕ riuscita
    rc = RegCloseKey(hKey)                                  ' Chiude la chiave del registro di configurazione
End Function

Registrato
Liwiki
Newbie
*

Karma: +0/-1
Scollegato Scollegato

Messaggi: 20


Mostra profilo E-mail
« Risposta #21 inserita:: Dicembre 08, 2016, 12:21:24 »

Lo splashscreen

Codice:
VERSION 5.00
Begin VB.Form frmSplash
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   4515
   ClientLeft      =   225
   ClientTop       =   1380
   ClientWidth     =   7965
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4515
   ScaleWidth      =   7965
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame1
      Height          =   4290
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   7680
      Begin VB.Timer Timer
         Interval        =   6500
         Left            =   7080
         Top             =   2760
      End
      Begin VB.Image Image1
         Height          =   480
         Left            =   240
         Picture         =   "Frmspl~1.frx":0000
         Top             =   2760
         Width           =   480
      End
      Begin VB.Line Line1
         BorderColor     =   &H80000016&
         BorderWidth     =   2
         X1              =   120
         X2              =   7560
         Y1              =   2520
         Y2              =   2520
      End
      Begin VB.Label lblAuthor
         AutoSize        =   -1  'True
         Caption         =   "Autore: Kick Off"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Index           =   1
         Left            =   3000
         TabIndex        =   8
         Top             =   2640
         Width           =   1410
      End
      Begin VB.Image imgLogo
         Height          =   2145
         Left            =   120
         Picture         =   "Frmspl~1.frx":0442
         Stretch         =   -1  'True
         Top             =   240
         Width           =   1455
      End
      Begin VB.Label lblCopyright
         AutoSize        =   -1  'True
         Caption         =   "ę Copyright 2009-2015"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Index           =   0
         Left            =   360
         TabIndex        =   4
         Top             =   2640
         Width           =   1680
      End
      Begin VB.Label lblAddress
         AutoSize        =   -1  'True
         Caption         =   "E-mail: kickoff073@gmail.com    kickoff073@virgilio.it"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   210
         Left            =   840
         TabIndex        =   3
         Top             =   2880
         Width           =   3795
      End
      Begin VB.Label lblWarning
         Caption         =   $"Frmspl~1.frx":1AF26
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   915
         Left            =   240
         TabIndex        =   2
         Top             =   3240
         Width           =   6615
      End
      Begin VB.Label lblVersion
         AutoSize        =   -1  'True
         Caption         =   "Versione:  1.00"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   1800
         TabIndex        =   5
         Top             =   1440
         Width           =   1695
      End
      Begin VB.Label lblPlatform
         AutoSize        =   -1  'True
         Caption         =   "For Windows 95-98-Se   32 bit"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1800
         TabIndex        =   6
         Top             =   1800
         Width           =   4485
      End
      Begin VB.Label lblProductName
         AutoSize        =   -1  'True
         Caption         =   "Calcolo della potenza elettrica"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   15.75
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Left            =   1800
         TabIndex        =   7
         Top             =   840
         Width           =   4515
      End
      Begin VB.Label lblLicenseTo
         Caption         =   "Licenza :"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1800
         TabIndex        =   1
         Top             =   240
         Width           =   3975
      End
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub Form_Load()
    lblVersion.Caption = "Versione " & App.Major & "." & App.Minor & "." & App.Revision
    lblProductName.Caption = "Calcolo della potenza elettrica"
End Sub

Private Sub Timer_Timer()
'Questa procedura scarica la finestra di benvenuto e passa il controllo
'alla normale esecuzione del programma.

Unload frmSplash
Form1.Visible = True
Timer.Enabled = False

End Sub

SŔ volete vi linko anche i file rar
Registrato
Liwiki
Newbie
*

Karma: +0/-1
Scollegato Scollegato

Messaggi: 20


Mostra profilo E-mail
« Risposta #22 inserita:: Gennaio 08, 2017, 10:22:10 »

Ecco questo Ŕ il link che vi passo:
https://www.dropbox.com/s/oct3w418h2q63uc/Potenza%20elettrica.rar?dl=0

dove potete vedere, il risultato finale che funziona egregiamente.

Ci sarebbe un'altra domanda da porvi, come si proteggono i propri programmi,
come questo una volta condiviso dalle modifiche altrui??

Saluti
Registrato
oregon
Jr. Member
**

Karma: +21/-6
Scollegato Scollegato

Messaggi: 228


Mostra profilo
« Risposta #23 inserita:: Gennaio 08, 2017, 10:50:13 »

Non puoi.
Registrato
Liwiki
Newbie
*

Karma: +0/-1
Scollegato Scollegato

Messaggi: 20


Mostra profilo E-mail
« Risposta #24 inserita:: Gennaio 08, 2017, 11:03:00 »

Oregon, spiegati meglio non puoi cosa?
Proteggere il programma quando lo realizzi?
Registrato
oregon
Jr. Member
**

Karma: +21/-6
Scollegato Scollegato

Messaggi: 228


Mostra profilo
« Risposta #25 inserita:: Gennaio 08, 2017, 11:22:03 »

Non puoi proteggere il programma in modo che qualcuno lo legga o modifichi. Chiaro?
Registrato
oregon
Jr. Member
**

Karma: +21/-6
Scollegato Scollegato

Messaggi: 228


Mostra profilo
« Risposta #26 inserita:: Gennaio 08, 2017, 11:49:18 »

Ovviamente parlo del sorgente, ovvero non puoi proteggere in alcun modo il sorgente.

Per intenderci, dato che programmate in gruppo, gli altri partecipanti che hanno il sorgente ne possono fare quel che vogliono senza che tu possa fare nulla.

Le persone a cui darai il programma, invece, avranno il file exe (eseguibile) e non potranno modificarlo (almeno non facilmente).
Registrato
Pagine: 1 [2]   Vai su
  Stampa  
 
Vai a:  

Copyright © 2017 Edizioni Master SpA. p.iva : 02105820787

Tutti i diritti di proprietà letteraria e artistica riservati. - Privacy



powered by Simple Machines