Alexen

Hva er teksten på knappene i utgangspunktet? hvis de er "" altså tom så før du et problem.

la oss si at første trykk er på knapp9. da er:

if(knapp1.getText() == knapp2.getText() && knapp2.getText() == knapp3.getText() && knapp1.getText() != ""){

win = true;

}

sann. fordi knapp1,2 og 3 alle er "" altså like. Da blir det en feilaktig win.

Edit: glem det, gikk litt fort i svingene. så ikke den != ""

Hehe. Litt sprøtt at du spurte om dette nå. For 3 dager siden laget jeg et program for mitt eget bruk i c#. Jeg bruker bare webbrowser-kontrollen og "HtmlAgilityPack" http://htmlagilitypack.codeplex.com/ for å "parse" data. Jeg henter ned alt av kontoutskrifter og lagrer det deretter lokalt i en database. Da kan jeg gjøre interessante ting som å gruppere og sortere informasjon. Dette er noe som jeg mener postbanken burde tilby i utgangspunktet. Er veldig relevant for meg å vite hvor mye jeg f.eks bruker på uteplasser i løpet av et år

Vet ikke om det var no sånn du tenkte på?

Det var en veldig lite beskrivende emnetittel.

Jeg regner med du snakker om bokstaver og ikke ord her?

En mulighet er å gå igjennom alle bokstavene i en løkke og se på asciiverdiene. Hvis differansen mellom neste bokstav og denne er 1 så er de i alfabetisk rekkefølge. ÆØÅ må her spesialbehandles siden de har litt andre asciiverdier.

Edit: En annen og kanskje bedre måte er å bare ta en streng med alfabetet og deretter sjekke om den inneholder teksten i tekstboksen. Blir et par linjer med kode det.

Hei!

Rota isammen et lite vbsscript i full fart:

---------------------

Set objFSO = CreateObject("Scripting.FileSystemObject")

objStartFolder = objFSO.GetParentFolderName(Wscript.ScriptFullName) ' kan endres

Set objFolder = objFSO.GetFolder(objStartFolder)

Set colFiles = objFolder.Files

For Each objFile in colFiles

if LCase(Right(objFile, 4)) = ".jpg" then

CreateTxtFile(objFile)

End if

Next

ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)

For Each Subfolder in Folder.SubFolders

Set objFolder = objFSO.GetFolder(Subfolder.Path)

Set colFiles = objFolder.Files

For Each objFile in colFiles

if LCase(Right(objFile, 4)) = ".jpg" then

CreateTxtFile(objFile)

End if

Next

Next

End Sub

Sub CreateTxtFile(objFile)

File_Name = Left(objFile, InStrRev(objFile,".") - 1)

Ext = Mid (objFile, InStrRev(objFile,".") + 1)

if objFSO.FileExists(File_Name & ".txt") = false then

Set NewsFile = objFSO.CreateTextFile(File_Name & ".txt", True)

NewsFile.Close

End if

End Sub

-------------------

Det ser ut til å fungere men ingen garantier

Det er lenge siden jeg har rørt vbs så det kan være bugs her og der

Rekursjon brukes for å gå igjennom alle undermapper. Txt-filene blir lagt i samme mappe som jpgfila, regner med det var det du ville?

Ja når kan man egentlig et programmeringsspråk?

Har vært innom en del språk, men er ikke så sikker på at jeg kan noen av dem:

C64-Basic <3

Qbasic/Quickbasic

pascal/delphi

assembly

c++

Vb4-6/vb2005-2010

C#

tcl

php

python

java

Hei!

Du kan splitte og sette sammen data sånn som du gjør, men det er ikke no særlig pen løsning. Det er vel egentlig to problemer som må takles her. Første er registrering av et varemerke i flere kategorier. For å få dette til kan man bruke en mellomtabell som innholder varemerkeid og kategoriID. da vil en rad i denne tabellen representere en kobling mellom et varemerke og en kategori. Det andre problemet er kategorier og underkategorier. Det kan man løse ved å sette inn et ekstra felt i kategoritabellen. Dette feltet forteller om denne kategorien har noen kategorier over seg, altså om det er en underkategori. Tar med noen bilder for å illustrere.

(Den ene relasjonen er feil vei, en vare_i_kategori tilhører ikke flere kategorier)

La inn et merke og noen kategorier

Varemerke:

Data for koblingstabell:

Kategoritabell:

Som du ser inneholder noen av kategoriene null(ingen data) i overkategori-feltet. Da vet man at dette er en toppkategori.

I dette eksemplet finner man Samsung under skjermer og tv'er, begge disse er underkategorier.

Nå kan du bruke en sqlsetning som:

select v.navn, k.Navn FROM varemerke AS v, vare_i_kategori AS vk, kategori AS k WHERE k.id = vk.katid AND vk.vareid = v.id AND v.navn = 'samsung';

for å få ut kategorier samsung ligger i.

Håper dette ga mening.

Jeg drev en god stund med visual basic før jeg gikk over til c# som hovedspråk, og har ikke angret et sekund på det. Det finnes flere tråder om akkurat dette emnet på forumet. eksempel: https://www.diskusjon.no/index.php?showtopic=871710

En viktig faktor er at c# ligner mer på andre brukte programmeringsspråk (c++/java/php og sikkert flere) og du kan dermed lettere ta de i bruk.

Jeg er så sinnsykt skuffa. Tror det blir android her og.

En link hadde vært kjekt. Hadde man i tillegg visst om dette kun gjelder de som har netcom abb. så hadde jo det vært helt genialt

Det her kan du vel løse ved å bruke en pivottabell der du bruker antall-funksjonen.

http://office.microsoft.com/nb-no/excel/HP...tTable%20report

Den linken forklarer det ganske greit. Når dette er gjort kan du legge inn et filer for høyeste verdi.

Alternativt kan du lage en egen funksjon i vba hvis du har kunnskaper om dette.

Da lurer jeg på hva du er ute etter for det der løser jo oppgaven ganske greit da

http://msdn.microsoft.com/en-us/library/aa...28VS.85%29.aspx

Dette er vel kanskje det du er ute etter

Dette var skuffende. Jeg slenger meg på ønsket om å kunne fortsette å bruke den gamle versjonen til denne er kommet ut av beta. Er en del filtre som mangler, bla minnehastighet.

Bare å sende i pm

Heisann!

Nå er det noen år siden jeg har drevet med Access/vba. Sånn som jeg skjønner koden her så vil du sikre deg at et felt er utfylt før en post får legges til. Usikker på hvorfor det ikke fungerer. Den får ihvertfall ikke kjørt undokommanoen. Kanskje koden burde ligge i beforeupdated-eventen?

Jeg ville ihvertfall gjort det slik som dette for å sikre at et felt må fylles ut.

-----------------------

Private Sub Form_BeforeUpdate(Cancel As Integer)

If IsNull(Me![ReqNr]) Then

Msgbox "Du må fylle ut nødvendige felt før posten kan lagres."

Cancel = 1

End if

End Sub

---------------------------

Da slipper du å bruke no undo i det hele tatt.

Hei.. satt å kjeda meg litt her så mekka ihop noe som kanskje kan hjelpe deg. Slenger med et bilde for å vise. Er bare å velge mappe, den lister opp pdf's. åsså kan du rename de i tur og orden nedover. Laga dette på en halvtime så er ikke helt usannsynlig at den er bugga. Anbefaler at du har en sikkerhetskopi i tillfelle. Bare å pm meg så kan jeg sende det over. krever .net 2.

Edit: Det beste hadde selvfølgelig vært å kunne gjøre hele jobben automatisk ved å hente ut bilde fra hver pdf og så analysere det med litt ocr/icr for å hente ut kundenummer. Burde ikke være helt umulig med mindre folk skriver helt for jævlig .. Feltet for kundenummer ligger vel bestandig på samme plass så man trenger bare å analysere en liten bit av bildet. Kunne vært gøy å prøvd dette men da må jeg ha et par sampler av pdfs.

Hei.. Nå er det en stund siden jeg har brukt Access, men er ikke noe problem å gjøre dette med vba. Er bare å bruke .Enabled egenskapen til tekstboksene. Ser for meg at Afterupdate eventen til vekselsknappen er stedet å legge koden.

Tekstxxx.Enabled = Veksleknapp.Value

Tekstxxx.Enabled = Veksleknapp.Value

Tekstxxx.Enabled = Veksleknapp.Value

osv

Håper dette ga mening og hjalp litt

Har søkt meg inn på informatikk nå, så da blir det flytting sørover tenker jeg

Supportjobb er noe jeg absolutt kunne tenke meg. Har jobbet med lignende før og trives veldig godt i en sånn setting. Er morsomt når man kan løse problemer og samtidig lære nye ting.

YellowCake: Så tøft at du turte å prøve noe nytt og dermed endte med drømmejobben

Aklla: lærevilje, interesse og ærlighet har jeg i bøtter og spann

Målet er vel å kunne studere og samtidig ha en deltidsjobb slik at man får brukt kunnskapene sine.

ligger hos sun..

http://java.sun.com/products/archive/

Her kan du velge versjon. Sun fraskriver seg alt ansvar dersom pc'en din eksploderer siden detter er utgåtte produkter

http://java.sun.com/products/archive/j2se/1.3.1/index.html

er link til 1.3.1

Er bare å bruke: If Not Char.IsNumber(e.KeyChar) And Not e.KeyChar = ControlChars.Back Then

Hei!

Fikk du løst problemet med flere skjermer?

fungerte nå ja.. var skriveproblemer til fila som var årsaken.

Nå ligger jo dette postet under programmering så når jeg snakker om fullscreen så mener jeg det du gjør internt i programmet

holder på med en egen versjon nå sånn for morro skyld. bruker bitblt api for å kopiere bildet inn i en fullscreen-form

Heisann!

for en enkel men genial ide

får en Exception når den prøver å lagre bildet. Errorkode 5.. Kanskje jeg kan fyre opp en kopi av programmet og ta et bilde av feilmeldinga.. haha..

Tror jeg må mekke en egen versjon av dette programmet. Kan jeg spørre hvordan du gjør det? Regner med du tar et snapshot av desktop'en. kjører i fullscreen og manipulerer det?

En ide jeg har er å kunne tegne enkle ting på bildet. Ofte når jeg sender noe til noen vil jeg feks ha en rød ring rundt området der de skal fokusere. Skrive en liten forklaring e.l

Lykke til videre

Det var litt vanskelig å skjønne hva du er ute etter her ja.

Du har en listbox med filnavn som du vil laste ned fra en url?

Er det slik at du bare skal laste ned EN fil? dvs den som er merket i listboksen? isåfall kan du bruke følgende kode:

Dim Baseurl As String = "http://www.linktilminside.com/filer/"

If ListBox1.SelectedIndex > -1 Then ' Ingen vits i å gjøre noe hvis ingenting er valgt i listboxen.

Dim filnavn As String = ListBox1.SelectedItem

Dim wc As New WebClient

wc.DownloadFile(Baseurl & filnavn, "D:\" & filnavn & ".rar")

MsgBox("done") ' bør vel ha noe som varsler om at fila er ferdignedlasta

End If

------- En ting du kan legge til er mulighet for å velge flere ting fra listboxen åsså laste ned alle de. Dessuten bør du ha med exception hvis noe går galt.

@GeirGrusom: Det med xml er vel noe han kan bare kan gjøre dersom dette er en webside han har laget selv? Eller misforstår jeg noe.

Edit: senkveld, småfull og skrivefeil

C++0x kommer i visual c++ 2010