Cambiare il colore delle ombre file .prm

In questa zona vengono raccolte le discussioni che riguardano lo sviluppo di nuovi progetti per ARM e per Re-Volt

Moderatore: Michelangelo

Rispondi
Maximvs
Messaggi: 402
Iscritto il: sab 14 giu 2008, 11:27

Cambiare il colore delle ombre file .prm

Messaggio da Maximvs » gio 25 lug 2013, 11:21

Vi posto un pezzo di codice per modificare il colore delle ombre nei file .prm, spero che possa servire a chi vuole sperimentare

Codice VB

Codice: Seleziona tutto

Public Class Form1
    Structure DCol
        Dim R As Integer
        Dim G As Integer
        Dim B As Integer
    End Structure

    Dim ColoreSel As DCol

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Dim ApriColore As New ColorDialog()
        ApriColore.ShowDialog()
        PictureBox1.BackColor = ApriColore.Color
        ColoreSel.R = ApriColore.Color.R
        ColoreSel.G = ApriColore.Color.G
        ColoreSel.B = ApriColore.Color.B
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim RicercaConclusa As Boolean = False
        Dim i As Integer
        Dim ApriFile As New OpenFileDialog()
        ApriFile.Filter = "Mesh Re-Volt(*.prm)|*.prm"
        If ApriFile.ShowDialog() = DialogResult.Cancel Then
            MsgBox("Non hai selezionato nessun file", vbExclamation, "Messaggio")
            Exit Sub
        End If
        Dim FileArray() As Byte = My.Computer.FileSystem.ReadAllBytes(ApriFile.FileName)
        Dim StopRicerca As Integer = (BitConverter.ToInt16(FileArray, 0)) * 60
        For x = 16 To StopRicerca Step 60
            For k = 0 To 8 Step 4
                FileArray(x + k) = ColoreSel.B
                FileArray(x + k + 1) = ColoreSel.G
                FileArray(x + k + 2) = ColoreSel.R
            Next k
        Next x
        My.Computer.FileSystem.WriteAllBytes(ApriFile.FileName, FileArray, False)
        MsgBox("File scritto con successo", vbInformation, "Scrittura")
    End Sub
End Class
Qui il Codice C#

Codice: Seleziona tutto

using System;
using System.Windows.Forms;
using System.IO;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
        struct ColoreRGB
        {
            public byte R;
            public byte G;
            public byte B;
        }
        ColoreRGB ColoreSel;
        private void pictureBox1_Click(object sender, EventArgs e)
        {
            ColorDialog ApriColore = new ColorDialog();
            ApriColore.ShowDialog();
            pictureBox1.BackColor = ApriColore.Color;
            ColoreSel.R = ApriColore.Color.R;
            ColoreSel.G = ApriColore.Color.G;
            ColoreSel.B = ApriColore.Color.B;
        }
        private void button1_Click(object sender, EventArgs e)
        {
            bool RicercaConclusa=false;
            int i;
            byte[] FileArray;

            OpenFileDialog ApriFile = new OpenFileDialog();
            ApriFile.Filter = "Mesh Re-Volt(*.prm)|*.prm";
            if (ApriFile.ShowDialog(this)==DialogResult.Cancel)
            {
                MessageBox.Show("Non hai selezionato nessun file","Messaggio",MessageBoxButtons.OK ,MessageBoxIcon.Exclamation);
                return;
            }
            FileArray = File.ReadAllBytes(ApriFile.FileName); 
                       
            for (i = FileArray.Length -1 ; i > 0; i--)
			{
			    for (int x=0; x<=7;x++)
                {
                    if (FileArray[i-x]!=0) break;
                    if (x == 7) RicercaConclusa = true;
                }
                if (RicercaConclusa == true) break;
            }
            for (int x = 16; x < i; x = x + 60)
            {
                for (int k=0;k<=8;k=k+4)
                {
                    FileArray[x + k] =  ColoreSel.B;
                    FileArray[x + k + 1] = ColoreSel.G;
                    FileArray[x + k + 2] = ColoreSel.R;
                }
            }
            File.WriteAllBytes(ApriFile.FileName,FileArray);
            MessageBox.Show("File scritto con successo","Scrittura",MessageBoxButtons.OK ,MessageBoxIcon.Information );              
        }
    }
}

Ultima modifica di Maximvs il gio 25 lug 2013, 17:28, modificato 2 volte in totale.

Avatar utente
TheFactor82
Amministratore
Messaggi: 7987
Iscritto il: gio 4 mag 2006, 21:26
Località: Torino
Contatta:

Re: Cambiare il colore delle ombre file .prm

Messaggio da TheFactor82 » gio 25 lug 2013, 13:38

Ma io mi chiedo: mi sti codici, dove van messi? Come vanno usati???
:dubbi: :-?
My Gp's:
10 Settembre 2000: Monza - ITA (F1)
24-25 Aprile 2004: Imola - RSM (F1)
07 Ottobre 2007: Monza - ITA (WTCC)
31 Agosto 2008: Misano - ITA (MOTOGP/250/125)
05-07 Settembre 2008: Spa Francorchamps - BEL (F1)
20-22 Luglio 2012: Hockenheimring - GER (F1)
07 Settembre 2014: Monza - ITA (F1)
14 Aprile 2018: Roma - ITA (FE)

My ARM Card

Maximvs
Messaggi: 402
Iscritto il: sab 14 giu 2008, 11:27

Re: Cambiare il colore delle ombre file .prm

Messaggio da Maximvs » gio 25 lug 2013, 13:57

il codice che ho scritto è VB .net se vuoi ti mando i due eseguibili che ho fatto fin ora adesso stavo lavorando su un 3° Codice che serve per convertire da .3ds a .prm, ho postato questi 2 pezzettini minuscoli di codice per far si che chi vuole li può usare in qualche applicazione lol

Ho scritto anche il codice in C# :imp:
Ultima modifica di Maximvs il gio 25 lug 2013, 15:30, modificato 1 volta in totale.

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 7 ospiti