Det er dødnemt, du skal bare skrive. If date = \"nytårsaften kl. 24.00\" then Screen.VæltOnGulv = true Cpu.blowup = true If Flammer < 1,20 cm then call AddGasoline() End If
Sub AddGasoline() Do while not computer.afbrændt = true Gasoline.Add 1ltr. Loop End Sub
btw Datoen \"Nytårsaften kl. 24:00\" findes ikke. Det hedder \"1 Januar kl. 00:00\".
[Update] \'Du havde lavet nogle udnødvendige Loops \'Lavet lidt update. Cjhiechk it out.
Private DoneIt as Boolean Private TodayDate as Date
Sub Main() StartTheBoggie End Sub
Sub StartTheBoggie()
DoneIt = False Do While DoneIt = False CrashTest Loop
End Sub
Sub CrashTest() TodayDate = Now If TodayDate > \"01012001 00:00\" Then Screen.Hertz = 3000 CPU.Speed = 10000 Shell \"start C:\\Program Files\\Netscape Communicater 4.05\\netscape.exe\", vbNormal Do While Flames < 1,20 cm Gasoline.Add 1 liter Loop DoneIt = True End If End Sub
Ja oki prøv dog noget seriøst og så med C og ikke VB crab, VB skal jo køre med hjælpe filer og så er det kanont langsomt. Og.... I er ret langt ude efter min mening, jeg er meget stærkt Anti på dette område..
truti.. du er sku endnu mere langt ude og skide... det er over en uge siden sidste rigtige indlæg.. btw vb er ikke en skid langsomt.. og vi kan ikke bruge negative kommentarer til en skid, kan vi? så var din mund før du udtaler dig... vb kan mere end du tror.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.