mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-06-04 22:29:28 +00:00
623da0afb0
Deleted the files which were before in master (Those can be found in the releases > 0.3.0) Uploaded new files which are of the 0.5.2 version Now you can open a Basilisk II config file (To add it, open the New Mac Wizard, select "Create from file" and set the emulator to Basilisk II) and also you can edit and save it (Note that to edit it you must open the section "Edit Config File Manually" and make your changes there)
43 lines
2.0 KiB
VB.net
43 lines
2.0 KiB
VB.net
Option Strict Off
|
|
Option Explicit On
|
|
Friend Class frmAbout
|
|
Inherits System.Windows.Forms.Form
|
|
' : Some sidenotes to do:
|
|
' ; I've made many declarations here and in ApplicationEvents.vb because
|
|
' ; in this case I could't (or I didn't know how to) reuse declarations
|
|
' ; (Maybe inheritance, but I don't know how to use it, I'll check later)
|
|
' ; So to make it clear, in SetInfo() every argument is used as the value
|
|
' ; for its equivalent, example Proc (Of Proc-essor, not confuse with procedure)
|
|
' ; is set with CPU.
|
|
'
|
|
' ; Note for me: The labels can confuse values with the declarations, rename them
|
|
|
|
Private Sub EmaculationLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles EmaculationLink.LinkClicked
|
|
Process.Start("http://www.emaculation.com/doku.php")
|
|
End Sub
|
|
|
|
Private Sub ArmandoLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles ArmandoLink.LinkClicked
|
|
Process.Start("http://edsonarmando.000webhostapp.com")
|
|
End Sub
|
|
|
|
Private Sub frmAbout_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
SetLabels()
|
|
Dim AvailRAM As Long = (My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024
|
|
RAMAvailable.Text = AvailRAM & " MB"
|
|
End Sub
|
|
|
|
Public Sub SetLabels()
|
|
OSName.Text = SysInfo.OSName
|
|
OSVersion.Text = SysInfo.OSBuild
|
|
CPUType.Text = SysInfo.CPUClass
|
|
CPUCores.Text = SysInfo.CPUCores
|
|
RAMInstalled.Text = SysInfo.InstalledRAM
|
|
CurrUsr.Text = SysInfo.UserName
|
|
PCName.Text = SysInfo.ComputerName
|
|
End Sub
|
|
|
|
Private Sub AvailMemTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvailMemTimer.Tick
|
|
Dim AvailRAM As Long = (My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024
|
|
RAMAvailable.Text = AvailRAM & " MB"
|
|
End Sub
|
|
End Class |