- Pebble - az átgondolt okosóra
- Google: minden androidos telefonra jön az AirDrop-kompatibilis Quick Share
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- Google Pixel topik
- Samsung Galaxy A54 - türelemjáték
- Honor Magic6 Pro - kör közepén számok
- Vivo X300 Pro – messzebbre lát, mint ameddig bírja
- Íme, a teljes Google Pixel 10a színpaletta
- Nokia N8 - vajon elég lesz-e?
Ú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
- Samsung Galaxy Tab S9 FE 256GB, Wi-Fi, 1 Év Garanciával
- Samsung Galaxy A05 64GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 15 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Apple iPhone 13 Pro 128GB, Akku: 92%, Megkímélt, Kártyafüggetlen, 1 Év Garanciával!
- Samsung Galaxy A72 6/128GB, Megkímélt, Kártyafüggetlen, 1 Év Garanciával!
- Xiaomi Mi 11 Lite 6/128GB / 12 hó jótállás
- GYÖNYÖRŰ iPhone 14 Pro Max 128GB Space Black - 1 ÉV GARANCIA -Kártyafüggetlen, MS4332
- Surface 3 - 13,5" 2k érintő, i5 1035G7, Iris Plus, 16GB RAM, SSD, jó akku, újszerű állapot, számla
- Apple iPhone 15 Pro 256GB, Kártyafüggetlen, 1 Év Garanciával
- HIBÁTLAN iPhone 13 Pro Max 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4302
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest


