Jump to content

sk1rty

Medlemmer
  • Content Count

    835
  • Joined

  • Last visited

Community Reputation

0

About sk1rty

  • Birthday 03/01/1988

Profile Information

  • Kjønn
    Mann
  1. Fant etter hvert ut at mye av koden var feil og hodet mitt ikke klarte å tenke klart. Kom frem til dette etter noen dager: Public Class Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim rad, kolonne As Integer Dim i, j As Integer Dim tall As Single Dim tab As String Dim divisjon(8, 8) For rad = 0 To 8 For kolonne = 0 To 8 divisjon(rad, kolonne) = (rad + 1) / (kolonne + 1) Next kolonne Next rad tab = vbTab For i = 1 To 9 tab = tab & i & vbTab Next i ListBox1.Items.Add(tab) For i = 0 To 8 tab = i + 1 & ":" & vbTab For j = 0 To 8 tall = divisjon(i, j) tab = tab & Format(tall, "#0.00") & vbTab Next j ListBox1.Items.Add(tab) Next i End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Clear() End Sub End Class Som ble temmelig bra
  2. Med begge kodene dine får jeg akkurat samme som jeg har hatt siden jeg fikk problemer. Altså output med ni 1-tall nedover i listboksen.
  3. Slik du tenker? Public Class Form1 Private divisjon(9, 9) As Integer Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim tall1 As Double Dim tall2 As Double Dim ut As Double For tall1 = 1 To 9 For tall2 = 1 To 9 divisjon(tall1, tall2) = tall1 / tall2 Next tall2 Next tall1 For ut = 1 To 9 ListBox1.Items.Add(divisjon(ut, ut) & vbTab) Next ut End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Clear() End Sub End Class
  4. Den er selvfølgelig feilplassert. Skal stå på den utskriftsløkka lenger ned. Men koden fungerer like dårlig uansett...
  5. Hei, Prøver å programmere en divisjonstabell ved hjelp av 2D matriser og for-løkker. Noen som ser hva jeg gjør feil? Målet er at jeg skal skrive ut en fin tabell med tall delt på 1-9 akkurat som en gangetabell. Hvis dere syns denne koden er ekkel å lese så kan dere se på linken under koden. Public Class Form1 Private divisjon(9, 9) As Double Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim tall1 As Double Dim tall2 As Double Dim ut As Double = 0 For tall1 = 1 To 9 For tall2 = 1 To 9 divisjon(tall1, tall2) = tall1 / tall2 Next tall2 Next tall1 For ut = 1 To 9 ListBox1.Items.Add(divisjon(ut, ut)) Next ut End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Clear() End Sub End Class Link til koden formatert korrekt på copypastecode.com EDIT: har endret litt på koden, men fungerer fortsatt ikke.
  6. Noen som har noen erfaringer med Air Asia? Skal fly de fra BKK til SGN 28. feb. Har bestilt litt ekstra ting som bra sete, mat, comfort kit og priority boarding.
  7. Ble en slant penger i dag også på de lavere divisjoner i England. Tilbakebetalingsprosent på 204 så langt i oktober. Må si meg fornøyd så langt. Lagt inn kuppong på landskampene på fredag, litt etter feeling egentlig. Skal sikkert legge inn en kupong til før kampene starter
  8. Satser på at denne går inn. Mange som er enige i hvertfall
  9. Hva er linken til bloggen din Kjensen? Er det noen som har begynt å tenke på morgendagens CL-runde?
  10. Brukte Bangkok Air sist jeg var i Thailand. Betalte 280 kr for en billett fra BKK til Koh Samui. Den billetten kjøpte jeg 1 time før avgang!
  11. Det blir i hvertfall Thailand, Vietnam og Laos. Det er de som er spikret. Hva som skjer senere er usikkert. Jeg tenker å dra med tog og buss. Også ikke bare ta lange etapper for å komme meg til plasser, men oppleve på veien. Men er mulig jeg reiser med fly fra Bangkok til Ho Chi Ming med fly siden jeg har noen bonus poeng hos Thai Air jeg kan bruke.
  12. Sweet! Da vet jeg om den siden Før brukte jeg nesten alltid Finn. De som fant de billigste turene når jeg søkte. Takk!
  13. Hvis du skal ha god mat i Amsterdam og vil spare litt penger kan jeg varmt anbefale Luden. På Luden får du en treretter + 2 flaske vin til 60 euro hvis dere er tre stykker. Kan være lurt å reservere på forhånd. Måtte ta en par pils i baren før vi fikk bord. Rett over gata fra Luden ligger en cocktail bar som lager de beste drinker. Kjøkkensjefen på Luden kjenner eieren av cocktailbaren veldig godt. Få navnet på kjøkkensjefen så når du kommer inn på cocktailbaren for å vorse litt sier du at du vil ha spesialdrinken til kjøkkensjefen! Det er en real killer! Ble rett og slett for full på den cocktailbaren.
  14. Hvor da? Skal mest sannsynlig reise mye rundt de neste to årene så trenger alle billigtriksene som finnes
×
×
  • Create New...