Ú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.
Új hozzászólás Aktív témák
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- 3D nyomtatás
- One mobilszolgáltatások
- BestBuy ruhás topik
- One otthoni szolgáltatások (TV, internet, telefon)
- Interactive Brokers társalgó
- OLED TV topic
- Intel Core i7-5xxx "Haswell-E/EP" és i7-6xxx "Broadwell-E/EP" (LGA2011-v3)
- Luck Dragon: Asszociációs játék. :)
- Fejhallgató erősítő és DAC topik
- További aktív témák...
- Gamer PC-Számítógép! Csere-Beszámítás! R7 5700 / RTX 2080Ti 11GB / 16GB DDR4 / 1TB Nvme SSD
- ADATA (1x32GB) DDR5 4800MHz CL40 - 120 hó garancia
- Lenovo IdeaPad 3 - 15,6" Full HD - AMD Athlon Silver 3050U - 4GB - 512GB SSD - Win10 PRO - MAGYAR
- Patriot Viper Venom RGB 32GB KIT DDR5 6000MHz CL36 - XMP/EXPO - ÚJ-Bontatlan
- AMPAPA D1 Erősítő + Douk Audio Q11 DAC
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- Adata DDR5 5600 RAM 2x8 GB
- Apple iPhone 13 / 128GB / Kártyafüggetlen / Akku:87%
- GYÖNYÖRŰ iPhone 12 Mini 64GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4082, 90% Akksi
- BESZÁMÍTÁS! MSI B450M R5 5500 16GB DDR4 512GB SSD RX 6500 XT 8GB Rampage SHIVA ADATA 600W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest

