jonask

Heihopp!

Jeg her FULLSTENDIG ny i php programering, faktisk er dette det første jeg noen gang har laga Men alikevel, jeg ville gjerne høre hva folk synes.

adressen er http://www.jonask.com/?pg=tv

Dette er en grafisk tvguide, designet fordi jeg ennå ikke har funnet noen tvguide på nettet som er bra nok. Den henter data fra min mysql server og oppdaterer denne når noen ber om en kanal hvis data er utdatert.

Funker veldig alright =) det skal komme funksjonalitet som lar deg bla frem og tilbake i tiden...

så det nå. menyene fungerte ikke i opera...

LENGE LEVE MICRSOFTS TOTALE DISRESPEKT FOR STANDARE!

Jeg savner det? Sikkert bare meg som er blind men jeg finner det ikke

Ville bare si at jeg personlig har hatt MEGET god erfaring med www.netshop.no. Ikke bare har de gode priser og rask levering, men også UTMERKET kundeservice. Jeg kjøpte så godt som alle komponentene til en A64 pc til konfirmasjonsgave til lillebroren min, og da det ble problemer med minnets stabilitet ble jeg så klart litt redd. Det hjalp heller ikke at jeg hadde hentet pcen før jeg dro til Hamar, og det hadde gått langt over den 14 dagers returetten. Så jeg var redd for at jeg ikke skulle fått byttet minne uten å betale for begge brikkene.

Så jeg ringte dem. 334 22222. Der snakket jeg med en meget hyggelig og imøtekommende Knut på tech support som forsikret meg at det bare var å levere brikken tilbake, og plukke ut en ny. som han sa, "vi er ikke så strenge på de 14. dagers reglene =)". Jeg ble jo selvsagt happy for å høre dette, og snart hadde jeg levert fra meg twinmosen og fått en splitter ny Geil brikke.

Men da denne HELLER ikke fungerte med gigabyte HKet ringte jeg opp netshop igjen og forklarte situasjonen. Da sa Knut at jeg bare kunne komme opp med hele kassa, så skulle de finne en brikke som fungerte stabilt med hket mitt. Som sagt så gjort.

Fire dager senere fikk jeg pcen tilbake med en Kingston brikke, og i følge broren min har han ikke hatt en eneste feil på systemet sålangt.

Er ikke dette herlig kundeservice? Jeg betalte INGEN TING for denne servicen! Helt gratis!

Jeg forstår at netshop må være ekstra hyggelige i oppstartsfasen, men alikevel vil jeg anbefale dem som en seriøs og hyggelig webshop.

Vel, jeg skal ikke ha æren for at det er så lite kode.

Det er nemlig det som er så herlig med fysikk,

noen få enkle grunnregler skaper uendelig komplekse resultater =)

Som her, det eneste jeg beregner er gravitasjon, friksjon og stress/spenning.

Heihopp! Sitter og skrur på dette programmet jeg starta på for noen uker siden,

og nå begynner det å bli rimlig artig synes jeg. Dealen er at det simulerer stress,

gravitasjon og div krefter på all slags enkle strukturer.

Du kan også legge til "muskler" som strekker og dytter på ting.

Jeg synes dette egentlig er overraskende kult å sitte å mekke med,

og jeg håper at noen kommer til å ha glede av det.

Jeg har lagt med noen små eksempler for å vise hva proget kan gjøre.

Jeg har postet tidligere versoner av dette programmet her, så jeg beklager hvis jeg

virker repeterende, men jeg føler at det har utviklet seg såpass

at det er på tide å dele =)

programmet med full kildekode finner dere som alltid på Visual Basic seksjonen på

jonask.com

filen heter stress_and_structure_simulation.zip

Håper noen finner dette like festlig som meg

Haha! Herlig opplegg! Jeg skulle gjerne hørt lydene, neste gang må dere ha med mic

Genialt stykke kode, aadnk =) Her lærte jeg faktisk hele tre nye, veldig nyttige triks! at richboxen kan skille på textfarge, split kommandoen og denne LockWindowUpdate ATIen =) hehe, takk for den sweete koden!

Takk for det =) men husk dette er ikke min idè. Jeg fikk konseptet fra sodaplay, og hermer egentlig bare etter det jeg så der

Men jeg tenkte jeg skulle poste og si i fra at nå har jeg lagt opp en mye mer fullstendig verson, med muskel-støtte og "fixed points". Mye mer morro for penga

Samme link som før: http://www.jonask.com/vb/particels.zip

Hei hopp!

Jeg sitter og mekker noe a là sodaplay som dere sikkert har vært borti=)

Og så tenkte jeg å se om noen hadde noen bra innspill å komme med!

Koden er veldig under utvikling, og halvparten av variablene er ikke definert ennå,

men den funker sånn pass, og man får et inntrykk av resultatet.

Jeg skal legge til muskler etterhvert, men jeg har sitti med denne koden i 7 timer nå,

og gidder egentlig ikke mer i kveld

Vel, her er den i alle fall:

http://jonask.com/vb/particels.zip

Virker veldig bra! fin og oversiktlig, jeg vil også henge meg på og anbefale at man leser dette, i alle fall deler av det =)

Vel, jeg har vel aldri sagt at det var et BRA spill?

jeg skjønner ikke humoren... Det er klart det finnes bedre spill,

jeg har aldri hevdet noe annet.

Jeg ville bare dele noe jeg hadde laget, ikke samenligne det med

et flere hundre årsverks stort kommersielt spill.

Noen folk...

ooookay, jeg tror jeg har noe her.

Alt du trenger er en picbox som heter Picture1, den bør helst ha sort bakgrund

Så kan du egentlig bare lime dette inn i kildekoden slik det er. Lykke til

Option Explicit
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long

Private Type aStar
X As Double
Y As Double
Vel As Double
Size As Double
End Type
Dim Stars(1 To 50) As aStar
Dim FlagEnd As Boolean

Private Sub Form_Load()
Dim NextTick As Long
Dim a As Long
   Randomize 'gi random funksjonen et nytt seed
   'plaser ut stjernene
   For a = 1 To UBound(Stars) 'loop gjennom alle stjernene
       Stars(a).X = Rnd * Picture1.ScaleWidth
       Stars(a).Y = Rnd * Picture1.ScaleHeight
       Stars(a).Size = Int(Rnd * 3) + 1
       Stars(a).Vel = (Rnd * Stars(a).Size) + (Stars(a).Size / 2)
   Next a
   Me.Show 'vis hoved Form1. Dette må gjøres manuelt siden Form_Load ikke har fullført ennå
   Do
       DoEvents 'Doevents frigjør prossesoren til å gjøre andre ting, hindrer programmet i å fryse
       'dette er en framelimiter, vi kan begresne farten på loopen
       Do Until GetTickCount > NextTick
           DoEvents
       Loop
       NextTick = GetTickCount + 30
       
       Picture1.Cls 'clear bilde
       For a = 1 To UBound(Stars) 'loop gjennom alle stjernene
           'se om sternen er utenfor venstre side
           If Stars(a).X < -5 Then
               Stars(a).X = Picture1.ScaleWidth + 5
               Stars(a).Y = Rnd * Picture1.ScaleHeight
           Stars(a).Size = Int(Rnd * 3) + 1
           Stars(a).Vel = (Rnd * Stars(a).Size) + (Stars(a).Size / 2)
           End If
           'flytt stjernen
           Stars(a).X = Stars(a).X - Stars(a).Vel
           
           'tegn stjernen
           Picture1.Line (Stars(a).X, Stars(a).Y)-Step(Stars(a).Size, Stars(a).Size), vbWhite, BF
       Next a
   Loop Until FlagEnd = True
   End
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
   FlagEnd = True
End Sub

Du trenger nok ikke bruke bitblt her, Jonas. Med mindre du har tengt til å lage bilder av stjerner?

Men hvis du bare skal ha prikke-stjerner kan du like gjerne bruke Line funksjonen som ligger i PictureBox. Jeg skal lage et sample til deg, så du skjønner hva jeg mener =)

Kanskje du burde vurdere å ikke lage stjerne som objekter (jeg antar de er PictureBoxer?) men heller lagre dem som variabler i array eller linked list og heller tegne dem for hvert frame. litt tyngre, men mye stiligere

Hvis du gidder kan du jo sende meg kildekoden på [email protected] så kan jeg kikke på det?

Artig å se flere Jonaser her =)

Takk for kommentaren forresten!

Jeg er selv helt ny i dette forumet, men har skrevet vb i en 4-5 års tid nå, til og fra.

Bitblt er utrolig kjekt når en skal lage spill og grafikk i vb, det er ikke like kraftig som direct draw kan være, men til gjengjeld er det en API funksjon og støttes derfor av alle moderne windows versoner uten at noe som helt må legges til.

for å bruke bitblt må funksjonen først deklareres:

(Public eller Private) Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

siden bitblt er en funksjon vil den strengt tatt returnere en Long verdi, men den kan vi drite tynt i siden bitblt så godt som aldri feiler (ikke til min kjenskap i alle fall =)

slik brukes bitblt

BitBlt Målhdc, X, Y, W, H, kilehdc, sX, sY, Tegnemåte

Målhdc = hdc verdien til det du vil tegne på, f. eks Form1.hdc eller Picture1.hdc

X = Hvor på Målhdc du vil begynne å tegne (husk å sette Scalemode verdien på bilde til "3 - Pixels")

Y = Samme som X

W = Bredden av det du skal lime inn

H = Høyden av det du skal lime inn

kildehdc = hdc verdien til det bilde du skal "klippe ut" fra, altså der det du skal male på Målhdc ligger

sX = Hvor på kilde-bilde du skal begynne å klippe ut

sY = samme som sX

Tegnemåte = hvordan skal vi tegne kildehdc over på målhdc?

Vanlig her er

vbSrcCopy som vil lime inn en eksakt kopi

vbSrcAnd som du vil bruke med "masker"

vbSrcPaint som du vil bruke med "sprites"

Dette var kanskje litt forvirrende?

Jeg har noe enkle eksempler fra da jeg selv lærte meg BitBlt (noe av det jeg har fått mest bruk for ever), så hvis noen er interesert så poster jeg link =)

Koslig å se et norsk programerings forum!

Beste Hilsner

--

Jonas

Her er et av de første spille jeg lagde (og et av de eneste jeg fullførte .

Tenkte jeg skulle dele!

fil: http://jonask.com/vb/sub_hunter.zip

--

Jonas

Jeg fant det ut =)

en kompis viste meg hvordan ctrl+(bokstav) setter inn ascii tegnet tilsvarende alfabetpossisjonen til bokstaven du trykker. Derfor vil ctrl+i gi tabs...

Hey, pent spill! Virkelig stilig gui =)

Men jeg savner kildekoden, vansklig å si noe om programmet bak spillet. Hadde jo vært litt spennede å se hvordan det er skrevet også

Bra app!

--

Jonas

Noen som har en god idè om hvordan man kan sette inn skikklig tabs her?

Det er ikke fett
å skrive kode slik 
som det her
1
  2
     3
        4

=)

Sikkert bra guide, jeg har ikke lest den.

Men var jeg deg ville jeg lagt ut en ny verson så fort som mulig

å ikke indende koden er en forferdelig uvane, og ved å lære nybegynnere

opp til å ikke gjøre det er bare feil detersomåskriveenlengeratrikkelutenmellomromellernoenannenformfortegnsetting

Cheers!

--

Jonas

___

Lagt til senere

___

Ved nærmere undersøkelse av siden ser jeg jo at det ikke er din feil.

det er jo ikke mulig å snike inn tabs på det forumet her sorry =)

Heisann folkens, hvis dere er ute etter VB prosjekter er jeg gjerne med å dele.

på www.jonask.com kan dere laste ned et eventyrspill jeg jobber på. Det er langt fra ferdig, men det gir en idè om hva det kommer til å bli en gang.

Cheers!

--

Jonas