Richard87

Hei, har sett det, men har ikke programmerings kabelen for de kretsene, + nå har jeg bestil arduino + power shielde (fant ut at jeg ikke trente ethernet shielde, siden jeg kan bruke usb-porten som serieport når jeg ikke programmer den )

Hmm, var redd for det, og tror du har rett

Så satser på en Arduino sats me Ethernet Shield og PowerDriver, det bør gjør susen

Takker for svar

om jeg må koble noen innganger til ground eller vcc for at den skal fungere? eventuelt en krystall eller en kondensator?

Også lurer jeg på hvilken bitrate/baudrate og flow controll/stoppbiter som trengs på programm-siden

(Sorry for mange spørsmål, men har lest igjennom dokumentasjonen 2 ganger, holder på med nr 3, uten og finne noen klare svar :S )

[EDIT]

hmmm, fant dette bildet som tyder på at 16C550 trenger både egen krystall + en MAX232 kontroller med egen krystall og kondensatorer for å fungere :S

http://mycpu.selfhost.it/otherprojects/c64terminal/schematic.png

OK, takker for svar

Er enda litt usikker på om UART'en trenger litt mer for og fungere, og om det er nok å kun sende CHR(FF / 1111 1111) på Com1, og så vil alle utgangene være 1 fram til neste bokstav blir sendt?

Da har jeg akuratt funnet en mosfet som jeg tror vil fungere,

en IRL530n, MOSFET TO-220AB N 100 V 17 A,

https://www.elfaelektronikk.no/elfa3~no_no/elfa/init.do?item=71-182-43&toc=0

Noen som vet om dette vil fungere(jeg har _ikke_ peiling)?

Hei, har komt litt lengre... men trenger hjelp til å koble outputten fra tl16c550 til lysutgangene...

Utgangene skal drive 50w, 12v ca 3,5A... har noen en idee til hvordan jeg kan løse dette?

Hei,

Holder på med et lysstyrings program på pc'en(som er ferdig), men har problemer med å koble opp utganene... Prøvde først med en USB-Paralell port, men siden den kun dukket opp som USB-Printer-port istedenfor LPT1 så funket det dårlig.

Så neste prosjektet mitt er å koble en serieport til en Serial-Paralell "Shift Register" eventuelt med en 'UART - driver'...

Bare så det er sagt, jeg hadde vk1 elektronikk på skolen for ett par år siden, men husker veldig lite...

Målet er å kunne styre 6 spotter på ca 40w, mest sannsynlig med noen mosfetter mellom utgangen og lampene...

Hmm, Lefdal sier de har 100+ på lager, er dette bare BS eller fakta? ("Collenct@Store" sier varen er utilgjengelig )

Hei

Ja, har brukt GetPixel tidligere, men denne er alt for treg...

ok, etter endel leting fant jeg ut at bitmapdata.stride ikke = bwork.length * 3, men inkluderer en 'padding', så når jeg jobber med et bilde med en bredde på 3piksler = 9 byte, får jeg en 'padding' på 3 byte... :O

Noen ideer hvordan jeg hoppe over 3 byte når jeg har gåt igjennom 9 byte på en elegant måte?

[EDIT]

og her e resultatet av den elegante metoden min: :S

           For y = 0 To bWork.Height - 1
               If y = 0 Then
                   ptr = bData.Scan0
               Else
                   ptr = ptr + bData.Stride
               End If
               System.Runtime.InteropServices.Marshal.Copy(ptr, bytesdata, 0, lLine)
               For x = 0 To lLine - 1 Step 3
                   red += (bytesdata(x + 2))
                   green += (bytesdata(x + 1))
                   blue += (bytesdata(x))
               Next
           Next

Ok, fant ut at jeg måtte legge på *3 når jeg regnet ut antall bytes...

Jeg lurer ennå på hvorfor bytene er i feil rekkefølge? BGR istedenfor RGB??

[EDIT] Okay, etter masse debugging og ett bilde på 10x10 piksler, så begynner det greit, men etter 39 byte(eller noe) så forandres rekkefølgen?? :O :O

Akkuratt nå er jeg uten ideer totalt :S

(PS. jeg må ikke legge på *3 når jeg bruker stride og ikke width.... )

Hei, jeg jobber med et programm for å finne ut den mest fremmhevede fargen i ett bilde(eller i 9 forskjellige regioner). Men resulatet blir svart/grått uansett (33,33,33)....

Her er koden min

'lWitch = hvilken region som skal kalkuleres, bOrg er det orginale bitmapet
   Private Function CalculateColorFromRect(ByVal lWitch As Long, ByVal bOrg As Bitmap) As Color
       Dim c As Color = Color.FromArgb(0, 0, 0) ' black
       Dim rect As Rectangle = CreateRect(lWitch, bOrg)
       Dim bWork As Bitmap = bOrg.Clone(rect, PixelFormat.Format24bppRgb)

       Dim bData As BitmapData = bWork.LockBits(New Rectangle(0, 0, bWork.Width, bWork.Height), ImageLockMode.ReadOnly, PixelFormat.Format24bppRgb)
       Dim ptr As IntPtr = bData.Scan0
       Dim bytes As Long = bData.Stride * bWork.Height
       Dim byteData(bytes) As Byte
       System.Runtime.InteropServices.Marshal.Copy(ptr, byteData, 0, bytes)
       Dim red As Long, bR As Byte
       Dim blue As Long, bB As Byte
       Dim green As Long, bG As Byte
       Dim x As Long

       Try
           For x = 0 To bytes Step 3
               If x + 3 > bytes Then
                   Exit For
               End If
               blue += (byteData(x))
               red += (byteData(x + 2))
               green += (byteData(x + 1))
           Next
       Catch ex As Exception
           Return Color.FromArgb(0, 0, 0)
       End Try
       bR = CByte(red / bytes)
       bB = CByte(blue / bytes)
       bG = CByte(green / bytes)
       Return Color.FromArgb(bR, bG, bB)

       bWork.UnlockBits(bData)
       Return c
   End Function

Bildet som jeg tester med er vedlagt (helt enkelt rødt(235,33,28 sånn ca..) )

red.bmp

The_Viper@EFNET: Hei, er nøyaktig det jeg har lyst å lage

JohndoeMAKT: Og det er nøyaktig det jeg har prøvd å finne ut av, uten hell , får ta en nærmere skikk på det ikveld

(Tror ikke SR-Bank sine koder har dette, men vet postbanken har det. men målet er uansett å ikke få timeout )

Nei, sikkerheten forsvinner vis du lager en liste med forhånds-genererte koder, husk på at du må lage en ny kode vis du vil betale en regning ell. Eneste du kan gjøre uten å generere ny kode er å godkjenne e-faktura'er og hente ned gammel betalings historikk.

Målet er å lage ett budsjett fra gammel betalings informasjon...

hadde håpet at det var lagt et grensesnitt til bruke på denne måten.. (spesielt for faktura programmer etc)

Alternativet var å lage en slags nettleser som laster opp, sender inn personnummeret, viser bankid innloggingsboksen, og så henter ut opplysningene på den vannskelige måten men samtidig ha nokk aktivitet sånn at brukeren ikke blir logget ut. (Eller skal jeg hente ned informasjonen, og la brukeren bli utlogget, for så å måtte logge inn for og oppdatere dataene? Hva tror dere er tryggest? )

Men å lage en nettleser i bakgrunnen til å ta vare på cookies etc, kjøre nødvendig javascript? blir veldig vannskeligt.. :/

Hei,

Jeg har lyst å utvikle ett programm som henter ned tall og statistikk fra nettbanken min (SR-Bank) og vise dette på en 'fin' måte.

Problemet er hvordan henter jeg ned innformasjonen fra internettet, finnes det ett slags API for dette ferdig laget, eller må jeg gjøre det på den vannskelige måten(regex og finne linker og hente ut informasjon fra websiden? )

Og hvordan kan jeg autentisere meg med BankID? Noen idèer?

PS. Programmet skal kun ha mulighet til og hente ned informasjon, og skal ikke kunne betale regninger etc.

Er ganske sikker på at det ikke er feil lenger oppe i koden, vis jeg bytter

$entrys[0] = 'test';

med f.eks print('test'); så funker dette fint...

$list[$count] = 2; //$node->textContent; <--- Mens denne feiler uansett(om jeg bruker 2 eller $node-> ...
$list[$count] = 'test'; <--- Denne funker fint ????

Dette er det merkeligste problemet jeg har vært borti noengang.

ps. $node->textContent er bare en string variabel med tekst...

[edit]

Bruker gedit, men kansje du har ett poeng:S når jeg kommenterte ut begge linjene og skrev linjen på ny(med $node->textContent) så funket det uten feil... ??????

Hei, skjønner ikke bæret her :S

får denne feilmeldingen:

Parse error: syntax error, unexpected T_STRING in /var/www/test/search/func.php on line 35

		if ($node->attributes->getNamedItem("class")->nodeValue == 'entry') {
			$entrys[0] = 'test'; //$node->textContent; // <---- Linje nr 35..
			$count++;
			$current++;
		}

Noen ideer?? er helt blank...

hmm, interessant svar, har du lyst og utdype litt? Hvorfor bør jeg begynne med C# istedenfor VB.Net ?

Jeg ser det nå, men VB.net Compact framework støtter ikke denne funksjonen. (Uansett ligger funksjonen under "My Project" -> "Settings" (måtte lete litt;) )

Nope, det viste jeg ikke... hvordan fungerer disse funksjonene?

Hei,

Jeg vil stjele en idè fra PHP forumet om gjenbrukbar kode, og begynner med en klasse jeg lagde for å holde orden på config uten og bruke registeret(bruker XML dokumenter)

slik blir koden brukt:

Dim config as new clsConf("config.xml") 'hvis filen ikke finnes blir den lagd'
Dim Brukernavn as string = config.item("brukernavn", "default") 'legg til standard brukernavn ell.'
config.save() 'lagre den eventuelt nye filen'
config.item("brukernavn") = "Richard87" 'endre ett ellement'
config.save() 'lagre endringene'

Public Class clsConf
   Private mCur As Xml.XmlNode
   Private xmldoc As New Xml.XmlDocument
   Private Filename As String

   Public Sub New(ByRef strFilename As String)
       If System.IO.File.Exists(strFilename) Then
           xmldoc.Load(strFilename)
       Else
           Dim strXML As String = "<?xml version=""1.0"" encoding=""utf-8"" ?><head></head>"

           xmldoc.LoadXml(strXML)
       End If
       mCur = xmldoc.SelectSingleNode("/head")
       Filename = strFilename

   End Sub

   Public Function Save() As Boolean
       Try
           xmldoc.Save(Filename)
       Catch ex As Exception
           Return False
       End Try

       Return True
   End Function


   Private Function GetItem(ByRef strName As String) As String
       For Each mNode As Xml.XmlNode In mCur.ChildNodes
           If mNode.Name = strName Then
               Return mNode.InnerText
               Exit For
           End If
       Next
       Return ""
   End Function


   Private Sub SetItem(ByRef strName As String, ByRef strValue As String)
       Dim bSet As Boolean = False
       For Each mNode As Xml.XmlNode In mCur.ChildNodes
           If mNode.Name = strName Then
               mNode.InnerText = strValue
               bSet = True
               Exit For
           End If
       Next

       If Not bSet Then
           Try
               Dim mnode As Xml.XmlNode
               mnode = xmldoc.CreateElement(strName)
               mnode.InnerText = strValue
               mCur.AppendChild(mnode)
           Catch ex As Exception
               MsgBox("Feil i programmet" & vbNewLine & "Kunne ikke legge til node!", MsgBoxStyle.Critical, "Feil")
           End Try

       End If
   End Sub

   Public Property Item(ByVal setting As String, Optional ByVal def As String = "") As String
       Get
           Try
               Dim str As String = GetItem(setting)
               If str = "" Then
                   str = def
                   SetItem(setting, def)
               End If
               Return str
           Catch ex As Exception
               SetItem(setting, def)
               Return def
           End Try
       End Get
       Set(ByVal value As String)
           SetItem(setting, value)
       End Set
   End Property
End Class

Takker for svar, det hørtes jo ganske logisk ut...

Hei,

Har laget en del programmer og bruker som regel en Properties skjerm eller en slags custom Input vindu...

Men hver gang jeg gjør dette sender jeg data'en fram og tilbake på forskjellige måter, mesteparten som globale variabler, andre ganger som en egen klasse.

Men hva er 'rette' måten og gjøre dette på?

Takker for inspill