GB2-convertisseur BIN/CUE en ISO

Rédigé par spheris Aucun commentaire
Classé dans : accessoire, gambas 2, Logiciels, multimedia Mots clés : aucun
gbbincuetoiso.png
Ce front end de bchunk va vous permettre de convertir des fichier Bin cue en Iso directement gravable sur votre ordinateur. vous devez pour cela installer le fichier bchunck depuis vos depots

TELECHARGER LE FICHIER

Code source de l'application:

' Gambas class file
PUBLIC mybinfile AS String
PUBLIC mycuefile AS String
PUBLIC myisofile AS String

PUBLIC SUB _new()
END

PUBLIC SUB Form_Open()
ME.Center
END

PUBLIC SUB Menu2_Click()
ME.Close
END

PUBLIC SUB Menu4_Click()
fabout.Show
END

PUBLIC SUB Button2_Click()
ME.Close
END

PUBLIC SUB Button3_Click()
Dialog.Path = System.User.Home
Dialog.Filter = ["*.bin", "Fichiers image"]
Dialog.Title = "Selectionner un fichier image BIN"
IF Dialog.OpenFile() THEN RETURN 
mybinfile = Dialog.Path
TextBox1.Text = mybinfile
END

PUBLIC SUB Button4_Click()
Dialog.Path = System.User.Home
Dialog.Filter = ["*.cue", "Fichiers entete"]
Dialog.Title = "Selectionner un fichier d'entete d'image CUE"
IF Dialog.OpenFile() THEN RETURN 
mycuefile = Dialog.Path
TextBox2.Text = mycuefile
END

PUBLIC SUB Button1_Click()
TextArea1.Text = ""
EXEC ["bchunk", TextBox1.Text, TextBox2.Text, TextBox3.Text] TO TextArea1.Text
END

PUBLIC SUB CheckBox1_Click()
SELECT CASE CheckBox1.Value
CASE FALSE
ME.Height = 511
CASE TRUE
ME.Height = 315
END SELECT 
END

PUBLIC SUB Button5_Click()
Dialog.Path = System.User.Home
Dialog.Filter = ["*.iso", "Fichiers image ISO"]
Dialog.Title = "Donner un nom a votre fichier Image"
IF Dialog.SaveFile() THEN RETURN 
myisofile = Dialog.Path
TextBox3.Text = myisofile & ".iso"
END