VBA opdracht voor school lukt niet

[D34F]

Hallo allemaal,

ik heb een opdracht voor het vak VBA gekregen en die moet ik woensdag inleveren. Alleen weet ik niet hoe ik verder moet.

Dit is de opdracht:

Maak een VBA programma (of hoe je zoiets ook noemt) die als je je naam intypt en je op een knop drukt zegt: Hallo <naam>
Als de naam met een hoofdletter wordt getypt, moet er een andere groet staan (Dus dan "Gegroet <naam>" of iets dergelijks.)
(De code die ik heb gekregen om te checken of het met hoofdletter geschreven is deze: left(<naam>,1) < "a" )

Ook moet het programma'tje kunnen converteren van Celsius naar Fahrenheit en andersom. Hiervoor heb ik deze codes gekregen: Fahrenheit = (Val(Celsius) * 1.8) + 32 en Celsius = (Val(Fahrenheit) - 32) / 1.8

Nu is het mij gelukt om de layout te maken en het programma'tje kan ook ook al zeggen "Hallo <naam> ". Maar hoe kan ik hem een andere groet laten zeggen als je een hoofdletter gebruikt?

Wat ik ook niet snap is die converter voor van fahrenheit naar celsius en andersom.

Zo ziet het er tot nu toe uit en dit is de code:

Private Sub CommandButton1_Click()
MsgBox ("Hallo " + TextBox1)


End Sub

Private Sub OptionButton1_Click()
Fahrenheit = (Val(Celsius) * 1.8) + 32
End Sub

Private Sub OptionButton2_Click()
Celsius = (Val(Fahrenheit) - 32) / 1.8
End Sub

Hopelijk kunnen jullie mij helpen, alvast bedankt.

 

[Wigi]

Peter

Sorry, maar dit kan niet. Je had je de moeite van het typen kunnen besparen, zoals hier gespecifieerd.

Wigi

 

[Road Dogz]

Je kan hetgene posten wat jij al hebt kunnen maken, dan kan men hier nog zien wat er mee gebeurt, maar dit is gewoon huiswerk droppen...

 

[D34F]

Ok, zie eerste post. Heb het verandert. Hopelijk kunnen jullie mij helpen.

BTW: Hoe kan ik mij programma'tje opslaan? Dan kan ik hem ff uploaden en hier neer zetten. Misschien snappen jullie het dan beter.

 

[Guus2005]

ff helpen

Kijk naar het statement LEFT, UCASE en IF-THEN-ELSE
Je moet reageren op het eerste karakter.
Daarmee moet je verder kunnen komen.

 

[D34F]

Alles is gelukt, behalve dat met de hoofdletter.

 

[Guus2005]

een hint

if left(me.textbox1,1) = ucase(left(me.textbox1,1)) then
   'Hoofdletter gebruikt!
else
   'Geen hoofdletter gebruikt
endif

Hier wordt het eerste karakter vergeleken met hetzelfde karakter dat is omgezet naar een hoofdletter. als die hetzelfde is dan is dat blijkbaar een hoofdletter anders niet.

Enjoy!

 

[D34F]

if left(me.textbox1,1) = ucase(left(me.textbox1,1)) then
   'Hoofdletter gebruikt!
else
   'Geen hoofdletter gebruikt
endif

Hier wordt het eerste karakter vergeleken met hetzelfde karakter dat is omgezet naar een hoofdletter. als die hetzelfde is dan is dat blijkbaar een hoofdletter anders niet.

Enjoy!

Thanks, dit werkt! Hartstikke bedankt