Gå til innhold

blacjack i visula basic

pipers75

Av pipers75
i Programmering og webutvikling

Anbefalte innlegg

Videoannonse

Videoannonse
Annonse
pipers75

pipers75

Skrevet
  • Forfatter
Skrevet
Hmmm hva med å starte selv?

 

Har du 6.0 eller .NET versjonen?

 

Link til fungerende 6.0 versjon.

7271210[/snapback]

 

Jeg har Visual basic 2005 Express edition.

Jeg skulle gjerne begynt å programmere det selv, men har for liten kunnskap til dette. Har kun data som et lite sidefag, og har kun laget bittsmå programmer med Vb. Føler at dette er alt for mye å sette seg inn i nå før eksamen i store hovedfag. Vi har heller ingen lærebok i faget, og forelesningene har vært så som så.. Jeg lastet ned kodene i linken du gav, men fikk opp 102 feilmeldinger da jeg prøvde å kjøre det. Programmet syntes ganske omfattende og langt mer enn jeg trenger å lage. Trenger det kun så enkelt så mulig uten farge og grafikk bare det "går rundt".

Lenke til kommentar
pipers75

pipers75

Skrevet
  • Forfatter
Skrevet
Start selv da med noe enklere, så kan du heller spørre hvis det er noe ;)

7271551[/snapback]

OkModule Module1

Public Function Rand(ByVal Low As Long, _

ByVal High As Long)

Rand = Int((High - Low + 1) * Rnd()) + Low

End Function

Sub Main()

Randomize()

Dim cardarray(0 To 12) As Integer

Dim test(0 To 5) As Integer

Dim bankarray(0 To 12) As Integer

 

Dim cardsvalue As Integer

Dim bankvalue As Integer

Dim bankarray As Integer

Dim banksum As Integer

Dim sum As Integer

Dim i As Integer

Dim j As Integer

Dim k As String

Dim x As Integer

Dim y As Integer

x = 1

i = 0

j = 0

k = "ja"

sum = 0

banksum = 0

 

cardarray(0) = 2

cardarray(1) = 3

cardarray(2) = 4

cardarray(3) = 5

cardarray(4) = 6

cardarray(5) = 7

cardarray(6) = 8

cardarray(7) = 9

cardarray(8) = 10

cardarray(9) = 10

cardarray(10) = 10

cardarray(11) = 10

cardarray(12) = 11

bankarray(0) = 2

bankarray(1) = 3

bankarray(2) = 4

bankarray(3) = 5

bankarray(4) = 6

bankarray(5) = 7

bankarray(6) = 8

bankarray(7) = 9

bankarray(8) = 10

bankarray(9) = 10

bankarray(10) = 10

bankarray(11) = 10

bankarray(12) = 11

 

Console.WriteLine("Dette er 21-spillet, også kalt for Black Jack")

Console.WriteLine("Trykk enter for å begynne spillet")

Console.ReadLine()

Console.WriteLine("Kortene stokkes, og det deles ut kort.")

Console.WriteLine("Trykk enter så får du se kortene dine.")

Console.ReadLine()

 

Do While k <> "nei"

cardsvalue = Rand(0, 12)

x = cardarray(cardsvalue)

sum = sum + x

test(i) = cardarray(cardsvalue)

i = i + 1

Console.WriteLine("" & cardsvalue & "" & x & "sum er" & sum)

Console.WriteLine(test(0) & "" & test(1) & "" & test(2) & "" & test(3) & "" & test(4) & "" & test(5))

Console.ReadLine()

If sum < 21 Then

Console.WriteLine("Ønsker du et kort til?")

Console.WriteLine("Svarer du ja, så får du et kort til.")

Console.WriteLine("Svarer du nei, så trekker banken ett kort.")

k = Console.ReadLine

Else

k = "nei"

 

End If

Loop

If sum < 21 Then

Do While banksum < "5"

Console.WriteLine("Banken trekker ett kort fra deg.")

Console.WriteLine("Trykk enter for å fortsette.")

k = Console.ReadLine

bankvalue = Rand(0, 12)

banksum = banksum + y

banktest(j) = bankarray

 

Console.WriteLine("" & bankvalue & "" & x & "banksum er:" & banksum)

Console.WriteLine(test(0) & "" & test(1) & "" & test(2) & "" & test(3) & "" & test(4) & "" & test(5))

Console.ReadLine()

Loop

End If

If sum > 21 Then

Console.WriteLine("Nå tapte du!")

ElseIf banksum = 21 Then

Console.WriteLine("Nå vant du!")

banksum = 2

Console.ReadLine()

End If

If sum > banksum Then

Console.WriteLine("Nå vant du!")

Else

Console.WriteLine("Nå tapte du!")

End If

Console.ReadLine()

End Sub

 

End Module

, Hvorfor funker ikke dette? ;)

Lenke til kommentar
pipers75

pipers75

Skrevet
  • Forfatter
Skrevet
Gah. Si det. :p

 

Kan du laste opp proskjekte i stedet?

.zip/rar?

7272378[/snapback]

Får ikke tilgang til å laste opp en slik filtype (melding)

7272489[/snapback]

 

Last det opp til en FTP server eller bare navn det .txt i stedet .zip eller .rar.

:)

7272811[/snapback]

Lenke til kommentar
pipers75

pipers75

Skrevet
  • Forfatter
Skrevet
Gah. Si det. :p

 

Kan du laste opp proskjekte i stedet?

.zip/rar?

7272378[/snapback]

Får ikke tilgang til å laste opp en slik filtype (melding)

7272489[/snapback]

 

Last det opp til en FTP server eller bare navn det .txt i stedet .zip eller .rar.

:)

7272811[/snapback]

7274138[/snapback]

Klarer ikke å få det til :thumbdown:

Lenke til kommentar
pipers75

pipers75

Skrevet
  • Forfatter
Skrevet
Home.no

 

Gå inn på adressen over og registrer deg, når du har registert deg skriver du følgende i internet explorer:

ftp.home.no

 

Så skriver du inn pass og bruk.. som du registrerte tidligere. =)

7274478[/snapback]

Takk prøver etterpå, skal bare følgen noen forelesninger nå(ikke programmering) :yes:

Lenke til kommentar
pipers75

pipers75

Skrevet
  • Forfatter
Skrevet (endret)
Home.no

 

Gå inn på adressen over og registrer deg, når du har registert deg skriver du følgende i internet explorer:

ftp.home.no

 

Så skriver du inn pass og bruk.. som du registrerte tidligere. =)

7274478[/snapback]

 

Du vil ikke sende meg en mail, så skal jeg sende det til deg. Sliter litt med å få lagt det opp her. Epost: [email protected]

Endret av pipers75
Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
Gå til emneliste

  • Hvem er aktive   0 medlemmer

    • Ingen innloggede medlemmer aktive
×
×
  • Opprett ny...