diff options
Diffstat (limited to 'bin/G-FSUAE/G-FS-UAE/.src/leggi.module')
-rw-r--r-- | bin/G-FSUAE/G-FS-UAE/.src/leggi.module | 278 |
1 files changed, 0 insertions, 278 deletions
diff --git a/bin/G-FSUAE/G-FS-UAE/.src/leggi.module b/bin/G-FSUAE/G-FS-UAE/.src/leggi.module deleted file mode 100644 index 1f76967..0000000 --- a/bin/G-FSUAE/G-FS-UAE/.src/leggi.module +++ /dev/null @@ -1,278 +0,0 @@ -' Gambas module file - -Private opzione As New String[] -Private tipo As String -Private valore As String - -Public Sub leggi_conf() -Dim hFile As File -Dim sLine As String - -hFile = Open (fmain.ComboBox5.Text) For Input -While Not Eof(hFile) - Line Input #hFile, sLine - Try opzione = Split(sline, "\n") - confronta - Wend -Close #hFile - -End - -Public Sub confronta() - Dim a As Integer - Dim risultato As String - For Each risultato In opzione - Try a = InStr(risultato, "=") - If a <> 0 Then - tipo = Left(risultato, a - 2) - valore = Mid(risultato, a + 2, a + 100) - assegna - End If - Next -End - -Public Sub assegna() - - Select Case tipo - Case "amiga_model" - FMain.ComboBox1.text = valore - Case "accurancy" - FMain.slider1.value = Val(valore) - Case "ntsc_mode" - If valore = "1" Then - FMain.radiobutton1.value = True - Else If valore = "0" Then - FMain.RadioButton2.value = True - End If - Case "#mAmiga" - Select Case valore - Case "500" - fmain.RadioButton3.value = True - fmain.TextBox9.text = "" - Case "1200" - fmain.RadioButton4.value = True - fmain.TextBox8.text = "" - End Select - - Case "kickstart_file" - If fmain.RadioButton3.value = True Then fmain.TextBox8.text = valore - If fmain.RadioButton4.value = True Then fmain.TextBox9.text = valore - Case "kickstart_ext_file" - fmain.TextBox10.text = valore - - Case "chip_memory" - Select Case Left(valore, 1) - Case "5" - FMain.RadioButton5.value = True - Case "1" - FMain.RadioButton6.value = True - Case "2" - FMain.RadioButton7.value = True - Case "4" - FMain.RadioButton8.value = True - Case "8" - FMain.RadioButton9.value = True - End Select - - Case "slow_memory" - Select Case Trim(Left(valore, 2)) - Case "51" - FMain.RadioButton10.value = True - Case "10" - FMain.RadioButton11.value = True - Case "17" - FMain.RadioButton12.value = True - Case "0" - FMain.RadioButton13.value = True - End Select - - Case "fast_memory" - Select Case Left(valore, 1) - Case "0" - FMain.RadioButton14.value = True - Case "1" - FMain.RadioButton15.value = True - Case "2" - FMain.RadioButton16.value = True - Case "4" - FMain.RadioButton17.value = True - Case "8" - FMain.RadioButton18.value = True - End Select - - Case "zorro_iii_memory" - Select Case Left(valore, 2) - Case "0" - FMain.RadioButton19.value = True - Case "10" - FMain.RadioButton20.value = True - Case "20" - FMain.RadioButton21.value = True - Case "40" - FMain.RadioButton22.value = True - Case "81" - FMain.RadioButton23.value = True - Case "16" - FMain.RadioButton24.value = True - Case "32" - FMain.RadioButton25.value = True - Case "65" - FMain.RadioButton38.value = True - Case "13" - FMain.RadioButton39.value = True - Case "26" - FMain.RadioButton40.value = True - End Select - - Case "uae_gfxcard_size" - fmain.Slider6.value = valore - - Case "joystick_port_0" - Select Case valore - Case "auto" - FMain.RadioButton29.value = True - Case "mouse" - FMain.RadioButton30.value = True - Case "keyboard" - FMain.RadioButton31.value = True - End Select - - Case "joystick_port_1" - Select Case valore - Case "auto" - FMain.RadioButton26.value = True - Case "mouse" - FMain.RadioButton27.value = True - Case "keyboard" - FMain.RadioButton28.value = True - End Select - - Case "joystick_port_2" - Select Case valore - Case "auto" - FMain.RadioButton32.value = True - Case "mouse" - FMain.RadioButton33.value = True - Case "keyboard" - FMain.RadioButton34.value = True - End Select - - Case "joystick_port_3" - Select Case valore - Case "auto" - FMain.RadioButton35.value = True - Case "mouse" - FMain.RadioButton36.value = True - Case "keyboard" - FMain.RadioButton37.value = True - End Select - - Case "#df1" - If valore = "-1" Then - FMain.CheckBox8.Value = CBool(valore) - Else - FMain.CheckBox8.Value = False - End If - Case "#df2" - If valore = "-1" Then - FMain.CheckBox7.Value = CBool(valore) - Else - FMain.CheckBox7.Value = False - End If - Case "#df3" - If valore = "-1" Then - FMain.CheckBox5.Value = CBool(valore) - Else - FMain.CheckBox5.Value = False - End If - Case "floppy_drive_0" - fmain.TextBox20.text = valore - Case "floppy_drive_1" - fmain.TextBox16.text = valore - Case "floppy_drive_2" - fmain.TextBox17.text = valore - Case "floppy_drive_3" - fmain.TextBox18.text = valore - Case "floppy_image_0" - fmain.TextBox15.text = valore - Case "floppy_image_1" - fmain.TextBox11.text = valore - Case "floppy_image_2" - fmain.TextBox12.text = valore - Case "floppy_image_3" - fmain.TextBox13.text = valore - Case "floppy_image_4" - fmain.TextBox14.text = valore - - Case "#hd0" - If valore = "-1" Then - FMain.CheckBox4.Value = CBool(valore) - Else - FMain.CheckBox4.Value = False - End If - Case "#hd1" - If valore = "-1" Then - FMain.CheckBox6.Value = CBool(valore) - Else - FMain.CheckBox6.Value = False - End If - Case "#hd2" - If valore = "-1" Then - FMain.CheckBox9.Value = CBool(valore) - Else - FMain.CheckBox9.Value = False - End If - Case "hard_drive_0" - FMain.TextBox6.text = valore - Case "hard_drive_1" - FMain.TextBox19.text = valore - Case "hard_drive_2" - FMain.TextBox22.text = valore - Case "#cd0" - If valore = "-1" Then - FMain.CheckBox10.Value = CBool(valore) - Else - FMain.CheckBox10.Value = False - End If - Case "#cd1" - If valore = "-1" Then - FMain.CheckBox11.Value = CBool(valore) - Else - FMain.CheckBox11.Value = False - End If - Case "cdrom_drive_0" - FMain.TextBox23.text = valore - Case "cdrom_image_0" - FMain.TextBox24.text = valore - - Case "floppy_drive_volume" - FMain.slider4.value = Val(valore) - Case "floppy_drive_speed" - FMain.slider5.value = Val(valore) - Case "fullscreen" - fmain.CheckBox1.value = CBool(Val(valore)) - Case "keep_aspect" - fmain.CheckBox2.value = CBool(Val(valore)) - Case "fsaa" - fmain.combobox2.text = valore - Case "video_sync" - fmain.ComboBox3.text = valore - Case "scanlines" - fmain.CheckBox3.value = CBool(Val(valore)) - Case "scanlines_dark" - FMain.slider3.value = Val(valore) - Case "scanlines_light" - FMain.slider2.value = Val(valore) - Case "#shad" - fmain.ComboBox10.text = valore - Case "line_doubling" - fmain.CheckBox14.value = CBool(Val(valore)) - Case "low_resolution" - fmain.CheckBox15.value = CBool(Val(valore)) - End Select - - -End - - - |