Hirdetés
(használd a CYBSEC25PH kuponkódot további 20 ezer ft kedvezményért!)
Ú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
- SIEMENS TQ513R01 Teljesen automata kávéfőző EQ500 Integral/Fekete Kivehető víztartály 15 bar
- LG OLED Evo G3, 65,''col, 4K
- Gyönyörű Watch Ultra 2 (GPS + Cellular) 49MM, natural titan, garanciális 2027.11.04-ig, üzletből
- HP Probook 450 G3 notebook eladó
- IPHONE 15 PRO 128GB FÜGGETLEN, GYÁRI GARIVAL 2027.02.HÓIG , ÜZLETBŐL
- Xiaomi Smart Band 8, Újszerű, 1 Év Garanciával
- Új Asus 16 ProArt 4K+ OLED Touch Ryzen AI 9 HX370 32GB 2TB Nvidia RTX 4060 8GB Studio Win11 Garancia
- Apple iPhone 13 Mini 128GB,Dobozával,12 hónap garanciával
- Eladó 2db Nokia steel hr hibrid okos óra dobozával
- Telefon felvásárlás!! Samsung Galaxy A70/Samsung Galaxy A71/Samsung Galaxy A72
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest