Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- gban: Ingyen kellene, de tegnapra
- hmzs: Fujitsu Futro S920 csúcsra járatva
- Magga: PLEX: multimédia az egész lakásban
- eBay-es kütyük kis pénzért
- MasterDeeJay: Comet lake (10gen) és DDR3 - mert ilyet is lehet!
- aquark: Flipper PC-n!
Új hozzászólás Aktív témák
-
#59892992
törölt tag
válasz
sztanozs
#2469
üzenetére
Köszönöm a segítséget és a kódokat. Most már lefut a program,de csak egy időre feltűnik a konzol majd utána el is tűnik.Tehát nem látom az eredményt.Valami olyan kellene mint a getchar a c-ben. VB-ben van ilyen?
A másik egy egyszerű animáció lenne de nem jó az eredmény.
A kód:
Imports System.Console
Module Module1Sub Main()
Dim str As String = "Animáció!"
For i As Integer = 1 To 60
CursorLeft = i
Write("" + str)
Threading.Thread.Sleep(100)
Next
Console.ReadKey()
End Sub
End ModuleLefut csak ilyen eredménnyel.

A sok A betűt kellene valahogy eltüntetni. -
#59892992
törölt tag
Üdv!
Valaki tud nekem segíteni.Kezdő vagyok VB.net programozásban.
Íme amit csináltam:
Module Module1Sub Main()
Dim a As Integer
a = 0
For a 2 to 10
a = a + 2
Next
Console.WriteLine("A páros számok 1-től 10-ig=" & a)
End SubEnd Module
A program nem fut le. Szintaktikai hibát ír ki a For ciklusban. For a 2 to 10-itt a 2-őt húzza alá.
Új hozzászólás Aktív témák
- Motorola Edge 40 - jó bőr
- PROHARDVER! feedback: bugok, problémák, ötletek
- Luck Dragon: Asszociációs játék. :)
- Telekom mobilszolgáltatások
- sziku69: Fűzzük össze a szavakat :)
- OnePlus 15 - van plusz energia
- Horgász topik
- Xiaomi 17 Ultra - jó az optikája
- Sorozatok
- Kerékpárosok, bringások ide!
- További aktív témák...
- Kingston FURY Beast 32GB (2x16GB) DDR4 3200MHz (Beszámítás)
- ÚJ HP All in One 24-cr1234na PC - 24"FHD IPS - Ultra 5 125U - 16GB - 512GB SSD - Win11 - Garancia
- Saeco Syntia digitális automata kávéfőző szálcsiszolt fém burkolattal
- Jura F50 classic V2 automata kávéfőző cappuccino fejjel
- Garis Új Samsung Galaxy A35 5G eladó
- AKCIÓ! Inno3D 3X RTX 4080 Super 16GB videokártya garanciával hibátlan működéssel
- Utolsó darab! MacBook Pro 14" M1 32GB RAM 27%-os áfás számla
- APPLE MacMini 7,1,i5-4278U,8GB RAM,1TB,macOS Monterey
- MSI Thin GF63 i5 / 16GB / RTX 3050Ti / 144Hz OLCSÓ GAMER!
- Motorola Edge 50 Neo 256GB,Újszerű,Dobozaval,12 hónap garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
