Hirdetés
- Xiaomi 15 - kicsi telefon nagy energiával
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Apple iPhone 15 - a bevált módszer
- Milyen hagyományos (nem okos-) telefont vegyek?
- Samsung Galaxy Watch5 Pro - kerek, de nem tekerek
- November 24-én jön a Honor 500, itt az első kép róla
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Amazfit Helio Strap – képernyőmentesen
- Megtartotta Európában a 7500 mAh-t az Oppo
Ú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
- Kínai és egyéb olcsó órák topikja
- Xiaomi 15 - kicsi telefon nagy energiával
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- Rendszergazda topic
- Elektromos cigaretta 🔞
- Diabetes - Cukorbetegség
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Okos Otthon / Smart Home
- gban: Ingyen kellene, de tegnapra
- Feketelista, avagy a rossz boltok topicja
- További aktív témák...
- Apple iPhone 15 Pro Max 256GB, Kártyafüggetlen, 1 Év Garanciával
- ÚJ Parkside 10000 mAh powerbank 3 év garanciával.
- MS SQL Server 2016, 2017, 2019
- Xiaomi 15 Ultra Silver Chrome 120 Hz WQHD+ LTPO AMOLED, Leica 1 + 200 MP periszkóp 16/512 GB
- BESZÁMÍTÁS! Apple iPad Pro 13 2024 M4 16GB/2TB WiFi tablet garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest


