» Poradna » Programy

Problem s programovanim v Rapidq (basic)

 |   | 

Takze som uplny zaciatocnik v programovani. Chcem naprogramovat v Rapid-q to je programovaci jazyk
ktory vychadza povodne s Qbasicu ale je uz objektovy. Vsetky veci pisem rucne, kedze sa ho chcem naucit.

No a chcem urobit program ,ktory premeni nejaku zadanu sumu Eur na Sk koruny.

Tu je zatial zdrojovy kod.
Nevie ako docielim to aby z cisla vlozeneho do prvej kolonky sa stala premenna a ta sa vynasobi konverznym kurzom
a vysledok sa ulozi do kolonky druhej.
V klasicko Qbasicu to viem docielit ale tu nie.
Dakujem.

$APPTYPE GUI
SUB premena

END SUB


DIM MainForm AS QFORM 'urobi nam okno
MainForm.Caption = "Euro kalkulacka"

MainForm.Height = 340
MainForm.Width = 350
DIM Eura AS QLABEL

Eura.Parent = MainForm 'napise znak ojra
Eura.Caption = "€"
Eura.Top = 13
Eura.Left = 25

DIM EuraEdit AS QEDIT 'prva kolonka
EuraEdit.Parent = MainForm
EuraEdit.Left = 70
EuraEdit.Top = 10
EuraEdit.Width = 50

DIM Rovnasa AS QLABEL 'znak rovna sa
Rovnasa.Parent = MainForm
Rovnasa.Caption = "="
Rovnasa.Top = 13
Rovnasa.Left = 150

DIM EuraVysledok AS QEDIT 'druha kolonka


EuraVysledok.Parent = MainForm
EuraVysledok.Left = 200
EuraVysledok.Top = 10
EuraVysledok.Width = 50

DIM Sk AS QLABEL 'znak SK
Sk.Parent = MainForm
Sk.Caption = "Sk"
Sk.Top = 13
Sk.Left = 260

DIM konverz AS QBUTTON 'tlacitko premen
konverz.parent = MainForm
konverz.Left = 125
konverz.Top = 40
konverz.Width = 110
konverz.Caption = "Premen na SK"
konverz.OnClick = premena


MainForm.ShowModal

Mohlo by vás také zajímat

Odpovědi na otázku

 |   | 

Do faku som nevedel ze to tak zalame, tu mate zdrojovi kod www.2shared.com ...
Tu mate obrazok programu img87.imageshack.us ...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Poslite mi prosim niekto zdrojovy kod euro kalkulacky s prveho prispevku v tomto fore, link na 2shared je uz nefunkcny. Dakujem. Email: om7atx@sanynet.sk

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Moja rada - okamzite to zahod a zacni robit nieco pouzitelnejsie. Vazne.

Ja by som odporucal od uplnych zakladov - tzn. C a pointre, vlastna implementacia a pouzitie darovych struktur, vlastna implementacia beznych algoritmov, potom C++/Java/C#, ale ak chces pokracovat v robeni takychto okienovych aplikacii bez vsetkeho toho hardcore programatorskeho pozadia (to neber ako urazku, alebo vycitku, zalezi aj na co sa ucis programovat; fyzikovi alebo matematikovi stacia uplne ine znalosti ako programatorovi), tak sa vrhni na C# a WinForms, je to velmi jednoduche a ucis sa pritom syntax, ktora je odvodena z C a pritom syntax podobnu C maju desiatky az stovky jazykov. Takyto otrasny zapis ako basic je jednoducho otrasny ;)

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

"darovych struktur"

:D Samozrejme "datovych struktur" ;)

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Takze to C je najlepsia alternativa. Inak mam doma knihu Programovaci jazyk C z roku 1978.
No skusim teda to Cecko..Dik

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Hm, nebude to Kernighan & Ritchie? Potom pozor na to, ze sa to od dnesnych ANSI ISO C noriem lisi ;)

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Su to oni. No tak postudujem s netu teda. Este raz dik.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

declare sub Displej
const prevod = 31
dim F as qForm
F.caption = " Euro kalkulačka"
F.borderStyle= 5
F.width =400 : F.height=300 : F.center
F.onPaint = Displej
dim E1 as qEdit
E1.parent = F
E1.left=30 : E1.top=100 : E1.width = 80
E1.onChange = Displej
dim L1 as qLabel
L1.parent = F
L1.left=30 : L1.top=150
F.showModal

sub Displej
defLng H = int(100*val(E1.text)/prevod)
defStr E = "Euro = " + str$(H\100) ' \ celociselne deleni
defStr C = "Cent = " + str$(H mod 100)
L1.caption = E + " " + C
end sub


Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Převod z Eur na Koruny je hodně podobný. RapidQ je dobrý.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

sub Displej ' prevod Eura -> Koruny
defLng L = int(100*val(E1.text)*prevod)
' nasobeni stovkou zarovna pozdeji na 2 desetinna mista
defStr K = str$(L\100)
defStr H = str$(L mod 100)
L1.caption ="Koruny = "+K+" Halire ="+H
end sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

pane boze, co je toto ???
a potom takyto "expert" pride na pohovor, kde prehlasi ze vsetko ovlada a vypyta si 80 tisic mesace

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Ahoj....programování v Rapid-Q je trochu jiné než jiný basic,je potřeba se s ním seznamit,podivat se do "example"..."helpu".....(uskalí muže být ve formatu,kterým se píše,někde musejí být uvozovky...)a učit se s ním,až se to naučíš,tak zjistíš,jak je s ním práce jednoduchá, sice se musí vše datlovat,ale výsledný program je malý a navíc nepotřebuje žadné další velké knihovny jako například exe soubory vytvořene ve visual basicu......Jeden z mnou vytvořených programů je na http://jawa.aspweb.cz/setup.exe... ....jedna se o hru.kde sem se nezaobíral vzhledem,ale hlavně funkčností....jinak nejen baliček s programem Rapid-Q mužeš stahnout z mého webu zde http://jawa.aspweb.cz/programy/index.htm... ....dole.....přeji hodně uspěchů :)

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Henri


Určitě si přečtěte

Vážně dnes ještě někdo krade Adobe? Video můžete stříhat zdarma v Resolve a fotky i vektory zvládne Affinity

Vážně dnes ještě někdo krade Adobe? Video můžete stříhat zdarma v Resolve a fotky i vektory zvládne Affinity

** Kde jsou ty doby, kdy měl skoro každý doma Photoshop ** Photoshop a Premiere Pro od kamaráda nebo z warezu ** Dnes už to nemá smysl, existuje totiž hromada laciných alternativ

Jakub Čížek | 90

Jakub Čížek
Grafický editorStřih videa
Velký den pro Apple: Uvedl tři nové Macy s vlastním procesorem M1
Lukáš Václavík
PočítačeApple
Pozor na tyto doplňky pro Chrome a Edge. Mohou obsahovat malware, varuje Avast
Jakub Čížek
MalwareProhlížeče
Nejlepší notebooky do 20 000 Kč. Tipy, co se dnes vyplatí koupit

Nejlepší notebooky do 20 000 Kč. Tipy, co se dnes vyplatí koupit

** S cenou do 20 tisíc lze vybrat solidní notebook na práci i hry ** Přenosné notebooky nabídnou i kovová těla a rychlý hardware ** Možná největší problém je nedostupnost, nejžádanější kusy jsou vyprodané

David Polesný | 33

David Polesný
VánoceNotebooky
Čím nahradit WhatsApp: Vyberte si z 10 alternativních komunikátorů

Čím nahradit WhatsApp: Vyberte si z 10 alternativních komunikátorů

** Z WhatsAppu kvůli novým podmínkám utíkají tisíce uživatelů ** Čím nahradit populární aplikaci pro zasílání zpráv? ** Vybrali jsme pro vás 10 alternativních komunikátorů

Karel Kilián | 110

Karel Kilián
KomunikaceWhatsAppInstant Messaging
Elon Musk podpořil Signal jako náhradu WhatsAppu. Aplikaci okamžitě zavalili uživatelé
Markéta Mikešová
WhatsAppElon MuskFacebook

Aktuální číslo časopisu Computer

Jak prodloužit výdrž notebooku

Velké testy: gamepady a inkoustové tiskárny

Důkladný test Sony Playstation 5