[LED]Versie 1.1 is allang af. :)

[Benadski]

Voor de mensen die mijn oude topic omhoog hebben geschopt en niet weten dat er al lang een nieuwe versie is: Er is al lang een nieuwe versie

Zie mijn sig voor de link...

Zijn er nog bugs gevonden (in de nieuwste versie dan hè)?

[sebastius]

ik wil je source zien!

[Verwijderd]

handig

[sebastius]

Is het nou gewoon de installer die zo groot is of is je executable zo groot.

O stom, tis de installer dus. De executable is 24 kb groot!

[ Voor 0% gewijzigd door sebastius op 26-10-2002 21:49 . Reden: dat dus ]

[sebastius]

Hee Benadski! Op met die sourcecode!

[Benadski]

Ga je een uitgebreide versie maken met serie en parallelschakelingen erin? Met meerdere LEDs in serie? Of ben je gewoon nieuwschierig?

Mail ff voor de source...

[sebastius]

Ja ik wil een uitgebreidere versie maken inderdaad. Zodra ie af is zie je het wel. Bedankt voor je source iig!

[Verwijderd]

Het is Visual Basic, dus 1kb exe en 1,4MB aan ocx en dll-sch**t

[Verwijderd]

Ehm, een paar tipjes:
- maak een fixed single van de form want nu issie resizebaar
- zorg dattie standaard een andere program files map neemt dan Project1 want die gebruiken mijn VB proggies al

[sebastius]

Hee Benadski, ik ben al lekker bezig met mijn LED programmatje. Hij heeft nog geen kleurcode-ondersteuning, maar de code is wel een stuk leesbaarder:

Form bestaat uit 5 textboxen, genaamd:

txtBronspanning voor de voedingsspanning
txtLedspanning voor de spanning van de LED
txtLedampere voor het amperage van de LED (let op, in mili-amperes invullen, hij rekent ze zelf om!)
txtWeerstand voor de exacte weerstand
txtE12 voor de omhoog afgeronde E12 waarde

code:

Option Explicit

Private Sub cmdBereken_Click()
    Dim volt As Double, ampere As Double, weerstand As Double
    
    volt = Val(txtBronspanning.Text) - Val(txtLedspanning.Text)
    If volt < 0 Then
        Exit Sub
    End If
  
    ampere = Val(txtLedAmpere.Text) / 1000
    weerstand = volt / ampere
    
    txtWeerstand.Text = weerstand
    txtE12.Text = maak_e12(weerstand)
    
End Sub

Private Function maak_e12(weerstand) As Double

Dim tientallen As Integer, teller As Integer
Dim e12 As Variant

e12 = Array(8.2, 6.8, 5.6, 4.7, 3.9, 3.3, 2.7, 2.2, 1.8, 1.5, 1.2, 1)

For tientallen = 6 To 0 Step -1
    For teller = 0 To 11
        If weerstand < e12(teller) * (10 ^ tientallen) Then
            maak_e12 = e12(teller) * (10 ^ tientallen)
        End If
    Next teller
Next tientallen

End Function

[sebastius]

Ik ga nu dus verder met kleurcode systeem en ook het koppelen van weerstanden om hem exacter te maken. Niet echt nuttig maar wel leuk.

[Benadski]

Hmm, code is wat netter als die van mij denk ik... leuk!

Mja, ik ben dan ook nog niet zo lang bezig met Visual Basic... Ben nu voor school bezig met het debuggen van een databaseprogramma... Argh, echt slecht geprogrammeerd door de makers... En een beetje teveel code, had het uitgeprint: meer dan 500 A4-tjes!!! Moet voor december af

Als je die kleurcodes erin gaat verwerken dan zou je misschien ook 5 rings weerstanden kunnen invoegen en een E24 reeksje is ook leuk! Of parallel en serie schakelingen automatisch laten berekenen, zodat je het dichtst bij de exacte waarde kan komen...

In mijn volgende versie (als ik er nog tijd voor heb) komt dat er allemaal bij, tevens een databaseje om de led gegevens in te plaatsen, met plaatjes van de LEDs en overige specs zoals golflengte, stralingshoek, lichtoutput enz. Natuurlijk ook een mogelijkheid om meerdere LEDs in serie te zetten...

[Verwijderd]

Er zit een schoonheidsfoutje in vs. 1.1

Als de komma niet is gefiniëerd (landinstelling: getallen èn valuta: komma vervangen door punt) dan geeft het programma een foutmelding: run-time error 13 type mismatch
Sommige mensen werken namelijk met deze instelling.


De fout kun je als volgt voorkomen:

ipv de waarde vast in de tekstbox te zetten
doe dit tijdens Form_Load( ) met dit commando:


Private Sub Form_Load()
Text1.Text = Format(2.1, "0.00")
End Sub


(met dank aan Prox)

[m-m]

Mail 'm ff dan...