Mulig å forkorte denne koden på ett vis?

[AnaXyd]

Hei! Jeg har en kode som jeg har mekket, men den er fryktelig lang, og føler at den er veldig tungvin.

 

 

 

Klikk for å se/fjerne innholdet nedenfor

' This function sets the correct downgrader

        ' 2.0 Downgrader

        If My.Settings.PSP_Firmware = "1.51" And My.Settings.PSP_Motherboard = "Below TA-082" = True Then

            My.Settings.PSP_DG = "2.0"

        End If

        If My.Settings.PSP_Firmware = "1.52" And My.Settings.PSP_Motherboard = "Below TA-082" = True Then

            My.Settings.PSP_DG = "2.0"

        End If

        If My.Settings.PSP_Firmware = "2.0" And My.Settings.PSP_Motherboard = "Below TA-082" = True Then

            My.Settings.PSP_DG = "2.0"

        End If

 

        ' 2.0 Downgrader for TA-082 users

        If My.Settings.PSP_Firmware = "1.51" And My.Settings.PSP_Motherboard = "TA-082 or above" = True Then

            lblMessage.Text = "You got a TA-082 mainboard. If you use this downgrader on a TA-082 mainboard, you will maybe get a brick. Please upgrade to 2.80, and use the 2.80 downgrader instead, which supports TA-082."

            Button2.Enabled = False

            Timer1.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            Timer2.Enabled = False

            Button2.Text = "Disabled"

            Label19.Text = "The downgrader has been halted. Please read messages above."

            Timer3.Start()

 

 

        End If

        If My.Settings.PSP_Firmware = "1.52" And My.Settings.PSP_Motherboard = "TA-082 or above" = True Then

            lblMessage.Text = "You got a TA-082 mainboard. If you use this downgrader on a TA-082 mainboard, you will maybe get a brick. Please upgrade to 2.80, and use the 2.80 downgrader instead, which supports TA-082."

            Button2.Enabled = False

            Timer1.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            Timer2.Enabled = False

            Button2.Text = "Disabled"

            Label19.Text = "The downgrader has been halted. Please read messages above."

            Timer3.Start()

        End If

        If My.Settings.PSP_Firmware = "2.0" And My.Settings.PSP_Motherboard = "TA-082 or above" = True Then

            lblMessage.Text = "You got a TA-082 mainboard. If you use this downgrader on a TA-082 mainboard, you will maybe get a brick. Please upgrade to 2.80, and use the 2.80 downgrader instead, which supports TA-082."

            Button2.Enabled = False

            Timer1.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            Timer2.Enabled = False

            Button2.Text = "Disabled"

            Label19.Text = "The downgrader has been halted. Please read messages above."

            Timer3.Start()

        End If

 

        ' 2.71 Downgrader

        If My.Settings.PSP_Firmware = "2.01" And My.Settings.PSP_Motherboard = "Below TA-082" = True Then

            My.Settings.PSP_DG = "2.71"

        End If

        If My.Settings.PSP_Firmware = "2.50" And My.Settings.PSP_Motherboard = "Below TA-082" = True Then

            My.Settings.PSP_DG = "2.71"

        End If

        If My.Settings.PSP_Firmware = "2.60" And My.Settings.PSP_Motherboard = "Below TA-082" = True Then

            My.Settings.PSP_DG = "2.71"

        End If

        If My.Settings.PSP_Firmware = "2.70" And My.Settings.PSP_Motherboard = "Below TA-082" = True Then

            My.Settings.PSP_DG = "2.71"

        End If

        If My.Settings.PSP_Firmware = "2.71" And My.Settings.PSP_Motherboard = "Below TA-082" = True Then

            My.Settings.PSP_DG = "2.71"

        End If

 

        ' TA-082 Users for 2.71

        If My.Settings.PSP_Firmware = "2.01" And My.Settings.PSP_Motherboard = "TA-082 or above" = True Then

            lblMessage.Text = "You got TA-082 mainboard. If you want to downgrade without using any game, please upgrade to firmware 2.80, and retry. (Remember to change the options too)"

            Button2.Enabled = False

            Timer1.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            Timer2.Enabled = False

            Button2.Text = "Disabled"

            Label19.Text = "The downgrader has been halted. Please read messages above."

            Timer3.Start()

 

        End If

 

        If My.Settings.PSP_Firmware = "2.50" And My.Settings.PSP_Motherboard = "TA-082 or above" = True Then

            lblMessage.Text = "You got TA-082 mainboard. If you want to downgrade without using any game, please upgrade to firmware 2.80, and retry. (Remember to change the options too)"

            Button2.Enabled = False

            Timer1.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            Timer2.Enabled = False

            Button2.Text = "Disabled"

            Label19.Text = "The downgrader has been halted. Please read messages above."

            Timer3.Start()

        End If

 

        If My.Settings.PSP_Firmware = "2.60" And My.Settings.PSP_Motherboard = "TA-082 or above" = True Then

            lblMessage.Text = "You got TA-082 mainboard. If you want to downgrade without using any game, please upgrade to firmware 2.80, and retry. (Remember to change the options too)"

            Button2.Enabled = False

            Timer1.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            Timer2.Enabled = False

            Button2.Text = "Disabled"

            Label19.Text = "The downgrader has been halted. Please read messages above."

            Timer3.Start()

        End If

 

        If My.Settings.PSP_Firmware = "2.70" And My.Settings.PSP_Motherboard = "TA-082 or above" = True Then

            lblMessage.Text = "You got TA-082 mainboard. If you want to downgrade without using any game, please upgrade to firmware 2.80, and retry. (Remember to change the options too)"

            Button2.Enabled = False

            Timer1.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            Timer2.Enabled = False

            Button2.Text = "Disabled"

            Label19.Text = "The downgrader has been halted. Please read messages above."

            Timer3.Start()

        End If

 

        If My.Settings.PSP_Firmware = "2.71" And My.Settings.PSP_Motherboard = "TA-082 or above" = True Then

            lblMessage.Text = "You got TA-082 mainboard. If you want to downgrade without using any game, please upgrade to firmware 2.80, and retry. (Remember to change the options too)"

            Button2.Enabled = False

            Timer1.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            Timer2.Enabled = False

            Button2.Text = "Disabled"

            Label19.Text = "The downgrader has been halted. Please read messages above."

            Timer3.Start()

        End If

 

        ' 2.80 Downgrader

        If My.Settings.PSP_Firmware = "2.80" Then

            My.Settings.PSP_DG = "2.80"

            lblMessage.Text = "Remember, the downgrader that is chosen, supports all mainboards..! "

        End If

 

        ' 3.03 Downgrader

        If My.Settings.PSP_Firmware = "3.00" And (My.Settings.PSP_Game = "Both" = True Or My.Settings.PSP_Game = "GTA: Liberty City (Unpatched)" = True) Then

            My.Settings.PSP_DG = "3.03"

            Label22.Text = "GTA: Liberty City"

        Else

            lblMessage.Text = "It seems like you dont have any GTA: LC game. You cant downgrade without. Sorry. Maybe you should try the 3.50 downgrader, if you have Lumines?"

            Button2.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            LinkLabel1.Visible = True

        End If

        If My.Settings.PSP_Firmware = "3.01" And (My.Settings.PSP_Game = "Both" = True Or My.Settings.PSP_Game = "GTA: Liberty City (Unpatched)" = True) Then

            My.Settings.PSP_DG = "3.03"

            Label22.Text = "GTA: Liberty City"

        Else

            lblMessage.Text = "It seems like you dont have any GTA: LC game. You cant downgrade without. Sorry. Maybe you should try the 3.50 downgrader, if you have Lumines?"

            Button2.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            LinkLabel1.Visible = True

        End If

        If My.Settings.PSP_Firmware = "3.02" And (My.Settings.PSP_Game = "Both" = True Or My.Settings.PSP_Game = "GTA: Liberty City (Unpatched)" = True) Then

            My.Settings.PSP_DG = "3.03"

            Label22.Text = "GTA: Liberty City"

        Else

            lblMessage.Text = "It seems like you dont have any GTA: LC game. You cant downgrade without. Sorry. Maybe you should try the 3.50 downgrader, if you have Lumines?"

            Button2.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            LinkLabel1.Visible = True

        End If

        If My.Settings.PSP_Firmware = "3.03" And (My.Settings.PSP_Game = "Both" = True Or My.Settings.PSP_Game = "GTA: Liberty City (Unpatched)" = True) Then

            My.Settings.PSP_DG = "3.03"

            Label22.Text = "GTA: Liberty City"

        Else

            lblMessage.Text = "It seems like you dont have any GTA: LC game. You cant downgrade without. Sorry. Maybe you should try the 3.50 downgrader, if you have Lumines?"

            Button2.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            LinkLabel1.Visible = True

        End If

        If My.Settings.PSP_Firmware = "2.81" And (My.Settings.PSP_Game = "Both" = True Or My.Settings.PSP_Game = "GTA: Liberty City (Unpatched)" = True) Then

            My.Settings.PSP_DG = "3.03"

            Label22.Text = "GTA: Liberty City"

        Else

            lblMessage.Text = "It seems like you dont have any GTA: LC game. You cant downgrade without. Sorry. Maybe you should try the 3.50 downgrader, if you have Lumines?"

            Button2.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            LinkLabel1.Visible = True

        End If

        If My.Settings.PSP_Firmware = "2.82" And (My.Settings.PSP_Game = "Both" = True Or My.Settings.PSP_Game = "GTA: Liberty City (Unpatched)" = True) Then

            My.Settings.PSP_DG = "3.03"

            Label22.Text = "GTA: Liberty City"

        Else

            lblMessage.Text = "It seems like you dont have any GTA: LC game. You cant downgrade without. Sorry. Maybe you should try the 3.50 downgrader, if you have Lumines?"

            Button2.Enabled = False

            Timer1.Stop()

            Timer2.Stop()

            LinkLabel1.Visible = True

        End If

 

        ' 3.50 Downgrader

        If My.Settings.PSP_Firmware = "3.50" And (My.Settings.PSP_Game = "Both" = True Or My.Settings.PSP_Game = "Lumines" = True) Then

            My.Settings.PSP_DG = "3.50"

            Label22.Text = "Lumines"

        Else

        End If

 

Uff, jeg er egentlig litt flau over denne... Er så mye dritt og møkk inne der, og den fungerer ikke skikkelig en gang..

 

Jeg kan forklare kort hva den gjør. Eller hva den skal gjøre da.

Den skal kjøre ved form_load, og sjekker ved instillingene man har satt, og setter en innstilling for hva den skal gjøre senere.

 

Senere kopierer programmet mitt de riktige filene, til PSP'n.(ikke vist i koden jeg har postet over)

 

 

Jeg har måtte bruke timere, for å få det til å fungere sånn greit. Derfor er dette en litt sånn "ghetto" kode..

 

Hvis det er noen som er så snille og gidder å se på alt dette tuklet, mens jeg selv prøver å rense litt der.. Hadde det vært utrolig snilt!

 

PS: Ikke mobb meg for den koden...

[AnaXyd]

Tror jeg har funnet ut av en enklere løsning:

Klikk for å se/fjerne innholdet nedenfor

' Set the firmware

        If My.Settings.PSP_Firmware = "1.51" Or My.Settings.PSP_Firmware = "1.52" Or My.Settings.PSP_Firmware = "2.0" And My.Settings.PSP_Motherboard = "Below TA-082" = True Then

            My.Settings.PSP_DG = "2.0"

        ElseIf My.Settings.PSP_Firmware = "2.01" Or My.Settings.PSP_Firmware = "2.50" Or My.Settings.PSP_Firmware = "2.60" Or My.Settings.PSP_Firmware = "2.70" Or My.Settings.PSP_Firmware = "2.71" Then

            My.Settings.PSP_DG = "2.71"

        ElseIf My.Settings.PSP_Firmware = "2.80" Then

            My.Settings.PSP_DG = "2.80"

        ElseIf My.Settings.PSP_Firmware = "2.81" Or My.Settings.PSP_Firmware = "2.82" Or My.Settings.PSP_Firmware = "3.00" Or My.Settings.PSP_Firmware = "3.01" Or My.Settings.PSP_Firmware = "3.02" Or My.Settings.PSP_Firmware = "3.03" Then

            My.Settings.PSP_DG = "3.03"

        ElseIf My.Settings.PSP_Firmware = "3.50" Then

            My.Settings.PSP_DG = "3.50"

        End If

 

Er denne grei, eller kan det bli dumt med en ElseIf? Kanskje jeg skal separere kodene utenom ElseIf?

 

Setter pris på svar..

[Spartakus]

Etter en kjapp gjennomgang, kunne jeg i allefall se masse nesten lik kode, du bør lage en funksjon som kan ta en eller to stringer inn i parameterlista og gjør noe basert på hva som er i stringene.

 

Hva bruker du timerne til egentlig?

[AnaXyd]

Jeg er ikke så avansert enda, slik at jeg kan gjøre det du nevnte..

 

Timer1: Er for å sjekke om PSP'n er koblet til. (Jeg kan strengt tatt ikke huske hvorfor jeg la inn timerne nå)

Timer2: Bare hjelper en progressbar med å fylle seg opp. Mer som en effekt.

Timer3: Denne disabler hele downgraderen ( Jeg aner ikke hvorfor jeg har satt den slik )

 

Men, jeg tror den andre koden jeg postet her er litt bedre å gå ut ifra?

Den funker omtrent likt, men det er en liten bug. Jeg skal prøve å forklare den:

 

Den fungerer veldig bra, men det er en bug. Når jeg har satt en setting(jeg kan velge hvilken firmware PSP'n kjører på, og diverse annet i en meny jeg har laget)

 

Når jeg klikker meg ut av den settings formen, skal den lagre til My.Settings.

Deretter, åpner jeg formen som skal kopiere de riktige filene til PSP.

(Filene som skal bli kopiert avhenger av hvilken firmware jeg har satt. Er det 2.0, skal 2.0 filene kopieres over. Er det 3.50, skal 3.50 filene over.)

Men, etter at jeg har endret settingen, skjønner ikke den formen at det skal brukes de riktige filene som samsvarer med riktig firmware.

Se illustrasjon under.

 

 

 

Det må jo være noe med den koden jeg akkurat har laget?

Poster den en gang til:

Klikk for å se/fjerne innholdet nedenfor

' Set the firmware

        If My.Settings.PSP_Firmware = "1.51" Or My.Settings.PSP_Firmware = "1.52" Or My.Settings.PSP_Firmware = "2.0" And My.Settings.PSP_Motherboard = "Below TA-082" = True Then

            My.Settings.PSP_DG = "2.0"

        ElseIf My.Settings.PSP_Firmware = "2.01" Or My.Settings.PSP_Firmware = "2.50" Or My.Settings.PSP_Firmware = "2.60" Or My.Settings.PSP_Firmware = "2.70" Or My.Settings.PSP_Firmware = "2.71" Then

            My.Settings.PSP_DG = "2.71"

        ElseIf My.Settings.PSP_Firmware = "2.80" Then

            My.Settings.PSP_DG = "2.80"

        ElseIf My.Settings.PSP_Firmware = "2.81" Or My.Settings.PSP_Firmware = "2.82" Or My.Settings.PSP_Firmware = "3.00" Or My.Settings.PSP_Firmware = "3.01" Or My.Settings.PSP_Firmware = "3.02" Or My.Settings.PSP_Firmware = "3.03" Then

            My.Settings.PSP_DG = "3.03"

        ElseIf My.Settings.PSP_Firmware = "3.50" Then

            My.Settings.PSP_DG = "3.50"

        End If

 

Er veldig takknemlig om noen gidder å hjelpe!

 

EDIT: Ah! Jeg tror jeg fant det ut gitt.

 

Disse to:

Label17.Text = My.Settings.PSP_DG

        Label11.Text = My.Settings.PSP_Firmware

Er ansvarlig for de tallene som skal samsvare. Disse lå over den andre koden, slik at de ble kjørt først. Jeg tror det var alt som skulle til?

Endret 13. juli 2007 av AnaXyd

[Degeim]

Select case

 

'Set the firmware
Select Case My.Settings.PSP_Firmware
       Case "1.51", "1.52", "2.0" 
             If My.Settings.PSP_Motherboard = "Below TA-082" Then
                   My.Settings.PSP_DG = "2.0" 
             Else
                   'Noe her?
             End if
       Case "2.01", "2.50", "2.60", "2.70", "2.71"
           My.Settings.PSP_DG = "2.71"
       Case "2.80"
           My.Settings.PSP_DG = "2.80"
       Case "2.81", "2.82", "3.00", "3.01", "3.02", "3.03"
           My.Settings.PSP_DG = "3.03"
       Case "3.50"
           My.Settings.PSP_DG = "3.50"
       End Select

 

Om jeg ikke var alt for kjapp på labben, så skal denne koden virke helt likt med den du hadde, og denne er myyye penere.

[AnaXyd]

Oh tusen takk! Den der var MYE enklere og MYE penere ja! Herregud, og i forhold til den første da.. Det skulle nesten ikke ha vært lov..

[Manfred]

Du har ikke tenkt å gi controlsa dine noen litt andre navn enn Label1, Label2, Label3, Timer1, Timer2....? Det blir jo klin umulig å lese koden etterhvert.

[AnaXyd]

Å? Ikke for meg... Enda.. Kan jo rename dem til lblStatus, tmrPang osv. Det du mener?

[Manfred]

Så lenge du skal sette verdier på de, blir det en helt håpløs og meningsløs kode dersom du ikke har litt mer fornuftige navn på de...