Virtual-Mac/frmNewMac.vb

634 lines
25 KiB
VB.net
Raw Normal View History

Public Class frmNewMac
Public HostRAM As Long = My.Computer.Info.TotalPhysicalMemory / 1024 / 1024
Public NameWithoutPath As String
Public Sub SetFinalData()
EndMacName.Text = NameWithoutPath
EndRAM.Text = RAMBox.Text & " MB"
EndDiskPath.Text = DiskSize.Value & " MB"
End Sub
Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
Me.Close()
End Sub
Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click
If My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\Tools\qemu-img.exe") = False Then
DiskExisting.Checked = True
DiskNew.Enabled = False
End If
If Welcome.Visible = True And Welcome.Enabled = True Then
CreateFrame.Enabled = True
CreateFrame.BringToFront()
MovePage(Welcome, Wizard)
CreateNoWizard.Focus()
cmdBack.Enabled = True
Exit Sub
End If
If Wizard.Visible = True And Wizard.Enabled = True Then
If CreateFrame.Visible = True And CreateFrame.Enabled = True Then
If CreateNormal.Checked = True Or CreateNoWizard.Checked = True Then
MovePage(CreateFrame, MacNameFrame)
MacName.Focus()
MacName.SelectAll()
Else
MovePage(CreateFrame, AddFromFileFrame)
cmdNext.Enabled = False
End If
Exit Sub
End If
If AddFromFileFrame.Visible = True And AddFromFileFrame.Enabled = True Then
cmdNext.Text = "Finish"
cmdNext.Focus()
MovePage(Wizard, EndWizard)
Exit Sub
End If
If MacNameFrame.Visible = True And MacNameFrame.Enabled = True Then
If System.IO.Path.GetFileNameWithoutExtension(MacName.Text) = MacName.Text Then
NameWithoutPath = MacName.Text
End If
If My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder & "\" & NameWithoutPath) = True Then
MsgBox("This Mac already exists in ''My Macs\" & NameWithoutPath & "''. Please use a different name, or save the Mac to another location.", MsgBoxStyle.Exclamation)
Exit Sub
Else
MovePage(MacNameFrame, HwPresetsFrame)
AutoSelectOS()
End If
Exit Sub
End If
If HwPresetsFrame.Visible = True And HwPresetsFrame.Enabled = True Then
If CreateNoWizard.Checked = True Then
SetFinalData()
cmdNext.Text = "Finish"
MovePage(Wizard, EndWizard)
cmdNext.Focus()
Else
MovePage(HwPresetsFrame, RAMFrame)
End If
Exit Sub
End If
If RAMFrame.Visible = True And RAMFrame.Enabled = True Then
MovePage(RAMFrame, DiskFrame)
GoTo EndOfInstruction
End If
If DiskFrame.Visible = True And DiskFrame.Enabled = True Then
SetFinalData()
cmdNext.Text = "Finish"
MovePage(Wizard, EndWizard)
cmdNext.Focus()
Exit Sub
End If
End If
If EndWizard.Visible = True And EndWizard.Enabled = True Then
CreateMac()
Me.Close()
Exit Sub
End If
EndOfInstruction:
End Sub
Private Sub cmdBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBack.Click
If Wizard.Visible = True And Wizard.Enabled = True Then
If CreateFrame.Visible = True And CreateFrame.Enabled = True Then
cmdBack.Enabled = False
MovePage(Wizard, Welcome)
GoTo EndOfInstruction
End If
If AddFromFileFrame.Visible = True And AddFromFileFrame.Enabled = True Then
MovePage(AddFromFileFrame, CreateFrame)
GoTo EndOfInstruction
End If
If MacNameFrame.Visible = True And MacNameFrame.Enabled = True Then
MovePage(MacNameFrame, CreateFrame)
GoTo EndOfInstruction
End If
If HwPresetsFrame.Visible = True And HwPresetsFrame.Enabled = True Then
MovePage(HwPresetsFrame, MacNameFrame)
MacName.Focus()
MacName.SelectAll()
GoTo EndOfInstruction
End If
If RAMFrame.Visible = True And RAMFrame.Enabled = True Then
MovePage(RAMFrame, HwPresetsFrame)
GoTo EndOfInstruction
End If
If DiskFrame.Visible = True And DiskFrame.Enabled = True Then
MovePage(DiskFrame, RAMFrame)
GoTo EndOfInstruction
End If
End If
If EndWizard.Visible = True And EndWizard.Enabled = True Then
cmdNext.Text = "Next >"
MovePage(EndWizard, Wizard)
GoTo EndOfInstruction
End If
EndOfInstruction:
End Sub
Public Sub CreateMac()
Dim Emulator As String = ""
If CreateAddExist.Checked = True Then '//Checking "Add from file" to be checked, so we create from file
Select Case AddEmulator.SelectedItem.ToString
Case "Mini vMac Batch"
Emulator = "vMacBatch"
Case "Virtual Mac MvM File"
Emulator = "vMac"
Case "Basilisk"
Emulator = "BII"
Case "SheepShaver"
Emulator = "SheepShaver"
Case "PearPC"
Emulator = "PearPC"
Case "QEMU Windows Batch"
Emulator = "QEMUBatch"
End Select
ConfigFileHandler.CreateFromFile(AddFile.Text, Emulator, AddName.Text)
ElseIf CreateNormal.Checked = True Or CreateNoWizard.Checked = True Then '//If any of the Normal is checked, create from file
Dim UseDisk As String = ""
If DiskExisting.Checked = True Then
UseDisk = "Exist"
ElseIf DiskNone.Checked = True Then
UseDisk = "None"
ElseIf DiskNew.Checked = True Then
UseDisk = "New"
End If
Select Case HwEmulator.SelectedIndex
Case 0
Emulator = "vMac"
Case 1
Emulator = "BII"
Case 2
Emulator = "SheepShaver"
Case 3
Emulator = "PearPC"
Case 4
Emulator = "QEMUBatch"
End Select
ConfigFileHandler.Create(NameWithoutPath, MacName.Text, Emulator, RAMBox.Text, UseDisk, DiskSize.Value, DiskPath.Text)
End If
End Sub
Public Sub DisableAllPages()
EndWizard.Enabled = False
DiskFrame.Enabled = False
RAMFrame.Enabled = False
HwPresetsFrame.Enabled = False
AddFromFileFrame.Enabled = False
MacNameFrame.Enabled = False
CreateFrame.Enabled = False
Wizard.Enabled = False
Welcome.Enabled = False
End Sub
Public Sub MovePage(ByVal CurrentTab As System.Windows.Forms.Panel, ByVal NewTab As System.Windows.Forms.Panel)
NewTab.Enabled = True
NewTab.BringToFront()
CurrentTab.Enabled = False
End Sub
Public Sub DataProgrammer(ByVal OSType As String)
Select Case OSType
Case "Mac6"
If HostRAM < 8 Then
MsgBox("You have lower memory than the required to run System Software 6. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "Insufficient Memory")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 8
DiskSize.Value = 100
RAMInfo.Text = Replace(RAMInfo.Text, "%m", "8")
HwRAM.Text = 8 & " MB"
HwDisk.Text = 128 & " MB"
HwCPU.Text = "Motorola 68000"
Case "Mac7"
If HostRAM < 40 Then
MsgBox("You have lower memory than the required to run System Software 7. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 16
DiskSize.Value = 250
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 16)
HwRAM.Text = 16 & " MB"
HwDisk.Text = 250 & " MB"
HwCPU.Text = "Motorola 68040"
Case "Mac7Pro"
If HostRAM < 64 Then
MsgBox("You have lower memory than the required to run MacOS 7. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 24
DiskSize.Value = 250
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 24)
HwRAM.Text = 24 & " MB"
HwDisk.Text = 250 & " MB"
HwCPU.Text = "PowerPC G3"
Case "Mac8"
If HostRAM < 128 Then
MsgBox("You have lower memory than the required to run MacOS 8. Install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 64
DiskSize.Value = 500
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 64)
HwRAM.Text = 64 & " MB"
HwDisk.Text = 500 & " MB"
HwCPU.Text = "PowerPC G3"
Case "Mac9"
If HostRAM < 256 Then
MsgBox("You have lower memory than the required to run MacOS 9. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 256
DiskSize.Value = 1024
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 256)
HwRAM.Text = 256 & " MB"
HwDisk.Text = 1024 & " MB"
HwCPU.Text = "PowerPC G3"
Case "Mac10"
If HostRAM < 384 Then
MsgBox("You have lower memory than the required to run Mac OS X. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 384
DiskSize.Value = 3072
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 384)
HwRAM.Text = 384 & " MB"
HwDisk.Text = 3072 & " MB"
HwCPU.Text = "PowerPC G3"
Case "Debian"
If HostRAM < 400 Then
MsgBox("You have lower memory than the required to run Debian. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 400
DiskSize.Value = 4096
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 400)
HwRAM.Text = 400 & " MB"
HwDisk.Text = 4096 & " MB"
HwCPU.Text = "PowerPC G3"
Case "Ubuntu"
If HostRAM < 400 Then
MsgBox("You have lower memory than the required to run Ubuntu. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 400
DiskSize.Value = 6144
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 400)
HwRAM.Text = 400 & " MB"
HwDisk.Text = 6144 & " MB"
HwCPU.Text = "PowerPC G3"
Case "Linux"
If HostRAM < 400 Then
MsgBox("You have lower memory than the required to run Linux. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 400
DiskSize.Value = 4096
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 400)
HwRAM.Text = 400 & " MB"
HwDisk.Text = 4096 & " MB"
HwCPU.Text = "PowerPC G3"
Case "Other"
If HostRAM < 256 Then
MsgBox("You have lower memory than the required to run Other. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 256
DiskSize.Value = 4096
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 256)
HwRAM.Text = 256 & " MB"
HwDisk.Text = 4096 & " MB"
HwCPU.Text = "PowerPC G3"
End Select
'Place in cmdNext.Click code area
MacName.Text = My.Settings.DefaultMacFolder & "\" & NameWithoutPath & "\" & NameWithoutPath & ".mcf"
DiskPath.Text = My.Settings.DefaultMacFolder & "\" & NameWithoutPath & "\" & NameWithoutPath & ".dsk"
End Sub
Public Function AutoSelectOS() As String
Dim OS As String = "Other"
Dim OsFound As Long
OsFound = InStr(MacName.Text, "System Software")
If OsFound <> 0 Then
OS = "Mac6"
HwEmulator.SelectedIndex = 0
HwOSList.SelectedIndex = 0
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 6")
If OsFound <> 0 Then
OS = "Mac6"
HwEmulator.SelectedIndex = 0
HwOSList.SelectedIndex = 0
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 7")
If OsFound <> 0 Then
OS = "Mac7"
HwEmulator.SelectedIndex = 0
HwOSList.SelectedIndex = 1
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 7.")
If OsFound <> 0 Then
OS = "Mac75"
HwEmulator.SelectedIndex = 1
HwOSList.SelectedIndex = 1
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 8")
If OsFound <> 0 Then
OS = "Mac8"
HwEmulator.SelectedIndex = 2
HwOSList.SelectedIndex = 1
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 9")
If OsFound <> 0 Then
OS = "Mac9"
HwEmulator.SelectedIndex = 2
HwOSList.SelectedIndex = 2
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " Classic")
If OsFound <> 0 Then
OS = "Mac9"
HwEmulator.SelectedIndex = 4
HwOSList.SelectedIndex = 0
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 10")
If OsFound <> 0 Then
OS = "Mac10"
HwEmulator.SelectedIndex = 3
HwOSList.SelectedIndex = 0
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " X")
If OsFound <> 0 Then
OS = "Mac10"
HwEmulator.SelectedIndex = 4
HwOSList.SelectedIndex = 1
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, "Debian")
If OsFound <> 0 Then
OS = "Debian"
HwEmulator.SelectedIndex = 3
HwOSList.SelectedIndex = 1
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, "Ubuntu")
If OsFound <> 0 Then
OS = "Ubuntu"
HwEmulator.SelectedIndex = 4
HwOSList.SelectedIndex = 3
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, "Linux")
If OsFound <> 0 Then
OS = "Linux"
HwEmulator.SelectedIndex = 3
HwOSList.SelectedIndex = 2
GoTo OSDetected
End If
HwEmulator.SelectedIndex = 4
HwOSList.SelectedIndex = 0
OSDetected:
Return OS
End Function
Private Sub SaveMac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MacNameBrowse.Click
Save.Filter = "Virtual Mac Configuration File (*.mcf)|*.mcf|All files (*.*)|*.*"
Save.ShowDialog()
If Save.FileName <> "" Then
MacName.Text = Save.FileName
End If
End Sub
Private Sub frmNewMac_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
RAMSlider.TickFrequency = HostRAM / 20
RAMSlider.Maximum = HostRAM
RAMCustomInvalidSize.Text = Replace(Replace(RAMCustomInvalidSize.Text, "%x", RAMSlider.Maximum), "%n", RAMSlider.Minimum)
DisableAllPages()
MovePage(Wizard, Welcome)
AddEmulator.SelectedIndex = 0
HwEmulator.SelectedIndex = 0
End Sub
Private Sub RAM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RAMBox.TextChanged
If RAMBox.Text = "" Then
RAMSlider.Value = RAMSlider.Minimum
cmdNext.Enabled = False
RAMCustomInvalidSize.Visible = True
Else
If RAMBox.Text > RAMSlider.Maximum Then
RAMSlider.Value = RAMSlider.Maximum
cmdNext.Enabled = False
RAMCustomInvalidSize.Visible = True
Else
If RAMBox.Text < RAMSlider.Minimum Then
RAMSlider.Value = RAMSlider.Minimum
cmdNext.Enabled = False
RAMCustomInvalidSize.Visible = True
Else
RAMSlider.Value = RAMBox.Text
RAMCustomInvalidSize.Visible = False
cmdNext.Enabled = True
End If
End If
End If
End Sub
Private Sub RAMSlider_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RAMSlider.Scroll
RAMBox.Text = RAMSlider.Value
End Sub
Private Sub RAMDefault_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RAMDefault.CheckedChanged, RAMCustom.CheckedChanged
If RAMCustom.Checked = True Then
RAMControlsPanel.Enabled = True
RAMControlsPanel.Visible = True
Else
RAMControlsPanel.Enabled = False
RAMControlsPanel.Visible = False
End If
End Sub
Private Sub OSList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HwOSList.SelectedIndexChanged
Select Case HwOSList.SelectedItem.ToString
Case "System Software 6"
DataProgrammer("Mac6")
Case "System Software 7"
DataProgrammer("Mac7")
Case "System Software 7 Pro"
DataProgrammer("Mac7Pro")
Case "Mac OS 8"
DataProgrammer("Mac8")
Case "Mac OS 9"
DataProgrammer("Mac9")
Case "Mac OS X"
DataProgrammer("Mac10")
Case "Debian"
DataProgrammer("Debian")
Case "Lubuntu"
DataProgrammer("Ubuntu")
Case "Other Linux"
DataProgrammer("Linux")
Case "Other"
DataProgrammer("Other")
End Select
End Sub
Private Sub HwEmulator_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HwEmulator.SelectedIndexChanged
Select Case HwEmulator.SelectedIndex
Case 0
HwOSList.Items.Clear()
HwOSList.Items.Add("System Software 6")
HwOSList.Items.Add("System Software 7")
HwOSList.Items.Add("Other")
HwOSList.SelectedIndex = 0
Case 1
HwOSList.Items.Clear()
HwOSList.Items.Add("System Software 7")
HwOSList.Items.Add("System Software 7 Pro")
HwOSList.Items.Add("Mac OS 8")
HwOSList.Items.Add("Other")
HwOSList.SelectedIndex = 0
Case 2
HwOSList.Items.Clear()
HwOSList.Items.Add("System Software 7 Pro")
HwOSList.Items.Add("Mac OS 8")
HwOSList.Items.Add("Mac OS 9")
HwOSList.Items.Add("Other")
HwOSList.SelectedIndex = 0
Case 3
HwOSList.Items.Clear()
HwOSList.Items.Add("Mac OS X")
HwOSList.Items.Add("Debian")
HwOSList.Items.Add("Lubuntu")
HwOSList.Items.Add("Other Linux")
HwOSList.Items.Add("Other")
HwOSList.SelectedIndex = 0
Case 4
HwOSList.Items.Clear()
HwOSList.Items.Add("Mac OS 9")
HwOSList.Items.Add("Mac OS X")
HwOSList.Items.Add("Debian")
HwOSList.Items.Add("Lubuntu")
HwOSList.Items.Add("Other Linux")
HwOSList.Items.Add("Other")
HwOSList.SelectedIndex = 0
End Select
End Sub
Private Sub BrowseDiskLocation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DiskPathBrowse.Click
If DiskNew.Checked = True Then
Save.Filter = "Disk files (*.dsk)|*.dsk|Disk Image Files (*.img)|*.img|All files (*.*)|*.*"
Save.ShowDialog()
If Save.FileName <> "" Then
DiskPath.Text = Save.FileName
End If
Else
Open.Filter = "Disk files (*.dsk)|*.dsk|Disk Image Files (*.img)|*.img|All files (*.*)|*.*"
Open.ShowDialog()
If Open.FileName <> "" Then
DiskPath.Text = Open.FileName
End If
End If
End Sub
Private Sub MacName_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MacName.GotFocus
MacName.SelectAll()
End Sub
Private Sub Disk_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DiskNew.CheckedChanged, DiskExisting.CheckedChanged
If DiskNew.Checked = True Then
DiskSizeFrame.Visible = True
Else
DiskSizeFrame.Visible = False
End If
If DiskNone.Checked = True Then
DiskPath.Enabled = False
DiskPathBrowse.Enabled = False
Else
DiskPath.Enabled = True
DiskPathBrowse.Enabled = True
End If
End Sub
Private Sub AEBrowseFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddFileBrowse.Click
Open.Filter = "Batch files|*.bat|Basilisk/SheepShaver preferences file|*_prefs|PearPC Config Files|*.cfg|Virtual Mac Mini vMac Configuration File|*.mcf|All files|*.*"
Select Case AddEmulator.SelectedIndex
Case 0
Open.FilterIndex = 0
Case 1
Open.FilterIndex = 3
Case 2
Open.FilterIndex = 1
Case 3
Open.FilterIndex = 1
Case 4
Open.FilterIndex = 2
Case 5
Open.FilterIndex = 0
Case Else
Open.FilterIndex = 4
End Select
Open.ShowDialog()
If Open.FileName <> "" Then
AddFile.Text = Open.FileName
End If
End Sub
Private Sub AEName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddName.TextChanged
If AddName.Text <> "" And AddFile.Text <> "" Then
cmdNext.Enabled = True
Else
cmdNext.Enabled = False
End If
End Sub
Private Sub AEFile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddFile.TextChanged
If AddName.Text <> "" And AddFile.Text <> "" Then
cmdNext.Enabled = True
Else
cmdNext.Enabled = False
End If
End Sub
End Class